Håller på med ett program till fuska.nu där man ska göra fuska.nu presentationer. [fet] och sånt var väll rätt lätt att göra men fuskarna har ju [linje=#ff00ff] oxå linje är en box som är enpikel hög. och länger man två eftervaran blir den 2 px hög. jag har tänkt att göra en funktion där man först väljer hur mänga steg man vill hoppa t.ex 2 så blir det [linje=#000000][linje=#020000] men problemet är hur ska jag göra vid #080000 hur får jag det att bli #0a0000 ???

Har för mig att det finns nån färg kod som går upp till 255 men jag vet inte riktit hur det fungrar och hur omvandlar jag det till 0a 0b 0c osv kod ???

Hoppas ni fattade

 
Dim Color as Long
Dim Temp as String
    Temp = "080000"
    Color = CLng("&H" & Temp)
    Color = Color + &H20000
    Temp = Hex(Color)
    Debug.print  Temp
</Code>

    

Koden avser version 3, 4, 5 och 6 av vb.

Tyvärr använder jag .NET.
Men jag satt här o tänkte lite så¨kom jag på att om jag gör 0 till 00 o 1 till 01 ... slutligen 255 är FF. Men jag har inte riktit kommit på hur jag ska göra det för det går väll inte ha tal som variabler väll ???

Jag flyttar då din tråd till vb.net esketionen.

Ok tack

Jag testade att skriva all 255.

Dim tal() as Integer

tal(0) = "00"
tal(1) = "01"
...
tal(255) = "ff"

men det blir nått fel.
Kan nån säga vad ???

Testa Dim tal(255) As String


Thomas

Hitta en lite kod dock i C# men kanke kan vara värt att titta på.
http://www.c-sharpcorner.com/Code/2004/Dec/HexaColor.asp

Ok jag använde

Dim Color as Long
Dim Temp as String
    Temp = "080000"
    Color = CLng("&H" & Temp)
    Color = Color + &H20000
    Temp = Hex(Color)
    Debug.print  Temp
</Code>


(( Tack Andreas ))
Fungerar nästan som jag vill. Det är bara det att koden blir A0000 fattas en nolla i börgan =(
Men skulle man ändra Temp till Temp = "180000" så fungerar den exakt som jag vill.

    

Du kan fixa det med:

Temp = Right("00000" & Hex(Color), 6)

Det blir nått fel med Right()
'Public ReadOnly Property Right() As Integer'

Löste det med

If Gron = "8" Then
Bla = "08"
End If

Men det är ett annat fel nu jag försöker att öka med 10...

Color = Color + &H10


Men det blir 00, 10, 20, 30, 40, 50 osv
Men det borde bli 00, 0a, 15, 20 osv

Hur fixar jag till detta ???

Lägger du till hextalet 10 (16 i dec) så är det väl korrekt att det blir 10 (16), 20 (32), 30 (48) osv.
Det du vill göra är väl att lägga till 10 i dec istället.

Testa Color = Color + Hex(10).


Thomas

Ok.
Jag löste det med...
Color = Color + &HA