[S] vb6 tut egal was für eins ned so schwer

[AEX]

hi ich habe seit heute entscheiden ich fang mit vb an zu coden ein bisschen hat jemand gute tutorials oder eins

egal um was es geht hehe

[Unbekannt.exe]

http://openbook.galileocomputing.de/...3_anha_003.htm

Oups Vb6 überlesen ...
Naja google einfach mal es gibt genug !
Ansonsten eben google !

[Sawyer]

ich würde an seiner stelle eh mit vb.net anfangen da es einfach neu ist und weiterentwickelt wird und viel mehr Möglichkeiten bietet

MfG

[Kelvin16]

Was für ein Zufall genau das selbe buch habe ich mir vor paar tagen gekauft.

[AEX]

was ist vb.net udn was ist da der unterscheid lol vb6 ---> vb.net xD

[Sawyer]

vb.net ist neuer , es basiert auf die Microsoft .net Technologie und wird ständig weiterentwickelt , man hat in vb.net mehr möglichkeiten

vb6 ist tot und wird schon lange nicht mehr supportet , nur es gibt immer noch viele die es nutzen ^^

es ist empfehlenswert neue Techniken einzusetzen wenn sie neu sind , von daher^^

MfG

[AEX]

geil papst kann ich kurzt im icq mit dir sabbeln ?

Added after 18 hours 5 minutes:

also wen ich nen keygen machen will sieht der source bei mir so aus xD

Private Sub Command1_Click()
Text1.Text = "3vfb8-c9ccb-9cc2v-6ygxx-f2a3e"
End Sub

Private Sub Form_Load()

End Sub

was da ja auch richtig ist das heist ich habe einen key geaddet adde ich jedoch nen 2ten zbs
Private Sub Command1_Click()
'Dim key As Integer
Key = Int(Rnd() * 10)
Select Case Key
Case 1
TextBox1.Text = "3vfb8-c9ccb-9cc2v-6ygxx-f2a3e"
Case 2
TextBox1.Text = "Hallo"
End Select
End Sub


Private Sub Form_Load()

End Sub

aber dann geht das ned -.-

Edit:

ets gehts xD

Private Sub Command1_Click()
Dim key As Integer
key = Int(Rnd * 10)
Select Case key
Case 0
Text1.Text = "123"
Case 1
Text1.Text = "1234"
Case 2
Text1.Text = "12345"
Case 3
Text1.Text = "123456"
Case 4
Text1.Text = "123"
Case 5
Text1.Text = "1234"
Case 6
Text1.Text = "12345"
Case 7
Text1.Text = "123546456456"
Case 8
Text1.Text = "12364564"
Case 9
Text1.Text = "12564345"
Case 10
Text1.Text = "12345655"
End Select
End Sub

Private Sub Form_Load()

End Sub