Ingrese el texto de un botón en un cuadro de texto
Siguiendo de mi última preguntaBotones para ser renombrados por el usuario La cual fue respondida rápidamente y ayudó mucho.
En este momento tengo este código, que necesito tener en cientos de botones.
Lo que necesito saber es cómo usar el texto del botón para colocarlo en los diferentes cuadros de texto que los requieren.
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
Todo funciona aparte de los bits entre>>> <<<
, donde necesito obtener el botón en el que se hace clic y devolver el texto del botón a los cuadros de texto / cuadro de lista.
Tengo cientos de botones que necesitan este código.