CN3DPattern |
|
Membri :
Nome |
Descrizione |
Load |
Apre l'interfaccia di N3DPattern. |
Get_PatternFromString |
Converte una stringa Pattern in un array di colori. |
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.