Das bekannte Programm zur optimalen Vorbereitung auf die theoretische Führerscheinprüfung
VB 4/6- und VBA-Forum - Beitragsübersicht -
ThemaVB6: Labels zur Laufzeit erstellen
Von NanoByte
E-Mail chambers1@gmx.net
Datum 15. Dezember 2017 um 19:02:41
Frage Hallo,

ich wollte in meinem Programm Labels zur Laufzeit erstellen, was auch klappt nun bin ich an einem Punkt angekommen wo ich noch mehr Labels brauch. Und zwar hab ich 10 Labels untereinander nun wollt ich die anderen in einer Reihe daneben und soweiter.
 For i = 0 To FileFilms.ListCount - 1
If i > 0 Then Load LblFilm(i)
With LblFilm(i)
.Left = LblFilm(0).Left
.Top = LblFilm(0).Top + (.Height + 40) * (i Mod FileFilms.ListCount)
.Caption = " " & FileFilms.List(i)
.Visible = True
End With
Next
Danke
Antwort:
Von Rippler
Datum 18. Dezember 2017 um 17:23:28
Antwort
   Dim w As Long: w = LblFilm(0).Width + 40
Dim h As Long: h = LblFilm(0).Height + 40
Dim l As Long: l = LblFilm(0).Left
Dim t As Long: t = LblFilm(0).Top
Dim c As Long: c = FileFilms.ListCount
Dim m As Integer: m = 10
Dim i As Integer

For i = 0 To c
If i > 0 Then Load LblFilm(i)
With LblFilm(i)
.Left = l + w * (Int(i \ m) Mod 10) + 1
.Top = t + h * (i Mod m)
.Caption = " " & FileFilms.List(i)
.Visible = True
End With
Next i
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ]
Antworten
VB6: Labels zur Laufzeit erstellen - NanoByte 15. Dezember 2017 um 19:02:41
Re: Labels zur Laufzeit erstellen - Rippler 18. Dezember 2017 um 17:23:28
Re: Labels zur Laufzeit erstellen - NanoByte 18. Dezember 2017 um 19:04:00

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  Visual Basic 6 (*.exe)
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB 4/6- und VBA-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | .Net-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015