CJ commondialog color

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


   Code for the cmdcolor button
1. note here we use same code as in the code i posted before, also the dialogstyle 0 and flags
are important, flags 2+1 are fullopen and selecting default color to avoid the black default
' HOW TO USE CJ commondialog for COLOR
Private Sub cmdcolor_Click()
Dim whataction As Long
CommonDialog1.ParentHwnd = Me.hWnd
CommonDialog1.Color = &HC0C0C0
CommonDialog1.DialogStyle = 0
CommonDialog1.Flags = 2 + 1
whataction = CommonDialog1.ShowColor
    If whataction = 2 Then
    Me.Caption = "Cancel..."
Else
    Me.Caption = "Ready"
    Frame5.BackColor = CommonDialog1.Color
    End If
End Sub

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Developerx Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 03 March 2011 Status: Offline Points: 12	Post Options Post Reply Quote Developerx Report Post Thanks(0) Quote Reply Topic: CJ commondialog color Posted: 13 June 2012 at 7:38pm
	Code for the cmdcolor button 1. note here we use same code as in the code i posted before, also the dialogstyle 0 and flags are important, flags 2+1 are fullopen and selecting default color to avoid the black default ' HOW TO USE CJ commondialog for COLOR Private Sub cmdcolor_Click() Dim whataction As Long CommonDialog1.ParentHwnd = Me.hWnd CommonDialog1.Color = &HC0C0C0 CommonDialog1.DialogStyle = 0 CommonDialog1.Flags = 2 + 1 whataction = CommonDialog1.ShowColor If whataction = 2 Then Me.Caption = "Cancel..." Else Me.Caption = "Ready" Frame5.BackColor = CommonDialog1.Color End If End Sub