trEx wrote:
>
> Er der en eller anden måde hvor jeg kan vælge en farve (ligesom inde i
> Visual Basic & Windows).
Tilføj en CommonDialog Control til dit projekt (her i eksemplet kalder
jeg den CD1) og der hvor du gerne vil vælge farve gør du noget i denne
stil:
Dim temp As String
Cd1.ShowColor
temp = Cd1.color
Dette vil gemme farven som en streng i variablen temp.
> Når man så trykker på Add Color skal programmet skrive HEX koden for den
> valgte farve i en TextBox. Jeg håber meget at der er nogle der kan hjælpe
> mig da det haster.
Nå du skriver HEX kode, mener du så den HEX-farve kode som bruges til
f.eks HTML programmering, hvis det er det du mener, bør du først ændre
din farve til long, og derefter splitte den op i RGB og derefter
konvertere RGB værdierne til HEX værdier, noget i stil med dette:
dim temp2 as long
Dim blue, green, red as integer
temp2 = val(temp)
Blue = temp2 \ 65536
temp2 = temp2 - (temp2 \ 65536) * 65536
Green = temp2 \ 256
Red = temp2 - (temp2 \ 256) * 256
'Her er RGBværdierne regnet ud og nu skal de blot konverteres til HEX:
Dim RedHEX, GreenHEX, BlueHEX as string
RedHEX = Hex(Red)
GreenHEX = Hex(Green)
BlueHEX = Hex(Blue)
Hvis du mener blot at konverterer hele farven til hex (altså ikke som
HTML-HEX værdier) så undlad ovenstående og pløk følgende ind:
Dim HexColor as String
HexColor = Hex(Val(temp))
Jeg tager forbehold for fejl i min kode, men idéen skulle være god nok.
Jeg har brugt noget lignende til programmet i min signatur.
--
/Lars
HTML software: <
http://go.to/HTMLEasyColors>
Brug venligst Re: og ikke Sv: ved svar, da beskeder
der begynder med Sv: bliver slettet fra mange servere