[سوال] سوال درباره ي ActiveX

[javaweb]

براي فهميدن اينكه در حالت ديزاين تايم هستي هم مي توني از كد زير استفاده كني

کد:

Option Explicit
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long

Const GW_HWNDNEXT = 2
Const GW_CHILD = 5

'********************************************
'*Give it part of the window text your looking for
'*it will give you the hWnd
'*usefull for windows that text is like "[project] - microsoft visual basic [design]"
'*usage:
'*Msgbox FindWindowLike("visual basic")
'*Returns 0 if not found
'*******************************************

Function FindWindowLike(strPartOfCaption As String) As Long
Dim hWnd As Long
Dim strCurrentWindowText As String
Dim r As Integer

hWnd = GetForegroundWindow

Do Until hWnd = 0
strCurrentWindowText = Space$(255)
r = GetWindowText(hWnd, strCurrentWindowText, 255)
strCurrentWindowText = Left$(strCurrentWindowText, r)
'hWnd = GetWindow(hWnd, GW_CHILD)
If InStr(1, LCase(strCurrentWindowText), LCase(strPartOfCaption)) <> 0 Then GoTo Found
hWnd = GetWindow(hWnd, GW_HWNDNEXT)
Loop

Exit Function
Found:
FindWindowLike = hWnd
End Function

كافيه با استفاده از تابع بالا كلمه [design] رو سرچ كني، اگر هندلي بهت داد يعني الان ويژوال بيسيك در حال اجراست

با سلام و تشکر فراوان من بعد از مدت ها دوباره رفتم سر کد های قدیمی
یه مشکلی بر خوردم من می خوام یک تایمر در زمان طراحی اجرا نشود و در زمان تست و بعد از کامپایل این تایمر به کار افتد و از کدی که شما لطف کردید به صورت زیر استفاده کردم

کد php:

If FindWindowLike("microsoft visual basic") <> 0 Then
    If FindWindowLike("[run]") <> 0 Then
        Timer1.Enabled = True
    End If
ElseIf FindWindowLike("microsoft visual basic") = 0 Then
        Timer1.Enabled = True
End If 


با کد بالا در زمان طراحی و تست درسته ولی بعد از کامپایل اگر برنامه ی Visual Basic در حال اجرا باشد این هندل رو بر اساس اون نرم افزار می گیره و مشکل بر می خوره
چکارش کنم که بعد از کامپایل این کار رو نکنه
با تشکر فراوان

با سلام و تشکر
ببخشید این کد بالا رو چطوری تغییر بدم تا این مشکل رفع شود؟
یا اگر راه بهتری برای انجام این کار می دونید به من بگید
با تشکــــــــــر