CN3DPattern

Membri :

Formato della stringa Pattern :

        Posizione1-Colore1; Posizione2-Colore2;......; PosizioneN-ColoreN;

        es. 0-16723812;1000-39925;360-6553600;    

        L'ordine d'inserimento č irrilevante. L'importante č settare bene le Posizioni che vanno da 0 a 1000.

Esempio di utilizzo :

    Per aprire l'interfaccia N3DPattern ed ottenere la stringa Pattern :

        Dim objPattern As New CN3DPattern
        Dim strProva As String ' Stringa di Default
            strProva = "0-" & RGB(100, 47, 255) & ";" & "1000-" & RGB(245, 155, 0) & ";" & "360-" & RGB(0, 0, 100) & ";"
            objPattern.Load strProva
        Set objPattern = Nothing

   Interfaccia di N3DPattern :

    Per converire una stringa in un array di 1001 elementi (0 to 1000). Dove ogni elemento rappresenta il colore attuale in formato Long :

        Dim objPattern As New CN3DPattern
        Dim Pattern() As Long ' Array risultante
        Dim strProva As String  ' Stringa da convertire
            strProva = "0-" & RGB(100, 47, 255) & ";" & "1000-" & RGB(245, 155, 0) & ";" & "360-" & RGB(0, 0, 100) & ";"
            objPattern.Get_PatternFromString strProva, 1000, Pattern
        Set objPattern = Nothing
        Erase Pattern

Ricordati : Ci devono essere un minimo di 2 Colori. Se ne viene specificato solo uno questo verrā usato come primo colore e Nero come ultimo colore. Se nessuno dei due sono specificati oppure la sintassi della stringa č errata allora entrambi le estremitā saranno di color Nero.