VB 4/6- und VBA-Forum - Beitragsübersicht -
ThemaVB6: Picturebox zur Laufzeit
Von It's me
Datum 14. Oktober 2015 um 20:37:23
Frage Hallo

ich hab gesucht und was ich gefunden hab versucht umzuschreiben alles führt zu nix
Private Sub Form_Load()
Dim i As Integer

For i = 1 To 20
Load PrePic(i)
With PrePic(i)
If i < 11 Then 'die erste zeile
.Left = PrePic(i - 1).Left + PrePic(i - 1).Width + 240
.Visible = True
Else ' das soll nun die zweite zeile werden aber da scheiden sich die geister
.Top = PrePic(0).Top + PrePic(0).Height + 240
.Left = PrePic(0).Left + PrePic(i - 1).Width + 240
.Visible = True
End If
End With
Next
End Sub
Danke schonmal
Antwort:
Von Neptun
Datum 15. Oktober 2015 um 14:01:54
Antwort z.B. so:
  Dim i%, XPos%, YPos%

For i = 0 To 19

If i > 0 Then
Load PrePic(i)
Load LblTest(i)
End If

With PrePic(i)
XPos = PrePic(0).Left + (.Width + 240) * (i Mod 10)
YPos = PrePic(0).Top + (.Height + 240) * (i \ 10)
.Move XPos, YPos
.Visible = True
End With

With LblTest(i)
.Move XPos, YPos + PrePic(0).Height
.Caption = "(" & CStr(i) & ")"
.Visible = True
End With

Next i
Gruss,

Neptun
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ]
Antworten
VB6: Picturebox zur Laufzeit - It's me 14. Oktober 2015 um 20:37:23
Re: Picturebox zur Laufzeit - Neptun 14. Oktober 2015 um 23:02:01
Re: Picturebox zur Laufzeit - It's me 15. Oktober 2015 um 07:52:04
Re: Picturebox zur Laufzeit - It's me 15. Oktober 2015 um 09:17:50
Re: Picturebox zur Laufzeit - Neptun 15. Oktober 2015 um 14:01:54
Re: Picturebox zur Laufzeit - It's me 16. Oktober 2015 um 17:00:18
Re: Picturebox zur Laufzeit - Neptun 21. Oktober 2015 um 14:54:21

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