Question

vb,用checkbox怎么设置.去了勾，不能取消事件。

这个是窗体始终在前的代码
Me.Show
Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
原来的是放在form事件里的。
现在我想用的checkbox代替。勾上前端显示，去掉勾就不前端显示.
可惜的是去了勾，不能取消事件。
求助高手帮助。希望能列出代码，谢谢。方便学习。
wangtk1982高手可以列出代码吗？谢谢

Answer 1

用value判断，假设您的复选框为check1，则代码为：private sub check1_click() | if check1.value=1 then | call setwindowpos(me.hwnd,-1,0,0,0,0,3) else | call setwindowpos(me.hwnd,-2,0,0,0,0,3) | end if | end sub （注：以上代码使用时，请将其中的“|”符号替换成回车，手机回答答案不可以回车换行，所以用这个符号代替，请谅解！）以上代码可以实现您所需要的效果，用checkbox控件的value属性判断复选控件是不是选择状态，然后执行置顶、非置顶代码即可，value为1时，check1被选择，为0时，check1为非选择状态。希望对您有所帮助！

Answer 2

Call SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
这个可以取消置顶
======================================================
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 Check1_Click()
Call SetWindowPos(Me.hwnd, IIf(Check1.Value, -1, -2), 0, 0, 0, 0, 3)
End Sub

直接粘贴上面语句到form里

Answer 3

因为checkbox还要占用空间