请教一个函数和窗体的问题

[littleholly]

我想实现这样一个函数：当调用它后会弹出一个我自定义的窗体，用户操作后返回一个字符串！就像STR=INPUTBOX（A）那样，不过弹出的是我自己做的窗体

[mountlin]

就是模式窗体嘛，用From2.Show vbModal, Me,在自定义一个返回值变量(public型)，在Hide或Unload From2时设置一下该变量就行了

[littleholly]

那不就多了一个PUBLIC型的变量了吗？我就是不想让函数跟外部有太多的牵连！

[Arcan]

可以在Form1上放一个label1或者其他可以接收字符串的控件，然后在Form2里设定Form1.Label1.Caption=Form2.Text1.text
不就行了。

[pp616]

加一个你的相当于inputbox的那个窗体。命名为form2
在form2上添加textbox :txt
在添加个模块 Module1
form2的代码：
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If p = True Then
Cancel = 0
Else
Me.Hide
Cancel = 1
End If
End Sub

Module1的代码：
Option Explicit
Public p As Boolean
Public Function showfrm(frm As Form) As String
Form2.Show
Do
DoEvents
Loop Until frm.Visible = False
showfrm = frm.Text1.Text
p = True
Unload frm
End Function

调用时：
dim x as string
x=showfrm(Form2)
这样就好了。