Ralf Hüsing

Ein altbekannter Visual Basic Bug:


Private Sub Command1_Click()
Dim i As Long
i = 16000 * 3
End Sub


Ergibt den Fehler “Überlauf” mit der Fehlernummer “6″.

Problem hier ist das die Zahl “16000″ intern als Integer geführt wird und er versucht auf den Integer den Wert “48000″ zu Schreiben, das wiederrum geht nicht da Integer nur bis 32k geht.

Die Lösung hier ist den Datentyp (long) explizit anzugeben:


Private Sub Command1_Click()
Dim i As Long
i = CLng(16000) * 3
End Sub


Dolle Sache - dieses VB