16 May 2012

VB6: Debug Mode vs Run Exe Mode

Ada kala nya kita perlu mengecek apakah aplikasi yang sedang kita jalankan berjalan dengan debug atau run exe. Atau mungkin kita ingin "sesuatu" berjalan berbeda saat run exe dibanding saat debug??? 
Okay then, kita buat design form sebagai berikut:


Code sebagai berikut:
Private Function devmode() As Boolean
   Dim ltest As Long
   Debug.Assert Not chkmode(ltest)
   devmode = ltest = 1
End Function

Private Function chkmode(ltest As Long) As Boolean
   ltest = 1
End Function

Private Sub Form_Load()
   If devmode() = True Then
      Label1.Caption = "Run Debug Mode"
   Else
      Label1.Caption = "Run Exe Mode"
   End If
End Sub

Hasil run debug dari Development Environment.
Hasil run exe.

0 comments: