21 lines
507 B
VB.net
21 lines
507 B
VB.net
Public Class usrcntlTIR_alt
|
|
|
|
Public Event DGVchanged()
|
|
|
|
Private Sub usrcntlTIR_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
For i As Integer = 0 To 10
|
|
dgvGegenstände.Rows.Add("", "", "", "")
|
|
Next
|
|
|
|
txtAbgangszollstelle1.Text = "SUBEN"
|
|
|
|
End Sub
|
|
|
|
Private Sub dgvGegenstände_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGegenstände.CellValueChanged
|
|
|
|
RaiseEvent DGVchanged()
|
|
|
|
End Sub
|
|
End Class
|