63 lines
2.0 KiB
VB.net
63 lines
2.0 KiB
VB.net
Imports System.Globalization
|
|
|
|
Public Class usrcntlBelegLeistungEintragPosition
|
|
Public Event INCREASE(c As Control)
|
|
Public Event REDUCE(c As Control)
|
|
Public loc As New Point
|
|
|
|
|
|
Public Art = "E"
|
|
|
|
Public PreislistenNr = -1
|
|
Public PreislistenPos = -1
|
|
Public LeistungsNr = -1
|
|
Public Anzahlmultiplikator As Integer = 0
|
|
|
|
Public LeistungsBez = ""
|
|
Public Anzahl = 0
|
|
Public Leistungsbeschreibung = ""
|
|
Public Abfertigungsart = -1
|
|
Public Preis As Double = 0
|
|
Public FixPreis As Boolean = False
|
|
|
|
Private Sub usrcntlBelegLeistungEintragPosition_BackColorChanged(sender As Object, e As EventArgs) Handles Me.BackColorChanged
|
|
lblInfo.BackColor = Me.BackColor
|
|
End Sub
|
|
|
|
Private Sub usrcntlBelegLeistungEintragPosition_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
' lblBezeichnung.Text = LeistungsBez
|
|
' lblInfo.Text = Leistungsbeschreibung
|
|
lblLeistungsbezeichnung.Text = Leistungsbeschreibung
|
|
If Preis <> 0 Then
|
|
txtPreis.Text = CDbl(Preis).ToString("F", CultureInfo.InvariantCulture)
|
|
Else
|
|
txtPreis.Text = "-"
|
|
End If
|
|
lblInfo.ContextMenu = New ContextMenu
|
|
|
|
If Art = "A" Then
|
|
' pnl.BackColor = Color.IndianRed
|
|
Label3.ForeColor = Color.Red
|
|
txtPreis.ForeColor = Color.Red
|
|
ForeColor = Color.Red
|
|
txtAnzahl.ForeColor = Color.Red
|
|
' lblInfo.ForeColor = Color.Red
|
|
lblLeistungsbezeichnung.ForeColor = Color.Red
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Label3_Click(sender As Object, e As MouseEventArgs) Handles Label3.MouseDown, txtPreis.MouseDown, Me.MouseDown, txtAnzahl.MouseDown, lblInfo.MouseDown, lblLeistungsbezeichnung.MouseDown, pnl.MouseDown
|
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
|
RaiseEvent INCREASE(Me)
|
|
loc = New Point(e.X, e.Y)
|
|
ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
|
|
RaiseEvent REDUCE(Me)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
End Class
|