vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 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
Nochmal Hilfe!!!!!!! 
Autor: Vilut
Datum: 23.01.02 19:48
Hallo Zusammen,
Sorry, dass ich ein neues Thema anfang, aber das Alte liegt schon recht weit zurück.
Also ich hab jetzt überall die Klamern rausgenommen, aber nach spätestens nach 8 Fragen bekomme ich immer wieder diese Fehlermeldung

VB6 verursachte einen Fehler durch eine ungültige Seite
in Modul RICHED32.DLL bei 017f:6c012efd.
Register:
EAX=00000000 CS=017f EIP=6c012efd EFLGS=00010202
EBX=bff524ef SS=0187 ESP=007ff868 EBP=007ff888
ECX=03d37e98 DS=0187 ESI=03d37e98 FS=6a67
EDX=0000025a ES=0187 EDI=00000001 GS=0000
Bytes bei CS:EIP:
8b 41 74 57 89 55 f4 8b fa 8b f1 8b d8 81 e3 00
Stapelwerte:
03d37e98 bff524ef 00000000 00000700 00000202 00000000 001c00be 007ff8d0 007ff8d0 6c0123f2 0000013a 00000000 00000002 03d37e98 00000002 0000038c

ich habe überall die Klammern entfernt, Visual Basic neu installiert, die *.dlls erstetzt. Und weiß jetzt absolut nicht weiter!
Woran kann das nur liegen.
Code meiner Fragen jetzt:

Private Sub Form_Load()
RichTextBox1.LoadFile spath & "dateienfragen18fr.rtf"
RichTextBox2.LoadFile spath & "dateienfragen18ar.rtf"
RichTextBox3.LoadFile spath & "dateienfragen18f1.rtf"
RichTextBox4.LoadFile spath & "dateienfragen18f2.rtf"
RichTextBox5.LoadFile spath & "dateienfragen18f3.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_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 Frage019
Frage019.Show
Unload Frage018
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

Bitte helft mir! Ich hab schon nächsten Freitag Abgabetermin!!!
Gruß Vilut
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Nochmal Hilfe!!!!!!!164Vilut23.01.02 19:48
Re: Nochmal Hilfe!!!!!!!399unbekannt23.01.02 20:04
Re: Nochmal Hilfe!!!!!!!127Vilut23.01.02 20:08
Re: Nochmal Hilfe!!!!!!!128Vilut23.01.02 20:30
Da steht bald kommt was ?!? (oT)399unbekannt23.01.02 20:33
Re: Nochmal Hilfe!!!!!!!131Vilut23.01.02 20:36
Gesaugt, just wait a moment ... (oT)398unbekannt23.01.02 20:39
Ungültiges Archiv ... hast Du kein WinZIP??? (oT)426unbekannt23.01.02 20:42
Re: Ungültiges Archiv ... hast Du kein WinZIP??? (oT)129Vilut23.01.02 20:46
Also ich fange nicht noch an Exoten zu extrahieren .... (oT)405unbekannt23.01.02 20:59
Re: Also ich fange nicht noch an Exoten zu extrahieren .... ...128Vilut23.01.02 21:05
Zip entladen, ca. 50 Fehlermeldungen ....403unbekannt23.01.02 21:18
Re: Zip entladen, ca. 50 Fehlermeldungen ....125Vilut23.01.02 21:30
Re: Zip entladen, ca. 50 Fehlermeldungen ....421unbekannt23.01.02 21:39
Da ...417unbekannt23.01.02 21:52
Re: Da ...125Vilut24.01.02 00:39
Somit ist der Fehler ja eingekreist 433unbekannt24.01.02 09:04
Also,416unbekannt24.01.02 10:05
Hab einen fehler in deinen fragen gefunden128Piekarek24.01.02 09:41
Genau, da bin auch auch etwas verwirrt gewesen (oT)394unbekannt24.01.02 09:54
Re: Hab einen fehler in deinen fragen gefunden124Vilut24.01.02 13:43
Re: Hab einen fehler in deinen fragen gefunden393unbekannt24.01.02 15:45
Re: Hab einen fehler in deinen fragen gefunden121Piekarek24.01.02 16:58
Re: Hab einen fehler in deinen fragen gefunden394unbekannt24.01.02 17:08
Re: Hab einen fehler in deinen fragen gefunden127Vilut24.01.02 18:08
Re: Hab einen fehler in deinen fragen gefunden387unbekannt24.01.02 18:24
Zum Anbschluss125Vilut24.01.02 18:56
Re: Zum Anbschluss407unbekannt24.01.02 19:06

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