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
    1. My.Computer.FileSystem.RenameFile(Environ("Personal") & "\bild.jpg", unbenannt.jpg)



    Dateifilter:

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



    Sendkeys:

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



    Eine datei aus den Ressourcen ?ffnen:

    Code
    1. 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
    1. New System.Net.WebClient .DownloadFile("http://blaa.de/exe.exe", "C:\downloaded.exe")



    Prozess starten:

    Code
    1. Process.Start("datei.exe")



    Prozess killen:

    Code
    1. Kill "C:\Dateiname"
    2. '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()