Tutorial's von A - Z (www.Knuddels.de.ch.at.MFC)

Codeschnipsel in VB

Hallo,

Code für RichTextBox:

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 TextBox:

Code:

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

Code für ListBox:

Code:

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

Sendtextbot

Code:

Public Class Form1
Dim bot As Object
Dim Abbruch As Boolean

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     bot = CreateObject("wscript.shell")
        Do
            bot.sendkeys(TextBox1.Text & "{ENTER}")
            For t As Integer = 1 To 50
            System.Threading.Thread.Sleep(100) '50 * 0.1 sek warten
            Application.DoEvents()
        If Abbruch Then Exit Do
     Next
            bot.sendkeys(TextBox2.Text & "{ENTER}")
            For t As Integer = 1 To 50
            System.Threading.Thread.Sleep(100) '50 * 0.1 sek warten
            Application.DoEvents()
        If Abbruch Then Exit Do
     Next
Loop
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Abbruch = True
End Sub
End Class

Wie leert man eine TextBox, ListBox, RichTextBox?

Code für TextBox:

Code:

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

Code für RichTextBox:

Code:

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

Code für ListBox:

Code:

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

Wie setzt man bestimmten Text in Clipboard?

Code:

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

Bestimmtes Control nach Buttonclick deaktivieren bzw. Wert auf Unsichtbar (Invisible) setzen.

Eine TextBox deaktivieren:

Code:

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

Eine TextBox Unsichtbar (Invisible) machen:

Code:

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

Bestimmten Text in einer TextBox erscheinen lassen:

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.AppendText("K-Cheat <3")
End Sub

Bestimmten Text in eine ListBox hinzufügen:

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add("K-Cheat <3")
End Sub

Bestimmten Text in einer RichTextBox erscheinen lassen:

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.AppendText("K-Cheat <3")
End Sub

Neue Zeile in einer Richtextbox anfangen:

Code:

RichTextBox1.AppendText(System.Environment.NewLine)

Farbig in einer Richtextbox schreiben:

Code:

RichTextBox1.SelectionColor = Color.Green 'Blue, Red, usw. geht

auch

Richtextbox scrollt automatisch mit:

Code:

RichTextBox1.ScrollToCaret()

Text in Windows-Zwischenspeicher setzen:

Code:

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

Zeit in eine RichTextBox bringen:

Code:

RichTextBox1.Appendtext(Format$(Now, "[" & "HH:mm:ss" & "]"))

Aktuelle Zeit in der RichTextBox:

Code:

RichTextBox1.AppendText(Format$(Now, "[HH:mm:ss]"))

Bei CheckBox ein Text in ListBox:
Ihr braucht:
- 4 CheckBoxen
- 1 Button
- 1 ListBox

Code:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked Then
            ListBox1.Items.Add("CheckBox1 wurde ausgewählt!")
        ElseIf CheckBox2.Checked Then
            ListBox1.Items.Add("CheckBox2 wurde ausgewählt!")
        ElseIf CheckBox3.Checked Then
            ListBox1.Items.Add("CheckBox3 wurde ausgewählt!")
        ElseIf CheckBox4.Checked Then
            ListBox1.Items.Add("CheckBox4 wurde ausgewählt!")
        End If
    End Sub
End Class

Text aus TextBox soll auf Label stehen:

Code:

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

Bei Button klick Label Text:

Code:

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

Per RadioButton zu Wunschform wechseln:

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked Then
            Form2.Show()
        ElseIf RadioButton2.Checked Then
            Form3.Show()
        End If
    End Sub

Random Funktion! - Gibt eine beliebige Zahl aus.

Code:

Dim random As New Random
MessageBox.Show(random.Next)

Ich bitte euch nicht zu Spam ( Schei?e ... etc.)
Und nicht zu schreiben: " Geil danke etc."
Bei Verbesserungen oder Codes die fehlen bitte via PN an mich

!!! WICHTIG !!!

ich habe die Codes teils selber, teils kopiert.#
Immerhin bessa als garnichts ^^

!!! WICHTIG !!!