---

Hej NG.
Jeg vil lave et modul der gennem en For-Next løkke opretter en fil jeg
skal bruge i et andet program, som jeg så kan redigere i NotePad
bagefter.
Det er en fil med farve værdier i Hex (RRGGBB), adskilt af vbCrLf. Men
under test finder jeg dette i min fejl log:
[20:31:17] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
[20:31:19] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
[20:31:21] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
[20:31:22] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
[20:31:24] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
[20:31:26] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
[20:31:27] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
[20:31:29] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
[20:31:31] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
[20:31:32] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
[20:31:34] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
[20:31:36] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
[20:31:37] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
[20:31:39] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
[20:31:41] Fejl #380: Invalid property value (0). aFile(31) = 00FF00

Altså i mit array, giver index 31 ("00FF00") "Invalid property value".
Hvorfor det? Så vidt jeg kan se er det en rigtig farve ;). Hvorfor giver
den denne fejl? Mit array går fra FF0000 til FFFF00 til 00FF00, og kun
00FF00 giver fejl. Hvad er der galt?? Faktisk skulle værdierne være
modsat, så jeg brugte StrReverse() midlertidigt, og der gav alle
værdierne fejl... Hvorfor kan VB ikke acceptere nogle hex værdier??

Hilsen Mathias

---

I kan se hvad jeg mener på http://www.mrside.dk/vbdl/IrriterendeFejl.zip

---

"Mathias" <mathias@nonne.tld> skrev i en meddelelse
news:Xns94A5D2DCBC83D5q738hgq@212.54.64.134...
> I kan se hvad jeg mener på
http://www.mrside.dk/vbdl/IrriterendeFejl.zip

me.BackColor = CLng("&H" & aFile(Val(Timer.Tag)))

Med Val() får du -256, hvilket ikke er korrekt.

I din debug.print udskriver du hvad afile(31) er som string, men
du skulle have prøvet au udskrive det du tildeler til BackColor
istedet

PS. Hvorfor bruger du timer.Tag til at gemme dit indeks ?? Dermed
skal du konvertere mellem string og integet hele tiden....

--
/\ preben nielsen
\/\ prel@post.tele.dk

---

"preben nielsen" <prel@post.tele.dk> wrote in news:404b8591$0$1653
$edfadb0f@dread14.news.tele.dk:

> me.BackColor = CLng("&H" & aFile(Val(Timer.Tag)))
>
> Med Val() får du -256, hvilket ikke er korrekt.

Det prøver jeg...

.... ...

Det virker! Tak...
Imorgen kører jeg videre...
Så tilføjer jeg flere farver til mit array så det kan blive færdigt...
Tak for hjælpen!

\\ Mathias

---

Hvordan ser koden ud?
Det er vel ikke en banal syntaks-fejl.

Hvilken variabel-type bruger du til værdierne? String eller Integer
(Integer løber jo ikke så langt op)

mvh
Krabsen


Sun, 07 Mar 2004 19:38:22 GMT, Mathias <mathias@nonne.tld> skrev:

> Hej NG.
> Jeg vil lave et modul der gennem en For-Next løkke opretter en fil jeg
> skal bruge i et andet program, som jeg så kan redigere i NotePad
> bagefter.
> Det er en fil med farve værdier i Hex (RRGGBB), adskilt af vbCrLf. Men
> under test finder jeg dette i min fejl log:
> [20:31:17] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
> [20:31:19] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
> [20:31:21] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
> [20:31:22] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
> [20:31:24] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
> [20:31:26] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
> [20:31:27] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
> [20:31:29] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
> [20:31:31] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
> [20:31:32] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
> [20:31:34] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
> [20:31:36] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
> [20:31:37] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
> [20:31:39] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
> [20:31:41] Fejl #380: Invalid property value (0). aFile(31) = 00FF00
>
> Altså i mit array, giver index 31 ("00FF00") "Invalid property value".
> Hvorfor det? Så vidt jeg kan se er det en rigtig farve ;). Hvorfor giver
> den denne fejl? Mit array går fra FF0000 til FFFF00 til 00FF00, og kun
> 00FF00 giver fejl. Hvad er der galt?? Faktisk skulle værdierne være
> modsat, så jeg brugte StrReverse() midlertidigt, og der gav alle
> værdierne fejl... Hvorfor kan VB ikke acceptere nogle hex værdier??
>
> Hilsen Mathias
>



--
Sendt via Opera.
www.krabsen.dk
www.responsnord.dk
mfl

---

Gert Krabsen <news@fjernkrabsenfjernes.dk> wrote in
newsr4iby1zg0p03yo@news.sunsite.auc.dk:

> Hvordan ser koden ud?

Det hele? Sådan her:

Option Explicit
Dim File As String, aFile() As String

Private Sub Form_Load()
Dim I As Integer
For I = 1 To 16
File = File & "FF" & Hex(I - 1) & Hex(I - 1) & "00" & vbCrLf
Next
For I = 16 To 1 Step -1
File = File & Hex(I - 1) & Hex(I - 1) & "FF00" & vbCrLf
Next
For I = 1 To 16
File = File & "00" & Hex(I - 1) & Hex(I - 1) & Hex(16 - I) & Hex
(16 - I)
Next
aFile = Split(File, vbCrLf)
Timer.Enabled = True
CDL.ShowOpen
End Sub

Private Sub Timer_Timer()
If Val(Timer.Tag) > UBound(aFile) Then Timer.Tag = "0"
On Error GoTo ErrHandl:
Me.BackColor = Val("&H" & aFile(Val(Timer.Tag))) 'StrReverse()
On Error GoTo 0
Timer.Tag = Val(Timer.Tag) + 1
Exit Sub
ErrHandl:
Dim D As Date
D = Now
Debug.Print "[" & Hour(D) & ":" & Minute(D) & ":" & Second(D) & "]
Fejl #" & Err.Number & ": " & Err.Description & " (" & Err.LastDllError &
"). aFile(" & Val(Timer.Tag) & ") = " & aFile(Val(Timer.Tag))
Timer.Tag = Val(Timer.Tag) + 1
End Sub

> Det er vel ikke en banal syntaks-fejl.

Det håber jeg ikke ;)

> Hvilken variabel-type bruger du til værdierne? String eller Integer
> (Integer løber jo ikke så langt op)

Jeg bruger Long.

Du kan downloade projektet på
http://www.mrside.dk/vbdl/IrriterendeFejl.zip