Type address
    phone As String
   
End Type
Dim myhome As address
    myhome.phone = "123456"
   
Private Sub Command1_Click()
Text1.Text = myhome.phone

End Sub
运行之后出现“无效外部过程”的错误提示框
请教大家的帮助

myhome.phone = "123456"你这句跑上面去了？
有没有Command1这个控件

myhome.phone = "123456"
估计是这里的问题..
把这行写到过程内试试.

Type address
    phone As String
   
End Type
要放在模块内才有用

Dim myhome As address
myhome.phone = "123456"

放在过程内

[[italic] 本帖最后由 XieLi 于 2007-12-4 11:24 编辑 [/italic]]

有啊

Type address
    phone As String
     
End Type
Dim myhome As address

Private Sub Command1_Click()
 myhome.phone = "123456"
Text1.Text = myhome.phone

End Sub
放在下边还是错“在私有对象模块中不能定义public的用户定义类型”的错误提示啊
请大家帮一帮忙吧

谢谢了，
但是我还是找不出错误的原因来啊

4楼不是都给出答案了吗

就是4#说的

Private Sub Form_Load()

Sub ClearData()

   Num1 = 0
   Num2 = 0
   StrNum1 = ""
   StrNum2 = ""
   FirstNum = True
   PointFlag = False
   Runsign = 0
   SignFlag = False
   Text1.Text = "0."
End Sub

End Sub
运行后出现“缺少End Sub”的错误提示
请教大家的帮助