Question

我有一个我制作的DLL，它是一个自定义按钮和一个常规表单。要让按钮显示其属性（它将仅显示为设计器中的常规按钮），用户必须输入

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    CustomButton1.Initialize(Width, Height, ButtonText)
End Sub

但是，我希望有一个set参数，以便用户可以这样做：

CustomButton1.Initialize(Textlocation.Top)

例如在创建消息框和设置类型时执行的操作：

MsgBox("MessageBoxText", MsgBoxStyle.Critical)

我将如何做到这一点？

Answer 1

您可以重载该方法。假设你有类似的东西：

Public Sub Initialize(width As Integer, height As Integer, buttonText As String)
    ' Or however it’s declared
End Sub

在它下面声明：

Public Sub Initialize(location As TextLocation)
    Select Case location
        Case TextLocation.Top
            Me.Initialize(appropriate presets)
        …
    End Select
End Sub

这就是它！

Answer 2

你想要一个枚举：

Enum TextLocation
    Top
    Bottom
    ...
End Enum

在VB中声明一个set参数

2 个答案: