Saturday, April 3, 2010

VB6 Code - Apakah Aplikasi Masih Dalam IDE VB6

Ini merupakan cara yang cerdik untuk mengetahui apakah sebuah aplikasi masih dalam IDE Visual Basic 6.0 ataukah sudah dicompile. Procedurenya sangat sederhana sekali yakni dengan memanfaatkan handle error.
Public Function IsIDE() As Boolean
On Error GoTo ErrHandler
Debug.Print 1 / 0
ErrHandler:
IsIDE = Err
End Function
Contoh penggunaan kode VB6 di atas:
Private Sub Form_Load()
If IsIDE Then
MsgBox "Jalankan aplikasi ini dari file .EXE", vbInformation, "Message"
End If
End Sub