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

等等...