随机文件 长度求助

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

试下把值存到变量里
dim ll as integer
ll = Len(Property)
Open "E:\2.dat" For Random As #1 Len = ll

模块里需要使用 public 关键字进行全局变量定义
public  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
public  Property As ProperType

这样，才能全局使用。

风吹过b你辛苦了,VB论坛里总是你在回答会员的问题.谢谢你

的确，加个Public 就可以了，感谢

Property ，建议：最好换个变量名，以免与类模块中的Property关键字混淆。

[ 本帖最后由 jiashie 于 2010-9-10 11:16 编辑 ]