嗨,我再次在最后两个问题之后遇到了另一个问题。由用户重命名的按钮并将按钮的文本输入到文本框中。
发生的情况是,当您单击按钮时 label4 是管理员时,会出现一个输入框,询问按钮名称,如果 label4 是其他任何内容,则它将按钮的文本添加到不同的框中。
这一切都很好,我遇到的问题是当我关闭程序然后重新打开它时,所有按钮文本已被删除。
所以简而言之,我要问的是如何将它保存到按钮上,这样如果我关闭程序并重新打开它,文本就会保留在所有按钮上。
我的按钮代码是。
Dim Button As Button = 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()
Product_NameTextBox.Text = Button.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 = Button.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(Button.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
提前感谢您提供的任何帮助
克雷格