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

等等...