如何在 vb6.0 中以另一个表单打印表单的数组元素

Question

我想存储不同报纸的记录，并附有描述(如名称，价格，出版日期(，并希望在加载时以另一种形式显示它们。在不使用数据库的情况下执行此过程的最简单方法是什么。

Answer 1

您可以使用 UDT(用户定义类型(结构：

in MODULE BAS
Public Type TYPE_Newspapers       ' Create your type structure
' Define items
   Name As String * 100
   Price As Currency
   PublishDate As Date
End Type
in Form:    
Public MyNewspapers(1 to 100) As TYPE_Newspapers
With MyNewspapers(1)
    .Name = "Wall Street Journal"
    .Price = 1
    .PublishDate = #01/01/2017#
End With

等等...