| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 698 人关注过本帖
标题:sendkeys问题,多个窗体中操作.不好做
只看楼主 加入收藏
catsky
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-3-16
收藏
 问题点数:0 回复次数:1 
sendkeys问题,多个窗体中操作.不好做

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

Private Sub Command1_Click()
Dim MyWin As Form2
Dim JB As Long
'JB句柄
'text1.text是新窗体的标题

Set MyWin = New Form2
JB = FindWindow(vbNullString, Text1.Text)

If JB = 0 Then
'指定标题窗体未打开
MyWin.Caption = Text1.Text
MyWin.Show vbModeless, Me
Else
'窗体已经打开

End If

End Sub


用句柄的方式,判断指定标题的窗体是否打开
如果未打开,则打开指定标题的窗体.
如果打开了,就发送文本到指定标题窗体中的text1.text

因为打开的多个窗体,用的都是form2.所以我建立了一个实例MyWin
这时就不能用form2.text1.text来做了
要用sendkeys来发送信息,如果有办法来调用新窗体的函数也行...
问题是如何指定新窗体的控件,新窗体中光标位置是不定的

搜索更多相关主题的帖子: 窗体 sendkeys MyWin String 
2006-03-19 15:32
catsky
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-3-16
收藏
得分:0 

没有人会吗?

2006-03-20 21:12
快速回复:sendkeys问题,多个窗体中操作.不好做
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034702 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved