PDA

View Full Version : قرار گرفتن فرم Add-in روی پروژه



S_VB.max
سه شنبه 03 بهمن 1385, 20:26 عصر
سلام
دستوری که باعث می شود فرم Add-in همیشه روی پروژه ویژوال بیسیک قرار بگیرد را می خواستم یعنی اگر روی پنجره پروژه کلیک کردم Add-in به پشت آن نرود
با تشکر

S_VB.max
چهارشنبه 04 بهمن 1385, 21:28 عصر
کسی نیست جواب بده ؟

Neeloofar
چهارشنبه 04 بهمن 1385, 22:20 عصر
سلام
دستوری که باعث می شود فرم Add-in همیشه روی پروژه ویژوال بیسیک قرار بگیرد را می خواستم یعنی اگر روی پنجره پروژه کلیک کردم Add-in به پشت آن نرود
با تشکر

تنها یک راه داره اونم فرم رو OnTop کنی.
اینم کدش:



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 Form_Load()
BringFormOnTop Me.hWnd
End Sub

Public Sub BringFormOnTop(hWnd As Long)
Const lFlags As Long = &H2 Or &H1
SetWindowPos hWnd, -1, 0, 0, 0, 0, lFlags
End Sub

S_VB.max
پنج شنبه 05 بهمن 1385, 13:23 عصر
ممنون دوست عزیز ، به کمک تابع SetWindowPos فرم روی تمام پنجره ها باقی می ماند در صورتی که من می خواستم تنها روی پنجره پروژه باشد که جوابش را خودم پیدا کردم .