11问答网
所有问题
当前搜索:
vb隐藏窗体
判断
vb窗体
是否
隐藏
答:
呵呵!直接判断FORM1或FORM2的Visible值就好了。为FALSE就是
隐藏
为TRUE就是显示
VB
如何打开或关闭
窗体
窗口、代码窗口?
答:
Unload Form1 ' 卸载
窗体
。 Msg = "Form1已被卸载。选择是,加载和" Msg = Msg & "显示窗体。选择否,不加载窗体," Msg = Msg & "并把它
隐藏
." Answer = MsgBox(Msg,
vb
YesNo) ' 获得用户响应。 If Answer = vbYes Then ' 测试应答。 Show ' 如果回...
如何在
vb
中实现
隐藏窗体
但又能看到窗体中的图片框中的图片
答:
你的描述基本不可能 但是我理解你想要达到的效果 1可以设置
窗体
无边框 背景颜色透明 需要一段代码实现背景透明 2可以设置任意形状窗体 无边框 插入图片
VB
窗体隐藏
状态下打开
答:
激活 3 个热键:(注:SetHotkey 是我自定义的函数)SetHotkey 1, "Ctrl,112", "Add" 按 Ctrl+F1 激活指定程序 SetHotkey 2, 113, "Add" 按 F2 激活指定程序 SetHotkey 3, "Ctrl+Alt,113", "Add" 按 Ctrl+Alt+F2 激活指定程序 注释:注:关于激活热键后的操作,由自定义函数 Se...
vb
如何用代码关闭
窗体
答:
VB
使用Unload语句卸载
窗体
。Unload语句,从内存中卸载窗体或控件。语法:Unloadobject object所在处是要卸载的Form对象或控件数组元素的名称。说明,当所占内存另有它用,或需要重新设置窗体、控件的属性为初始值时,就有必要卸载窗体或控件。
怎样利用
vb
中的timer控件隔1分钟显示
隐藏窗体
答:
Private Sub Form_Load()Timer1.Interval = 60000 End Sub Private Sub Timer1_Timer()If Me.Visible Then Me.Visible = False Else Me.Visible = True End If End Sub
如何使
VB
中的
窗体
控件透明
答:
'将 Form的 Border设 为 None。'在 Form的 声 明 部 分 加 上 以 下 代 码 :Private Declare Function SetWindowLong Lib "user32"Alias _"SetWindowLongA"(ByVal hwnd As Long,ByVal nIndex As Long,_ByVal dwNewLong As Long)As Long Private Declare Function SetParent Lib "user32"(...
VB
如何实现透明
窗体
?
答:
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Sub Form_Load()Me.BorderStyle = 0 Me.Caption = ""Me.BackColor =
vb
Red SetWindowLong Me.hwnd, -20, ...
在
VB
中的
窗体
Visible=false
隐藏
了,有没有方法可以弄个快捷健按出来呢...
答:
Me.hWnd, &HBFFF&, MOD_CONTROL,
vb
KeyF12)Me.Visible = False '
窗体
不可见 proMsg End Sub '退出时注销热键 Private Sub Form_Unload(Cancel As Integer)bCancel = True Call UnregisterHotKey(Me.hWnd, &HBFFF&)End Sub ---'按ALT+F4
隐藏
/ 显示窗体 ...
vb
6.0怎么显示
隐藏
的
窗体
,都来看看吧。
答:
添加个timer Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer '全局热键声明 Private Sub Form_Load()Timer1.Interval = "100" '设定时间, 如果太小的话,程序该来回慌了 End Sub Private Sub Timer1_Timer()If GetAsyncKeyState(
vb
KeyMenu) and ...
棣栭〉
<涓婁竴椤
3
4
5
6
8
7
9
10
11
12
涓嬩竴椤
灏鹃〉
其他人还搜