BackColor på form

Hej.

Det kan du lettest ved at lave et billede i en billedbehandler, der ser sådan ud, og så angive formens property picture til dette billede.  Billedet selv behøver ikke distribueres med programmet, det vil være indeholdt i exe-filen.

Billedet skal naturligvis dannes så det har mindst samme størrelse som din form, det er bedst hvis det passer ret nøjagtigt.  Der går 15 twips p åen pixel.  Formens størrelse vises jo i twips og billedbehandlerens viser størrelsen i pixels (kan i hvert fald indstilles til at gøre det).

Når du danner en setup af dit program, anvendes et billede, der er mellemblåt for oven og mørkeblåt for neden.

Ja, det kan man godt,

her er en eks.
http://www.desertware.com/vbuniverse/Gradient.html

iStyle - 0 for left to right gradient or 1 for top to bottom gradient.

DrawGradient Me.hDC, Me.Width, Me.Height, vbBlue, vbRed, 0 
laver et gradient fra venstre til højre mens

DrawGradient Me.hDC, Me.Width, Me.Height, vbBlue, vbRed, 1

laver gradient oppefra og ned.

Hej joern
Hvordan danner man en setup af program

(anvendes et billede, der er mellemblåt for oven og mørkeblåt for neden)

mvh

mvhansen

Hej thomaxz
hvor finder jeg Style jeg har kiket i properties på form, kan ikke finde Style

og skal det sidtes på form (DrawGradient Me.hDC, Me.Width, Me.Height, vbBlue, vbRed, 1)

mvh

mvhansen

du kan også finde mange her : http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?lngWId=1&B1=Quick+Search&txtCriteria=Gradients

Skrives farverne på engelske (vbBlue, vbRed)
hvad heder mørkeblå så (vbDarkBlue) ? VIRKER IKKE


MVH

MVHANSEN

ja, du kan bruge de inbyggede farve konstanter, hvis vbdarkblue ikke virker findes konstanten, ellers skal du brugr rgb(25,25,25)

hvor rgb(rød,grøn,blå)

hvor rød er tal mellem 0-255
og grøn og blå ligesådan.

hvor 0 er mindt og 255 er mest

det svare lidt ligesom til html color, hvis du kender til det.

-Thomas

Hej thomaxz

Hvordan skal koden se ud ?

Me.AutoRedraw = True
DrawGradient Me.hDC, Me.Width, Me.Height, RGB, 25, 25, 25, 0
'laver et gradient fra venstre til højre'

virker ikke

mvh

mvhansen

Hej thomaxz

jeg var lidt for hurtig
denne kode laver blå foroven og mørker forneden

Me.AutoRedraw = True
DrawGradient Me.hDC, Me.Width, Me.Height, vbBlue, 25, 1

mvh
mvhansen

ok, det glæder mig du har fundet ud af det.
men rgb er function som bruges som rgb(mængde rød,mænge grøn,mægnde blå)

så den burde se sådan ud, hvor du kan sætte mængden til et tal mellem 0 mindst og 255 mest.
DrawGradient Me.hDC, Me.Width, Me.Height, rgb(0,255,0),rgb(150,0,255), 1

hvor dette vil lave grøn for oven og en lille forneden.

mvh.
Thomas