Program Design

Come on!

Hallo, ved i ikke det?

Jeg ved det godt!

Okay... kan du så sige det!!

Hallo, 151 bruger online og ikke et svar????

Det kan sagtens lade sig gøre, men det er en kompliceret sag, der involverer adskillige API-kald.

Denne kode laver en gradient på formen:
(du kan selv eksperimentere med farverne)

Sub Dither(vForm As Form)
Dim intLoop As Integer
vForm.DrawStyle = vbInsideSolid
vForm.DrawMode = vbCopyPen
vForm.ScaleMode = vbPixels
vForm.DrawWidth = 2
vForm.ScaleHeight = 256
For intLoop = 0 To 255
vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 0, 255 - intLoop), B
Next intLoop
End Sub

Private Sub Form_Activate()
Dither Me
End Sub   

Hvis du vil have runde hjørner m.m. tror jeg du er nødt til at bruge API.
Alternativt er der masser af OCX\'er du kan hente på nettet, og bruge til dette.

f.eks. på http:\\\\www.lanetsourcecode.com

MVH tjacob

det var: www.planetsourcecode.com

Hej Addy
Jeg er faldet over denne side som måske vil interessere dig:

http://www.freevbcode.com/ShowCode.Asp?ID=3195

tjacob: Det var ikke lige det jeg havde tænkt mig, da jeg har set det laves på en anden måde, hvor boksen ikke var helt firkantet . Men jeg kan bruge det der et andet sted, så du få nogle af point.

ea: Tak for linket, jeg vil tænke over om jeg skal købe bogen!

Mit svar!!