NEU
This commit is contained in:
238
UID/Homepage/frmHomepageWartung.vb
Normal file
238
UID/Homepage/frmHomepageWartung.vb
Normal file
@@ -0,0 +1,238 @@
|
||||
Public Class frmHomepageWartung
|
||||
Private DB As New cDBHomepage
|
||||
Dim blocks As New List(Of cBlock)
|
||||
Private margin_top As Integer = 20
|
||||
Private margin_left As Integer = 20
|
||||
Private top_value As Integer = 0
|
||||
Private left_value As Integer = 0
|
||||
Private rowmaxheight As Integer = 0
|
||||
Private screenwidth As Integer = 1200
|
||||
|
||||
Private Sub usrcntlHomepage_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
top_value = margin_top
|
||||
left_value = margin_left
|
||||
Dim nav As List(Of cNavigation) = DB.qry_menu_tags("de")
|
||||
|
||||
For Each n In nav
|
||||
Dim item As New ToolStripMenuItem(n.bezeichnung)
|
||||
item.Name = n.id
|
||||
|
||||
For Each n2 In n.subnavigation
|
||||
Dim i As New ToolStripMenuItem(n2.bezeichnung)
|
||||
i.Name = n2.id
|
||||
|
||||
For Each n3 In n2.subnavigation
|
||||
Dim ii As New ToolStripMenuItem(n3.bezeichnung)
|
||||
i.DropDownItems.Add(ii)
|
||||
ii.Name = n3.id
|
||||
AddHandler ii.Click, AddressOf itemclick
|
||||
Next
|
||||
AddHandler i.Click, AddressOf itemclick
|
||||
item.DropDownItems.Add(i)
|
||||
|
||||
'Eigenes bearbeiten
|
||||
|
||||
Dim edititem2 As New ToolStripMenuItem("--> """ & n2.bezeichnung & """ bearbeiten")
|
||||
i.DropDownItems.Add(edititem2)
|
||||
|
||||
edititem2.Name = n2.id
|
||||
AddHandler edititem2.Click, AddressOf itemclick
|
||||
menueHomepage.Items.Add(item)
|
||||
|
||||
|
||||
'hinzufügen
|
||||
Dim additem2 As New ToolStripMenuItem("--> +")
|
||||
i.DropDownItems.Add(additem2)
|
||||
additem2.Name = n2.id
|
||||
AddHandler additem2.Click, AddressOf itemclick
|
||||
menueHomepage.Items.Add(item)
|
||||
|
||||
|
||||
Next
|
||||
|
||||
'Eigenes bearbeiten
|
||||
|
||||
Dim edititem As New ToolStripMenuItem("--> """ & n.bezeichnung & """ bearbeiten")
|
||||
item.DropDownItems.Add(edititem)
|
||||
edititem.Name = n.id
|
||||
AddHandler edititem.Click, AddressOf itemclick
|
||||
menueHomepage.Items.Add(item)
|
||||
|
||||
|
||||
'hinzufügen
|
||||
Dim additem As New ToolStripMenuItem("--> +")
|
||||
item.DropDownItems.Add(additem)
|
||||
additem.Name = n.id
|
||||
AddHandler additem.Click, AddressOf itemclick
|
||||
menueHomepage.Items.Add(item)
|
||||
|
||||
|
||||
Next
|
||||
|
||||
|
||||
menueHomepage.Items.Add("--> +")
|
||||
|
||||
|
||||
' initBlocks()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initBlocks(Optional block_id As Integer = 1)
|
||||
pnlHP.Controls.Clear()
|
||||
' blocks = DB.qry_content(block_id)
|
||||
top_value = margin_top : left_value = margin_left
|
||||
For Each block In blocks
|
||||
For Each bf In block.blockfields
|
||||
addPanel(bf)
|
||||
'top_value += 100
|
||||
' left_value += 100
|
||||
Next
|
||||
Next
|
||||
End Sub
|
||||
Private Sub itemclick(sender As Object, e As EventArgs)
|
||||
'If Not DirectCast(sender, ToolStripMenuItem).HasDropDownItems Then
|
||||
' MsgBox(sender.name)
|
||||
initBlocks(sender.name)
|
||||
'End If
|
||||
End Sub
|
||||
Private Sub itemdoubleclick(sender As Object, e As EventArgs)
|
||||
'MsgBox(sender.name)
|
||||
End Sub
|
||||
Private Sub addBlockfield(top As Integer, left As Integer)
|
||||
|
||||
|
||||
Dim b As New Button
|
||||
b.Name = "b" & top
|
||||
b.Text = "Tewst"
|
||||
' Dim l As New Label
|
||||
' Dim t As New TextBox
|
||||
'p.Controls.Add(l)
|
||||
|
||||
b.Top = top
|
||||
b.Left = left
|
||||
'p.Controls.Add(t)
|
||||
pnlHP.Controls.Add(b)
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub addPanel(bf As cBlockField)
|
||||
' prüfen, ob zeilenumbruch:
|
||||
If left_value + (screenwidth * bf.bart_breiteProz / 100) > screenwidth Then
|
||||
left_value = margin_left
|
||||
top_value += rowmaxheight + 20
|
||||
rowmaxheight = 0
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
Dim p As New FlowLayoutPanel
|
||||
p.BackColor = Color.Coral
|
||||
p.Height = 0 : p.Width = (screenwidth * (bf.bart_breiteProz / 100)) - 5
|
||||
p.Top = top_value
|
||||
p.Left = left_value
|
||||
'MsgBox(top_value & " - " & left_value)
|
||||
'p.Controls.Add(t)
|
||||
|
||||
|
||||
pnlHP.Controls.Add(p)
|
||||
|
||||
For Each bfac In bf.blockfieldargumentcontents
|
||||
p.Height += 200
|
||||
Dim t As New TextBox
|
||||
t.Text = bfac.bfac_de
|
||||
t.Multiline = True
|
||||
t.Height = 150 : t.Width = (screenwidth * (bf.bart_breiteProz / 100)) - 5
|
||||
' MsgBox("width: " & (screenwidth * bf.bart_breiteProz / 100) - 5)
|
||||
p.Controls.Add(t)
|
||||
|
||||
Dim b_save As New Button
|
||||
b_save.Text = "Speichern"
|
||||
b_save.Name = "saveHp_" & bfac.bfac_ID
|
||||
b_save.Top = top_value + p.Height
|
||||
p.Controls.Add(b_save)
|
||||
AddHandler b_save.Click, AddressOf saveClick
|
||||
|
||||
Dim b_add As New Button
|
||||
b_add.Text = "Hinzufügen"
|
||||
b_add.Name = "addHp_" & bfac.bfac_ID
|
||||
b_add.Top = top_value + p.Height
|
||||
p.Controls.Add(b_add)
|
||||
AddHandler b_add.Click, AddressOf addClick
|
||||
|
||||
Dim b_del As New Button
|
||||
b_del.Text = "Löschen"
|
||||
b_del.Name = "delHp_" & bfac.bfac_ID
|
||||
b_del.Top = top_value + p.Height
|
||||
p.Controls.Add(b_del)
|
||||
AddHandler b_del.Click, AddressOf addClick
|
||||
Next
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
left_value += (screenwidth * (bf.bart_breiteProz / 100)) - 5
|
||||
|
||||
|
||||
|
||||
If rowmaxheight < p.Height Then rowmaxheight = p.Height
|
||||
End Sub
|
||||
|
||||
Private Sub saveClick(sender As Object, e As EventArgs)
|
||||
If sender.name.ToString.Contains("saveHp_") Then
|
||||
Dim id As Integer = CInt(sender.name.ToString.Replace("saveHp_", ""))
|
||||
MsgBox("SAVE: " & id)
|
||||
' DB.qry_content()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub addClick(sender As Object, e As EventArgs)
|
||||
If sender.name.ToString.Contains("addHp_") Then
|
||||
Dim id As Integer = CInt(sender.name.ToString.Replace("addHp_", ""))
|
||||
MsgBox("ADD: " & id)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub delClick(sender As Object, e As EventArgs)
|
||||
If sender.name.ToString.Contains("delHp_") Then
|
||||
Dim id As Integer = CInt(sender.name.ToString.Replace("delHp_", ""))
|
||||
MsgBox("DEL: " & id)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub addBlockfield2(top As Integer, left As Integer)
|
||||
Dim p As New Panel
|
||||
Dim b As New Button
|
||||
b.Text = "Tewst2"
|
||||
' Dim l As New Label
|
||||
' Dim t As New TextBox
|
||||
'p.Controls.Add(l)
|
||||
'p.Controls.Add(t)
|
||||
p.Controls.Add(b)
|
||||
pnlHP.Controls.Add(p)
|
||||
p.Top = top
|
||||
p.Left = left
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub pnlHP_Paint(sender As Object, e As PaintEventArgs)
|
||||
|
||||
'addBlockfield()
|
||||
End Sub
|
||||
|
||||
Private Sub usrcntlHomepage_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user