VB.net: Dynamisch Objekte zur Laufzeit generiern

Markus B. (rusticus) 09.12.2010 12:52 #1969293

Lesenswert?

•

Hallo,

ich versuche seit 2 Tagen verzweifelt zur Laufzeit dynamisch Objekte zu 
erzeugen und diese zu bestimmen.

Konkret, ich klicke auf ein Panel, will eine PictureBox erstellen, 
dieser PictureBox geb ich  beim Start eigenschaften wie Location und 
Image mit und würde diese PictureBox dann gerne also Member meiner 
Klasse verändern, dh Location und Image. Ich will also bis zu 8 Objekte 
haben mit dem Namen Fahrzeug, da ich weiß das es nicht mehr als 8 
werden, habe ich ein Array daraus gemacht.

Allerdings zeigt es mir nach wie vor nicht mal eine PictureBox an.

Private Sub Form1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick
        Dim Mouse_Postion1 As String
        Mouse_Postion1 = Cursor.Position.X.ToString
        Dim Mouse_Postion2 As String
        Mouse_Postion2 = Cursor.Position.Y.ToString
        Dim indexcount As Integer
        For indexcount = 0 To maxIC
            pic(indexcount) = New PictureBox
            pic(indexcount).Name = "Picturebox" & indexcount.ToString + 1
            pic(indexcount).Top = 12
            pic(indexcount).BackColor = Color.Transparent
            pic(indexcount).Location = New Point(pic(indexcount).Location.X = Mouse_Postion1, pic(indexcount).Location.Y = Mouse_Postion2)
            pic(indexcount).Visible = True
            pic(indexcount).Image = My.Resources.loch
            pic(indexcount).Height = 22
            pic(indexcount).Width = 17
            Me.Controls.Add(pic(indexcount))
        Next indexcount
 End Sub


So hätte ich es probiert, aber wie gesagt ohne Erfolg, ich hab schon so 
viele Lösungen in Google ausprobiert und bin nicht vorwärts gekommen.
Ich lese immer in den OpenBooks von Galileo aber eine Lösung dafür 
konnte ich nicht finden.


Hat vlt wer einen Link oder Lösungsvorschlag für mich? Ein Link mit 
einer Erklärung wäre mir lieber, dann lern ich noch was daraus ;)


mfg

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

Läubi .. (laeubi) 09.12.2010 13:01 #1969308

Lesenswert?

•

▲
▼

Markus B. schrieb:
> einer Erklärung wäre mir lieber
Und mir wäre lieber wenn du wenigstens mal sagst was den nicht so 
klappt wie gedacht? Compilefehler? Warnungen? Explodiert dein PC beim 
starten des Progamms?
Möglicherweise mußt du einfach den Container neu zeichnen?
Und Debugausgabe sind häufig auch nicht soooo verkehrt... außerdem sieht 
es so aus als ob du alle Boxen auf die gleiche Position setzt (wozu du 
hier ein Array benötigst ist mir auch schleierhaft wenn du später nix 
mher damit anstellst...).

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Markus B. (rusticus) 10.12.2010 07:59 #1970366

Lesenswert?

•

▲
▼

Es passiert schlichtweg nichts, keine Debugangaben oder Compilerfehler, 
es passiert einfach rein gar nix

Und nein ich will diese Boxen später bewegen, nur wär ich schon mal sehr 
froh wenn ich überhaupt eine Box erstellen könnte

Und zur Position, eigentlich sollte es an die Position der Maus gesetzt 
werden

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Läubi .. (laeubi) 10.12.2010 08:52 #1970407

Lesenswert?

•

▲
▼

Ich meinte damit das du Debugausgaben machen sollt um Festzustellen ob 
überhaupt die Funktion aufgerufen wird, und in der Schleife eventuell 
mal die Verwendeten Parameter ausgeben.

Markus B. schrieb:
> Und zur Position, eigentlich sollte es an die Position der Maus gesetzt
> werden
Alle 9 Boxen?

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Markus B. (rusticus) 10.12.2010 09:51 #1970480

Lesenswert?

•

▲
▼

    Dim car_counter As Integer = 0
    Dim auto(8) As PictureBox   
Private Sub ausfahrt_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ausfahrt.MouseDown
        auto(car_counter) = New PictureBox
        auto(car_counter).Name = "auto_" & car_counter
        auto(car_counter).Location = New Point(auto(car_counter).Location.X = (400 + car_counter * 10), auto(car_counter).Location.Y = 15)
        auto(car_counter).Visible = True
        auto(car_counter).SizeMode = PictureBoxSizeMode.AutoSize
        Me.Controls.Add(auto(car_counter))
        Label1.Text = auto(car_counter).Location.X
    End Sub
    Private Sub ausfahrt_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ausfahrt.MouseUp
        auto(car_counter).Image = select_car_color(random_car)
        car_counter += 1
        If car_counter >= 8 Then
            car_counter = 0
        End If
    End Sub



Mit dem Label hab ich mir jetzt eine Debuganzeige gebastelt, weil ich 
mit Einzelschritten nicht weiter gekommen bin


Zuerst habe ich mir "OK" anzeigen lassen, ging einwandfrei, danach hab 
ich mir "car_counter" anzeigen lassen, hat auch zuverlässig 
funktioniert, nun wollte ich mir die Location anzeigen lassen, bei der 
Abfrage auf X und Y kommt jeweils immer nur eine 0. liegts daran vlt?

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Läubi .. (laeubi) 10.12.2010 12:21 #1970711

Lesenswert?

•

▲
▼

Markus B. schrieb:
> Abfrage auf X und Y kommt jeweils immer nur eine 0. liegts daran vlt?
Das mußt du doch entscheiden ob in deiner Logik das Auftreten von "0" 
als Postion zu irgendwelchem Fehlverhalten führen könnte.

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Markus B. (rusticus) 11.12.2010 03:42 #1971611

Lesenswert?

•

▲
▼

Läubi .. schrieb:
> Das mußt du doch entscheiden ob in deiner Logik das Auftreten von "0"
> als Postion zu irgendwelchem Fehlverhalten führen könnte.

Das versteh ich nicht ganz

Ich habe doch meine X und Y Position klar mit einen Punkt definiert?
X = 400 und Y = 15, unabhängig vom Rest? Oder seh ich das falsch?!

Antwort Zitieren Bearbeiten Löschen Beitrag melden

VBler Gast 14.12.2010 14:59 #1975547

Lesenswert?

•

▲
▼

Hallo,

1. Wenn du die Location Eigenschaft verwendest ist die Top Angabe weiter 
oben sinnlos, da sie von Location überschrieben wird.

2. Point wird wie folgt verwendet: Object.Location = New 
Point(xcoordinate, ycoordinate)
Ohne ein =  . Mit dem = verursachts du nur einen Boolschen Wert True 
oder False.

3. Wie ist pic() definiert?

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Markus B. (rusticus) 14.12.2010 18:46 #1975963

Lesenswert?

•

▲
▼

VBler schrieb:
> Hallo,
>
> 1. Wenn du die Location Eigenschaft verwendest ist die Top Angabe weiter
> oben sinnlos, da sie von Location überschrieben wird.
>
> 2. Point wird wie folgt verwendet: Object.Location = New
> Point(xcoordinate, ycoordinate)
> Ohne ein =  . Mit dem = verursachts du nur einen Boolschen Wert True
> oder False.
>
> 3. Wie ist pic() definiert?

Hallo,

ok das mit der Location teste ich
Aber der aktuelle Code ist der vom 10.12.
Da ist kein .Top mehr enthalten?!

Antwort Zitieren Bearbeiten Löschen Beitrag melden

VBler Gast 14.12.2010 21:00 #1976177

Lesenswert?

•

▲
▼

Hallo Markus,

Entschuldige, hat sich auf den ersten Beitrag bezogen.
Hab's jetzt noch mal selbst getestet, der Code müsste ungefähr so 
aussehen (so funktioniert's zumindest bei mir):

    Public car_counter As Integer = 0
    Public auto(8) As PictureBox   
Private Sub ausfahrt_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ausfahrt.MouseDown

Es ist besser, Variablen außerhalb von Subs und Functions mit Public 
oder Privat zu deklarieren.
Ich geh hier mal davon aus, dass 'ausfahrt' eine PictureBox ist.

        auto(car_counter) = New PictureBox
        auto(car_counter).Name = "auto_" & car_counter
        auto(car_counter).Location = New Point(400 + car_counter * 10, 15)

In den Point-Konstrukor musst du die Werte wie oben reinschreiben. Bei 
deiner Variante würde er für x und y 'False' übergeben.

        auto(car_counter).Visible = True
        auto(car_counter).SizeMode = PictureBoxSizeMode.AutoSize
        auto(car_counter).Size = new Size(50, 50)

Die letzte Zeile einfügen wenn du die Größe definieren willst.

1	`ausfahrt.Controls.Add(auto(car_counter))`

Wenn, wie oben angenommen 'ausfahrt' eine Picturebox ist, dann ME durch 
ausfahrt ersetzen, um die neuen Pictureboxes innerhalb von ausfahrt 
anzuzeigen.

        Label1.Text = auto(car_counter).Location.X
    End Sub
    Private Sub ausfahrt_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ausfahrt.MouseUp
        auto(car_counter).Image = select_car_color(random_car)
        car_counter += 1
        If car_counter >= 8 Then
            car_counter = 0
        End If
    End Sub

Bitte beachte, dass die Pictureboxes relativ weit rechts erscheinen 
werden, da bei Location für x=400Pixel+ angegeben sind. Hoffe ich konnte 
dir helfen.
Schönen Abend

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Markus B. (rusticus) 14.12.2010 22:57 #1976376

Lesenswert?

•

▲
▼

Also "ausfahrt" ist ein Panel, aber sollte von der Funktion her egal 
sein

Und die PictureBox soll innerhalb der Form erscheinen, also doch 
"Me.Controls..."

Wenn ich nun aba eine Größe angebe, hebe ich dann nicht das AutoSize 
auf?

Und die Position wurde händisch ausgetestet, passt also ;)

Antwort Zitieren Bearbeiten Löschen Beitrag melden

VBler Gast 14.12.2010 23:32 #1976433

Lesenswert?

•

▲
▼

Abend,

Also wenn die Pictureboxes in der Form erscheinen sollen, stimmt 
natürlich me.controls..

Eine Größenangabe hebt Autosize nicht auf, ganz im Gegenteil. Ist 
eigentlich nur dazu gedacht, im vorraus der Picturebox eine definierte 
Größe zu geben. Hast recht, ist in diesem Fall wohl eher unnötig.

Funktioniert der Code inzwischen schon?

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Markus B. (rusticus) 18.01.2011 17:50 #2022341

Lesenswert?

•

▲
▼

hallo,

also nach langer Zeit bin ich wieder an dem Thema dran

Public Class Form1
    Dim car_moving As Integer = 0
    Dim random_car As Integer = 0
    Dim car_color As Bitmap
    Dim car_counter As Integer = 0
    Dim auto(8) As PictureBox
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'random_car
        If random_car >= 0 Then
            random_car += 1
        End If
        If random_car = 9 Then
            random_car = 1
        End If
    End Sub
    Private Sub ausfahrt_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ausfahrt.MouseDown
        auto(car_counter) = New PictureBox
        auto(car_counter).Name = "auto_" & car_counter
        auto(car_counter).Location = New Point(400 + car_counter * 10, 15)
        auto(car_counter).Visible = True
        auto(car_counter).SizeMode = PictureBoxSizeMode.AutoSize
        auto(car_counter).Size = New Size(50, 50)
        Me.Controls.Add(auto(car_counter))
        Label1.Text = auto(car_counter).Location.Y
        Label2.Text = auto(car_counter).Location.X
    End Sub
    Private Sub ausfahrt_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ausfahrt.MouseUp
        auto(car_counter).Image = select_car_color(random_car)
        car_counter += 1
        If car_counter >= 8 Then
            car_counter = 0
        End If
    End Sub
    Public Function select_car_color(ByVal color As Integer) As Bitmap
        Select Case color
                select_car_color = My.Resources.auto_1
                select_car_color = My.Resources.auto_2
                select_car_color = My.Resources.auto_3
                select_car_color = My.Resources.auto_4
                select_car_color = My.Resources.auto_5
                select_car_color = My.Resources.auto_6
                select_car_color = My.Resources.auto_7
                select_car_color = My.Resources.auto_8
            Case Else
                select_car_color = My.Resources.auto_1
        End Select
    End Function
End Class


Funktionieren tut es aber leider immer noch nicht

Antwort Zitieren Bearbeiten Löschen Beitrag melden

VB.net: Dynamisch Objekte zur Laufzeit generiern

Antwort schreiben