hallo zusammen
ich möchte zu jedem neuen Datensatz ein Bild laden, speichern und anzeigen lassen
kann mir jemand dabei HELFEN ß1
Spoiler anzeigen
Codeanzeige korrigiert ~VaporiZed
*Topic verschoben*
ich möchte zu jedem neuen Datensatz ein Bild laden, speichern und anzeigen lassen
kann mir jemand dabei HELFEN ß1
VB.NET-Quellcode
- Code
- Public Class Form1
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- 'TODO: Diese Codezeile lädt Daten in die Tabelle "FPDataSet.tbl_FP". Sie können sie bei Bedarf verschieben oder entfernen.
- Me.Tbl_FPTableAdapter.Fill(Me.FPDataSet.tbl_FP)
- Me.Tbl_FPDataGridView.Refresh()
- End Sub
- Private Sub Tbl_FPBindingNavigatorSaveItem_Click_2(sender As Object, e As EventArgs) Handles Tbl_FPBindingNavigatorSaveItem.Click
- Me.Validate()
- Me.Tbl_FPBindingSource.EndEdit()
- Me.TableAdapterManager.UpdateAll(Me.FPDataSet)
- MessageBox.Show("Dateneigebe/Änderung würde durchgeführt")
- End Sub
- 'Private Sub TextSuche_TextChanged(sender As Object, e As EventArgs) Handles TextSuche.TextChanged
- 'On Error GoTo ErrRe
- ' Tbl_FPDataGridView.DataSource = Me.FPDataSet.tbl_FP.Select("Marke like '" & TextSuche.Text & "%'")
- 'Dim ColumCount As Integer = Tbl_FPDataGridView.ColumnCount - 1
- 'For g = 0 To ColumCount
- 'Dim i As Integer = Nothing
- ' Tbl_FPDataGridView.Rows(i).Cells(g).Style.BackColor = Color.Cyan
- 'Next
- 'ErrRe:
- ' End Sub
- ' Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- 'On Error GoTo ErrRe
- ' TextSuche.Select()
- ' Tbl_FPBindingSource.Filter = Nothing
- 'With Tbl_FPDataGridView
- '.ClearSelection()
- ' TextSuche.Clear()
- '.ReadOnly = True
- '.MultiSelect = False
- '.DataSource = Tbl_FPBindingSource
- 'End With
- 'ErrRe:
- ' End Sub
- Private Sub TextSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles TextSuche.KeyDown
- If e.KeyCode = Keys.Enter Then
- 'Button2.PerformClick()
- Try
- If Not String.IsNullOrEmpty(TextSuche.Text) Then
- Dim keyword As String = Me.TextSuche.Text.Trim
- Me.Tbl_FPBindingSource.Filter = "(Convert(Erstzulassung, 'System.String') LIKE '" & TextSuche.Text & "')" &
- "OR(Marke LIKE '%" & keyword & "%')" &
- "OR (Erstzulassung LIKE '%" & keyword & "%')" &
- "OR (Kennzeichen LIKE '%" & keyword & "%')" &
- "OR (Reifengrösse LIKE '%" & keyword & "%')" &
- "OR (Sonstiges LIKE '%" & keyword & "%')"
- Dim ColumCount As Integer = Tbl_FPDataGridView.ColumnCount - 1
- For g = 0 To ColumCount
- Dim i As Integer = Nothing
- Tbl_FPDataGridView.Rows(i).Cells(g).Style.BackColor = Color.Cyan
- Next
- Me.Tbl_FPDataGridView.Refresh()
- If Tbl_FPBindingSource.Count <> 0 Then
- With Tbl_FPDataGridView
- End With
- Else
- Dim cantFind As String = TextSuche.Text
- MsgBox("-->" & cantFind & vbNewLine &
- "ihre eingabe würde nicht gefunden.",
- MsgBoxStyle.Information, "hey Boss!")
- Tbl_FPBindingSource.Filter = Nothing
- With Tbl_FPDataGridView
- .ClearSelection()
- .ReadOnly = True
- .MultiSelect = False
- .DataSource = Tbl_FPBindingSource
- End With
- End If
- Else
- Me.Tbl_FPBindingSource.RemoveFilter()
- Form1_Load(sender, e)
- End If
- Catch ex As Exception
- MessageBox.Show("Error:" + ex.Message.ToString(),
- "Information - Sly.",
- MessageBoxButtons.OK, MessageBoxIcon.Information)
- Finally
- Me.TextSuche.Focus()
- End Try
- End If
- End Sub
- Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
- Me.LinkLabel1.LinkVisited = True
- System.Diagnostics.Process.Start("http://www.Vita-schnitt.de")
- End Sub
- Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
- Close()
- End Sub
- Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
- Me.TextSuche.Focus()
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Form2.ShowDialog()
- End Sub
- Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
- Me.MarkeTextBox.Focus()
- End Sub
- End Class
Codeanzeige korrigiert ~VaporiZed
*Topic verschoben*
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()