• Home
 · 
• Graphics
 · 
• Displays color selection dialog. Using Custom Colors choose from 16,000,000 colors and it displays

Displays color selection dialog. Using Custom Colors choose from 16,000,000 colors and it displays

Displays color selection dialog. Using Custom Colors choose from 16,000,000 colors and it displays the Hex value to use in the VB foreground

API Declarations


Dim S As String




Rate Displays color selection dialog. Using Custom Colors choose from 16,000,000 colors and it displays

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

CommonDialog1.ShowColor
C = CommonDialog1.Color
S = Hex(C)
While Len(S) < 6
S = "0" + S
Wend
S = "&H00" + S + "&"
Form1.BackColor = C
Text1.Text = S
End Sub