下列功能如何搞定？

[ykwang]

如FORM1.TEXT1.TEXT 我想FORM1用变量代替

如DIM A AS STRING
A="FORM3"
A.TEXT1.TEXT 行不通

[davidlv]

是行不通的呀， form1是一个对象，a只是一个字符串而已

[davidlv]

你可以用以下代码来做一下，试试看吧

Dim frm As Form, isFound As Boolean
Dim FrmName As String
Dim i As Integer

frmName="Form3"


For i = 0 To Forms.Count - 1
If UCase(Forms(i).Name) = UCase(FrmName) Then
Forms(i).Show
isFound = True
Exit For
End If
Next

If isFound = False Then
Set frm = Forms.Add(frmName)
frm.Show
End If

[snowrose]

Dim a As Form2
Set a = New Form2
a.Text1.Text = "aaa"
a.Show

[SoHo_Andy]

这样试试
Private Sub Command3_Click()
Dim str1 As String
Dim bb As Form
str1 = "Form1"
For Each bb In Forms
If bb.Name = str1 Then
MsgBox bb.Caption '使用
Exit Sub
End If
Next
End Sub

[vbman2003]

Private Sub Command1_Click()
Dim ObjFrm As Object
Set ObjFrm = Form2
ObjFrm.Text1.Text = "a"
ObjFrm.Show
End Sub

[eanhear]

支持 vbman2003(家人)的做法

[guxizhw]

对对对
同意楼上

[zgw224]

vbman2003(家人) 的做法可行，我也试过

[软侠]

大家都是高手

[华芸智森]

你们误解楼主的意思了。
上面所有的解法都是错误的。
这题的最关键的地方是：如果该窗体是不活动的，如何通过变量找到该窗体？

[artoksxb]

public a form1
a.text1

[artoksxb]

public A as form1
a.text1

[华芸智森]

如果窗体从来没有加载过呢？这才是难点。

[chenzhenhe]

同意