다...다시 질문 !!
새솔
아아. 질문 너무 많이하네..
루루, 그래도 정성껏 답해주실꺼라 믿어요.
------------------------------------------
자자, 일단 form1에 Text 박스를 만듭니다.
form2에 커맨드 버튼을 만들고
커맨드 버튼을 누르면 Form1텍스트 박스에 잇는 숫자 에서 1000 이 빼집니다.
그리고
Form1에 텍스트에 1000이상의 수가 아닌
1000미만의 수가 잇을시에는
메세지가 뜹니다.
이걸 어떻게 하죠 ?
제가 멀 원하는지 알죠 ?
-
맛깔손
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 -
거늘
ㄴ 오...오렌지 마음 !!
-
아메
왜 수다님의 말투를 따라하나요.
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2694340 | 아스키코드 출력 | 다힘 | 2025-05-10 |
| 2694286 | 1,900,000 - 백 구십 만원 (6) | 허우룩 | 2025-05-09 |
| 2694230 | 텍스트복사 | 거북이 | 2025-05-09 |
| 2694203 | 당신의 지식을 공유해주세요! | 후예 | 2025-05-09 |
| 2694174 | 디버거 크랙방지 (8) | 덕이 | 2025-05-08 |
| 2694146 | 수다 사이트글 조회한사람 목록추출가능? (5) | 곰돌츼 | 2025-05-08 |
| 2694070 | vb_vbnet님의 사이트댓글자동작성기인데 이것을요. | 가시 | 2025-05-07 |
| 2694041 | 모듈은 무었인가요? | 하람 | 2025-05-07 |
| 2694013 | 비쥬얼베이직 책 추천좀요^^... | 초코맛캔디 | 2025-05-07 |
| 2693985 | 리소스문제데요...ㅋㅋ (1) | 아리에스 | 2025-05-07 |
| 2693929 | 했는데 ㅠㅠ | 볼수록중독 | 2025-05-06 |
| 2693870 | 수정좀요 ^^;; (2) | 차오름 | 2025-05-06 |
| 2693812 | ※고구마는 보아라 (6) | 솔길 | 2025-05-05 |
| 2693789 | 마우스가있는곳의 좌표 보기 | 하예진 | 2025-05-05 |
| 2693759 | 실시간으로 서버 열렸는지 닫혔는지 확인하는법좀 | 참이 | 2025-05-05 |
| 2693728 | 로그인 유지 관련 제발 성실답변좀요 | 에녹 | 2025-05-04 |
| 2693705 | 아 재질문합니다 (5) | 모아 | 2025-05-04 |
| 2693677 | Dim a (1 to 11) AS Long에서 11을 K로 놓는 방법 질문 | 진주 | 2025-05-04 |
| 2693648 | 55런타임오류..... | 가론 | 2025-05-04 |
| 2693620 | 수다님 꺼처럼 하는방법좀요 | PinkPearl | 2025-05-03 |