随机文件 长度求助
随机文件 长度求助Private Sub Command1_Click()
With ProperType
Number = Text1.text
iWidth = Text2.Text
iHeight = Text3.Text
iThick = Text4.Text
BagType = Text5.Text
Price = Text6.Text
End With
Open "E:\2.dat" For Random As #1 Len = Len(Property)‘这句出错，没法帮模块定义的长度带入
Put #1, Number, Property
Close #1
End Sub
模块
Type ProperType
Number As Integer
iWidth As String * 4
iHeight As String * 4
iThick As String * 4
Price As String * 3
BagType As String * 8
End Type
Dim Property As ProperType
的确，加个Public 就可以了，感谢