1

继我的上一个问题按钮之后，用户可以重新命名，这个问题得到了快速的回答并提供了很多帮助。

目前我已经得到了这个代码，我需要在 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 个需要此代码的按钮。

4

1 回答 1

1

您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-27T15:55:32.570 回答