Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Objekte on runtime
Autor: Philipp
Datum: 18.02.08 00:28
Hallo und einen schönen Abend. Habe wirklich einen Hänger und komme nicht mehr weiter. Hier erstmal mein source-code: Private Sub Command1_Click() Dim ALabel() As Label Dim AImageBox() As Image Dim intNumberOfFormEntries As Integer intNumberOfFormEntries = List1.ListCount - 1 'Form1.Height = 6000 ReDim ALabel(intNumberOfFormEntries) As Label ReDim AImageBox(intNumberOfFormEntries) As Image For intforloopcounter = 0 To intNumberOfFormEntries Set AImageBox(intforloopcounter) = Form1.Controls.Add("VB.image", "AReallyNewImageBox" & intforloopcounter) Set ALabel(intforloopcounter) = Form1.Controls.Add("vb.label", "AReallyNewLabel" & intforloopcounter) ALabel(intforloopcounter).Caption = "Hello, Runtime Controls!" ALabel(intforloopcounter).Width = 3000 ALabel(intforloopcounter).Visible = True ALabel(intforloopcounter).Top = 1000 * intforloopcounter AImageBox(intforloopcounter).Left = 3000 AImageBox(intforloopcounter).Visible = True AImageBox(intforloopcounter).Top = 1800 * intforloopcounter AImageBox(intforloopcounter).Height = 1500 AImageBox(intforloopcounter).Stretch = True AImageBox(intforloopcounter).Picture = LoadPicture("D:\briefing\test\" & List1.List(intforloopcounter)) Next intforloopcounter Nun es läuft soweit ganz gut. Nur das ich die Images untereinander bekomme. ich hätte aber gerne das die ersten 4 Images in einer reihe erstellt werden,dann die nächsten 4 darunter und so weiter. Wie kann ich dieses machen ? Vielen Dank im voraus und Gruß

Objekte on runtime	809	Philipp	18.02.08 00:28
Re: Objekte on runtime	542	Sodayi	18.02.08 13:59

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen