[Sammlung] Code stücke

Sedrika · 7. Juli 2010, 00:16

Niks da

Tink · 7. Juli 2010, 00:50

[COLOR="Lime"]Eine .exe auf Version Prüfen.[/COLOR]

Quellcode

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim processList() As Process = Process.GetProcessesByName(TextBox1.Text)
For Each proc As Process In processList
MsgBox(proc.MainModule.FileVersionInfo.FileVersion)
Next
Catch ex As Exception
MsgBox("Error ", MsgBoxStyle.Critical)
End Try
End Sub
End Class

Alles anzeigen

[COLOR="Lime"]Schleife[/COLOR]

Quellcode

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Label1.Text = ""
'Die Schleife er giebt die zahl von 3 bis 7 aus
For i = 3 To 7
'VbCrLf heisst das er mehr als nur eine zahl / wort ausgeben soll bzw es untereinander schreiben soll
Label1.Text &= i & vbCrLf
'Next steht dafür was er nach beendigung der schleife tuhen soll
Next
End Sub
End Class

Alles anzeigen

[COLOR="Lime"]Gesammten Satz Großschreiben via Knopfdruck.[/COLOR]

Quellcode

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = UCase(TextBox1.Text)
End Sub
End Class

[COLOR="Lime"]Von Dual in Dezimahl rechnen.[/COLOR]

Quellcode

Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim faktor As Integer = 1
Dim eingabe As String
Dim such As String
Dim position As Integer
Dim zeichen As Char
Dim suchstart As Integer = 0
Dim anzeige As String = 0
Dim anzahl As Integer = 0
Dim ergebnis As Integer = 0
eingabe = TextBox1.Text
such = 1
For position = eingabe.Length - 1 To 0 Step -1
zeichen = eingabe(position)
If zeichen = "1" Then
anzahl = anzahl + 1
ergebnis = ergebnis + faktor
End If
faktor = faktor * 2
Next
Label1.Text = "Ergebnis : " & vbCrLf & ergebnis
End Sub
End Class

Alles anzeigen

[COLOR="Lime"]Progressbar[/COLOR]

Quellcode

Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.value += 1
If ProgressBar1.value = ProgressBar1.maximum Then
MsgBox("Fertig")
End If
End Sub
End Class

[COLOR="Lime"]RadioButton[/COLOR]

Quellcode

Public Class Form1
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked Then
MsgBox("Checked")
Else
MsgBox("Un Checked")
End If
End Sub
End Class
End Class

Alles anzeigen

[COLOR="Lime"]FolderBrowserDialog[/COLOR]

Quellcode

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FolderBrowserDialog1.ShowDialog()
End Sub
End Class

[COLOR="Lime"]InputBox[/COLOR]

Quellcode

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim passwort As String
passwort = InputBox("Passwort eingabe", Modal)
If passwort = "1234" Then
MsgBox("Richtig")
End If
End Sub
End Class

[COLOR="Lime"]FormClosing[/COLOR]

[COLOR="Lime"][SIZE="1"]'FormClosing heisst was soll geschehen wenn [X] bei einem Programm gedrückt wird, in meinem fall eine MsgBox[/SIZE][/COLOR].

Quellcode

Public Class Form1
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
MsgBox("Coding Stücke von Tink", MsgBoxStyle.SystemModal)
End Sub
End Class

[COLOR="White"]Auch von mir folgt weiteres.[/COLOR]

Demon · 7. Juli 2010, 23:23

FAIL GELÖSCHT MAN!!!!

Tink · 7. Juli 2010, 23:26

[COLOR="Lime"]Farbe eines Panels (auch anderen Objecten) mit Knopfdruck ändern.[/COLOR]

Quellcode

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Panel1.BackColor = Color.Black
End Sub
End Class

[COLOR="Lime"]Form1 in ein Gewissen Aero zustand bringen (Durchsichtig & nimmt die farbe an die, die Taskleiste hatt)[/COLOR]

Quellcode

Imports System.Runtime.InteropServices
Public Class Form1
<StructLayout(LayoutKind.Sequential)> _
Public Structure MARGINS
Public cxLeftWidth As Integer
Public cxRightWidth As Integer
Public cyTopHeight As Integer
Public cyButtomheight As Integer
End Structure
<DllImport("dwmapi.dll")> _
Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer
End Function
Private Sub design() Handles MyBase.Load
On Error Resume Next
Dim margins As MARGINS = New MARGINS
margins.cxLeftWidth = -1
margins.cxRightWidth = -1
margins.cyTopHeight = -1
margins.cyButtomheight = -1
Dim hwnd As IntPtr = Me.Handle
Dim result As Integer = DwmExtendFrameIntoClientArea(hwnd, margins)
End Sub
End Class

Alles anzeigen

[COLOR="Lime"]Fenster Titel herausbekommen[/COLOR]

Quellcode

Imports System
Imports System.Diagnostics
Class MainWindowTitleClass
Public Shared Sub Main()
Try
Dim myProcess As New Process()
Dim myProcessStartInfo As New ProcessStartInfo()
myProcessStartInfo.FileName = "NAME DES PROGRAMMS"
myProcess.StartInfo = myProcessStartInfo
myProcess.Start()
myProcess.WaitForInputIdle()
MsgBox("Main window Title : " + myProcess.MainWindowTitle)
myProcess.CloseMainWindow()
myProcess.Close()
Catch e As Exception
MsgBox(" Message : " + e.Message)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Main()
End Sub
End Class

Alles anzeigen

Sedrika · 8. Juli 2010, 12:36

Niks da

Kaev · 8. Juli 2010, 13:02

Die meisten Snippets die ihr hier schreibt, kann man viel kürzer und leichter machen.
Warum macht ihr das alles immer so kompliziert? Oo
Damits nicht ganz im Offtopic landet:

Enter bei Textbox, damit ist gemeint, wenn man z.B. beim Browser Enter drückt, das man dann auf die Seite kommt und nicht in die nächste Reihe von der Textbox rutscht:

Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
'Code eingeben
End If
End Sub

Tink · 8. Juli 2010, 13:14

Kaev;158452 schrieb:

Die meisten Snippets die ihr hier schreibt, kann man viel kürzer und leichter machen.
Warum macht ihr das alles immer so kompliziert? Oo
Damits nicht ganz im Offtopic landet:

Enter bei Textbox, damit ist gemeint, wenn man z.B. beim Browser Enter drückt, das man dann auf die Seite kommt und nicht in die nächste Reihe von der Textbox rutscht:

Das soll Kompliziert sein? ich finde es recht einfach so, naja mit bischen Überlegung ist es auch zu verstehen.

Keav weiter so bist der erste nicht RockNetworker der was dazu beiträgt :D

Kaev · 8. Juli 2010, 13:19

Ich geb dir mal ein Beispiel (Danke an Demon für den Snippet.)

Eine exe aus einem anderen Ordner aus führen + Msg Box

Dim Fi As IO.FileInfo
Try
Fi = New IO.FileInfo("")
Catch ex As Exception
MsgBox(Prompt:="Datei Error." & vbNewLine & ex.Message, Buttons:=MsgBoxStyle.Exclamation, Title:="Datei Error")
Fi = Nothing
Exit Sub
End Try
Dim P As Diagnostics.Process
Try
P = New Diagnostics.Process
Catch ex As Exception
MsgBox(Prompt:="Inizialising Prozess Error." & vbNewLine & ex.Message, Buttons:=MsgBoxStyle.Exclamation, Title:="Inizialising Prozess Error")
P = Nothing
Exit Sub
End Try
P.StartInfo.FileName = Fi.FullName
P.StartInfo.WorkingDirectory = Fi.Directory.FullName
Try
P.Start()
Catch ex As Exception
MsgBox(Prompt:="Error Excuting Process" & vbNewLine & ex.Message, Buttons:=MsgBoxStyle.Exclamation, Title:="Inizialising Prozess Error")
P.Dispose()
Exit Sub
End Try
MsgBox(Prompt:="Prozess gestartet", Buttons:=MsgBoxStyle.Information, Title:="Start Info")
Fi = Nothing
P.Dispose()

Also ich mach sowas z.B. so:

Eine exe aus einem anderen Ordner aus führen + Msg Box

Shell("C:\Windows\system32\Notepad.exe", vbNormalNoFocus)
MsgBox("Notepad.exe gestartet")

Für Anfänger VIEL leichter zu verstehen. (:

Tink · 8. Juli 2010, 13:30

Kaev;158466 schrieb:

Ich geb dir mal ein Beispiel (Danke an Demon für den Snippet.)

Also ich mach sowas z.B. so:
Für Anfänger VIEL leichter zu verstehen. (:

MsgBox("Notepad.exe gestartet")

*Hust* kleiner tip fehler bei dir :D

Ja ich frag mich auch wieso Demon das so extrem Komplex macht...

Sedrika · 8. Juli 2010, 13:33

Kaev;158466 schrieb:

Ich geb dir mal ein Beispiel (Danke an Demon für den Snippet.)

Also ich mach sowas z.B. so:
Für Anfänger VIEL leichter zu verstehen. (:

Hast du das schonmal beispielsweise bei den Offi files getestet ?
Deins geht da nicht das von Demon schon ^^

Kaev · 8. Juli 2010, 13:35

Sedrika;158477 schrieb:

Hast du das schonmal beispielsweise bei den Offi files getestet ?
Deins geht da nicht das von Demon schon ^^

Hab leider nichts mehr mit FlyFF am Hut. ;)
Finde Ich verwunderlich, weißt du zufällig woran das liegt, dass es da nicht funktioniert? Oo

Datei downloaden:

My.Computer.Network.DownloadFile("URL DER DATEI", "WO DIE DATEI HINSOLL")

Datei downloaden mit Fehlerüberprüfung:

Try
My.Computer.Network.DownloadFile("URL DER DATEI", "WO DIE DATEI HINSOLL")
MessageBox.Show("Datei wurde erfolgreich runtergeladen!")
Catch ex As Exception
MessageBox.Show("Download Fehlgeschlagen!" & vbCrLf & ex.Message)
End Try

Datei uploaden:

My.Computer.Network.UploadFile("C:\Datei.txt", "ftp:/www.DEINEDOMAIN.de/", "Benutzername", "Passwort", True, 500, FileIO.UICancelOption.DoNothing)

Dardan · 8. Juli 2010, 13:50

Hab mir mal die Zeit genommen paar Dinge zu verbessern.

Sedrika;157497 schrieb:

Inhalt einer datei lesen in die RichTextBox1:

Quellcode

Dim Lesen As New StreamReader("DATEI NAME")

RichTextBox1.Text = Lesen.ReadToEnd

Dardan:

Quellcode

RichTextbox1.Text = IO.File.ReadAllText("PFAD")

Eine .exe auf Version Prüfen.

Quellcode

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim processList() As Process = Process.GetProcessesByName(TextBox1.Text)

For Each proc As Process In processList

MsgBox(proc.MainModule.FileVersionInfo.FileVersion)

Next

Catch ex As Exception

MsgBox("Error ", MsgBoxStyle.Critical)

End Try

End Sub

End Class

Alles anzeigen

Dardan:

Quellcode

Quellcode

[COLOR=Red]Try

For Each proc as Process in Process.GetProcessesByName(Textbox1.Text)

Messagebox.Show(proc.MainModule.FileVersionInfo.FileVersion)[/COLOR]

[COLOR=Red]Next

[/COLOR][COLOR=Lime][COLOR=Red]Catch ex as Exception

[/COLOR][/COLOR][COLOR=Red]Messagebox.Show(ex.Message)[/COLOR]

[COLOR=Lime][COLOR=Red]End Try[/COLOR][/COLOR]

Progressbar

Quellcode

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

ProgressBar1.value += 1

If ProgressBar1.value = ProgressBar1.maximum Then

MsgBox("Fertig")

End If

End Sub

End Class

Würde 'nen Error geben spätestens nachdem man die MsgBox schließt, da nichts den Timer stopt und der Progressbar-Wert weiter erhöht wird, obwohl das Maximum erreicht ist.

Zudem wollte ich sagen, dass Shell und Msgbox aus vb6 Zeiten noch drin sind, wenn ihr in vb.net coded solltet ihr die neueren Funktionen verwenden wie Process.Start und Messagebox.Show.

Ich wollt nicht Klugscheißen aber wenn jemand mit vb.net anfängt und sich direkt soetwas einprägt könnte es böse enden :)
lg Ich;

Kaev · 8. Juli 2010, 14:01

Ich hab Shell aus VB6 damals noch im Kopf, seit dem benutz ich das immernoch. *schäm* :s

Tink · 9. Juli 2010, 03:59

Bin zwar nicht seit vb6 dabei aber ich bin tip faul und "shell" ist deutlich kleiner als "Process.start" aber kay ma sehen ob ich mich i.waaaan dazu durchringe das so zu coden wie der liebe her Dardan das will :D

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

Teilen