[VB6] Type 的運用宣告

主要用於自定義一項型態變數,並且能夠包含多種不同的屬性


程式碼：
(Private/Public) Type 型態名稱
屬性1 As 資料類型
屬性2 As 資料類型
.
.
.
End Type

ex
VB6上開一個標準執行檔,並在上面拉出一個按鈕

程式碼：
'如果要在表單任何地方都可以使用的話,記得要在程式頂部宣告或者直接宣告成全域變數
Private Type Fruit
    ItemNo As String
    Name As String
    Price As Long
End Type

Option Explicit

Private Sub Command1_Click()
    Dim F(1 To 3) As Fruit
 
    F(1).ItemNo = "A0001"
    F(1).Name = "蘋果"
    F(1).Price = 20
 
    F(2).ItemNo = "A0002"
    F(2).Name = "香蕉"
    F(2).Price = 15
 
    F(3).ItemNo = "A0003"
    F(3).Name = "芒果"
    F(3).Price = 40
 
    MsgBox F(1).Name & " / " & F(2).Name & " / " & F(3).Name
End Sub

執行結果會跳出 蘋果 / 香蕉 / 芒果

這種方式可以利用於在需要定義一種有複合屬性的變數
------------------------------------------------------------

再補充一點東西
    '宣告 FNull 為相同種類的變數
    Dim FNull    As Fruit
    Dim i        As Integer
 
    FNull.ItemNo = "A0000"
    FNull.Name = "沒資料"
    FNull.Price = 0
 
    '將 FNull資料指定到原先定義的 F(1),F(2),F(3)
    For i = 1 To 3
        F(i) = FNull
    Next
 
    MsgBox F(1).Name & " / " & F(2).Name & " / " & F(3).Name
  
執行結果會跳出 沒資料/沒資料/沒資料

如此得知也可以把已定義的Type變數,藉由 '=' 將全部屬性一口氣指定到同樣定義Type變數中