在VB6中,可以通过以下步骤将字符串值从Form2返回到Form1:
Public ReturnString As String
Private Sub btnReturn_Click()
ReturnString = "返回的字符串值"
Unload Me ' 关闭Form2
End Sub
Private Sub btnOpenForm2_Click()
Dim frm As New Form2
frm.Show ' 打开Form2
' 等待Form2关闭
Do While frm.Visible
DoEvents
Loop
' 获取返回的字符串值
Dim returnedString As String
returnedString = frm.ReturnString
' 使用返回的字符串值
MsgBox "返回的字符串值为:" & returnedString
End Sub
通过以上步骤,你可以在Form1中打开Form2,并在Form2中设置要返回的字符串值。当Form2关闭后,你可以通过访问Form2的公共变量来获取返回的字符串值,并在Form1中使用它。
领取专属 10元无门槛券
手把手带您无忧上云