sub 또는 funtion이 정의 되지 않았습니다
DevilsTears
2023.04.01
Private Sub ID_Change()
Dim i As Long
If Len(txtID.Text) 0 Then
For i = 1 To Len(txtID.Text)
If Asc(Mid%(txtID.Text, i, 1)) = -23391 And Asc(Mid$(txtID.Text, i, 1)) = -14946 Then
MsgBox 한글은 입력할 수 없습니다., vbCritical, 알림
txtID.Text = vbNullString
Exit For
End If
Next i
End If
End Sub
이 블럭에서
sub 또는 funtion이 정의 되지 않았습니다
컴파일 오류가 납니다 어떻게 해야 하나요
참고로 저는 비베 시작한지 30분됫슴다..
-
찬
아
반환값이 없잖아요..
Private Function ID_Change() As String 이나 해보소 -
난슬
님이 혹시
Private Function ID_Change()
Dim i As Long
If Len(txtID.Text) 0 Then
For i = 1 To Len(txtID.Text)
If Asc(Mid%(txtID.Text, i, 1)) = -23391 And Asc(Mid$(txtID.Text, i, 1)) = -14946 Then
MsgBox \한글은 입력할 수 없습니다.\ -
심플이
sub를 Function으로 바꾸어 봐요.
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2698939 | 메세지박스 줄띄우는법 | 누리별 | 2025-06-21 |
| 2698910 | 런타임 424 질문 | 야미 | 2025-06-21 |
| 2698883 | 배열에 관련하여 (1) | 민트맛캔디 | 2025-06-21 |
| 2698856 | 빤짝거리는 내 툴의 재목 !? | 초롱꽃 | 2025-06-20 |
| 2698830 | 리스트 인덱스 질문 (2) | 말글 | 2025-06-20 |
| 2698803 | 리스트 뷰 질문이요. (2) | 딸기향 | 2025-06-20 |
| 2698750 | 헐 웹브앙대요 | 꺆잉 | 2025-06-19 |
| 2698694 | 모듈의 핸들 | 렁찬 | 2025-06-19 |
| 2698674 | VB 고수분들 봐주세요 (6) | 세이 | 2025-06-19 |
| 2698617 | 윈속.ocx다운받는곳좀여 | 안토니 | 2025-06-18 |
| 2698588 | 자 나를 즐겁게 해봐요 | 다흰 | 2025-06-18 |
| 2698529 | 이거 저작권 상,고,명인데 점부탇드림 (3) | 서향 | 2025-06-17 |
| 2698503 | 오늘도~윈속질문이요~ | 텐시 | 2025-06-17 |
| 2698478 | 비베6에서 exe파일만들때 자동링커되려면 | 달달한캔디 | 2025-06-17 |
| 2698431 | 파일 주소 숨기고 다운로드 하게 하는 방법! (질문임..) (1) | 비마중 | 2025-06-16 |
| 2698405 | 어떤 dll 이 제 보안프로그램 메모리를 자꾸 변조하는데. (2) | 귀염포텐 | 2025-06-16 |
| 2698372 | 웹브라우저 특정부분 보여주기 | 보물선 | 2025-06-16 |
| 2698343 | 위도우 8 - 비주얼베이직 6.0 설치 오류..(Heple...Me..ㅠ_ㅠ) (2) | 접시 | 2025-06-16 |
| 2698319 | 하다가 도중에 오류가떠서 특정부분으로 가게하는건어떻게하나요? | 연하늘 | 2025-06-15 |
| 2698292 | 밑 질문에 이어서 하나 더 질문합니다. | 단화한 | 2025-06-15 |