2013-05-18 3 views
0

사용자가 선택한 색상을 가져 와서 데이터베이스에 저장하는 데 문제가있어 프로그램을 다시로드하면 레이블 배경에 자동으로 적용됩니다. 데이터베이스 항목에서 색상 가져 오기 및 레이블 배경에 적용

나는이 사용자가 지금까지
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 내가 모두가 한 형태이다

같은 코드로 저장하는 버튼이

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 

그런 다음 색상을 선택하도록해야한다 퀴즈는 모든 사람들이 볼 수있는 형태입니다.

어떤 도움이 ...

답변

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) 

희망이 당신을 위해 작동 할 것입니다!

관련 문제