1、首先，打开VB软件，在窗体上添加一个图片框，如下图所示。
2、在属性窗口，设置图片框的属性和名称，点击“picture”属性任意插入图片。
3、在窗体上面，添加两个命令按钮，如下图所示。
4、设置命令按钮的属性。
5、双击“移动”命令按钮，编辑其代码，为了方便大家观察，将移动的数值设置100，如下图所示。
6、双击“复位”命令按钮，编辑其代码，假定其原来位置的数值为360。
7、运行程序，出现显示按钮。
2、在右边的“属性”栏中设置：
1）、ControlBox = true （true代表显示关闭按钮，false代表隐藏）
扩展：
2）、MaxButton = false （false代表隐藏最大化，true代表显示）
3）、MinButton = false （flase代表隐藏最小化，true代表显示）
4）、BorderStyle = 1 - Fixed （代表不能通过拉动来改变窗体的大小）本回答被提问者采纳
用两个时间控件，
第一个时间控件，对关闭按扭进行触发，此时关闭按扭已不可用。
第二个时间控件对第一个时间控件正行解除禁用。就可用，但是，第二个时间控件的初始值是不可用状态的，你要在一个按扭事件上写第二个时间控件的可用指令，这样一来，那个按扭就成了开关你的那个禁用关闭按扭的开关。
我悟出来的这一思路在我后来的VB开发中频频用到。
VB中如何让窗体显示关闭按钮
1、首先，打开VB软件，在窗体上添加一个图片框，如下图所示。2、在属性窗口，设置图片框的属性和名称，点击“picture”属性任意插入图片。3、在窗体上面，添加两个命令按钮，如下图所示。4、设置命令按钮的属性。5、双击“移动”命令按钮，编辑其代码，为了方便大家观察，将移动的数值设置100，如下图所...
如何在VB中制作"关闭"按纽?
在窗体中添加一个命令按钮，其Caption设置为“关闭”，然后双击该按钮，在代码格式中输入End即可。
vb的窗体最大化最小化的按钮怎么设置
1、在电脑端打开vb软件，连续点击两次编辑代码时，代码窗口最大化。2、在vb程序窗口的界面的右上角，菜单栏上出显示【最小化按钮、还原按钮、关闭按钮】，点此按钮可对窗体进行最小化、还原、关闭设置。3、如果点击中间的【还原按钮】选项按钮，可以设置为vb的原始界面，则为常规界面。4、界面恢复为原...
VB问题:怎样让点击窗体的关闭按钮,却无法关闭窗体?
其实很简单的。您在窗体属性里找“barderstyle”属性。把它设置为“未设置”（最上面的一个）即可。您可以试试。
VB中怎么把Windows窗体中关闭键错号失去功能
End SubVB定时关机代码 2简单的VB定时 关机 记时开始的时候可以发出声音新建一个窗体FROM1 和一个 按钮 Command1添加 一个 Timer1 控件 和 Label1Dim ss, mm, hh As IntegerPrivate qdtime '变量保存计时起点 Private imglft As Integer '退出图标左坐标初值 '下面为关机的 WIMDOWS API 函...
怎样在VB的状态栏上设计一个“退出”按钮
进入设计摸式，在窗体上添个一个按钮。然后右击它，在事件属性中找到单击，进入代码模式，输入以下代码:Private Sub Command1_Click()If MsgBox("真的要离开了吗？", vbOKCancel + vbQuestion, "你是不是该安静的离开？") = vbOK Then DoCmd.Close End If End Sub ...
在VB中如何屏蔽最大化,最小化,关闭按钮
VB窗体的属性栏: Maxbutton 设置成false将隐藏最大化按钮,true为显示.minbutton设置成false将隐藏最小化按钮,true为显示.但是用鼠标放在窗体边上,会出现左右箭头,仍然可以 用鼠标改变窗体的大小,,如果你想彻底锁定窗体,可在窗体属性栏里的borderstyle属性设置为1 ...
vb 让程序点击关闭按钮时弹出提示框
Private Sub cmdEXIT_Click() '退出按钮 Private Sub Form_Unload(Cancel As Integer) '窗体的关闭按钮 Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = "是否要确定退出 ?" ' 定义信息。Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。Title = "程...
VB问题:怎样让点击窗体的关闭按钮,却无法关闭窗体?
增加这个事件函数 Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Cancel = True End Sub 楼上的虽然是关不料了但是窗体也没法移动，最小化等操作了 。 。。
VB6中如何通过一个按钮及变量控制其他按钮显示与关闭?
Option Explicit Dim isCreate As Boolean '动态创建按钮数组过程，cmd为在那个按钮的按钮下创建按钮，n为要创建的按钮数。Sub CreateDynamic(cmd As CommandButton, ByVal n As Integer)Dim i With cmdDynamic(0).Caption = cmd.Caption : .Move cmd.Left, cmd.Top, cmd.Width, cmd.Height End ...
