수다닷컴

Dim LongVal as long
LongVal = 2000
Private Sub Form_load()
Text1.text = LongVal
End Sub
Private Sub Command1_Click()
LongVal = LongVal - 1000
Text1.text = LongVal
If LongVal = 1000 then
msgbox \1000 이하의 수치입니다\
End Sub

요런 방법도 있어요 ㅋ

ㄴ 큽니다가안되내 쩝

흠
if len(text1.text) 1000 then
msgbox \텍스트박스의 수가 1000보다 작습니다.
else
msgbox \텍스트박스의 수가 1000보다 큽니다.\
end if

해보셈

저렇게하면 999 가되는데.

이하를 표시하는데 왜 미만부호를 쓰시지..

ㄴ 와아 ~ 되면 프매 너 도움준 사람 명단에 넣어줄게 ~

ㄴ 될까과연?? 안되면 STr하구 괄호 다빼샘

Form1.Text1.Text = str(Form1.Text1.Text) - 1000
If str(Form1.Text1.Text) 1000 Then
Msgbox \1000이하\
Else
Msgbox \1000이상\
End If

ㄴ 오...오렌지 마음 !!

왜 수다님의 말투를 따라하나요.