谢谢你了,参考你的答案我这样写的
Private Sub Picture5_Click()
If Form2.Visible = True Then
Form2.Visible = False
GoTo line1
End If
If Form2.Visible = False Then
Form2.Visible = True
End If
line1:
End Sub
vb里一个窗体中的命令按钮 按下去 会执行另外一个窗体中的命令按钮的...
1)在当前窗口按钮的Click事件中对执行窗体的按钮的Value 属性赋值True事项。Value 属性,CommandButton 控件-返回或设置指示该按钮是否可选的值;在设计时不可用。Private Sub Command1_Click() Form2.Command1.Value = TrueEnd Sub2)VB中只需在另一窗体添加一个Timer控件,在当前窗体呼唤该窗体的...
...如何弹出个显示个消息框提示正在运行,再点击另外一个按钮让他停止...
很简单啊,你在循环的时候加入一个判断条件就可以了(对不对?)条件满足才循环,条件一旦不满足就不循环就是了。把你的程序改成如下:Dim Switch as Boolean '这条很重要,定义一个全局变量,作用就是判断.Private Sub Form_Load()Switch = True End Sub Private Sub Command1_Click()Dim shuzhi...
vb中怎么用A窗体打开B窗体
直接使用 Form2.Show 就可以了.如果是调用外部的程序,如D:\\1.EXE,那么 Shell "D:\\1.exe"这样就OK.希望对你有所帮助.
请问在VB.net中想鼠标点击了窗体上的关闭按钮时,都执行的是什么代码...
一个A窗体 点一项菜单弹出一个新窗体B 想让B窗体弹出后 A窗体的enabled就变为false 然后B窗体关闭以后 A窗体重新恢复enalbed = true A窗体里面的菜单响应代码是 dim newframe as new frameB()newframe.show()me.enabled = false 此代码可以实现B窗体弹出后 A窗体不能选也不能动 问题是B窗体关闭...
VB下拉列表选项如何实现窗体显示,弹出一个时,其他出来的自动关闭,
Sub Combo1_Click()arr = Array(FormA, FormB, FormC, FormD) '数组内为窗体的Name For Each frm In Forms If frm.Name <> arr(Combo1.ListIndex).Name And frm.Name <> Me.Name Then frm.Hide Next arr(Combo1.ListIndex).Show End Sub frm.Hide可根据需要修改为'Unload frm ...
请问VB中如何点击按键后能弹出类似列表的对话框,列表只需可关闭或确定...
可以利用msgbox 实现,也可以通过另外的窗体上画出表格实现 方法一,利用msgbox:Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" & vbCrLf _ & "│ 库存1 │ 库存2 │ 库存3 │" & vbCrLf _ & "├────...
VB 如何隐藏部分窗体
1、把A、B、C的内容分别放到三个容器里(比如Frame),《、 》连个按钮都放到B所在的容器里,2、当点击》按钮时,将A所在的容器设为不可见(Visible=false),B、C所在的容器同时左移到A所在位置,窗体宽度相应缩小A的宽度,按钮变化为《,再点击时恢复原来的位置;3、点击《按钮时比较简单,将C...
VB如何在窗体中显示按下键盘按键的字母
VB在窗体中显示按下键盘按键的字母可以通过Form_KeyDown获取按键的KeyCode,然后再把KeyCode转换为相应的键的名字。代码如下:Private Sub Form_Load() Me.KeyPreview = True '使窗体可以获取键盘事件End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print KeyCodeToStr(Key...
VB程序,上有A、B两个图片框,一个按钮,按下按钮以后,A变成B,再按一下B...
在窗体分开装载Picture1和Picture2,然后调在一起。Option Explicit Dim pic_flag As Boolean Private Sub Command1_Click()If pic_flag Then Picture1.Visible = True Picture2.Visible = False Else Picture2.Visible = True Picture1.Visible = False End If pic_flag = Not pic_flag End Sub ...
vb 窗体隐藏
我只讲思路,很简单:给窗体添加一个键盘按下的事件,判断按键的值是不是F8,是的话就隐藏窗体(显示窗体)。form.visible = !form.visible;