如何在VB中制作"关闭"按纽?

请尽快回答!

第1个回答  2005-12-18
在窗体中添加一个命令按钮,其Caption设置为“关闭”,然后双击该按钮,在代码格式中输入End即可。
第2个回答  2005-12-18
1.拉一个按钮到窗体中
2.在按钮属性中,把TEXT的内容改为"关闭"
3.双击按钮,在CLICK处理函数中加入如下代码:
Me.dispose()
第3个回答  2005-12-20
在窗体中添加一个命令按钮,其Caption设置为“关闭”,然后在其click事件中输入me.Unload()
第4个回答  2005-12-17
在窗口上添加按钮,在clicked事件中写close就行
第5个回答  2005-12-17
添加一个 BUTTON, 双击 那个 BUTTON ,输入 End

就可以了本回答被提问者采纳

如何在VB中制作"关闭"按纽?
在窗体中添加一个命令按钮,其Caption设置为“关闭”,然后双击该按钮,在代码格式中输入End即可。

vb.net 如何用一个按钮(button)来关闭按钮所在的窗体
在该按纽的单击事件编写代码:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close()End Sub 在VB6的时候,使用:Unload me 在VB.NET里使用:Me.Close()

VB怎么实现WINDOW XP窗体右上角的关闭和最小化功能?
使用Command3_MouseUp事件 来取代你现在使用的 Command3_Click事件 前者可以判断点击时到底是按了哪个键 后者不行

如何VB程序上的窗口关闭按纽失效?
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 ...

怎样用vb编写一个无法关闭的程序
VB下简单的不让人关闭的程序请照:Private Sub Form_Unload(Cancel As Integer)Cancel = True End Sub 做。也就是在Unload事件中加个代码就是。想不让人点窗体上的关闭按扭最简单的就是不含标题的窗。此外,可以搞个热键去捕获Alt+F4,以使用户不能这样关窗。如果想高级一点,比如使任务管理器也...

用VB怎么设计程序在窗体上就建立三个命令按纽 单机后分别使窗体最大化...
代码如下:Option Explicit Private Sub Command1_Click() '最小化 Me.WindowState = 1 End Sub Private Sub Command2_Click() '最大化 Me.WindowState = 2 End Sub Private Sub Command3_Click() '还原 Me.WindowState = 0 End Sub

快捷键在VB中(暗藏机关)
'最好先加个按纽。'代码写close #1 'close #2 Private Sub Timer1_Timer()' 实现窗体是显示 x = GetAsyncKeyState(13)'只里指按下回车键时 关闭窗口 'F1好象是112 F2是113 If x = -32767 Then close #1 close #2 end End If End Sub '这样就行了。'重新建立个工程 ’复制以下代码 Priv...

VB有没有不能关闭的代码
再窗口的borderstyle属性选择第一项,0

vb 灰色按纽
在需要将按纽改成灰色不可用时,添加下面代码:Command1.Enabled = False 在需要将按纽改成黑色可用时,添加下面代码:Command1.Enabled = True

VB问题---怎么设置打勾CHECK后会让按牛发生变化?
添加一个按钮,command1 程序如下:Private Sub Check1_Click()If Check1.Value = Checked Then Command1.Enabled = False Else Command1.Enabled = True End If End Sub Private Sub Check2_Click()If Check2.Value = Checked Then Command1.Caption = "你答对了"Else Command1.Caption = "你...

相似回答
大家正在搜