Codeschnipsel

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, "[" & "HHss" & "]"))


Aktuelle Zeit in der RichTextBox:

Code:

RichTextBox1.AppendText(Format$(Now, "[HHss]"))




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)

Genau das sag ich auch immer !