[Sammlung] Code stücke

Sedrika

Niks da

Tink

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

Code

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]

Code

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]

Code

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

Alles anzeigen

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

Code

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]

Code

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

Alles anzeigen

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

Code

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]

Code

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]

Code

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].

Code

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

FAIL GELÖSCHT MAN!!!!

Tink

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

Code

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]

Code

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]

Code

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

Niks da

Kaev

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:

Zitat

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

Zitat von Kaev;158452

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

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

Zitat

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()

Alles anzeigen

Also ich mach sowas z.B. so:

Zitat

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

Zitat von Kaev;158466

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

Zitat von Kaev;158466

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

Zitat von Sedrika;158477

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:

Zitat

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

Datei downloaden mit Fehlerüberprüfung:

Zitat

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

Alles anzeigen

Datei uploaden:

Zitat

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

Dardan

Hab mir mal die Zeit genommen paar Dinge zu verbessern.

Zitat von Sedrika;157497

Inhalt einer datei lesen in die RichTextBox1:

Code

Dim Lesen As New StreamReader("DATEI NAME")
RichTextBox1.Text = Lesen.ReadToEnd

Dardan:

Code

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

Eine .exe auf Version Prüfen.

Code

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:

Code

[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

Code

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

Alles anzeigen

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.

Alles anzeigen

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

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

Tink

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

[Sammlung] Code stücke

Jetzt mitmachen!

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES