vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Hilfe!!!!!!!!!!!!!!!!! 
Autor: Vilut
Datum: 22.01.02 22:10
Was könnt denn da falsch gepolt sein?
Ich hab leider schon zig so Formen aus immer der gleichen Grundform
Private Sub Form_Load()
RichTextBox1.LoadFile (spath & "dateienfragen28fr.rtf")
RichTextBox2.LoadFile (spath & "dateienfragen28ar.rtf")
RichTextBox3.LoadFile (spath & "dateienfragen28f1.rtf")
RichTextBox4.LoadFile (spath & "dateienfragen28f2.rtf")
RichTextBox5.LoadFile (spath & "dateienfragen28f3.rtf")
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
K_Menü01.Label1.BorderStyle = 0
K_Menü01.Label2.BorderStyle = 0
K_Menü01.Label3.BorderStyle = 0
K_Menü01.Label4.BorderStyle = 0
K_Menü01.Label5.BorderStyle = 0
K_Menü01.Label6.BorderStyle = 0
K_Menü01.Label7.BorderStyle = 0
K_Menü01.Label8.BorderStyle = 0
RichTextBox2.BorderStyle = 0
RichTextBox3.BorderStyle = 0
RichTextBox4.BorderStyle = 0
RichTextBox5.BorderStyle = 0
End Sub


Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
K_Menü01.Label1.BorderStyle = 0
K_Menü01.Label2.BorderStyle = 0
K_Menü01.Label3.BorderStyle = 0
K_Menü01.Label4.BorderStyle = 0
K_Menü01.Label5.BorderStyle = 0
K_Menü01.Label6.BorderStyle = 0
K_Menü01.Label7.BorderStyle = 0
K_Menü01.Label8.BorderStyle = 0
RichTextBox2.BorderStyle = 0
RichTextBox3.BorderStyle = 0
RichTextBox4.BorderStyle = 0
RichTextBox5.BorderStyle = 0
End Sub



Private Sub RichTextBox1_GotFocus()

Picture1.SetFocus

End Sub

Private Sub RichTextBox1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
RichTextBox2.BorderStyle = 0
RichTextBox3.BorderStyle = 0
RichTextBox4.BorderStyle = 0
RichTextBox5.BorderStyle = 0
End Sub

Private Sub RichTextBox2_Click()
MsgBox "Richtige Antwort, zum Weitermachen OK!", vbExclamation, "Richtig"
Load Frage029
Frage029.Show
Unload Frage028
K_TestMenü02.Label1.Caption = K_TestMenü02.Label1.Caption + 1
End Sub

Private Sub RichTextBox2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
RichTextBox2.BorderStyle = 1
RichTextBox3.BorderStyle = 0
RichTextBox4.BorderStyle = 0
RichTextBox5.BorderStyle = 0
End Sub

Private Sub RichTextBox3_Click()
MsgBox "Leider Falsche Antwort, nochmal versuchen!", vbCritical, "Falsch"
K_TestMenü02.Label2.Caption = K_TestMenü02.Label2.Caption + 1
End Sub

Private Sub RichTextBox3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
RichTextBox2.BorderStyle = 0
RichTextBox3.BorderStyle = 1
RichTextBox4.BorderStyle = 0
RichTextBox5.BorderStyle = 0
End Sub

Private Sub RichTextBox4_Click()
MsgBox "Leider Falsche Antwort, nochmal versuchen!", vbCritical, "Falsch"
K_TestMenü02.Label2.Caption = K_TestMenü02.Label2.Caption + 1
End Sub

Private Sub RichTextBox4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
RichTextBox2.BorderStyle = 0
RichTextBox3.BorderStyle = 0
RichTextBox4.BorderStyle = 1
RichTextBox5.BorderStyle = 0
End Sub

Private Sub RichTextBox5_Click()
MsgBox "Leider Falsche Antwort, nochmal versuchen!", vbCritical, "Falsch"
K_TestMenü02.Label2.Caption = K_TestMenü02.Label2.Caption + 1
End Sub

Private Sub RichTextBox5_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
RichTextBox2.BorderStyle = 0
RichTextBox3.BorderStyle = 0
RichTextBox4.BorderStyle = 0
RichTextBox5.BorderStyle = 1
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Hilfe!!!!!!!!!!!!!!!!!68Vilut22.01.02 21:36
Re: Hilfe!!!!!!!!!!!!!!!!!207ModeratorDieter22.01.02 21:49
Re: Hilfe!!!!!!!!!!!!!!!!!71Vilut22.01.02 21:56
Re: Hilfe!!!!!!!!!!!!!!!!!197unbekannt22.01.02 22:02
Re: Hilfe!!!!!!!!!!!!!!!!!47Vilut22.01.02 22:10
Re: Hilfe!!!!!!!!!!!!!!!!!247unbekannt22.01.02 22:19
Danke!37Vilut22.01.02 22:26
Mist102Vilut22.01.02 23:30
Diese hier:188unbekannt23.01.02 12:54
Re: Hilfe!!!!!!!!!!!!!!!!!195ModeratorDieter22.01.02 22:02
Re: Hilfe!!!!!!!!!!!!!!!!!43Vilut22.01.02 22:08

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel