vb.net如何通过窗口句柄显示窗口

我通过实例化打开了几个窗口,每个窗口都隐藏了,DimDBMAsNewServerDBM.Text=TextBox5.Text‘每个窗口标题赋值不一样的内容’DBM.Sho... 我通过实例化打开了几个窗口,每个窗口都隐藏了,
Dim DBM As New Server
DBM.Text = TextBox5.Text‘每个窗口标题赋值不一样的内容’
DBM.Show()

然后希望通过句柄查找后打开这个隐藏的窗口。
Dim hwnd As Integer
hwnd = FindWindow(vbNullString, "" & TextBox5.Text & "")
If hwnd Then
MsgBox("找到" & hwnd & "")

‘这个地方我需要找到这个窗口并显示处理。????????

Else
MsgBox("未找到")
‘这个地方如果未找到再实例化一个窗口’
End If
展开
 我来答
DoramiHe
2018-07-22 · 知道合伙人互联网行家
DoramiHe
知道合伙人互联网行家
采纳数:25332 获赞数:59542
2011年中山职业技术学院毕业,现担任毅衣公司京东小二

向TA提问 私信TA
展开全部
首先声明一下API
在你窗口最顶的位置上写上
Private Declare Function 取窗口句柄 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'由于VB支持中文的 我就定义成 取窗口句柄 这个了
'在窗体中添加一个按钮里面放进下面代码就OK了
Private Sub Command1_Click()

Dim 窗口句柄 As Long '声明窗口句柄变量存储
窗口句柄 = 取窗口句柄(vbNullString, "新建 文本文档.txt - 记事本") '取窗口标题的句柄 把得到窗口标题句柄赋予给刚才 窗口句柄 这变量里
If 窗口句柄 = 0 Then '判断窗口句柄是否等于0 如果等于0表示无法找到窗口句柄
MsgBox "无法找到需要的窗口句柄"
Else
MsgBox "已找到窗口句柄 句柄数为:" & 窗口句柄
End If

End Sub
追问
这个我已经做了,也能判断,现在是 找到句柄后,我需要打开这个句柄的窗口
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式