. 3.5 Txt ( VB-6.0 LostFocus, VBA Exit).
Private Sub Txt_Exit(ByVal Cancel As _
MSForms.ReturnBoolean)
Dim StrSoobsh As String
Dim StrSoobsh1 As String
CurNalch = CCur(Txt.Text)
'If CurNalch < CurOpl Then MsgBox " " Else
CurSdasha = CurNalch - CurOpl
'
StrSoobsh = " " & _
Format(CurSum, "# ##0.00") & " ." & vbCrLf & _
" : " & vbCrLf & _
" : " & Format(SngSk1, "##0.00") & " %, " & _
" : " & Format(SngSk2, "##0.00") & " %, " & _
" : " & Format(SngSk3, "##0.00") & " %, " & vbCrLf & _
" : " & Format(CurOpl, "# ##0.00") & " ." & vbCrLf & _
": " & Format(CurNalch, "# ##0.00") & " ." & vbCrLf & _
": " & Format(CurSdasha, "# ##0.00") & " ." & vbCrLf & _
" ! !"
StrSoobsh1 = IIf(CurSdasha < 0, "!!! " & Format(-CurSdasha, "# ##0.00") & " ", StrSoobsh)
MsgBox StrSoobsh1, vbInformation, " "
Txt.Text = Format(CurSdasha, "# ##0.00")
If CurSdasha > 0 Then
Lbl.Caption = StrSoobsh
Txt.BackColor = vbWhite
Else
Txt.BackColor = vbRed
Exit Sub
End If
End Sub
. 3.5.
( Txt) .
. 3.6 ѻ (Cmd).
'
Private Sub Cmd_Click()
Txt.Text = Empty
Txt.Text = Empty
Txt.Text = Empty
Txt.Text = Empty
Txt.Text = Empty
Lbl.Caption = Empty
Txt.BackColor = vbWhite
End Sub
. 3.6.
Txt, Txt, Txt, Txt, Txt Lbl.
1. VBA .
|
|
2. .
3. UserForm_Initialize ().
4. Cmd_Click .
5. Txt Txt_Click Click Exit .
6. Cmd_Click .
. Option Explicit.
CurZena, CurSum, CurOpl, CurNalch, CurSdasha, CurPorog, SngSk1, SngSk2, SngSk3 , Public.
UserForm_Initialize Date Time, .
, , Value ScrollBar . WeekDay(Date) If.
cmd_Click .
CCur() CInt().
If. If, Select Case.
Txt_Exit , Txt, .
IIf.
Cmd_Click() Empty .