ein Bild zum Datensatz laden, speichern und auf click anzeigen lassen

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von slycan.

    ein Bild zum Datensatz laden, speichern und auf click anzeigen lassen

    hallo zusammen
    ich möchte zu jedem neuen Datensatz ein Bild laden, speichern und anzeigen lassen
    kann mir jemand dabei HELFEN ß1
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Code
    2. Public Class Form1
    4. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. 'TODO: Diese Codezeile lädt Daten in die Tabelle "FPDataSet.tbl_FP". Sie können sie bei Bedarf verschieben oder entfernen.
    6. Me.Tbl_FPTableAdapter.Fill(Me.FPDataSet.tbl_FP)
    7. Me.Tbl_FPDataGridView.Refresh()
    9. End Sub
    11. Private Sub Tbl_FPBindingNavigatorSaveItem_Click_2(sender As Object, e As EventArgs) Handles Tbl_FPBindingNavigatorSaveItem.Click
    12. Me.Validate()
    13. Me.Tbl_FPBindingSource.EndEdit()
    14. Me.TableAdapterManager.UpdateAll(Me.FPDataSet)
    15. MessageBox.Show("Dateneigebe/Änderung würde durchgeführt")
    17. End Sub
    19. 'Private Sub TextSuche_TextChanged(sender As Object, e As EventArgs) Handles TextSuche.TextChanged
    20. 'On Error GoTo ErrRe
    21. ' Tbl_FPDataGridView.DataSource = Me.FPDataSet.tbl_FP.Select("Marke like '" & TextSuche.Text & "%'")
    23. 'Dim ColumCount As Integer = Tbl_FPDataGridView.ColumnCount - 1
    24. 'For g = 0 To ColumCount
    25. 'Dim i As Integer = Nothing
    26. ' Tbl_FPDataGridView.Rows(i).Cells(g).Style.BackColor = Color.Cyan
    28. 'Next
    29. 'ErrRe:
    30. ' End Sub
    32. ' Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    33. 'On Error GoTo ErrRe
    34. ' TextSuche.Select()
    35. ' Tbl_FPBindingSource.Filter = Nothing
    36. 'With Tbl_FPDataGridView
    37. '.ClearSelection()
    38. ' TextSuche.Clear()
    39. '.ReadOnly = True
    40. '.MultiSelect = False
    41. '.DataSource = Tbl_FPBindingSource
    42. 'End With
    43. 'ErrRe:
    44. ' End Sub
    46. Private Sub TextSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles TextSuche.KeyDown
    47. If e.KeyCode = Keys.Enter Then
    48. 'Button2.PerformClick()
    50. Try
    51. If Not String.IsNullOrEmpty(TextSuche.Text) Then
    52. Dim keyword As String = Me.TextSuche.Text.Trim
    54. Me.Tbl_FPBindingSource.Filter = "(Convert(Erstzulassung, 'System.String') LIKE '" & TextSuche.Text & "')" &
    55. "OR(Marke LIKE '%" & keyword & "%')" &
    56. "OR (Erstzulassung LIKE '%" & keyword & "%')" &
    57. "OR (Kennzeichen LIKE '%" & keyword & "%')" &
    58. "OR (Reifengrösse LIKE '%" & keyword & "%')" &
    59. "OR (Sonstiges LIKE '%" & keyword & "%')"
    61. Dim ColumCount As Integer = Tbl_FPDataGridView.ColumnCount - 1
    62. For g = 0 To ColumCount
    63. Dim i As Integer = Nothing
    64. Tbl_FPDataGridView.Rows(i).Cells(g).Style.BackColor = Color.Cyan
    66. Next
    67. Me.Tbl_FPDataGridView.Refresh()
    69. If Tbl_FPBindingSource.Count <> 0 Then
    70. With Tbl_FPDataGridView
    71. End With
    73. Else
    75. Dim cantFind As String = TextSuche.Text
    76. MsgBox("-->" & cantFind & vbNewLine &
    77. "ihre eingabe würde nicht gefunden.",
    78. MsgBoxStyle.Information, "hey Boss!")
    80. Tbl_FPBindingSource.Filter = Nothing
    82. With Tbl_FPDataGridView
    83. .ClearSelection()
    84. .ReadOnly = True
    85. .MultiSelect = False
    86. .DataSource = Tbl_FPBindingSource
    88. End With
    90. End If
    92. Else
    93. Me.Tbl_FPBindingSource.RemoveFilter()
    94. Form1_Load(sender, e)
    96. End If
    98. Catch ex As Exception
    100. MessageBox.Show("Error:" + ex.Message.ToString(),
    101. "Information - Sly.",
    102. MessageBoxButtons.OK, MessageBoxIcon.Information)
    104. Finally
    105. Me.TextSuche.Focus()
    107. End Try
    109. End If
    110. End Sub
    112. Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
    113. Me.LinkLabel1.LinkVisited = True
    114. System.Diagnostics.Process.Start("http://www.Vita-schnitt.de")
    115. End Sub
    117. Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
    118. Close()
    119. End Sub
    121. Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
    122. Me.TextSuche.Focus()
    124. End Sub
    126. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    127. Form2.ShowDialog()
    128. End Sub
    130. Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
    131. Me.MarkeTextBox.Focus()
    132. End Sub
    133. End Class



    Codeanzeige korrigiert ~VaporiZed

    *Topic verschoben*
    Bilder

    • FP.PNG

      108,91 kB, 794×318, 76 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    ErfinderDesRades schrieb:

    woher weisst du denn, welches Bild zu einem neuen Datensatz gehören soll?


    ja und das ist mein Problem ich weiß es nicht wie ich das machen soll

    ich möchte zu jedem neuen Datensatz ein Bild hinzufügen
    ich versuche es zu erklären
    wenn ich ein neuen Datensatz erfasse möchte ich dann auch ein Bild dazu laden und speichern
    ps:ich merke es ist nicht leicht das alles zu erklären, (bin Anfänger , für jede Hilfe bin ich dankbar

    Das wird sehr schnell sehr resourcenfressend.
    Also ein bild belegt ja gerne mal 12MB.
    Wenn du also 1000 solcher Datensätze in dein Dataset lädtst, dann belegst du damit 12 GB Arbeitsspeicher.
    Das dauert ganz schön, und v.a. viele ältere Rechner wären damit überfordert. Und auch zu neuen Rechnern ist das nicht nett.
    Wie gedenkst du dem zu begegnen?
    Sowas muss man nämlich geklärt haben, bevor man die Datenbank überhaupt anlegt.

    slycan schrieb:

    VB.NET-Quellcode

    1. Form2.ShowDialog()
    Gugst Du hier:
    Dialoge: Instanziierung von Forms und Aufruf von Dialogen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Die Bilder könnten auch beim auswählen der Bilddatei in eine Ordnerstruktur (z.b. neben der .exe, oder ein Netzlaufwerk falls Multiuser betrieb) verschoben werden und dieser Pfad statt dem ganzen Bild dann gespeichert werden.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    @slycan In Anlehnung an ErfinderDesRades' Worte „Das wird sehr schnell sehr resourcenfressend. Also ein bild belegt ja gerne mal 12MB.“
    Schreib dir eine Prozedur     Private Sub Load_the_pictures_only_when_shown_and_free_up_memory_after_an_Image_is_not_needed(), in der du die Bilder verwirfst, die du aktuell nicht brauchst, und die lädst, die du brauchst. Das hat jetzt natürlich weitere Effekte. Mach dir ein Boolean-Array in der Größe wie du Dateipfade hast, und merk dir damit, welche Bilder du geladen hast und welche nicht.
    Hier ein kopiertes Beispiel von mir. Ich habe eine     List(of Klasse xy), in der Instanzen der Klasse xy sind. In der Klasse.vb gibt es mehrere Variablen – eine List(of String) names Pfade_der_Bilder und das Boolean-Array

    VB.NET-Quellcode

    1. Meine_Liste(Meine_Liste.Count - 1).BoolArray = New Boolean(Instanzname.Pfade_der_Bilder.Count - 1) {}


    Kennst du dich mit Klassen aus? Sonst kann ich dir mal ein Beispiel machen, wenn du sagst, was das für Daten sind :)

    danke erst mal für eure Vorschläge
    nein Bartosz ich wäre dir sehr dankbar wenn du das machen wurdest
    es sind Fahrzeugdaten (Fahrzeugschein/Brief)
    ich möchte bei neu Eingabe wie auf den Bild ,ein Bild von Fahrzeugschein/Brief laden und zum Datensatz speichern
    und auf ein klick auf das Bild ,mir das Fahrzeugschein/Brief anzeigen lassen
    Die Bilder sollen ja auch in eine Ordner am PC gespeichert werden(war auch so meine Idee)

    @slycan So, hab's hochgeladen. Das ist die abgespeckte Version meines Ordnungssystem-Programms. Habe dieses Programm auf deine Bedürfnisse angepasst (Textfelder für Hersteller usw). Ich werde in den nächsten Tagen weitermachen. Aber du kannst erst einmal damit arbeiten. Du musst das Ganze als .zip herunterladen, entzippen, und einmal Visual Studio öffnen, weil es noch keine .exe gibt.
    github.com/il-Lupo/vehicle-fleet

    Hallo,
    ich habe gerade in meinem Guthub-Repo nachgesehen. Da wurde tatsächlich der Ordner "Packages" nicht hochgeladen. Bei den anderen 2 Projekten ging's..Komisch. Muss ne Limitierung bei GitHub sein.
    Egal, mach ein neues WinForms-Projekt auf und füge die heruntergeladenen Dateien einzeln hinzu. Rechtsklick auf den Projektmappenexplorer:

    Dann musst du dir nur noch über den Visual Studio-eigenen Nuget-Paketmanager "Microsoft.WindowsAPICodePack-Shell" herunterladen. Dann ist alles erledigt.

Facebook
Telefonspende