Dies ist ein Tutorial für Visual Basic 5.0, indem erklärt wird, wie man einen Text an der oberen Bildschirmkante zum "Laufen" bringen kann.
Als erstes erstellt ihr ein neues Projekt Standard EXE und stellt den Borderstyle von Form 1 auf "0 - Kein". Nun zieht ihr die Form der Breite nach über den ganzen Bildschirm, die Höhe sollte ungefähr Schriftgröße 24 betragen.
Nun erstellt ihr ein zweites Formular.
Jetzt wird auf dem ersten Formular ein Label erstellt, dessen fontsize ihr auf 24 stellt. Hinweiß: Der Text, den ihr zu Beginn des Programm laufen lassen wollt muss der Caption dieses Labels sein.
Als Codezeile dieses Labels gebt ihr bitte:
Private Sub Label1_Click()
Form2.Visible = True
End Sub
ein.
Nun noch einen Timer auf Form1 erstellen dessen Interval 1 beträgt.
Der Code des Timer wird wiefolgt aussehen:
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 10
If Label1.Left >= 14000 Then
Label1.Left = 0
End If
End Sub
der code der Form1 lautet dann wiefolgt:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
End
End If
End Sub
Nun erstellt ihr auf Form2 ein Textfeld und einen Knopf mit dem Caption "Übernehmen".
Sein Code lautet wiefolgt:
Private Sub Command1_Click()
Form1.Label1.Caption = Text1.Text
Form2.Visible = False
End Sub
Schon ist das Programm fertig und ihr könnt die exe kompilieren.