[VB6] Uso commondialog con tavolozza colori

[pazienza]

salve

Cliccando su un commbutt e tramite commondialog vorrei aprire la tavolozza dei colori, selezionare un colore ed il colore selezionato dovrebbe riempire lo shape nonché il colore del form.
Ecco il mio codice. Non ricevo nessun errore ma nemmeno si selezionano i colori
(La tavolozza appare per selezionare)

Private Sub command1_Click()
On Error Resume Next
CommonDialog1.ShowColor
Shape1 = CommonDialog1.Color
Form1.BackColor = CommonDialog1.Color

End Sub

cosa NON faccio bene?

grazie
pazienza

[LeleFT]

Sei nel forum sbagliato.
Per VB e .NET c'è il subforum apposito.


Ti sposto.


Ciao.

[LMondi]

Ho fatto delle prove, così funziona:

Private Sub Command1_Click()
    
    With Form1.CommonDialog1
        .CancelError = True                 'Imposta CancelError su True
        On Error GoTo ErrHandler
        .ShowColor
ErrHandler:
        If Err.Number = 32755 Then          'é stato scelto Annulla
            Exit Sub
        End If
    End With

    'Line1.BorderColor = CommonDialog1.Color
    'Form1.BackColor = CommonDialog1.Color
    Shape1.BorderColor = CommonDialog1.Color

End Sub :ciauz:

[pazienza]

OK, lMondi. Tutto risolto !
Grazie per l'intervento.
Adesso posso integrare il tutto nel mio programma

pazienza