Per VB-Code WPF aufbauen

fff619 · 29. Juni 2012

Hi,

möchte gerne wissen ob es möglich per VB-Code (nicht im WPF selber) ein Datagrid zu erstellen. Die einzelnen Zellen (z.B. Row 0 Column 0) sollen Sitzplätze sein. Wenn ich dann auf eine Zelle klicke, dann soll diese ihre Farbe ändern (z.B. in rot, als "belegt"). Wenn ich wieder drauf klicke, dann soll der Platz blau sein (als "frei"). Wenn ich auf speichern klicke, dann sollen sich die rot markierten zellen zu grün ändern (für "reserviert").

Mein eigentliches Problem ist nun das klicken auf die Zellen. Da es ja eigtl. ein Textfeld ist hab ich mir gedacht, dass ich irgendwie (anstatt Textfelder) Buttons in die einzelnen Zellen einfüge, jedoch weiß ich nicht wie das geht.

Falls der Aufbau auch ohne Datagrid bzw. Grid allgemein gehen würde, dann sagt pls wie das geht^^

Es sollte sich halt von selbst irgendwie so aufbauen:

Die Anzahl an Reihen und Sitzplätze in der Reihe wurden in einer Datenbank definiert. Der Aufbau sollte somit in einer for each schleife (oder for i <= reihe bzw. for j <= sitzplatz) ablaufen

Code

For each el in Reihe
For each el in Sitzplatz
Erstelle Button(reihe)(sitzplatz)
Next
Next

florian0 · 29. Juni 2012

Immer diese VB-Leute ...

Dein Ansatz ist schonmal nicht schlecht. Das Datagrid hat zwar ein Event das sich CellClick nennt, aber das reagiert irgentwie auf alles und ich bin mir nicht sicher ob man beim Datagrid die Zellen farbig machen kann ...

Du kannst zur Laufzeit Controls auf die Form hinzufügen.
Im Namen speicherst du was, was deinen Button eindeutig identifiziert, damit du ihn später auch wieder erkennst.

Code

Dim bt As Button
bt = new Button()
bt.Name = "button1"
bt.Text ="buttonText"
'EventHandler für das Klick-Event
bt.Click += new System.EventHandler(bt_Click);
'This ist in dem Fall deine Form
this.Controls.Add(bt)

Alles anzeigen

Im EventHandler selbst gibt es das sender-Objekt. Dieses ist immer das Objekt bzw. Control, welches dieses Event ausgelöst hat. In deinem Fall also ein Button.
Diesen kann man vom Typ Object in Typ Button "casten" und so auf die Attribute wie z.B. den Namen zugreifen.
(sorry ich kenne die genaue Syntax in VB nicht - könnte falsch sein ^^)

Code

Private Sub bt_Click(sender As Object, e As EventArgs)
Dim bt As Button = (Button)sender;
'bt.BackColor = Color.Blue
'MessageBox.Show(bt.Name)
End Sub

Alles anzeigen

Bleibt noch die Frage der Positionierung. Wenn die Anordnung deiner Buttons immer Rechteckig ist, dann kannst du dafür das FlowLayoutPanel verwenden. Da werden die Steuerelemente automatisch positioniert (immer der Reihe nach). Oder du berechnest die Position manuell.

Gruß
florian0

fff619 · 29. Juni 2012

Thx

verzweifle aber gerade an dem Me.Controls.Add(bt) bzw. MainWindow.Controls.Add(bt)

Wenn ich Me. oder MainWindow. eingebe gibt es kein Controls... google gerade auch die ganze zeit und in allen beispielen wird me.controls angegben, was jedoch bei mir nicht funktioniert bzw. es nicht gibt <.<

"control" ist kein Member von "WpfApplication1.MainWindow".

Edit: Wtf. Bei Form1.vb gibt es Me.Controls, bei MainWindow.xaml.vb gibt es kein Me.Controls... suckt <.<

Naja, jedenfalls klappt es, dass ich ein/mehrere Button(s) an eine best. Position erstellen kann^^

florian0 · 29. Juni 2012

Willst du unbedingt das WPF verwenden?
Bei WPF ist das ein wenig anders.

In der xaml-Datei ist ein Grid. Dem gibst du einen Namen z.B. so:

Code

<Grid Name="MainGrid">
</Grid>

Dann kannst du über:

Code

MainGrid.Children.Add(Buttonding)

Controls hinzufügen ...

(Ich mag WPF nicht xD)

Gruß
florian0

fff619 · 30. Juni 2012

~Read Edit~

Ja, lerne jetzt seit einem 3/4 Jahr VB und hab zu 90% mit XAML gearbeitet^^

Hab bis jetzt Form1.vb noch nie verwendet. Bin jetzt jedoch auf Form1.vb umgestiegen, da ich dort mein problem einfacher lösen kann^^

Jedenfalls klappt es, dass ich die Buttons in das Formular einfügen kann (Positioniert durch bt.Location = New Point(i,j))

Werde demnächst dann die Werte von i und j (i = Reihe, j = Platz) von der DB auslesen und dann den Raum nach den gelesenen Werten aufbauen. Das mit den Farben werde ich dann nach dem Aufbau des Raums machen.

Jedenfalls danke für deine Hilfe

Falls es wer braucht (derzeitger Code - Anmerkung: Reihe und Platz werden noch nicht richtig ausgegeben. Ausgegeben wird derz. die letzte Reihe bzw. der letzte Platz (siehe for each Schleife letzte Zahl)):

Code

Imports System
Public Class Form1
Dim arr As New ArrayList
Dim Reihe As New Integer
Dim Platz As New Integer
Private Sub NewButton(ByVal Reihe As Integer, ByVal Platz As Integer, ByVal ButtonNumber As Integer, ByVal Spalte As Long, ByVal Zeile As Long)
' Create a new button
Dim oButton As Button
oButton = New Button
' Set properties
oButton.Enabled = True
Spalte += Spalte
Zeile = Zeile
oButton.Location = New Point(Spalte, Zeile)
oButton.Name = ButtonNumber
oButton.Size = New Size(33, 33)
oButton.Text = Reihe.ToString + Platz.ToString
oButton.Visible = True
' Für Button Information
oButton.Tag = ButtonNumber
' Add button click handler
AddHandler oButton.Click, AddressOf onButtonClick
' Button in UI einfügen
arr.Add(oButton)
Me.Controls.Add(oButton)
End Sub
Private Sub MyFunc(ByVal Reihe As Integer, ByVal Platz As Integer, ByVal ButtonNumber As Integer)
' Bei Klick auf Button, what to do?
MessageBox.Show("Button Nr.: " & ButtonNumber.ToString & vbCrLf & "Reihe: " & Reihe.ToString & vbCrLf & " Platz: " & Platz.ToString, "Klick", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub onButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
' Handle button click überprüft, welcher Button geklickt wurde
Dim ButtonNumber As Integer
' Cast sender to Button
If CType(sender, Button).Tag IsNot Nothing Then
' Überprüfen, ob ButtonNumber Integer ist
If Integer.TryParse(CType(sender, Button).Tag.ToString, ButtonNumber) Then
' Erzeute Button
MyFunc(Reihe, Platz, ButtonNumber)
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim Zeile As Integer = 40
Dim Spalte As Integer = 40
Dim ButtonNumber As String
Dim Hoehe As Integer = 0
Dim Breite As Integer = 0
For Reihe = 1 To 10
For Platz = 1 To 14
arr.Add(Platz)
ButtonNumber = Reihe.ToString + Platz.ToString
NewButton(Reihe, Platz, ButtonNumber, Zeile, Spalte)
Zeile += 20
Next
Zeile = 40
Spalte += 40
Next
'Breite = 35 * Platz + 100
'Hoehe = Spalte + 50
'Me.Size = New Size(Breite, Hoehe)
End Sub
End Class

Alles anzeigen

Edit:

Ich hab jetzt ein WPF und die obige WF. Wie schaff ich es, dass ich die WF in mein WPF einbinde? Wenn ich in meinem WPF eine WF erstelle, dann erkennt er wieder die .Controls nicht bzw. oButton.Location usw. sondern nur die Sachen, die im zusammenhang mit XAML/WPF stehen.

Allgemein gesagt:

Mein Anwendungstyp: WPF-Anwendung
Ich möchte eine Windows Form in die WPF-Anwendung einbinden + die Windows Form soll .Controls usw. erkennen!

Edit2:

Hab jetzt herausgefunden, dass ich "Imports System.Windows.Forms" in die WF einfügen muss... Brauche nur noch den Import für Point und Size.

Edit3: Nevermind, klappt es jetzt alles

Musste beim WF oben folgendes einfügen:

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.IO

Rufe das Fenster dann in meiner XAML so auf:

Dim ResFenster As Reservierung
ResFenster.Show()

florian0 · 30. Juni 2012

fff619 schrieb:

Hab jetzt herausgefunden, dass ich "Imports System.Windows.Forms" in die WF einfügen muss... Brauche nur noch den Import für Point und Size.

System.Drawing

Es gibt in Visual Studio den Objectbrowser. Da kann man Klassen und deren "Import" finden.

Edit: To slow ..

Teilen