/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Hjælp til Farver, please :-)
Fra : trEx


Dato : 16-04-01 01:28

Er der en eller anden måde hvor jeg kan vælge en farve (ligesom inde i
Visual Basic & Windows).
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.

M.V.H.
Stefan Thilemann
amd900athlon@hotmail.com









 
 
Lars Hoffmann (18-04-2001)
Kommentar
Fra : Lars Hoffmann


Dato : 18-04-01 18:41

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

Søg
Reklame
Statistik
Spørgsmål : 177560
Tips : 31968
Nyheder : 719565
Indlæg : 6408942
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste