Sammelthread Codeschnipsel

[Skyter]

Moinsen,

hier mal ein paar Codeschnispel vielleicht helfen sie dem ein oder anderen,,,,,

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

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

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

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

Richtextbox leeren lassen

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

Listbox leeren lassen

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

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

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

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

RichTextBox1.AppendText(vbnewline)

Richtextbox soll mitscrollen

RichTextBox1.ScrollToCaret()

Bestimmten Text auf Label setzten

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

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

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

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

Da anscheinend einige nicth checken das die Quelle ich selber bin sage ich es gerne nochmal Quellenangabe: Skyter aka Scylla

[!lkay]

My.Computer. sollte möglichst vermieden werden.

[uncopyable]

Also ich sehe das nicht als Codeschnipsel, das sind Grundlage die man beherrschen muss, wenn man sich etwas mit der Programmieresprache beschäftigt hat.

[Skyter]

ja klar aber ich dachte das Forum ist für Anfänger und Fortgeschrittene?

[iToxic]

ja klar aber ich dachte das Forum ist für Anfänger und Fortgeschrittene?

Und trotzdem sollte man das was du gepostet hast, nicht als wirkliches Snippet ansehen .

Und erst recht sollte man als Fortgeschrittener die Grundlagen kennen und sich nicht kopieren müssen.

[Skyter]

ja und wo lernen die meisten Anfänger die Grundlagen ? Im Internet und wenn Sie dann hier was lernen können ist doch schön Man sollte jeden helfen egal ob Anfänger oder Fortgeschrittener... solange wir hier keine noobie youtube videos posten ist doch alles gut oder ?

[Individuum]

Quellenangabe.

[Skyter]

Quellenangabe.

und ich sage es gerne noch mal Quelle: Bin ich ..... LoL

[nawh]

Könnt ihr mal aufhören eure dämlichen Kommentare abzugeben? Er hat versucht zu helfen, ihr müsst euer Ego nicht boosten indem ihr ihn als vollidioten darstellt. Kleinkinder. Schule schon aus?

Danke, Skyter.

[orion-x]

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

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

Da anscheinend einige nicth checken das die Quelle ich selber bin sage ich es gerne nochmal Quellenangabe: Skyter aka Scylla

End Sub fehlt...

Naja so eine Sammlung gab es bis jetzt in alle Foren ohne das gemeckert wurde. Ich mein klar kann man sowas jetzt nicht wirklich als Codeschnipsel ansehen, jedoch könnte der Thread ja durchaus mit sinnvollen Codeschnipseln erweitert werden. Es wird ja kein User gezwungen sie zu verwenden.