Springen naar inhoud


- - - - -
VB6

Een Kleur Wijzigen In Circle Animatie



  • Log in a.u.b. om te beantwoorden
Er zijn 2 reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 01 april 2016 - 17:15

Dag
Met onderstande code en een timer teken ik een mooie circle met  draai-beweging  in rood kleur.
Alles werkt goed.
Code:
Private Sub Timer1_Timer()
Const PI   As Double = 3.14159265358979
Const PIx2 As Double = 6.28318530717959
Dim s	  As Double, e As Double
Dim dx	 As Double, dy As Double
Dim r1	 As Double, r2 As Double
Dim x1	 As Double, y1 As Double
Dim x2	 As Double, y2 As Double
Dim h1	 As Double, h2 As Double
Static Rotate As Double
Dim numdiv	As Integer
Dim i		 As Integer

Me.AutoRedraw = True

r1 = 1400	' buiten circle
r2 = 2000	' binnen circle
numdiv = 30  ' aantal

stp = PIx2 / numdiv
dx = Me.ScaleWidth / 2
dy = Me.ScaleHeight / 2

Me.FillStyle = vbSolid
If Rotate = 0 Then Rotate = 0.0001

For i = 0 To numdiv - 1
  h1 = stp * i + Rotate
  h2 = h1 + stp
  If h1 > PIx2 Then h1 = h1 - PIx2
  If h2 > PIx2 Then h2 = h2 - PIx2
  If Me.FillColor = vbWhite Then
	Me.FillColor = vbRed
  Else
	Me.FillColor = vbWhite
  End If
  Me.Circle (dx, dy), r2, vbRed, -h1, -h2, 1
Next i

Rotate = Rotate + PI / 6
If Rotate > PIx2 Then Rotate = 0.0001

Me.FillColor = vbWhite
Me.Circle (dx, dy), r1, vbRed, , , 1 ' binnen circle
End Sub
Ik wou nu, met commondialog , dat kleur kunnen wijzigen , maar het lukt mij niet.
ik heb zo geprobeerd:

Code:
Private Sub Command1_Click()
Dim a As ColorConstants
Commondialog1.ShowColor
a = Commondialog1.Color
End Sub

hoe kan ik doen?
dank u
houthalen

#2 Svr

Svr

    Junior Developer

  • Leden
  • PipPip
  • 51 berichten
    Laatst bezocht 08 jul 2016 20:37

Geplaatst op 01 april 2016 - 18:58

"Dim a As ColorConstants"   mag niet in de "sub command1_click" staan, nu gaat de waarde "a" verloren na het uitvoeren van deze sub.

plaats "Dim a As ColorConstants" voor al je subs

verander alle "vbred" door "a"

#3 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 01 april 2016 - 19:30

Inderdaad, Svr.
Code:
Dim a As ColorConstants 

moest buiten alles staan.
(Wat dom van mij)
Nu werkt het wel !!


snel opgelost.
dank u

houthalen






Ook met taq VB6 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)