0

我无法获取用户选择的颜色并将其保存到数据库中，这样当他们重新加载程序时，它会自动应用于标签背景。

我有这个让用户选择颜色

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    If ColorDialog1.ShowDialog = DialogResult.OK Then
        Quiz.LTitle.BackColor = ColorDialog1.Color
    End If
End Sub

然后我有一个按钮可以用代码保存它

Private Sub BTitleSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTitleSave.Click
    BackGroundWork.Title_SettingsBindingSource.AddNew()
    BackGroundWork.Title_BColorTextBox.Text = Quiz.LTitle.BackColor.ToArgb

    BackGroundWork.Title_SettingsBindingSource.EndEdit()
    BackGroundWork.Title_SettingsTableAdapter.Update(BackGroundWork.QuizSettingsDataSet)
End Sub

BackGroundWork 是一个表格，我的所有数据库都在其中运行 Quiz 是每个人都会看到的表格。

任何帮助，将不胜感激

4

1 回答 1

0

你可以试试 ColorInHex ...

Private Sub BTitleSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTitleSave.Click
    BackGroundWork.Title_SettingsBindingSource.AddNew()
    BackGroundWork.Title_BColorTextBox.Text = Quiz.LTitle.BackColor.ToArgb.ToString("X")

    BackGroundWork.Title_SettingsBindingSource.EndEdit()
    BackGroundWork.Title_SettingsTableAdapter.Update(BackGroundWork.QuizSettingsDataSet)
End Sub

当你打电话给它..

Dim sColor as String = ... -> this retrieve from database

Quiz.LTitle.BackColor = System.Drawing.ColorTranslator.FromHtml(sColor)

希望这对你有用！

于 2013-05-19T09:21:49.053 回答