module1.bas

VB源码,是初学者的福因.让你很快掌握VB编程

Attribute VB_Name = "Module1"
Option Explicit
     '自定义用户函数
     Type proinfo
       id As String
       description As String '规格描述
       unitprice As Currency '单价，货币型
     End Type
     Public Const lines_max = 12 '最大行数
     Public Const product_num = 5 '产品数
     Public currentline As Integer '当前行
     Public productinfo() As proinfo '定义动态数组（自定义函数）
     
     Public Sub addproduct()
     '初始化产品分类信息，并保存。用来在用户选择'产品ID'时填充
     '规格描述'及'单价'字段（可以从数据库中载入)
     Dim i%
     ReDim productinfo(1 To product_num) As proinfo
     '赋值
     productinfo(1).id = "Book"
     productinfo(1).description = "计算机图书"
     productinfo(1).unitprice = 65
     
     productinfo(2).id = "Picture"
     productinfo(2).description = "艺术画像"
     productinfo(2).unitprice = 15
     
     productinfo(3).id = "Drink"
     productinfo(3).description = "杨梅多"
     productinfo(3).unitprice = 5.5
     
     productinfo(4).id = "Paper"
     productinfo(4).description = "A4打印纸"
     productinfo(4).unitprice = 18.5
     
     productinfo(5).id = "Cloth"
     productinfo(5).description = "牛仔裤"
     productinfo(5).unitprice = 56
     
     For i = 1 To product_num
        Form1.cboProductID(1).AddItem productinfo(i).id '模块之间通信须详细指明对象位置
     Next
     
 
     
     End Sub