Steuerelemente im Uhrzeigersinn einfügen
01.11.2020 16:18:35
Siegfried
ich habe den nachfolgenden Code zum Einfügen von Steuerelementen im Uhrzeigersinn in ein Formular.
Der Code funktioniert mit der Einschränkung, dass das erste Element auf 3 Uhr eingefügt wird.
Wie muss ich es anstellen, das das erste Element auf 1 Uhr eingefügt wird?
Danke für jede Hilfe im Voraus und Gruß
Siegfried
Sub Anordnung_Stunde()
Dim Obj_OptStunde As MSForms.OptionButton ' Variable für ein neues Steuerelement
Dim Cnt As Control ' Variable für ein beliebiges Control
Dim n1 As Integer
Dim Startzeit As Integer, CosWinkel As Double, SinWinkel As Double
Dim Radius As Integer, Winkeldrehung As Double, Winkel As Double
Dim AnzElemente As Integer, MittelpunktLeft As Integer, MittelpunktTop As Integer
Radius = Frm_Uhr.Height / 2 / 12 * 11 - 3
Winkeldrehung = 360 / 12
AnzElemente = 360 / Winkeldrehung
MittelpunktLeft = Radius
MittelpunktTop = Radius
MittelpunktLeft = Frm_Uhr.Width / 2 - 12
MittelpunktTop = Frm_Uhr.Height / 2 - 12
' fügt 12 OptionButton-Steuerelemente für die Uhrzeiten ein
' das erste Element wird (gesteuert vom System) auf 3 Uhr beginnend eingefügt
For n1 = 1 To AnzElemente
SinWinkel = Radius * Sin(Winkel / 180 * Application.Pi)
CosWinkel = Radius * Cos(Winkel / 180 * Application.Pi)
Set Obj_OptStunde = _
Frm_Uhr.Controls.Add("Forms.OptionButton.1", "Stunde" & n1, True)
With Obj_OptStunde
.Left = MittelpunktLeft + CosWinkel
.Top = MittelpunktTop + SinWinkel
.Caption =n1
.AutoSize = True
End With
Next n1
Set Obj_OptStunde = Nothing
End Sub
Anzeige