Question

我正在尝试执行此特定操作，不确定如何调用它，基本上就是这样。

使用字符串或类似内容查找变量：

两个按钮，名称分别为Car和Bus。

Dim New_Car as String
Dim New_Bus as String

'Then when either buttons is pressed
New_<button_name_here> = Something

当我做类似的事情时，它起作用了

My.Settings(<button_name_here>) = Something

但是在这种情况下，它显示语法错误，我无法弄清楚。

Answer 1

您可以通过使用词典来执行类似于“设置”的操作

    Dim buttonValue As New Dictionary(Of String, String) From {{"Car", ""}, {"Bus", ""}}

    buttonValue("Car") = "Some value"

另一种选择是在启动时通过循环所有按钮来初始化密钥。

Loop all button
    buttonValue.Add(<Button name>, <initial value>)

Answer 2

两个按钮都可以有一个处理程序。确定发件人单击了哪个按钮

Private Sub Vehicle_Click(sender As Object, e As EventArgs) Handles Bus.Click, Car.Click
    Dim buttonName = DirectCast(sender, Button).Name
    Select Case buttonName
        Case "Car"
            Dim New_Car = "something"
        Case "Bus"
            Dim New_Bus = "something else"
    End Select
End Sub

使用字符串查找变量

2 个答案: