將一個按鈕的文本輸入到文本框中

繼我上一個問題Buttons to be renamed by the user之後很快得到了回覆，並且幫了我很大忙。將一個按鈕的文本輸入到文本框中

目前我已經得到了這個代碼，我需要100個按鈕。

我需要知道的是如何使用按鈕中的文本放入需要它們的不同文本框中。

If Label4.Text = "Admin" Then 
     With DirectCast(sender, Button) 
      .Text = InputBox("Button Name", "Button Name", .Text) 
     End With 
    Else 
     Me.TransactionBindingSource.AddNew() 

     Product_NameTextBox.Text = >>>>>>Button name<<<<<<<< 
     Try 
      Me.ProductTableAdapter.FillByProductName(Me.Database1DataSet.Product, Product_NameTextBox.Text) 
     Catch ex As System.Exception 
      System.Windows.Forms.MessageBox.Show(ex.Message) 
     End Try 

     ProductTextBox.Text = >>>>>>>Button2.Text<<<<<<<< 
     GroupTextBox.Text = GroupTextBox1.Text 
     AmountTextBox.Text = AmountTextBox1.Text 
     PriceTextBox.Text = PriceTextBox1.Text 
     TimeTextBox.Text = TimeOfDay 
     DateTextBox.Text = DateString 

     Me.Validate() 
     Me.TransactionBindingSource.EndEdit() 
     Me.TransactionTableAdapter.Update(Me.Database1DataSet) 

     Timer2.Enabled = True 
     TransNameLB.Items.Add(>>>>>>>Button2.Text<<<<<<<<) 
     TransPriceLB.Items.Add(PriceTextBox.Text) 

     Dim sum As Double 
     For x As Integer = 0 To TransPriceLB.Items.Count - 1 
      sum += Val(TransPriceLB.Items.Item(x).ToString) 
     Next 
     TextBox1.Text = sum.ToString 

     QTYDrinksTB.Text = TransNameLB.Items.Count 
    End If 

End Sub

一切從>>> <<<之間的位，我需要得到的是點擊的按鈕，從按鈕上的文本返回到文本框/列表框的工作分開。

我有100個需要此代碼的按鈕。

來源

2012-07-27 Craig Emerson

您好克雷格，你能請您的文章鏈接到了這裏？另外，請詳細解釋您所問的內容。您也可以在需要幫助的代碼上方的註釋（'）中以及出現的行上放置「需要幫助」，以便我們可以更好地回答您的問題。〜JOL – JackOrangeLantern 2012-07-27 15:36:19

我需要幫助把>>>>>><<<<<<<之間的內容放在需要從按鈕中獲取文本並放在文本框中的位之間。 – 2012-07-27 15:50:04

僅供參考，它確實顯示您正在使用VB.NET，而不是VBA。兩者之間有一些重大差異。 – Gaffi 2012-07-27 15:53:35

您可以使用上一個問題中的With DirectCast(sender, Button)，該問題也可用於幫助處理其他部分。例如：

If Label4.Text = "Admin" Then 
    With DirectCast(sender, Button) 
     .Text = InputBox("Button Name", "Button Name", .Text) 
    End With 

Else 
    Me.TransactionBindingSource.AddNew() 

    With DirectCast(sender, Button) 

    Product_NameTextBox.Text = .Text 

    Try 
     Me.ProductTableAdapter.FillByProductName(Me.Database1DataSet.Product, Product_NameTextBox.Text) 
    Catch ex As System.Exception 
     System.Windows.Forms.MessageBox.Show(ex.Message) 
    End Try 

    ProductTextBox.Text = .Text 
    GroupTextBox.Text = GroupTextBox1.Text 
    AmountTextBox.Text = AmountTextBox1.Text 
    PriceTextBox.Text = PriceTextBox1.Text 
    TimeTextBox.Text = TimeOfDay 
    DateTextBox.Text = DateString 

    Me.Validate() 
    Me.TransactionBindingSource.EndEdit() 
    Me.TransactionTableAdapter.Update(Me.Database1DataSet) 

    Timer2.Enabled = True 
    TransNameLB.Items.Add(.Text) 
    TransPriceLB.Items.Add(PriceTextBox.Text) 

    End With 

    Dim sum As Double 
    For x As Integer = 0 To TransPriceLB.Items.Count - 1 
     sum += Val(TransPriceLB.Items.Item(x).ToString) 
    Next 
    TextBox1.Text = sum.ToString 

    QTYDrinksTB.Text = TransNameLB.Items.Count 
End If

來源

2012-07-27 15:55:32 Gaffi

謝謝你的所有工作安穩 – 2012-07-27 16:00:04

將一個按鈕的文本輸入到文本框中

回答

相關問題