43 lines
1.7 KiB
VB.net
43 lines
1.7 KiB
VB.net
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
|