如何在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

依旧......