On Top در ويژوال بيسيك

[Anti-Opensource]

سلام ..كدي رو سراغ داريد كه پنجره ي فرم رو On top كنه كه زير پنجره ها ي ديگه نره؟
ممنون

 

[saman_sweden2]

سلام ..كدي رو سراغ داريد كه پنجره ي فرم رو On top كنه كه زير پنجره ها ي ديگه نره؟
ممنون

در اين موارد بهتره از help خود وي بي استفاده كنيد


اين كدش البته ميشه بصورتهاي گوناگون نوشت

Private Sub mnustayontop_Click()

Dim rtn

If mnustayontop.Checked = False Then
   rtn = SetWindowPos(OnTop.hwnd, -1, 0, 0, 0, 0, 3)
   mnustayontop.Checked = False
Else
   rtn = SetWindowPos(OnTop.hwnd, -2, 0, 0, 0, 0, 3)
   mnustayontop.Checked = True
End If

End Sub

اينم بايد توي باس باشه

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)

 

[Anti-Opensource]

سامان جان سلام..
اين Help وي بي رو از كجا گير بيادم
سي دي وي بي من يه سي دي بشتر نيست

Help .و MSDN هم نداره
ولي دات نت ام 7 سي دي و كامله ولي من وي بي معمولي كار ميكنم

بعدشم اگه ممكنه سورس پروژه رو زيپ كني بزاري ممنون ميشم
اگه تونستي و وقت كردي..
[email protected]

 

[saman_sweden2]

سامان جان سلام..
اين Help وي بي رو از كجا گير بيادم
سي دي وي بي من يه سي دي بشتر نيست

Help .و MSDN هم نداره
ولي دات نت ام 7 سي دي و كامله ولي من وي بي معمولي كار ميكنم

بعدشم اگه ممكنه سورس پروژه رو زيپ كني بزاري ممنون ميشم
اگه تونستي و وقت كردي..
[email protected]

من اين را همينطوري برات نوشتم سورسي نداشتم باشه امشب يه برنامه آنتاپ برات مي نويسم

 

[Anti-Opensource]

Ok ...Waiting to replay