Sammelthread Codeschnipsel vb.net

    Hey
    Hier mal ein Sammelthread von Codeschnipseln
    Eure Codes k?nnt ihr auch posten ;>


    Button Text ?ndern
    Diesen Code kann man in Verbindung mit dem 2.Code verwenden


    PHP-Code:


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Button1    .Text = "Hide"
    End Sub



    Bei Buttonklick Form vergr??ern/verkleinern


    PHP-Code:


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Width     = 114
    Height     = 81
    End Sub



    Textbox leeren lassen


    PHP-Code:


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



    Richtextbox leeren lassen


    PHP-Code:


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



    Listbox leeren lassen


    PHP-Code:


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



    Code f?r Linklabel


    PHP-Code:


    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
    Process    .Start("http://K-under.de")
    End Sub



    Bestimmten Text in Clipboard


    PHP-Code:


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    My    .Computer.Clipboard.SetText("TEXT")
    End Sub



    Textboxinhalt in Clipboard


    PHP-Code:


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    My    .Computer.Clipboard.SetText(Textbox1.Text)
    End Sub



    Neue Zeile in Richtextbox


    PHP-Code:


    RichTextBox1.AppendText(vbnewline)



    Richtextbox soll mitscrollen


    PHP-Code:


    RichTextBox1.ScrollToCaret()



    Bestimmten Text auf Label setzten


    PHP-Code:


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Label1    .Text = "TEXT"
    End Sub



    Wenn man Enter dr?ckt soll Textboxinhalt in Richtextbox gesendet werden


    PHP-Code:


    Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles TextBox1.KeyDown
    If e.KeyCode = Keys.Enter Then
    RichTextBox1    .AppendText(TextBox1.Text)
    End If
    End Sub



    Code f?r Webbrowser1


    PHP-Code:


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Webbrowser1    .Navigate("http://k-under.de")
    End Sub



    Code f?r Webbrowser2
    Was ihr braucht: Button, Webbrowser & Textbox


    PHP-Code:


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

    Ich f?ge mal ein paar shnippsel hinzu.. :)




    Nivaue: brutale Anf?nger



    Eine Datei unbennen:

    Code
    My.Computer.FileSystem.RenameFile(Environ("Personal") & "\bild.jpg", unbenannt.jpg)



    Dateifilter:

    Code
    OpenFiledialog.Filter = "Textdateien (*.txt)|*.txt"



    Sendkeys:

    Code
    SendKeys.Send("lol" + "{enter}")



    Eine datei aus den Ressourcen ?ffnen:

    Code
    FileOpen(1, Environ("windir") & "\datei.exe", OpenMode.Binary)



    SpecialFolders:


    History C:\Dokumente und Einstellungen\User\Lokale Einstellungen\Verlauf
    Personal C:\Dokumente und Einstellungen\User\Eigene Dateien
    Startup C:\Dokumente und Einstellungen\User\Startmen? \Programme\Autostart
    windir C:\WINDOWS\
    system C:\WINDOWS\system32


    Beispiel: Environ("history")



    Wie man ein module hidden aufstartet und es hidden bleiben l?sst:


    Man ?ffnet eine konsolenapplikation. Nun unter projekteigenschaften den wert "Application type" von consoleapp zu "windows forms" ?ndern



    Datei downloaden und speichern:

    Code
    New System.Net.WebClient .DownloadFile("http://blaa.de/exe.exe", "C:\downloaded.exe")



    Prozess starten:

    Code
    Process.Start("datei.exe")



    Prozess killen:

    Code
    Kill "C:\Dateiname" 
'ganz shwer :P



    sind nur kleine shnippsel, aber hoffe das hilft was :)


    Bist du dir sicher dass die Schnippsel von dir sind? Der Thread hei?t Codeschnippsel VB.Net
    und nicht VB6

    Hallo,


    naja habe gerade kein VB.NET hier drauf, da ich bei meinem Kumpel bin, aber habe mal schnell gegoogled :)


    Wobei eigentlich das hier schon reicht:

    Zitat

    Dim p As New Process
    Dim name as String = "Prozessname"
    For Each pp As Process In p.GetProcessesByName(name)


    pp.Kill()