'vb@rchiv - Das große Visual-Basic Archiv
'Die deutschsprachige Internetadresse, wenn es um
'Visual-Basic Programmierung geht
'
'Täglich neu - Täglich aktuell!
'Tipps & Tricks, Downloads, Workshops, Toolbesprechung,
'VB- und API-Referenz, Gewinnspiele, Wettbewerbe
'
'http://www.vbarchiv.de
'http://www.vbarchiv.net
'
'Dieter Otter
'Software-Entwicklung & Vertrieb
'eMail: dieter@vbarchiv.de
'======================================================
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As _
  Long) As Long
 
Private Sub Form_Load()
  Dim I As Integer
 
  ' Anzeige aktualisieren
  For I = 1 To lblPos.UBound
    lblPos(I) = ""
  Next I
End Sub
 
 
Private Sub Image1_Click()
  lblWWW_Click
End Sub
 
 
Private Sub Label7_Click(Index As Integer)
 
End Sub
 
Private Sub lblWWW_Click()
  ' Internetseite aufrufen
  URLGoTo lblWWW.Caption
End Sub
 
Private Sub URLGoTo(ByVal WWW As String)
  '
  '*** Internetseite aktivieren ***
  '
  Screen.MousePointer = 11
  Call ShellExecute(Me.hWnd, "Open", WWW, "", "", 3)
  Screen.MousePointer = 0
End Sub
Private Sub txtMenge_Change(Index As Integer)
  Dim EPreis As Long
  Dim GPreis As Long
 
  ' Gesamtpreis ausrechnen
  EPreis = Int(Val(Replace(lblEPreis(Index).Caption, ",", ".")) * 100)
  GPreis = EPreis * Val(txtMenge(Index).Text)
  lblGPreis(Index).Caption = Format$(GPreis / 100, "0.00")
 
  ' Summen neu berechnen
  BerechneSummen
End Sub
 
' Summen berechnen
Private Sub BerechneSummen()
  Dim SummeNetto As Long
  Dim SummeMWSt As Long
  Dim SummeBrutto As Long
  Dim I As Integer
 
  SummeNetto = 0
  For I = 0 To lblGPreis.UBound
    SummeNetto = SummeNetto + Int(Val(Replace(lblGPreis(I), ",", ".")) * 100)
  Next I
 
  SummeMWSt = Int(SummeNetto / 100 * 16 + 0.5)
  SummeBrutto = SummeNetto + SummeMWSt
 
  lblSummeNetto.Caption = Format$(SummeNetto / 100, "0.00")
  lblSummeMWSt.Caption = Format$(SummeMWSt / 100, "0.00")
  lblSummeBrutto.Caption = Format$(SummeBrutto / 100, "0.00")
End Sub
 
' Position anzeigen
Private Sub txtMenge_GotFocus(Index As Integer)
  lblPos(Index).Caption = Format$(Index + 1)
End Sub
 
' Gedrückte Taste prüfen
Private Sub txtMenge_KeyPress(Index As Integer, KeyAscii As Integer)
  Select Case KeyAscii
    ' Nur Zahlen, Leerzeichen und Backspace
    Case 48 To 57, 8, 32
 
    ' Nächste Position
    Case 13
      KeyAscii = 0
      If Index < txtMenge.UBound Then
        txtMenge(Index + 1).Enabled = True
        txtMenge(Index + 1).SetFocus
      End If
  End Select
End Sub