Projektdateien hinzufügen.

Aviso/Benutzerdefinierte Elemente/SendTAB.vb

@@ -0,0 +1,42 @@
+Public Class sendTAB
+    Public value = ""
+    Event MECLICK(sender As Object)
+    Event DEL(sender As Object)
+    Event RIGHTCLICK_COPYDATATO(fromIndex As Integer, toIndex As Integer)
+    Event RIGHTCLICK_DUPLICATE(fromIndex As Integer)
+
+    Dim list As List(Of MyListItem)
+
+    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles lblAuftr.Click, lblAbfBez.Click, pnl.Click, Me.Click, lblNr.Click
+
+        RaiseEvent MECLICK(Me)
+    End Sub
+
+    Private Sub Label2_Click(sender As Object, e As MouseEventArgs) Handles lblAuftr.MouseClick, lblAbfBez.MouseClick, pnl.MouseClick, Me.MouseClick, lblNr.MouseClick, pnl.Click, MyBase.Click, lblNr.Click, lblAuftr.Click, lblAbfBez.Click
+        If e.Button = Windows.Forms.MouseButtons.Right Then
+            Me.ContextMenuStrip = cntxt
+            cntxt.Show(MousePosition)
+        End If
+    End Sub
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+        If MsgBox("Möchten Sie diese Sendung wirklich löchen?", vbYesNoCancel) = MsgBoxResult.Yes Then
+            RaiseEvent DEL(Me)
+        End If
+    End Sub
+
+    Private Sub pic_MouseEnter(sender As Object, e As EventArgs) Handles pic.MouseEnter
+        pic.Image = My.Resources.del
+    End Sub
+    Private Sub pic_MouseLeave(sender As Object, e As EventArgs) Handles pic.MouseLeave
+        pic.Image = My.Resources.del_gray
+    End Sub
+
+    Private Sub SendungDuplizierenToolStripMenuItem_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Private Sub SendungDuplizierenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles SendungDuplizierenToolStripMenuItem.Click
+        RaiseEvent RIGHTCLICK_DUPLICATE(CInt(Me.value))
+    End Sub
+End Class