多个新窗体sendkeys,求教

[ryan211]

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

[chenhui530]

SENDMEESAGE来完成
不过说真的还不太看明白你的意思