본문 바로가기

Program/VB-Develop-Source

파일로딩 및 파일내용 검색 및 판별하기 1. 폼디자인 2. 실행화면 3. 코드 - 소스 (복사 & 붙여넣기) Option Explicit Const MAX = 40 ' 파일내용에 들어있는 문자의 줄수(파일내용이 많을경우 라인수를 세서 이곳의 숫자를 변경하시면 정상적으로 작동됩니다. Dim Buff(MAX) As String Private Sub Command1_Click() ' 버튼 - 내용찾기 Dim i As Integer, Chk As Boolean Chk = False ' 파일안에 입력한 내용이 있다면 출력 For i = 0 To MAX - 1 If Buff(i) = "" Then Exit For If Buff(i) = Text1.Text Then Text2.Text = Buff(i): Chk = True Next i ' 파일안에 내용이.. 더보기
올웨이즈 온 탑 - 폼을 항상 최상위에 두기 Option Explicit Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Const HWND_TOPMOST = -1 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Sub Form_Load() Call SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_N.. 더보기
비주얼베이직으로 주차관리프로그램... 1. 폼 디자인 1-1 메인 폼 1-2 입고관리 폼 (텍스트2를 배열로 만드세요 !!) 1-3 출고관리 폼 2. 실행 화면 2-1. 실행화면_메인 2-1. 실행화면_입고관리 2-2.실행화면_출고관리 3. 속성창과 프로젝트 보기창 (폼로드부분에 지정한 컨트롤 개체 이름,속성을 이곳에 저장하시면 코드를 좀더 간결하게 줄일수 있습니다.) 4. 소스 4-1 폼_메인 (아래 소스를 폼 1에다가 드레그) Option Explicit Private Sub Command1_Click() Form2.Show ' 입고관리 폼 불러오기 End Sub Private Sub Command2_Click() Form3.Show ' 출고관리 폼 불러오기 End Sub Private Sub Command3_Click() Unload .. 더보기
수직,수평 스크롤바에 따른 이미지 변환하기 1. 폼 디자인(픽처박스1,수평스크롤바1,수직스크롤바1) 2. 실행화면(수평,수직 스크롤바 클릭시 변환되는 과정) 3. 코드 -소스(복사 & 붙여넣기) Option Explicit Dim 그림목록(3) As String ' 그림목록을 저장할 배열변수 선언 Private Sub Form_Load() ' ---------------------------------------------------- 그림목록(0) = "1.jpg" ' 1번 그림이름을 배열에 저장 그림목록(1) = "2.jpg" ' 2번 그림이름을 배열에 저장 그림목록(2) = "3.jpg" ' 3번 그림이름을 배열에 저장 ' ---------------------------------------------------- ' 픽처박스에 1번째 그.. 더보기

티스토리툴바