ich lass auf der Form 6 Shapes anzeigen. (Nach ein Code von ChrisL)
1_ListBox4: "C" Wählen (die andern sind in der Tabelle noch nicht belegt)
2_ListBox5: "Cmaj" Wählen.
Alles füllt sich.
In LstBox1 kann man jetzt mit ein Click die Zeilen als Punkte darstellen.
Hier meine Beispieldatei:
https://www.herber.de/bbs/user/122046.xlsm
Was ich möchte:
alle Einträge der ListBox1 auf einmal anzeigen. Es geht hier um Skalen.
Habe schon Versucht mit ListBox Multiselect und Button click ereignis: Nothing.
Habe die Punkte auch vermährt um es zu simulieren: Nothing.
Mein Problem liegt in diesen Zeilen:
For i = 6 To 1 Step -1
Controls("Punkt" & i).Top = Image1.Top + (((Image1.Height - (Punkt1.Height * 6)) / 12) _
* (((i - 1) * 2) + 1)) + ((i - 1) * Punkt1.Height)
Controls("Label" & i).Top = Image1.Top + (((Image1.Height - (Label1.Height * 6)) / 12) _
* (((i - 1) * 2) + 1)) + ((i - 1) * Label1.Height)
If ListBox1.List(ListBox1.ListIndex, intCounter) = "x" Then
intWert = 1
Else
intWert = ListBox1.List(ListBox1.ListIndex, intCounter) + 1
End If
Controls("Punkt" & i).Left = Image1.Left + (((Image1.Width - (Punkt1.Width * 15)) / 32) * _
(((intWert - 1) * 2) - 1.5)) + ((intWert - 1) * Punkt1.Width)
Controls("Label" & i).Left = Image1.Left + (((Image1.Width - (Label1.Width * 15)) / 32) * _
_
(((intWert - 1) * 2) - 0.65)) + ((intWert - 1) * Label1.Width)
intCounter = intCounter + 1
Next i
Kommt immer die Meldung Typ unverträglich, sobald am Code was geändert wird.
Vielleicht bin ich falsch mit meine Versuche.
Daher bitte ich um Hilfe.
Danke in Voraus
Antonio