VBA自定義數據類型 - 默認值

Question

我想在VBA中定義自定義數據類型，併爲屬性分配一個默認值。

例如：

Public Type Fruit 
    Name as String 
    Color as String 
    Amount as Integer 'Default 12 
End Type 

Public Sub UseFruit 
    Dim Banana as Fruit 
    Banana.Name = "Banana" 
    Banana.Color = "Yellow" 
    Debug.Print Banana.Amount 
End Sub 

我想在副打印12最後一行;即。如果我點了一個水果，除非另有說明，否則默認數量是十幾個。

這是如何實現的？提前致謝！

Answer 1

除非您願意將其設爲常量，否則最好的方法是讓函數爲您生成「默認」水果。

只是爲了演示const的，下面是有效的，但它當然不能被改變（此不再有效VBA）：

Public Type Fruit 
    Name As String 
    Color As String 
    Const Amount As Integer = 12 
End Type 

既然你想有一個默認的，但它必須是修改，我建議使用一個函數來生成一個默認的水果：

Public Type Fruit 
    Name As String 
    Color As String 
    Amount As Integer 
End Type 

Public Sub UseFruit() 
    Dim Banana As Fruit 
    Banana = getDefaultFruit 
    Banana.Name = "Banana" 
    Banana.Color = "Yellow" 
    Debug.Print Banana.Amount 'Prints 12 
End Sub 

Public Function getDefaultFruit() As Fruit 
    getDefaultFruit.Amount = 12 'Default 12 
End Function