[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
[Only registered and activated users can see links. Click Here To Register...]
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

[Only registered and activated users can see links. Click Here To Register...]
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
[Only registered and activated users can see links. Click Here To Register...]

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:
[Only registered and activated users can see links. Click Here To Register...] ;

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
[Only registered and activated users can see links. Click Here To Register...]

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

Jetzt Bennent ihr den Button1 = Start Rec
Button2 = Play
Button3 = Stop
[Only registered and activated users can see links. Click Here To Register...] ;

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