본문 바로가기
Pattern 문자열 사용(Like) 예) dim s as string dim b as boolean s = "FMS16 Program" if s like "F[L-N]?#*ra*" then msgbox "OK" 위와 같이 사용할 수 있습니다. Like이후의 설명을 하면 다음과 같습니다. 처음은 대문자 'F'로 시작해야 하며 두번째 문자는 L,M,N 사이의 문자중 하나여야 하며 세번째 문자는 1개문자가 어떤 문자여도 관계가 없고 네번째 문자는 반드시 숫자여야 하며 이후의 문자는 ra 를 포함 하고 있어야 한다 입니다. 더보기
파일 이름 추출 InStrRev()를 이용한 간단한 방법 '경로 구하기 filePath = Left(orgFileName, InStrRev(orgFileName, "\")) '파일명 구하기 fileName = Mid(orgFileName, InStrRev(orgFileName, "\") + 1) '확장자 구하기 fileExt = Mid(orgFileName, InStrRev(orgFileName, ".") + 1) 더보기
csv 파일을 DB처럼 사용하기 1. 프로젝트의 참조에 Microsoft DAO X.X Object Libray 를 체크한다. 2. Form 내에 CommandButton(Command1)과 ListBox(List1)을 생성한다. 3. Command1 의 Click 이벤트 함수를 생성한다. Private Sub Command1_Click() Dim ws As DAO.Workspace Dim db As DAO.Database Dim rs As DAO.Recordset Dim strPath As String Dim strSQL As String ' 파일 패스 지정 strPath = App.Path & "\list.csv" ' DB 오픈 Set ws = DBEngine.Workspaces(0) Set db = OpenDatabase(Stri.. 더보기
VB 속도 올리기 1. 프로젝트를 컴파일하기 전에, 베이직을 종료하고, 컴퓨터를 재시작하라. 그리고, 프로젝트를 컴파일하게 되면, 메모리에 남아 있는 자질구레한 변수들이 사라 지게 되고, 파일 사이즈를 줄일 수도 있다. 2. 프로젝트를 컴파일하기 전에 사용하지 않는 변수와 서브 프로시져, 선언문, 컨트 롤 같은것을 제거하라. 이것은 파일크기를 상당히 줄여줄 것이다. 3. 프로그램을 종료할 때는 END문을 사용하라. 프로그램의 종료코드나 QueryUnload이벤트에 End문을 사용하면 프로그램이 메모리에 남아 있지 않도록 해 준다. 4. Variant 변수 사용을 자제하라. 변수를 선언할 때 형식을 지정해 주지 않으면 베이직은 자동으로 그 변수를 Variant형 식으로 지정하게 되는데, Variant형식의 변수는 매우 느리.. 더보기
모듈과 클래스 모듈과의 차이점 VB에서 Form내에서 함수 만들어 보셨나요? 아무 이벤트나 하나 삽입해도 함수가 만들어지는데요, 이런 함수들은 다 폼 안에 들어있는 식구입니다. 즉 옆집 식구가 우리집 식구보고 어째라 명령을 못내린다는 겁니다. (물론 Public으로 준비되어 있다면 가능하지만..그 옆집 자체가 사라졌다면 호출이 안되죠.) 모듈이란 글로벌 함수, 즉 전세계 어디서나 부를 수 있는 식구입니다. 모듈이라는 파일 내에 만든 모든 함수는 정말 어디서나 다 호출이 가능합니다. 그러니까 님이 사용하시는 print, mid, left, right와 같은 함수도 글로벌 함수 즉 모듈에 담겨있는겁니다. 언제나 누구나 불러 쓸 수 있습니다. 모듈이 많아지면 모두 글로벌, 즉 전체영역에서 통용되기 때문에 서로 이름이 충돌되지 않도록 신경써.. 더보기
VB에서 다른 윈도우에 메시지 줘서 실행시키기 Option Explicit Public Const WM_COMMAND = &H111 Public Const WM_SETTEXT = &HC Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare .. 더보기
Form상에서 콘트롤 이동 / Title 바 없는 폼 이동 Public globalX As Integer Public globalY As Integer Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Source.Move X - globalX, Y - globalY End Sub Private Sub Frame1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Frame1.Drag vbBeginDrag globalX = X globalY = Y End Sub Private Sub Label1_MouseDown(Button As Integer, _ Shift As Integer, X As Single,.. 더보기
자기가 좋아하는 것에 몰두하라 나는 적극적인 사고방식을 가지고 있는가? TV를 많이 본다면 한번 수동적인 인간형이지 않을까 의심해보자 호주 과학주간 행사의 일환으로 약 3만 명을 대상으로 온라인 설문조사를 실시한 결과, TV 끄기, 크로스워드 퍼즐 맞추기, 생선 많이 먹기 등이 기억력을 향상시키는데 결정적인 역할을 하는 것으로 나타났다. 또한 소설을 읽는 사람들이 읽지 않는 사람보다 기억력이 좋고, 과음하는 사람들은 다른 사람들의 이름을 잘 기억하지 못하는 것으로 밝혀졌다. 이번에 실시된 퀴즈대회의 참가자 29,500 명을 대상으로 쇼핑 리스트, 이름, 얼굴, 직업 기억하기, 2 개 사진 간의 차이 발견하기 등의 테스트를 실시하고, 음주 습관, TV 시청, 독서 습관 등을 물어 상관관계를 분석한 결과 TV 시청이 시험 결과에 결정적으.. 더보기
[Tool] CodeSmart 설치해서 VB 편하게 쓰기 VB는 VC처럼 프로젝트 탐색창에서 하위 멤버들을 보여주지 못하는데 여간 불편한게 아니다. CodeSmart를 설치해서 편리하게 코딩하자. 위치 : EDU\01 SW\07 VB\04 Tool\CodeSmart\Axtools Codesmart 2005 Vb6 Retail Winall-Haze VB 프로젝트 탐색창 CodeSmart 설치 후 프로젝트 탐색창그외에도 여러가지 기능들이 추가된다 더보기
[Tool] VB에서 마우스 휠 되도록 하기 Visual Basic 6.0 에서는 기본적으로 마우스 스크롤이 안된다. 이 기능은 추가기능으로 설치하여 사용해야 한다. 위치 : EDU\01 SW\07 VB\04 Tool\vb addin\vba_mouse_wheel 압축을 풀고, VBA Mouse Wheel Fix.reg 파일을 더블클릭하여 레지스트리에 등록한다. VB6IDEMouseWheelAddin.dll 파일은 적당한 위치에 복사하여 둔다. (이러한 파일은 c:\windows\system32 에 넣어두는 것이 좋다) '시작'->'실행' 창에서 아래와 같이 입력한다. regsvr32 (복사해둔경로)\VB6IDEMouseWheelAdin.dll 예) c:\windows\system32\VB6IDEMouseWheelAddin.dll (또는 regsvr.. 더보기
VB] 조건부 컴파일 상기 "조건부 컴파일 인수" 란에 있는 Release 변수가 1이면 하기 조건부 컴파일 문법이 성립 #if Release = 1 then ' 여기가 실행 #else #endif 더보기
윈도우 프로그램이 살아가는 짓거리 1. 어느 조물주에 의해서 탄생한다. 그 조물주가 누구냐에 따라 이눔이 멍청할 수 도 똑똑하지만 실수연발일수도 못된 놈이 될 수도 있을 것이다. 2. 잉태된 후 OS에게 약간의 전기료와 더해져서 건네진다. 3. OS는 잘 보관하고 있다가 조물주가 요청할 때 요놈을 닭장에서 복사해서 메모리에 탑재한다. 4. 이제 드디어 세상에 나왔다. 5. 조물주가 사정없이 이쪽 뺨 저쪽뺨 어퍼컷을 사정없이 갈겨댄다. 6. 왜하는지도 모르고 그저 시키는데로 맛고 있었다. 7. 그런데 이번에는 저쪽 닭장에 있는 파일에서 멀 배껴오란다. 저 파일에서 3페이지를 복사해와서 적절히 수정하고 화면에 보기좋게 뿌리란다. 8. 이건 내가 직접 할 수 없다. 그래서 OS에게 간절히 요청을 했다. 9. 근데 OS가 좀 기다리란다. 10... 더보기
들어가기 전에 간단히 윈도우 프로그램에 대해서 윈도우 프로그래밍에 들어가기 전에 잠시 윈도우의 원리 및 기본적인 개념에 대해서 한마디... 간단히 말하면 MS Windows에서 돌아가는 프로그램을 만드는 것인데요 MS Windows도 종류가 있잖아요. 3.0 -> 98 -> 2000 -> XP -> Vista DOS 시절에는 지금과 같은 멀티 쓰레드 프로그램은 상상도 못했구요. 아련히 옛추억이 떠오를 겁니다. 디스켓 넣어서 DOS 깔고 부팅되면 잘모르는 명령들을 치면서 검은 화면에 티어오르는 Text와 대화해야 했지요. 물론 그래픽적인 프로그램이 있었지만 이 프로그램하다가 저 프로그램 쓰는 일은 못했었지요. 그래서 사용중인 프로그램이 열심히 뻐벅대면서 돌면 마냥 기다려야 했구요. 이건 컴퓨터의 CPU가 한번에 한가지 일밖에 못해서 그런거지요. 내가 .. 더보기
왜 비베를 하는가? 비베를 하면 무엇을 할 수 있을까? 실로 용도는 꽤 무궁합니다. 1. 일반적으로 알고 있는 윈도우 프로그래밍 - 유틸, 게임, 툴 등을 제작 - ex) 아빠가 만들어주는 가족 게임, 네트웍 윳놀이로 점심시간에 하드내기 게임 삼부 빨간 전화, 등... 아이디어 내주세요. 2. 저희 회사에서는 장비 프로그램 - 삼성전기 LED 검사장비에서 작성했던 검사 프로그램으로 교육을 진행합니다. 추후 비슷한 장비 등을 제작 시 코드를 재사용할 수 있읍니다. - PLC 연동 교육 자료는 교육 폴더의 "book"란에 잡지연재를 저장해놓았읍니다. 3. 요즘에는 거의 모든 덩치 큰 프로그램들은 VB매크로를 지원하고 있읍니다. 매크로란 한마디로 "동작 레코딩"이라고 생각하면 됩니다. 엑셀 등에서 반복 작업하는 것들을 매크로로 .. 더보기
교육 폴더 공지 및 교육 스터디 계획 공지 네트워크 상의 다음 폴더에 비베 관련 교육 자료를 모아놓았읍니다. 1. 경로 : file://\\psm\edu\01 sw\07 vb 2. 내용 : [CD] Digital Book kor - 한글로 된 교육 CD를 copy해놓은 것입니다. - Good [CD] VB4 Lesson - 비베 4.0 버전 때의 영어로 된 교육 CD [CD] VB Edu 따라하기 - 한글 실전 CD인데 마우스 누르는 곳 까지 따라하도록 되어 있읍니다. Good 01 동영상 [GDB] VB6.0 (문경화): 인터넷 한글 + 음성 강의 파일 [GDB]VB Game 제작 [GVA] 비베 정보처리 [GVA] VB 고급 강좌 (정현정) [GVA] VB DB Programming 02 Book : 대부분 외국 서적이지만 한글판도 하나 있음.. 더보기
test test 더보기

티스토리툴바