객

private sub txtText_KeyPress(index as integer, keyascii as integer) selec:t case keyascii case vbKeyReturn sleect case index case 0: text1.setFocus case 1: text2.setFocus end select case Asc("0") to Asc("9") case vbKeyBack case else KeyAscii = 0 end select end sub 텍스트 박스의 입력을 제한 하느 프로시저

private Function FileCheck(ByVal fPatn as strig , ByVal fName as string ) fname = fname + ".tif" if LenB(Dir$(fPath + fname)) then FileCheck = true else FileCheck = false end if end Function 특정 폴더 안에 특정 파일을 검사 할때

dim strName as string private sub command1_click() dim strFileName as string strFileName = StrReverse$(split(StrReverse$(strName), "\")(0)) Text1.text = strFileName end sub

Visual Basic .NET을 사용하여 ASP.NET에서 웹 서버에 파일을 업로드하는 방법

비주얼베이직 유니코드 스트링 처리 방법