다...다시 질문 !!
새솔
아아. 질문 너무 많이하네..
루루, 그래도 정성껏 답해주실꺼라 믿어요.
------------------------------------------
자자, 일단 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 -
거늘
ㄴ 오...오렌지 마음 !!
-
아메
왜 수다님의 말투를 따라하나요.
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2676125 | Themida 패킹시 윈도우7은 호환 하지 못하나요? | 라 | 2024-11-24 |
| 2676093 | 현재프로그램 파일이름을 추출하는걸알고싶습니다 (1) | 도1도캣 | 2024-11-24 |
| 2676066 | exe를 소스로 만드는법좀.. (3) | 회전력 | 2024-11-23 |
| 2676034 | 이런 창은 어떻게 지우나요? | 수련 | 2024-11-23 |
| 2676006 | 질문하나더~ | 찬바리 | 2024-11-23 |
| 2675930 | 작업관리자 차단 | 별빛 | 2024-11-22 |
| 2675901 | 숫자를 제외한 문자를 어떻게 나타내야될까요? | 진나 | 2024-11-22 |
| 2675871 | 거의마지막질문인데요 | 아메 | 2024-11-22 |
| 2675846 | 제가 완성햇는데요 ㅎ; | 거늘 | 2024-11-21 |
| 2675824 | 타이머. 프로그래스바 코드 질문입니다. (10) | 빛글 | 2024-11-21 |
| 2675798 | 이걸 머라고해야 할지모르지만 질문합니다 (2) | 리라 | 2024-11-21 |
| 2675772 | 구구단 함수 질문이요~! (1) | 테이 | 2024-11-21 |
| 2675746 | exe저장시 런타임53 에러 | 아픔이보여 | 2024-11-20 |
| 2675718 | ocx 설치법 | 달달한캔디 | 2024-11-20 |
| 2675630 | ""안에 큰따음표 넣기. | 터전 | 2024-11-19 |
| 2675519 | 컴파일 오류 ?? | 슬아라 | 2024-11-18 |
| 2675492 | 비베 수다 사이트채팅 접속방법 | 마법 | 2024-11-18 |
| 2675463 | ㅠㅠ;; | 지은 | 2024-11-18 |
| 2675434 | 타이머로 라벨바꾸는거 (2) | 대나무 | 2024-11-18 |
| 2675386 | 선형보간법 문의 | 나길 | 2024-11-17 |