网站建设资讯

NEWS

网站建设资讯

vb.net关闭按钮无效 vb按钮消失

请问VB如何使窗体上的关闭(叉叉)按钮无效,最大,最小化按钮无效化我会的。

窗体的 MinButton、MaxButton 属性设为False , 或者设置 BorderStyle属性

创新互联专业为企业提供舞钢网站建设、舞钢做网站、舞钢网站设计、舞钢网站制作等企业网站建设、网页设计与制作、舞钢企业网站模板建站服务,10年舞钢做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。

关闭按钮无效的代码:

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const MF_REMOVE = H1000

Private Const SC_CLOSE = HF060

Sub Disabled(ChWnd As Long) '设置窗体关闭按钮不可用的子过程

Dim hMenu, hendMenu As Long

Dim c As Long

hMenu = GetSystemMenu(ChWnd, 0)

RemoveMenu hMenu, SC_CLOSE, MF_REMOVE

End Sub

Private Sub Form_Load()

Disabled Me.hwnd '调用子过程

End Sub

我用vb.net写了一个爬虫程序,但运行起来,点击所有按钮都没有反应,非得强制关闭,listview控件也得等到

你想一边运行,一边填充数据,我给你出的主意是多线程,用另一个线程来Invoke数据,

Thread和线程Timer(不是Form中的Timer),要是同时访问一块数据注意用

SyncLock锁

如何使vb.net 中关闭按钮显示但无效

Private Declare Function GetSystemMenu() Lib "user32" (ByVal hWnd As Long, _

ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu() Lib "user32" (ByVal hMenu As Long, _

ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const MF_REMOVE = H1000

Private Const SC_COLSE = HF060

Private Const SC_MAXIMIZE = HF030

Private Const SC_MINIMIZE = HF020

Private Sub Form_Load()Sub Form_Load()

RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_COLSE, MF_REMOVE

RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MAXIMIZE, MF_REMOVE

RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MINIMIZE, MF_REMOVE

vb中怎么实现当点击窗体右上方的关闭按钮时,不能关闭窗体?

可以通过API函数使关闭按钮失效,也就是当窗体出现时,关闭按钮是不可用的状态。


网站名称:vb.net关闭按钮无效 vb按钮消失
浏览路径:http://cdweb.net/article/dosopoe.html