[VB] Viele kleine Sachen by apc Part 1

Hallo Leute

Heute mach ich mal eine kleine liste mit vielen kleinen VB Infos

Grundlegendes zum enstellen

ZUm Edieren der Texte wenn ihr einen Button, Checkbox... erstellt immer den Text ´Rechts in den Eigenschaften ändern bitte nicht den Name da ich in den Vorlagen der Codes immer Button1 Button2 schreiben werde

1.) [HowTo] eigene Form erstellen (ohne [] _ X )

Spoiler

Ihr erstellt eine neue Form
Jetzt klickt ihr auf eue Form1
Rechts in den eigenschaften findet ihr jetzt zwischen:
"ForeColor"
und dem
"Icon"
die Einstellung

Code:

FormBoarderStyle

Wenn ihr diese Auf None stellt habt ihr eure Eigene Form...

Nicht vergessen jetzt noch einen Button mit dem Code:

Code:

Me.close

zu erstellen damit ihr das auch beenden könnt

2.) CheckBoxen

Spoiler

Was könnt ihr alles ändern
Das Desgn der Checkboxen:
In einen Button, so gehts:
Ihr packt eine Checkbox in eure Form
Checkbox1...
Relativ weit Oben bei den Eigenschaften
findet ihr jetzt Appearance das ändert ihr auf Button und schon seit ihr Fertig...

Ceckboxen Einstellen...
Damit wenn eine Checkbox aktiviert ist auch etwas passiert
Muss man diese einstellen:
Ihr erstellt eine neue Snwendung (Muss man natürlich nicht)
Und Fügt:
-Einen Button
-Eine Checkbox
ein
Ihr könnt diese Beschriften, müsst ihr aber nicht.
Jetzt macht ihr einen Doppelklick auf den Button
Und gebt folgenden Code ein

Code:

If Checkbox1.checked = [COLOR="Blue"]True[/COLOR] Then
[COLOR="SeaGreen"]Msgbox ("Die Checkbox ist aktiviert")[/COLOR]
End If

True kann natürlich auch False sein.
An Stelle von Msgbox ("Die Checkbox ist aktiviert") kann man natürlich jeden anderen Code nehmen

3.) Etwas Deaktivieren

Spoiler

Ihr kennt das Ihr seht einen Button aber ihr könnt ihn nicht
anklicken wie bei einer Instalation mit den Nutzungsbedingungen
SO macht ihr das

Ihr erstellt ein Panel
Was ist ein Panal?

Spoiler

Ein Panel ist eine Art Rahmen alles Objekte die darin sind gehören in den Panel.
SO könnt ihr das ganze Panel verschieben und die Objekte (Button...) darin bewegen sich mit.

Das Panel ist in der Toolbox
bei "Container" zu finden

Jetzt packt ihr zum beispiel eine CHeckbox in die Form
Nicht in das Panel und einen Button oder auch 2 IN DAS PANEL
SO jetzt macht ihr einen Doppelklick in eure Checkbox1 und gebt da Folgeden Code ein:;

Code:

If Checkbox1.checked = true Then
Panel1.enabled = true
End If

If Checkbox1.checked = false Then
Panel1.enabled = Flase
End If

Das wars auch schon

4.) Eine 2te Form einfügen

Spoiler

Jetzzt erkläre ich euch wie wenn ihr auf einen Button klickt sich eine 2te Form bzw eine andere Seite öffnet:

Als erstes erstellt ihr eine neues Projekt
Jetzt geht ihr auf dieses Zeichen

Das findet ihr Oben Links

Jetzt drauf klicken und auf
Windos Form
unten sollte stehen:
Form2.vb
BITTE NICHT ÄNDERN

SO jetzt drückt ihr auf Fertigstellen bzw Hinzufügen
Jetz sollte sich auch schon die 2te Form mit dem Namen Form2 öffnen.
Jetzt geht ihr oben in der Leiste aber wieder auf [FORM1 Entwurf]
und macht einen Doppelklick auf euren Button
da gebt ihr jetzt ein

Code:

Form2.show

und wenn ihr wollt auchnoch

Code:

Form1.hide

damit sich die Alte FOrm schließt

5.) Speichern und öffnen

Spoiler

Um das jetzt zu machen muss man schon etwas geünter sein...
Ihr erstellt wie immer eine Neue Anwedung...

Jetzt fügt ihr mal:
2 Button
1 Textbox
1 Checkbox
ein...

Fertig?
SO sieht das jetzt bei mir aus...

Spoiler

DIE COMBOBOX BRAUCHT IHR NICHT

Super jetzt gehen wir oben auf
Projekt => [...Name...] - Eigenschaften

Dann auf Einstellungen
Jetzt klcikt ihr einmal auf das Settings was da steht
dann taus´cht daunter eine weitere Zeile auf (wenn sie nochnicht vorhanden ist)
Da schreib ihr rein:
-Button1text
In das zweite
Button2text
3: Checkbox1check
4: Textbox1text

BILD / SCREEN

SO wenn ihr das habt
geht ihr wieder zurück in eure Form1
unt gebt bei Button1 als Text ein SPeichern
und Button2 Text Öffnen

Jetz macht ihr einen Doppelklick auf
Button1 (Den Speicherbutton)
und gebt ein:

Code:

My.Settings.Button1text = Button1.Text
        My.Settings.Button2text = Button2.Text
        My.Settings.Checkbox1check = CheckBox1.Checked
        My.Settings.Textbox1text = TextBox1.Text
        My.Settings.Save()

SO wenn ihr das habt geht ihr zurück in die Form1
und BUtton2 (Öffnen)

Da gebt ihr alles genau andersrum ein:

Code:

Button1.Text = My.Settings.Button1text
        Button2.Text = My.Settings.Button2text
        CheckBox1.Checked = My.Settings.Checkbox1check
        TextBox1.Text = My.Settings.Textbox1text

Das sollte klappen [Debuggt das mal]
jetzt könnt ihr einen Text in die Textbox eingeben...
wenn ihr auf SPeichern klickt speichert er das alles
Schließt das Debuggen mal und ändert den text der BUtton auf zum beispiel Hallo und Hi
wenn ihr jetzt auf den "HI" Button2 drückt ist alles so wie ihrs gespeichert habt xD

6.) Username und Passwort

Spoiler

So erstellt ihr eure eigene Username und Passwort Form
es gibt auch eine Vorlage

Als erstes erstellt ihr wie immer eine Neue Anwendung/FOrm
Ihr fügt:
2x Textboxen
2x Button ein
inetwas so

Da das aber noch doof aussieht ändern wir das mal:
IHr geht auf die Passwort Textbox und scrollt nach unten zu
"UseSystemPasswordChar"
und stellt das auf True
ihr könnt naürlich auch eine Checkbox machen (Zeichen anzeigen)

Spoiler

Fügt eine Checkbox hinzu...
Doppeklich drauf und gebt da ein:

Code:

 If CheckBox1.Checked = True Then
            TextBox2.UseSystemPasswordChar = False

        End If
        If CheckBox1.Checked = False Then
            TextBox2.UseSystemPasswordChar = True
        End If

das ganze sollt so aussehen

Jetzt macht ihr einen Doppelklich auf den Weiter Button
und gebt da FOlgenden code ein

Code:

 If Textbox1.text = ("[COLOR="SeaGreen"]username[/COLOR]") and Textbox2.text = ("[COLOR="SeaGreen"]123456[/COLOR]") Then
msgbox (" Richtiges Passwort")
Else 
Msgbox ("Falsches Passwort")
End IF

Das Grüne Passt ihr natürlich so an wie ihr es haben wollt

Das wars auch schon soweit

7.) Progressbar

Spoiler

Als erstes wie immer eine Neue Form/AnwendungWir fügen ein:
2x Buttons
1x Progressbar
1x Timer

Und geben jewalig Namen
Button1 = Start
Button2 = Stop

So:

;

Jetzt DOPPELKLICK auf Button1
Da geben wir jetzt den Code ein:

Code:

Timer1.start

Jetzt gehen wir wieder zurück...

Jetzt machen wir einen Doppelklick auf Button2 und geben ein

Code:

Timer1.stop

UNd jetzt müssen wir nur noch den Timer1 einstellen

Da geben wir jetzt ein

Code:

ProgressBar1.Value [COLOR="Red"]+[/COLOR]= 1

das + kann natürlich auch ein - sein je nachdem ob wir etwas hinzufügen oder abziehen wollen.

Darunter setzten wir noch den Code:

Code:

If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            MsgBox("Die Progressbar ist voll...")
        End If

Jetz Könnt ihr FOlgene Sachen ändern:
Den Interval vom Timer1
und das Maximum von eurer Progressbar1.

8.) Combobox

Spoiler

Ich möchte euch heute Zeigen wie ihr eine Combobox einstellt:
Was ohr braucht:
-1x Combobox
-1x Button

Wir bennen den Button um
und geben bei der Combobox1 als Text: "Text Auswählen" ein.

Als Auswahlmöglichkeiten am Besten
Text1
Text2
Text3

Screen

Jetzt geben wir im Button1 Folgenden Code ein:

Code:

If ComboBox1.SelectedItem = ("[COLOR="Red"]Text Auswählen[/COLOR]") Then
            MsgBox(" Bitte wähle einen Text", MsgBoxStyle.Information)
        End If

        If ComboBox1.SelectedItem = ("") Then
            MsgBox(" Bitte wähle einen Text", MsgBoxStyle.Information)
        End If

        If ComboBox1.SelectedItem = ("[COLOR="Red"]Text1[/COLOR]") Then
            MsgBox("Hier würde der erste Text stehen", MsgBoxStyle.Information)
        End If

        If ComboBox1.SelectedItem = ("[COLOR="Red"]Text2[/COLOR]") Then
            MsgBox("Hier würde der zweiter Text stehen", MsgBoxStyle.Information)
        End If

        If ComboBox1.SelectedItem = ("[COLOR="Red"]Text3[/COLOR]") Then
            MsgBox("Hier würde der dritte Text stehen", MsgBoxStyle.Information)
        End If

Die Roten sind die jewaligen ausgewählen ,,Items" den Text der in der Msgbox erscheint könnt ihr ändern
oder gleich eine ganz andere Funktion einfügen
wie
panel1.show
...

9.) Msgboxen

Spoiler

Wie man eine Msgbox macht sollte klar sein...
Ich zeige euch heute nur verschiedene Funktionen

Hier ist einmal die Auflistung an Codes:

Code:

MsgBox("Text", MsgBoxStyle.AbortRetryIgnore)
        MsgBox("Text", MsgBoxStyle.ApplicationModal)
        MsgBox("Text", MsgBoxStyle.Critical)
        MsgBox("Text", MsgBoxStyle.DefaultButton1)
        MsgBox("Text", MsgBoxStyle.DefaultButton2)
        MsgBox("Text", MsgBoxStyle.DefaultButton3)
        MsgBox("Text", MsgBoxStyle.Exclamation)
        MsgBox("Text", MsgBoxStyle.Information)
        MsgBox("Text", MsgBoxStyle.MsgBoxHelp)
        MsgBox("Text", MsgBoxStyle.MsgBoxRight)
        MsgBox("Text", MsgBoxStyle.MsgBoxRtlReading)
        MsgBox("Text", MsgBoxStyle.MsgBoxSetForeground)
        MsgBox("Text", MsgBoxStyle.OkCancel)
        MsgBox("Text", MsgBoxStyle.OkOnly)
        MsgBox("Text", MsgBoxStyle.Question)
        MsgBox("Text", MsgBoxStyle.RetryCancel)
        MsgBox("Text", MsgBoxStyle.SystemModal)
        MsgBox("Text", MsgBoxStyle.YesNo)
        MsgBox("Text", MsgBoxStyle.YesNoCancel)

10.) HowTo MouseRecorder erstellen

Spoiler

Hallo Leute,

Heute möchte ich euch zeigen wie ihr
euch einen MOuse Recorder mit Visual Basic erstellen könnt.
Das geht leicherter als man Denkt...

Als erstes erstellt ihr wie immer ein neues Projekt, muss man natürlich nicht.

Ihr fügt ein:
3x Button
2x Listbox
2x Timer
Wenn ihr wollt auch noch Label

Jetzt Bennent ihr den Button1 = Start Rec
Button2 = Play
Button3 = Stop

;

in den Button1 kommt dieser Code:

Code:

 timer1.start

In Button2 (Play):

Code:

 Button2.start

In Button3 (Stop)

Code:

 Button1.stop
Button2.stop

Jetzt macht ihr einen Doppelklick auf den ersten Timer und fügt diesen Code ein:

Code:

Try
            ListBox1.Items.Add(Cursor.Position.X)
            ListBox2.Items.Add(Cursor.Position.Y)
        Catch ex As Exception

        End Try

Jetzt geht ihr in den Timer2
und fügt dort diesen Code ein:

Code:

Try
            Dim pos As New Point(ListBox1.Text, ListBox2.Text)
            Cursor.Position = pos
            ListBox1.SelectedIndex = ListBox1.SelectedIndex + +1
            ListBox2.SelectedIndex = ListBox2.SelectedIndex + +1
        Catch ex As Exception

        End Try

Das wars auch schon...
Jetzt könnt ihr auf Start Rec gehen aufnehmen und dann auf Stop...
Um Alles abzuspielen müsst ihr in eurer Listbox die obersten Werte anwählen

auf Play klicken und er Spielt eure Aufnahme ab