/ 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
Hex kode - newbie
Fra : trEx


Dato : 20-04-01 22:14

Hej NG

Jeg går og leger med Hex koder (til hjemmeside) og er støt ind i et problem.
når jeg sætter rød til fx. 255 kan den godt finde hex koden til lige den
farve, men hvis jeg prøver på at sætte grøn til fx. 100 så kan det ikke
finde ud af at rød stadig skal være 255 og sætter rød til 0. Og lige sådan
med blå.
Jeg tror der er noget galt med de tre steder hvor jeg har skrevet
Picture1.Backcolor =.
hvis det kan lade sig gøre må i gerne svare inden ret længe da det haster en
smule.
her er noget af min kode :

Private Sub Slider1_MouseMove(Button As Integer, Shift As Integer, x As
Single, y As Single)
Dim red
If Button = 1 Then
Label1.Caption = Slider1.Value
red = Val(red) - SlidValue(1) + Val(Label1.Caption)
Picture1.BackColor = red
Call UpdateColorCode
End If
End Sub

Private Sub Slider2_MouseMove(Button As Integer, Shift As Integer, x As
Single, y As Single)
Dim green
If Button = 1 Then
Label2.Caption = Slider2.Value
green = Val(green) - (SlidValue(2) * 256) + (Val(Label2.Caption) * 256)
Picture1.BackColor = green
Call UpdateColorCode
End If
End Sub

Private Sub Slider3_MouseMove(Button As Integer, Shift As Integer, x As
Single, y As Single)
Dim blue
If Button = 1 Then
Label3.Caption = Slider3.Value
blue = Val(blue) - (SlidValue(3) * 65536) + (Val(Label3.Caption) *
65536)
Picture1.BackColor = blue
Call UpdateColorCode
End If
End Sub

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




 
 
Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste