KANBAN

  • VB.NET

Es gibt 29 Antworten in diesem Thema. Der letzte Beitrag () ist von menorca.

    KANBAN

    Hallo VB 2010 Experten,
    ich arbeite mit Express und kann keine Reports erstellen
    habe mittels Code Anhang 4 Karten auf Form gezeichnet.

    nun sollen Daten aus DB in die Karten geschrieben werden
    aus Lagerplatz Schrank Fach Nr die Artikel eingetragen werden und dann gedruckt werden
    pro Artikel eine Vorderseite / Rückseite das DINA4 enthält also 2 Karten. Bei 10 Karten sind es 5 Seiten in der Vorschau die gdruckt werden müssen, oder 1 Artikel dann 1 Seite

    wie fange ich das an?

    Spoiler anzeigen

    Brainfuck-Quellcode

    1. Public Class KANBAN
    2. '--------------------------
    3. 'erstes Rechteck Zeichnen
    4. '--------------------------
    5. Private Sub RechteckeinsZeichnen(ByRef graphicsObjekt As Graphics)
    7. '//Vorderseite Karte 1
    8. Dim strMindestbestand1 As String = "Mindestbestand"
    9. Dim strMaxbestand1 As String = "Maxbestand"
    10. Dim strBestellmenge1 As String = "Bestellmenge"
    11. Dim strPreis1 As String = "Preis ca:"
    12. Dim strBezeichnung1 As String = "Bezeichnung"
    13. Dim strArtikel1 As String = "Artikelnummer"
    14. Dim strEmpaenger1 As String = "Empfänger:"
    15. Dim strLieferant1 As String = "Lieferant:"
    16. Dim strSchrank1 As String = "Schrank"
    17. Dim strFach1 As String = "Fach"
    18. 'Linie Zeichnen
    19. Dim pen As New Pen(Brushes.Black)
    20. 'Karte 1 generieren
    21. graphicsObjekt.DrawRectangle(Pens.Black, New Rectangle(75, 75, 300, 385))
    22. '//Label einbinden
    23. graphicsObjekt.DrawString(strMindestbestand1, New Font("Arial", 10), Brushes.Blue, 270, 155)
    24. graphicsObjekt.DrawString(strMaxbestand1, New Font("Arial", 10), Brushes.Blue, 270, 205)
    25. graphicsObjekt.DrawString(strBestellmenge1, New Font("Arial", 10), Brushes.Blue, 270, 255)
    26. graphicsObjekt.DrawString(strPreis1, New Font("Arial", 10), Brushes.Blue, 270, 305)
    27. 'Label Bezeichnung
    28. graphicsObjekt.DrawString(strBezeichnung1, New Font("Arial", 10), Brushes.Blue, 83, 155)
    29. 'Label Artikelnummer
    30. graphicsObjekt.DrawString(strArtikel1, New Font("Arial", 10), Brushes.Blue, 83, 255)
    31. 'Label Empfaenger
    32. graphicsObjekt.DrawString(strEmpaenger1, New Font("Arial", 10), Brushes.Blue, 83, 375)
    33. 'Label Lieferant
    34. graphicsObjekt.DrawString(strLieferant1, New Font("Arial", 10), Brushes.Blue, 83, 405)
    35. 'Label Schrank
    36. graphicsObjekt.DrawString(strSchrank1, New Font("Arial", 10), Brushes.Blue, 270, 375)
    37. 'Label Fach
    38. graphicsObjekt.DrawString(strFach1, New Font("Arial", 10), Brushes.Blue, 325, 375)
    39. 'Linie Zeichnen
    40. graphicsObjekt.DrawLine(pen, 268, 140, 268, 370)
    41. graphicsObjekt.DrawLine(pen, 75, 140, 375, 140)
    42. graphicsObjekt.DrawLine(pen, 75, 370, 375, 370)
    43. graphicsObjekt.DrawLine(pen, 75, 425, 375, 425)
    45. End Sub
    47. '--------------------------
    48. 'zweites Rechteck Zeichnen
    49. '--------------------------
    50. Private Sub RechteckzweiZeichnen(ByRef graphicsObjekt As Graphics)
    51. '//Vorderseite Karte 2
    52. Dim strMindestbestand2 As String = "Mindestbestand"
    53. Dim strMaxbestand2 As String = "Maxbestand"
    54. Dim strBestellmenge2 As String = "Bestellmenge"
    55. Dim strPreis2 As String = "Preis ca:"
    56. Dim strBezeichnung2 As String = "Bezeichnung"
    57. Dim strArtikel2 As String = "Artikelnummer"
    58. Dim strEmpaenger2 As String = "Empfänger:"
    59. Dim strLieferant2 As String = "Lieferant:"
    60. Dim strSchrank2 As String = "Schrank"
    61. Dim strFach2 As String = "Fach"
    62. 'Linie Zeichnen
    63. Dim pen As New Pen(Brushes.Black)
    64. 'Karte 2 generieren
    65. graphicsObjekt.DrawRectangle(Pens.Black, New Rectangle(406, 75, 300, 385))
    66. '//Label einbinden
    67. graphicsObjekt.DrawString(strMindestbestand2, New Font("Arial", 10), Brushes.Blue, 270, 570)
    68. graphicsObjekt.DrawString(strMaxbestand2, New Font("Arial", 10), Brushes.Blue, 270, 620)
    69. graphicsObjekt.DrawString(strBestellmenge2, New Font("Arial", 10), Brushes.Blue, 270, 675)
    70. graphicsObjekt.DrawString(strPreis2, New Font("Arial", 10), Brushes.Blue, 270, 725)
    71. 'Label Bezeichnung
    72. graphicsObjekt.DrawString(strBezeichnung2, New Font("Arial", 10), Brushes.Blue, 83, 570)
    73. 'Label Artikelnummer
    74. graphicsObjekt.DrawString(strArtikel2, New Font("Arial", 10), Brushes.Blue, 83, 675)
    75. 'Label Empfaenger
    76. graphicsObjekt.DrawString(strEmpaenger2, New Font("Arial", 10), Brushes.Blue, 83, 795)
    77. 'Label Lieferant
    78. graphicsObjekt.DrawString(strLieferant2, New Font("Arial", 10), Brushes.Blue, 83, 825)
    79. 'Label Schrank
    80. graphicsObjekt.DrawString(strSchrank2, New Font("Arial", 10), Brushes.Blue, 270, 795)
    81. 'Label Fach
    82. graphicsObjekt.DrawString(strFach2, New Font("Arial", 10), Brushes.Blue, 325, 795)
    83. 'Linie Zeichnen
    84. graphicsObjekt.DrawLine(pen, 268, 560, 268, 790) 'Senkrechte
    85. graphicsObjekt.DrawLine(pen, 75, 560, 375, 560) 'waagerechte
    86. graphicsObjekt.DrawLine(pen, 75, 790, 375, 790) 'waagerechte
    87. graphicsObjekt.DrawLine(pen, 75, 845, 375, 845) 'waagerechte
    88. End Sub
    90. Private Sub RechteckdreiZeichnen(ByRef graphicsObjekt As Graphics)
    91. 'Linie Zeichnen
    92. Dim pen As New Pen(Brushes.Black)
    93. 'Karte 3 Rückseite generieren
    94. graphicsObjekt.DrawRectangle(Pens.Black, New Rectangle(75, 493, 300, 385))
    96. End Sub
    98. Private Sub RechteckvierZeichnen(ByRef graphicsObjekt As Graphics)
    99. 'Linie Zeichnen
    100. Dim pen As New Pen(Brushes.Black)
    101. 'Karte 4 Rückseite generieren
    102. graphicsObjekt.DrawRectangle(Pens.Black, New Rectangle(406, 493, 300, 385))
    103. End Sub
    105. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    106. Dim dialogAntwort As DialogResult = PrintDialog1.ShowDialog() 'Dialog zum konfigurieren des Druckers
    107. If Not (dialogAntwort = DialogResult.OK) Then 'wenn Dialog abgebrochen wurde, Methode verlassen
    108. Return
    109. End If
    110. PrintDocument1.Print() 'drucken
    111. End Sub
    113. Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    114. RechteckeinsZeichnen(e.Graphics)
    115. RechteckzweiZeichnen(e.Graphics)
    116. RechteckdreiZeichnen(e.Graphics)
    117. RechteckvierZeichnen(e.Graphics)
    118. '//Label hinzufügen
    119. Dim strVorderseite As String = "KANBAN (Vorderseite)"
    120. Dim strRueckseite As String = "KANBAN (Rückseite)"
    121. ' Position auf der Seite bestimmen.
    122. ' In diesem Fall lesen wir dazu die Randeinstellungen
    123. ' (selbst wenn es nichts gibt, was Ihren Code davon abhalten könnte,
    124. ' die Seitengrenzen zu "übertreten".)
    126. 'Label1
    127. Dim x1 As Single = 81
    128. Dim y1 As Single = 9
    129. 'Label2
    130. Dim x2 As Single = 424
    131. Dim y2 As Single = 9
    132. 'Label3
    133. Dim x3 As Single = 293
    134. Dim y3 As Single = 199
    135. ' Label zeichnen,
    136. ' und dabei die Koordinaten verwenden, die zuvor bestimmt wurden.
    137. e.Graphics.DrawString(strVorderseite, New Font("Arial", 18), Brushes.Blue, x1, y1)
    138. e.Graphics.DrawString(strRueckseite, New Font("Arial", 18), Brushes.Blue, x2, y2)
    140. End Sub
    142. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    143. RechteckeinsZeichnen(e.Graphics)
    144. RechteckzweiZeichnen(e.Graphics)
    145. RechteckdreiZeichnen(e.Graphics)
    146. RechteckvierZeichnen(e.Graphics)
    148. '//Label hinzufügen
    149. Dim strVorderseite As String = "KANBAN (Vorderseite)"
    150. Dim strRueckseite As String = "KANBAN (Rückseite)"
    151. ' Position auf der Seite bestimmen.
    152. ' In diesem Fall lesen wir dazu die Randeinstellungen
    153. ' (selbst wenn es nichts gibt, was Ihren Code davon abhalten könnte,
    154. ' die Seitengrenzen zu "übertreten".)
    156. 'Label1
    157. Dim x1 As Single = 81
    158. Dim y1 As Single = 9
    159. 'Label2
    160. Dim x2 As Single = 424
    161. Dim y2 As Single = 9
    162. 'Label3
    163. Dim x3 As Single = 293
    164. Dim y3 As Single = 199
    165. ' Label zeichnen,
    166. ' und dabei die Koordinaten verwenden, die zuvor bestimmt wurden.
    167. e.Graphics.DrawString(strVorderseite, New Font("Arial", 18), Brushes.Blue, x1, y1)
    168. e.Graphics.DrawString(strRueckseite, New Font("Arial", 18), Brushes.Blue, x2, y2)
    169. 'e.Graphics.DrawImage(Image.FromFile(Application.StartupPath & "\test.gif"), 81, 81)
    170. End Sub
    172. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDruckVorschau.Click, Button2.Click
    173. PrintPreviewDialog1.ShowDialog()
    174. End Sub
    176. Private Sub PrintPreviewDialog1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintPreviewDialog1.Load
    177. PrintPreviewDialog1.Document = PrintDocument1
    178. End Sub
    180. Private Sub KANBAN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    181. With Me
    182. .CenterToScreen()
    183. .Text = "KANBAN Ersatzteillager"
    184. End With
    186. End Sub
    188. End Class
    Bilder

    • Rechtecke.GIF

      287,12 kB, 1.136×930, 454 mal angesehen

    wenn du mit typisiertem Dataset arbeitest, kannst du die Datensätze selbst erweitern und mit Zeichen-Funktionalität ausstatten.

    gugge vlt Outlined und ziehbare Schrift

    Dabei ists egal, ob sich der Datensatz auf ein Control zeichnet, oder auf die Druck-Vorschau (was ja auch ein Control ist): Du rufst KanbanDatensatz.Paint(gr as Graphics) auf, udn das Teil malt sich.

    Sorry,

    kann dir nicht ganz folgen, das Beispiel (Oliver Kan) ist mit meinem nicht vergleichbar

    Du rufst KanbanDatensatz.Paint(gr as Graphics) auf

    ich werde da noch nicht schlau raus, ein Beispiel wie es für meinen Fall aussieht ist dir nicht möglich?

    2-3 beispielfelder

    dassis total gut vergleichbar: Es sind Datensätze, die sich selbst zeichnen können. Wie sie sich zeichnen ist völlig schnurz, und der Oliver ist nur ein Hintergrundbild, um die bessere Lesbarkeit outlineter Schrift vor unruhigem Hintergrund zu veranschaulichen.

    Du brauchst in deim typ Dataset genau dieselbe Struktur an Methoden, und nur in der Paint-Methode musstehalt was anneres reinschreiben.

    Für deinen Fall kannichdir kein Beispiel geben, denn ich habe deine Datenbank nicht.

    Hallo ErfinderdesRads,

    Für deinen Fall kannichdir kein Beispiel geben, denn ich habe deine Datenbank nicht.
    ich habe einige Tesdaten mit in der Anwendung angehängt, damit wir ein Beispiel generieren können
    LagerPlaID hat 3 Artikel = 3 Karten (oder Artikel110 = 1 Karte), auf der Rückseite ein Barcode wie bekomme ich es hin dort den Artikel als Barcode darzustellen, und wenn ein Bild vorhanden das Bild aus der DB auf die Rückseite zum Artikel. Wäre Super wenn du mir da hilfst

    In Access VBA habe ich die KANBAN immer so aktualisiert:
    Spoiler anzeigen

    Quellcode

    1. Private Sub btnKANBAN_Aktualisiert_Click()
    2. On Error GoTo Err_btnKANBAN_Aktualisiert_Click
    4. Dim stDocName As String
    5. DoCmd.SetWarnings False
    7. stDocName = "qry_ADaten"
    8. DoCmd.OpenQuery stDocName, acNormal, acEdit
    10. rec_Update
    12. DoCmd.SetWarnings True
    14. Exit_btnKANBAN_Aktualisiert_Click:
    15. Exit Sub
    17. Err_btnKANBAN_Aktualisiert_Click:
    18. MsgBox Err.Description
    19. Resume Exit_btnKANBAN_Aktualisiert_Click
    21. End Sub
    23. Private Sub rec_Update()
    24. Dim db As Database, rs As Recordset, X As Long
    25. Set db = CurrentDb
    27. Set rs = db.OpenRecordset("Select * From tmp_kanban WHERE LaBesID mod 2 = 0 ORDER BY SORT", dbOpenDynaset) 'gerade Zahlen
    28. X = 0
    29. Do Until rs.EOF
    30. rs.Edit
    31. rs!SORT = X
    32. rs.Update
    33. rs.MoveNext
    34. X = X + 2
    35. Loop
    39. Set rs = db.OpenRecordset("Select * From tmp_kanban WHERE LaBesID mod 2 = 1 ORDER BY SORT", dbOpenDynaset) 'ungerade Zahlen
    40. X = 1
    41. Do Until rs.EOF
    42. rs.Edit
    43. rs!SORT = X
    44. rs.Update
    45. rs.MoveNext
    46. X = X + 2
    47. Loop
    51. MsgBox "Daten aktualisiert!", vbInformation, "KANBAN"
    53. rs.Close
    54. Set rs = Nothing
    55. Set db = Nothing
    57. End Sub


    ComboBox hinzugefügt:
    Spoiler anzeigen

    Quellcode

    1. #Region "Lagerplatz Auswählen"
    2. Public Sub md_Filllagerplatz()
    3. Dim DBPFpad As String = Application.StartupPath
    5. Try
    6. Dim ConnectionString As String = ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
    7. "Data Source=" & DBPFpad & "\TestDaten.mdb")
    9. Dim SelectString As String = "SELECT LaPlaID AS ID, LO AS Lager, LP AS Ort " & _
    10. "FROM KANBANDATEN " & _
    11. "UNION Select 0,0,'<< Bitte Auswaehlen >>'" & _
    12. "FROM KANBANDATEN"
    14. Dim da As New OleDb.OleDbDataAdapter(SelectString, ConnectionString)
    16. da.SelectCommand.Parameters.AddWithValue("ID,Ort", Me.CBLagerplatz.Text)
    18. Dim Data As New DataSet
    20. da.Fill(Data, "tmpLagerplatz")
    22. CBLagerplatz.DataSource = Data.Tables.Item("tmpLagerplatz")
    24. CBLagerplatz.ValueMember = "ID"
    25. CBLagerplatz.DisplayMember = "Ort"
    28. Catch ex As Exception
    29. MessageBox.Show(ex.Message, "Beim Öffnen der Datenbank ist ein Fehler" & _
    30. "aufgetreten.")
    31. End Try
    32. End Sub
    34. #End Region
    Dateien

    • KAN_BAN.zip

      (238,95 kB, 192 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „menorca“ () aus folgendem Grund: ComboBox 'CBLagerplatz' hinzugefügt (Auswahl Lagerplatz)

    mir scheint, du solltest erstmal Datenmodellierung erlernen, dann ein Datenmodell erstellen, und dann erst Überlegungen anstellen, wie die Geschichte zeichnen.

    Deine TestDaten enthalten nur eine Tabelle, aber mehrere ID-Spalten (die auf nichts verweisen), und v.a. keinen Primärschlüssel.

    bei Gelegenheit bastel ich mal einen Ansatz nach dem Strickmuster von Outlined und ziehbare Schrift - aber jetzt nicht soo viel Zeit.


    Aber nochmal zur Datenbänkerei: Guck dir mal an, wie man mit Ado.Net Datenbank-Anwendungen aufzieht: "Datenbank in 10 Minuten" auf Movie-Tuts

    Und dann lass am besten die Finger davon, sondern entwickel erstmal DatasetOnly - gugge DB-Programmierung ohne Datenbank, "DatasetOnly" auf Movie-Tuts

    neuer Vorschlag: Du entwickelst dein Projekt so weit, dass du eine typisierte DataTable im DatagridView anzeigen kannst. Das Projekt hängste an, und ich bau dann den Button dran, um einen Datensatz davon auf ein Preview-Control zu zeichnen.

    Ich werd die Zeichnerei aber nur schlampig ausführen, Feinarbeiten kannste dann wieder selber machen.


    NOchmal empfehlung: machs DatasetOnly, damit kommste schneller voran.

    Hallo
    neuer Vorschlag: Du entwickelst dein Projekt so weit, dass du eine typisierte DataTable im DatagridView anzeigen kannst

    werde deinen Vorschlag annehmen. Doch habe ich eine Struktur wollte nicht alles hier hochladen
    Bilder

    • Erstellungsabfrage.GIF

      158,07 kB, 1.072×546, 291 mal angesehen

    ErfinderDesRades schrieb:

    äh - wo ist das typisierte Dataset?

    wo ist die DB??

    Quellcode

    1. Dim DBPFpad As String = Application.StartupPath


    Spoiler anzeigen

    Brainfuck-Quellcode

    1. Imports System
    2. Imports System.Data
    3. Imports System.Data.OleDb
    5. Public Class Form2
    6. Dim constr As New OleDbConnection
    7. Dim da As OleDbDataAdapter
    8. Dim dS As New DataSet
    9. Dim dBind As New BindingSource
    10. '-----
    11. Dim DBPFpad As String = Application.StartupPath
    13. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    14. Call fill_DGV()
    15. End Sub
    17. Public Sub fill_DGV()
    19. Try
    21. Dim ConnString As String = ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
    22. "Data Source=" & DBPFpad & "\TestDaten.mdb")
    24. Dim myConnection As OleDbConnection = New OleDbConnection
    25. myConnection.ConnectionString = ConnString
    26. myConnection.Open()
    28. '---------------------------------
    29. '//Tab Lagerbestand
    30. '---------------------------------
    31. Dim da As OleDbDataAdapter = New OleDbDataAdapter("SELECT tmp_kanban.* FROM tmp_kanban", _
    32. ConnString)
    34. dS = New DataSet
    35. da.Fill(dS, "tempKanban")
    36. dBind.DataSource = dS
    37. DataGridView1.DataSource = dS
    38. dBind.DataMember = dS.Tables(0).ToString()
    39. DataGridView1.DataSource = dBind
    41. Catch ex As Exception
    42. MsgBox("Es ist ein Fehler aufgetreten: " & ex.Message)
    43. End Try
    45. End Sub
    46. End Class


    also falsch?

    ich kann nix von dem in post 6 empfohlenen Lerninhalten wiederfinden (die letzten 3 Links im Post).
    Nicht der kleinste Hinweis, dass du die Links auch nur angeguckt hättest, geschweige denn die Tuts durchgearbeitet.
    Du wiederholst nur deine Vorgehensweise aus post#5

    Also ohne typisiertes Dataset kannichnix machen.

    sorry, jetzt versteh ich garnichs mehr, was ist denn so falsch dran
    (ungefähr alles)

    du wolltest ein Projekt und ein DatagridView ich lade die Daten doch über ein Dataset
    da hast du post#8 ungenau gelesen
    neuer Vorschlag: Du entwickelst dein Projekt so weit, dass du eine typisierte DataTable im DatagridView anzeigen kannst.



    menorca schrieb:

    das typisierte Dataset ist doch nur die Schritt für Schritt Anleitung MS :(
    Wat?

    ein typisiertes Dataset ist eine Klasse, die der Dataset-Designer für dich gecodet hat.

    hast du mal eines der Tuts aus post#6 durchgearbeitet, oder auch nur die Sample-Solutions mal angeguckt?
    Insbesondere dir mal einen Doppelklick aufs darin enthaltene DingsbumsDataset.Xsd erlaubt?

    Wenn ja, welches?

    jo - damit kannman nu was treiben :thumbsup:

    Und gleich mal ein Tipp:
    In der DB brauchst du sone temporäre Tabelle garnet - die kannstedir im typDataset anlegen und befüllen, und wenns prog geschlossen wird, isses weg - temporär eben.

    Oh - grad sehe ich deinen Eingangspost:
    ich arbeite mit Express und kann keine Reports erstellen
    Bist du dir sicher, dass du wg Express keine Reports erstellen kannst, oder liegt es einfach daran, dass du kein typDataset hattest?

    (ich weisses nicht - ich hab kein Express)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ ()

    uff - da war doch bisserl tiefer in die Trickkiste zu greifeln

    Er zeichnet bislang auch nur eine Karte, und die Positionierung läßt noch zu wünschen übrig, weil die Texte alle nach oben links ausgerichtet sind.
    Und Word-Wrap ist auch noch nicht drinne, aber du kannst dich ja mal mit der verqueren Positionierungs-Logik vertraut machen.

    Ich habe nämlich ein HTabs / VTabs - Konzept erfunden:

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Drawing.Drawing2D
    5. Partial Class TestDatenDataSet
    7. Partial Class tmp_kanbanRow
    9. Private Shared _Mtr As New Matrix, _Gp As New GraphicsPath, _NormSize As New SizeF(1000, 1400)
    10. Private Shared _Htabs0 As Single() = New Single() {1.5, 1.5, 1.1, 0.9}, _HSum As Single = _Htabs0.Sum
    11. Private Shared _Vtabs0 As Single() = New Single() {2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1.5}, _VSum As Single = _Vtabs0.Sum
    12. Private Shared _Htabs As Single() = ConvertTabs(_Htabs0, _NormSize.Width / _Htabs0.Sum)
    13. Private Shared _Vtabs As Single() = ConvertTabs(_Vtabs0, _NormSize.Height / _Vtabs0.Sum)
    14. Private Shared _TextSizes As Integer() = (New Integer() {50, 40}).Cyclic(True)
    16. Private Shared Function GetPoint(ByVal htab As Integer, ByVal vtab As Integer) As PointF
    17. If htab < 0 Then htab += _Htabs.Length
    18. If vtab < 0 Then vtab += _Vtabs.Length
    19. Return New PointF(_Htabs(htab), _Vtabs(vtab))
    20. End Function
    22. Private Shared Function ConvertTabs(ByVal tabs As Single(), ByVal scale As Single) As Single()
    23. Dim retVal(tabs.Length) As Single
    24. Dim pos = 0.0F
    25. For i = 0 To tabs.Length - 1
    26. pos += tabs(i) * scale
    27. retVal(i + 1) = pos
    28. Next
    29. Return retVal
    30. End Function
    32. Private Sub line(ByVal x0 As Integer, ByVal y0 As Integer, ByVal x1 As Integer, ByVal y1 As Integer)
    33. With _Gp
    34. .StartFigure()
    35. .AddLine(GetPoint(x0, y0), GetPoint(x1, y1))
    36. End With
    37. End Sub
    39. Private Sub Text(ByVal txt As Object, ByVal htab As Integer, ByVal vtab As Integer)
    40. _Gp.AddString(txt.ToString, FontFamily.GenericSansSerif, 0, _TextSizes.Current, GetPoint(htab, vtab), StringFormat.GenericDefault)
    41. End Sub
    43. Public Sub Draw(ByVal g As Graphics, ByVal rct As RectangleF)
    44. g.SmoothingMode = SmoothingMode.HighQuality
    45. _Mtr.Scale((rct.Width - 1) / _NormSize.Width, (rct.Height - 1) / _NormSize.Height, MatrixOrder.Append)
    46. With _Gp
    47. 'horizontale linien
    48. line(0, 0, -1, 0)
    49. line(0, 1, -1, 1)
    50. line(0, -1, -1, -1)
    51. line(0, -2, -1, -2)
    52. line(0, -4, -1, -4)
    54. 'vertikale linien
    55. line(0, 0, 0, -1)
    56. line(2, 1, 2, -4)
    57. line(-1, 0, -1, -1)
    58. .Transform(_Mtr)
    59. g.DrawPath(Pens.Red, .Self)
    60. .Reset()
    62. 'Beschriftungen
    63. Text("Bezeichnung", 0, 1)
    64. Text("Mindestbestand", 2, 1)
    65. Text("Maxbestand", 2, 3)
    66. Text("Artikelnummer", 0, 5)
    67. Text("Bestellmenge", 2, 5)
    68. Text("Preis ca:", 2, 7)
    69. Text("Empfänger:", 0, -4)
    70. Text("Schrank", 2, -4)
    71. Text("Fach", 3, -4)
    72. Text("Lieferant", 0, -3)
    73. _TextSizes.Yield()
    74. .Transform(_Mtr)
    75. g.FillPath(Brushes.Blue, .Self)
    76. .Reset()
    78. 'Daten
    79. Text(ArtBezeichnung, 0, 2)
    80. Text(Me.MIN, 2, 2)
    81. Text(MAX, 2, 4)
    82. Text(ArtNummer, 0, 6)
    83. Text(Menge, 2, 6)
    84. Text("Woher nehmen?", 2, 8)
    85. Text("Woher nehmen?", 1, -4)
    86. Text(S, 2, -3)
    87. Text(F, 3, -3)
    88. Text("Woher nehmen?", 1, -3)
    89. _TextSizes.Yield()
    90. .Transform(_Mtr)
    91. g.FillPath(Brushes.Black, .Self)
    92. .Reset()
    94. End With
    95. _Mtr.Reset()
    96. End Sub
    97. End Class
    99. End Class
    in den Zeilen #10 und #11 legst du die relativen Spaltenbreiten/zeilenhöhen fest. Das wird nicht in fixen Werten festgelegt, sondern die Zahlen sind Verhältnis-Werte: vergrößerst du eine Spalte, so verkleinern sich alle anderen im Verhältnis dazu. Damit kannst du die Positionierung eiglich recht komfortabel konfigurieren - die Zahlen akzeptieren auch Komma-Werte.
    Du kannst auch V/H-Tabs zufügen - nur dann musst du auch die Ausgabe anpassen.
    Jedenfalls erhält man durch die V/H-Tabs eine Art Gitter, kann man sich vorstellen, und die obenLinks - Ecke jeder Zelle ist über einen htab/vtab indizierbar. Also codezeile#67 schreibt zB "BestellMenge" in die Zelle {2/5}

    Mit den Daten blicke ich nicht ganz durch, bei "Preis ca.", "Empfänger" und "Lieferant" habich kein Plan, welchen Wert aus der tmp_kanbanRow da einzutragen sein soll.
    Dateien

    • KanBan02.zip

      (192,9 kB, 160 mal heruntergeladen, zuletzt: )

    Fragen beantworten

    Guten Morgen,

    na Hut ab, das hätte ich soweit nie hinbekommen, bist halt der Profi
    die verqueren Positionierungs-Logik verstehen tu ich mich auch noch sehr schwer
    da haste wirklich in die Trickkiste gegriffen, SUPER

    Beispweise: die Auswahl im Datagrid kann ich im Einzelschritt nicht nachvollziehen
    und sicher werde ich die Vorschau und alle Karten von Lagerplatz x drucken nicht hinbekommen
    und ob ich das in mein Projekt mit einbinden kann ?? da die Original DB auf einem LW:\ X liegt

    daher meine Frage wie bringen wir es nun ins gewünschte Ergebnis, ich werde natürlich versuchen
    verqueren Positionierungs-Logik irgendwie zu verstehen, aber wie man an alle Karten kommt also Vorderseite Rückseite wie Anfangs beschrieben :huh:

    Mit den Daten blicke ich nicht ganz durch, bei "Preis ca.", "Empfänger" und "Lieferant" habich kein Plan, welchen Wert
    den Preis setze ich auf k.a. (Keine Angabe), Lieferant bekommt auch den Eintrag n.B. (nicht benannt) da er sonst immer nachgepflegt werden muss wenn Artikel A von Lieferant X oder Y kommt müssen die Karten auch jedesmal Neu gedruckt werden, Empfänger: ist immer IH = Instandhaltung (Standardtext) die Lagerverwaltung ist im diesem Projekt die Instandhaltung

    Code geändert:

    Spoiler anzeigen

    Quellcode

    1. Imports System.Drawing
    2. Imports System.Drawing.Drawing2D
    5. Partial Class TestDatenDataSet
    7. Partial Class tmp_kanbanRow
    9. Private Shared _Mtr As New Matrix, _Gp As New GraphicsPath, _NormSize As New SizeF(1000, 1400)
    10. Private Shared _Htabs0 As Single() = New Single() {1.5, 1.5, 1.1, 0.9}, _HSum As Single = _Htabs0.Sum
    11. Private Shared _Vtabs0 As Single() = New Single() {2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1.5}, _VSum As Single = _Vtabs0.Sum
    12. Private Shared _Htabs As Single() = ConvertTabs(_Htabs0, _NormSize.Width / _Htabs0.Sum)
    13. Private Shared _Vtabs As Single() = ConvertTabs(_Vtabs0, _NormSize.Height / _Vtabs0.Sum)
    14. Private Shared _TextSizes As Integer() = (New Integer() {50, 40}).Cyclic(True)
    17. Private Shared Function GetPoint(ByVal htab As Integer, ByVal vtab As Integer) As PointF
    18. If htab < 0 Then htab += _Htabs.Length
    19. If vtab < 0 Then vtab += _Vtabs.Length
    20. Return New PointF(_Htabs(htab), _Vtabs(vtab))
    21. End Function
    23. Private Shared Function ConvertTabs(ByVal tabs As Single(), ByVal scale As Single) As Single()
    24. Dim retVal(tabs.Length) As Single
    25. Dim pos = 0.0F
    26. For i = 0 To tabs.Length - 1
    27. pos += tabs(i) * scale
    28. retVal(i + 1) = pos
    29. Next
    30. Return retVal
    31. End Function
    33. Private Sub line(ByVal x0 As Integer, ByVal y0 As Integer, ByVal x1 As Integer, ByVal y1 As Integer)
    34. With _Gp
    35. .StartFigure()
    36. .AddLine(GetPoint(x0, y0), GetPoint(x1, y1))
    37. End With
    38. End Sub
    40. Private Sub Text(ByVal txt As Object, ByVal htab As Integer, ByVal vtab As Integer)
    41. _Gp.AddString(txt.ToString, FontFamily.GenericSansSerif, 0, _TextSizes.Current, GetPoint(htab, vtab), StringFormat.GenericDefault)
    42. End Sub
    44. Public Sub Draw(ByVal g As Graphics, ByVal rct As RectangleF)
    45. g.SmoothingMode = SmoothingMode.HighQuality
    46. _Mtr.Scale((rct.Width - 1) / _NormSize.Width, (rct.Height - 1) / _NormSize.Height, MatrixOrder.Append)
    47. With _Gp
    48. 'horizontale linien
    49. line(0, 0, -1, 0)
    50. line(0, 1, -1, 1)
    51. line(0, -1, -1, -1)
    52. line(0, -2, -1, -2)
    53. line(0, -4, -1, -4)
    55. 'vertikale linien
    56. line(0, 0, 0, -1)
    57. line(2, 1, 2, -4)
    58. line(-1, 0, -1, -1)
    59. .Transform(_Mtr)
    60. g.DrawPath(Pens.Red, .Self)
    61. .Reset()
    63. 'Beschriftungen
    64. Text("LOGO", 0, -13)
    65. Text("Bezeichnung", 0, 1)
    66. Text("Mindestbestand", 2, 1)
    67. Text("Maxbestand", 2, 3)
    68. Text("Artikelnummer", 0, 5)
    69. Text("Bestellmenge", 2, 5)
    70. Text("Preis ca:", 2, 7)
    71. Text("Empfänger:", 0, -4)
    72. Text("Schrank", 2, -4)
    73. Text("Fach", 3, -4)
    74. Text("Lieferant", 0, -3)
    75. Text("Lagerort:", 0, -2)
    76. _TextSizes.Yield()
    77. .Transform(_Mtr)
    78. g.FillPath(Brushes.Blue, .Self)
    79. .Reset()
    81. 'Daten
    82. Text(ArtBezeichnung, 0, 2)
    83. Text(Me.MIN, 3, 2)
    84. Text(MAX, 3, 4)
    85. Text(ArtNummer, 0, 6)
    86. Text("k.a.", 3, 6)
    87. Text("k.a.", 3, 8)
    88. Text("IH", 1, -4)
    89. Text(S, 2, -3)
    90. Text(F, 3, -3)
    91. Text("N.B.", 1, -3)
    92. Text(LO, 2, -2)
    93. _TextSizes.Yield()
    94. .Transform(_Mtr)
    95. g.FillPath(Brushes.Black, .Self)
    96. .Reset()
    98. End With
    99. _Mtr.Reset()
    100. End Sub
    101. End Class
    Bilder

    • KANBAN.GIF

      209,33 kB, 933×763, 212 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „menorca“ () aus folgendem Grund: Antworten


    hier ist das HTabs/VTabs - Konzept weiterentwickelt und in eine "TableLayout"-Klasse gekapselt.

    Die Anwendung verwendet 2 TableLayout-Instanzen, an ganz verschiedenen sTellen:

    Das Form macht auf dem Canvas-Control ein TableLayout mit 3*3 Zellen, in dieser Form:

    Also 4 große Felder, durch schmale Spalten voneinander abgesetzt.

    die typisierte DataRow nutzt ein anneres TableLayout, mit folgender Unterteilung:

    Also viele Zellen, wo jeweils was reingeschrieben werden kann.
    Bzw. von den Zellen können auch Linien gezeichnet werden.

    Jo, und zum malen zweier Datensätze nimmt er je einen Datensatz, und läßt links die (komplizierte) Vorderseite malen, und rechts die Rückseite, und desgleichen mit dem darauf folgenden Datensatz, und fertich.
    Dateien

    • KanBan04.zip

      (198,53 kB, 145 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ ()