Hallo,
ich schätze, ich habe nach 20 Jahren (so ca. *g*) einen Bug in VB6 gefunden.
Ich habe nur so spaßeshalber ein wenig programmiert, deswegen das Projekt auch nicht abgespeichert und bald war eine kleine Stoppuhr fertig. Das Problem: Ein zweiter Test funktionierte nicht. VB sagte mir, dass er da was nicht kennt.
Ein kurzer Blick in den Objektbrowser meines Projektes zeigte mir, dass meine Steuerelemente nicht meinem Form, sondern dem Form „Unknown2.form“ zugewiesen war…
Weiß jemand, wie man die zurückbekommt? Netterweise funktioniert ein Copy-Paste des alten Quelltextes in ein neues Projekt auch nicht. Obwohl ich alles per Hand neu aufs Form ziehe und dann nur den Quelltext einfüge, sind die Controls wieder nicht meinem Form zugewiesen.
Der Quellcode scheint in Ordnung zu sein:
Option Explicit
Dim stunden As Integer
Dim minuten As Integer
Dim sekunden As Integer
Dim falsch As Boolean
Dim stoppstunden As String
Dim stoppminuten As String
Dim stoppsekunden As String
Dim stoppzeit As String
Private Declare Function SetWindowPos Lib \_
"User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, \_
ByVal x As Long, ByVal y As Long, ByVal cx As Long, \_
ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub Command1\_Click()
Timer1.Enabled = True
stunden = 0
minuten = 0
sekunden = 0
End Sub
Private Sub Command2\_Click()
Timer1.Enabled = False
End Sub
Private Sub Form\_Load()
Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
End Sub
Private Sub Timer1\_Timer()
If (sekunden \>= 59) Then
sekunden = 0
minuten = minuten + 1
If (minuten \>= 59) Then
minuten = 0
stunden = stunden + 1
If (stunden \>= 99) Then
falsch = True
End If
End If
Else
sekunden = sekunden + 1
End If
If (stunden
LG
DA
