Codejock Developer Community : CJ commondialog color http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 21 Apr 2026 00:21:02 +0000 Wed, 13 Jun 2012 19:38:41 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=19858 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[CJ commondialog color : Code for the cmdcolor button1....]]> http://forum.codejock.com/forum_posts.asp?TID=19858&PID=68434&title=cj-commondialog-color#68434 Author: Developerx
Subject: 19858
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


]]> Wed, 13 Jun 2012 19:38:41 +0000 http://forum.codejock.com/forum_posts.asp?TID=19858&PID=68434&title=cj-commondialog-color#68434