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来发送信息,如果有办法来调用新窗体的函数也行...
问题是如何指定新窗体的控件,新窗体中光标位置是不定的