Avanceret farvepallet til VisualBasic 6.0

Til Reference: http://eksperten.dk/spm/548284

Er der virkelig ingen der kan fortælle mig det?!? jeg har selv rodet med det i et par dage nu men jeg kan simpelthen ikke få det til at virke.

Start Visual Basic

1. På din form smider du en Commondialog - er den ikke i din toolbao tilføjer du den ved Ctrl+T Den hedder sikkert "Microsoft Common Dialog Control"

2. Du copy-paster følgende kode.

3. Kør programmet, og klik åp formen


Kode:

Private Sub Form_Click()
  On Error GoTo No_Color_Chosen
  CommonDialog1.Flags = cdlCCFullOpen Or cdlCCPreventFullOpen
  CommonDialog1.ShowColor
  Form1.BackColor = CommonDialog1.Color
No_Color_Chosen:
  Exit Sub
End Sub

Den er tæt på... men jeg skulle helst lave en selv... Men den virker midlertidigt... kan jeg lave min egen?!?

Det ved jeg ikke. Kan du?