🚀 go-pugleaf

KOKUBUN shige. wrote:
> '------$B2s?t@)8B(J
> Dim nErrorCount As Integer '$B"((J
> Private Sub Command1_Click()
>     Unload Me
> End Sub
> 
> Private Sub Text1_Change()
>     nErrorCount = 0  '$B"((J
> End Sub
> 
> Private Sub Text1_LostFocus()
>     If nErrorCount > 2 Then Exit Sub  '$B"((J
>     nErrorCount = nErrorCount + 1     '$B"((J
>     If Not (Text1.Text = "1") Then
>         Call MsgBox("$BCM$,ITEv$G$9(J", vbOKOnly)
>         Text1.SetFocus
>     End If
> End Sub
> # $B$b$A$m$s<B:]$NH=CG=hM}$O$b$&>/$7J#;($G$9!#(J(^^;


$B<+8J%U%)%m!<$G$9!#(J(_ _)
$B$3$l$@$1C1=c2=$9$l$P!"IaDL$O2<$N$h$&$J:n$j$K$J$k$H;W$$$^$9!#(J

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Text1_LostFocus()
    Dim i As Integer
    If Not (Text1.Text = "1") Then
        i = MsgBox("$BCM$,ITEv$G$9!#:FF~NO;~$K(J[OK]", vbQuestion +
vbOKCancel)
        If i = vbOK Then
            Text1.SetFocus
        Else
            Call Command1_Click
        End If
    End If
End Sub

$B$3$l$G!"L\E*$NF0:n$r3NG'$G$-$^$7$?!#(J


$B0J2<$O8@$$J,$1$H$$$&$+!"<:GT;vNc$G$9!#(J
$B$J$s$G!"85$N<ALd$K$J$C$F$7$^$C$?$+$H$$$&$H!"(J

$B!V(JNot (Text1.Text = "1")$B!W(J $B$NItJ,$O(J

$BH=CG4X?t(J_A()
 +-$BH=CG4X?t(J_B()
    +-$BH=CG4X?t(J_C()
       +- .SetFocus

$B$N$h$&$J!"9=B$(J($B$3$l$G$b$+$J$j4JN,(J)$B$@$C$?$N$G!"(J
$B$=$3$K$O<j$rIU$1$?$/$J$+$C$?$N$G$9!#(J

$B85=hM}$O!"(JCommand_Click$B;~$K$9$Y$F$N%A%'%C%/$r$7$F$$$?$N$G!"(J
$B>e5-$N=hM}$G$b$$$$$N$F$:$,!"H=CG$9$k(J textBox $B$NCf$GFCJL$K=EMW$J(J
$B9`L\$,$"$j!"$=$N%A%'%C%/$@$1!"(J _LostFocus $B$K0\F0$7$?$i!"NI$/$J$k$@$m$&$H(J
$B;W$C$?$N$G$7$?!#(J # $B?M$N:n$C$?=hM}$N2~B$$J$N$G(J(^^;;;

$B$G!"$=$N2~B$$,4JC1$G$O$J$$$3$H$K5$IU$$$F$N<ALd$@$C$?$N$G$9!#(J
$B8e!9$N$3$H$r9M$($F!"<j$rIU$1$?$/$J$$ItJ,$N=$@5$b$9$k;v$K$7$^$7$?!#(J

$BH=CG=hM}(J $B$H(J $BBP=h=hM}(J $B$rJ,$1$F:n@.$7$F$J$+$C$?$N$,860x$G$9!#(J
$B$*A{$,$;$7$^$7$?!#(J

-- 
$B9qJ,(J mailto:kokubun@ffc.co.jp