按鈕將被用戶重命名

我有問題編碼我的一些按鈕。這是我到目前爲止有：按鈕將被用戶重命名

Public Class Form1 

Dim Button(12) As Button 
Dim X As Integer 

Private Sub EventName() 
    Dim message, title, defaultValue As String 
    Dim myValue As Object 
    If Label4.Text = "Admin" Then 
     ' Set prompt. 
     Message = "Enter Product Name" 
     ' Set title. 
     title = "Product Name" 
     defaultValue = "" ' Set default value. 

     'Display message, title, and default value. 
     myValue = InputBox(Message, title, defaultValue) 

     Button(X).Text = myValue 
    End If 
End Sub 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button9.Click, Button8.Click, Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button2.Click, Button12.Click, Button11.Click, Button10.Click 
    'Dim message, title, defaultValue As String 
    'Dim myValue As Object 
    For Me.X = 1 To 10 

     >>>>> <<<<<<< 

    Next 
End Sub 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Button(1) = Button1 
    Button(2) = Button2 
    Button(3) = Button3 
    Button(4) = Button4 
    Button(5) = Button5 
    Button(6) = Button6 
    Button(7) = Button7 
    Button(8) = Button8 
    Button(9) = Button9 
    Button(10) = Button10 
    Button(11) = Button11 
    Button(12) = Button12 
End Sub

我想要做的，就是如果我點擊按鈕7，輸入框出現在用戶輸入按鈕的名稱。無論我在>>>>> <<<<<之間嘗試過什麼，我似乎都無法做到。

來源

2012-07-27 Craig Emerson

你有什麼特別的嘗試過'>>>>><<<<<''不起作用？ – Gaffi 2012-07-27 14:51:06

我有EventName（）那裏，剛剛返回的按鈕，所以如果我點擊按鈕7按鈕1將被命名，然後按鈕2等。 – 2012-07-27 14:58:09

而且是獲得該功能的代碼？它在哪一線發生故障？有沒有發生錯誤？爲了清楚起見，當你說按鈕名稱時，你的意思是代碼中的名稱或按鈕上的標題？ – Gaffi 2012-07-27 15:00:25

這聽起來像你只是想讓一個人點擊一個按鈕並更改該按鈕的文本？如果每個按鈕需要相同的輸入，然後嘗試這樣的事情

With DirectCast(sender, Button) 
    .Text = InputBox("Button Name", "Button Name", .Text) 
End With

：

Dim value As String = InputBox("Button Name", "Button Name") 
For Each btn As Button In Buttons 
    If btn IsNot Nothing Then 
    btn.Text = value 
    End If 
Next

你強應該

如果這是正確的，這樣的事情會在你點擊的方法工作考慮放棄使用Buttons數組。如果您需要在列表中保留這些按鈕的引用，請改爲使用List(of Button)。

來源

2012-07-27 15:01:22 LarsTech

哇，我正在尋找方式o阿林託它是非常容易，非常感謝你。 – 2012-07-27 15:08:34

還有一件事是有辦法在文本框中使用按鈕名稱 – 2012-07-27 15:12:18

@CraigEmerson我是用第一個版本做的。如果所有的按鈕都是相同的，那麼使用第三個參數的保存變量（我在第二個版本中省略）。 – LarsTech 2012-07-27 15:34:27

按鈕將被用戶重命名

回答

相關問題