title image


Smiley Polarkoordinaten - das liebe ich...
Hier etwas "Selbstgestricktes":Const Pi = 3.1415926535898Private Sub Form_Load() Form_TimerEnd SubPrivate Sub Form_Resize() Me.Rect.Width = Me.InsideWidth - 100 Me.Rect.Height = Me.InsideHeight - 100 Form_TimerEnd SubPrivate Sub Form_Timer() Me.Caption = Now Zeiger Me!Std, (270 + ((Hour(Now) Mod 12) * 30)) Mod 360, 0.75, 5 Zeiger Me!Min, (270 + Minute(Now) * 6) Mod 360, 0.85, 3 Zeiger Me!Sek, (270 + Second(Now) * 6) Mod 360, 0.95, 1End SubPrivate Sub Zeiger(Ctl As Control, Grad As Long, LängenFaktor As Double, Dicke As Long)Dim Bogen As Double, Radius As Double, Height As Long, Width As Long Bogen = Grad / 180 * Pi On Error Resume Next With Ctl Radius = Me.InsideWidth \ 2 Width = Cos(Bogen) * Radius * LängenFaktor If Width > 0 Then .Left = Radius Else ' vertauschen .Left = Radius + Width End If .Width = Abs(Width) Radius = Me.InsideHeight \ 2 Height = Sin(Bogen) * Radius * LängenFaktor If Height > 0 Then .Top = Radius Else ' vertauschen .Top = Radius + Height End If .Height = Abs(Height) ' im 2. und 4. Quadranten die Orientierung ändern .LineSlant = Grad > 90 And Grad 270 And Grad .BorderWidth = Dicke End WithEnd SubJetzt brauchst du nur noch 3 Linien "Std", "Min" und "Sek"...Reinhard


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: