Question

vb6.0隐藏程序

怎么用VB6.0隐藏一个指定程序.
比如说我打开一个,标题为1的记事本.在VB6.0通过Text1.Text里输入1
按按下按钮1就隐藏在按下按钮2就恢复了.代码怎么写
谢谢!
1楼你好,你这个代码是试了,两个按钮都是隐藏的.没有显示的啊.
求您教我怎么还可以把他显示出来吗?
谢谢

Answer 1

干脆把我前几天做的一个老板键给你，把邮箱留下，那个比你说的强多了

'下面是你要的

Private Declare Function ShowWindowAsync Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As String) As Long

Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Private Sub Command1_Click()
ShowhWnd text1.text,false
End Sub
Private Sub Command2_Click()
ShowhWnd text1.text,true
End Sub

Public Sub ShowhWnd(strTitle As String, Show As Boolean)
Dim hFirst As Long
hFirst = FindWindow(0&, strTitle)
Do While hFirst <> 0
ShowWindowAsync hFirst, IIf(Show, SW_SHOW, SW_HIDE)
hFirst = FindWindowEx(0&, hFirst, vbNullString, strTitle)
Loop
End Sub
'改了，sorry，忘记加常量SW_SHOW、SW_HIDE了

Answer 2

Private Sub Command1_Click()
text1.Visible = False
End Sub
Private Sub Command2_Click()
text1.Visible =True
End Sub