有一个API函数可以实现这个功能。开始按钮没有了。变成灰色的了
我现在没有。明天把代码给你
我现在没有。明天把代码给你
解决方案 »
- vb问题
- vb这几句为什么老提示缺少结束,,
- 百分求教,如何用API选择指定的录音通道(例如选择MCI通道)?
- 关于系统热键(急),分不够可以再加
- 找InstallShield 6.22的教程
- 如果抓取一个窗口的图象?(感谢各位大大)
- 实现下拉框!我出100分!
- 我程序之初,VB、Delphi均有基础,二者取一。Which is the best choosing?
- VB中使用move将txt文本重命名,造成进程错误的问题
- 使用Listview控件时,只有第一列可以获得焦点. 现在我想实现: 鼠标到达每一行时, 该行的背景变色, 鼠标指针变化. 请问如何实现?
- 在Delphi中类似VB中的DOEVENTS的命令的是哪个?
- 送高分啊!
在窗体上放两了按钮控件,name属性改为cmdExit和cmdStartButtonshowWindow为显示窗口 说明:控制窗口的可见性
FindWindow为返回一个与类和窗口名相关的窗口句柄 说明:寻找窗口列表中第一个符合指定条件的顶级窗口
FindWindowEx 说明:在窗口列表中寻找与指定条件相符的第一个子窗口Option Explicit
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongConst SW_HIDE = 0
Const SW_SHOW = 5
Private Sub cmdExit_Click()
Unload Me
End SubPrivate Sub cmdStartButton_Click()
Dim hlong As Long, hwnd As Long
hwnd = FindWindow("shell_TrayWnd", vbNullString)
hlong = FindWindowEx(hwnd, 0, "Button", vbNullString)
If cmdStartButton.Caption = "隐藏" Then
ShowWindow hlong, SW_HIDE
cmdStartButton.Caption = "显示"
Else
ShowWindow hlong, SW_SHOW
cmdStartButton.Caption = "隐藏"
End If
End Sub