Category Archives: [Dev]VB6.0

vb6 에서 마우스 휠 사용하기

vb6 에서 마우스 휠과 호환이 안되는 문제가 있어 컴포넌트를 설치하면 해결 됩니다. 다운로드 : vb60_mouserwheel 1. 다운 받아 압축을 풀고  파일중 VB6IDEMouseWheelAddin.dll을 C:\Windows\System32에 복사합니다. 2 . 시작 -> 실행을 열고 cmd 다음   관리자 모드에서    regsvr32 C:\Windows\system32\VB6IDEMouseWheelAddin.dll   로   dll 을 등록합니다. 3.  파일중  VBA Mouse Wheel Fix.reg 를 실행하여 레지스트리에 등록합니다. 4. Visual Basic 6(VB6)를… Read More »

[vb] win7에 Microsoft Visual Basic 6.0 설치

Vs6sp6.exe (vb서비스팩) 파일 다운로드 : Vs6sp6.exe VBRegTLB6.exe (레지등록 프로그램 )파일 다운로드 : VBRegTLB6.exe VB6를 관리자 권한으로  설치한다. 관리자 권한으로 설치 합니다. 설치를 진행합니다. 동의 후 계속 진행 합니다. 제품번호 를  넣고 계속 진행합니다. 사용자 정의로 지행합니다. 경로를 디폴트 또는 변경하여 진행 합니다. 설치 계속 합니다. 설치 계속 합니다. 설치 계속 합니다. 옵션을 설정하고 계속 진행… Read More »

Excel VBA 활용하기

vb 배운거 써먹을 때가 많네요.

샘플 3

[vb] xml 특정 노드 제거

Dim i As Integer Dim objDOMDocument As DOMDocument ‘XMLDocument Dim objNodeList As IXMLDOMNodeList ‘XMLNodeList 몇개나 있는지 알려고 Dim objNode As IXMLDOMNode ‘Set objDOMDocument = Server.CreateObject(“microsoft.XMLDOM”) ‘asp 용 Set objDOMDocument = New DOMDocument ‘동적메모리 설정 objDOMDocument.async = False objDOMDocument.Load (“test.xml”) ‘text xml 파일 불러오기 string 은 LoadXml Set objNodeList = objDOMDocument.getElementsByTagName(“books/book”) ‘로드 찾기 If objNodeList.length Then… Read More »

VB 에서 키보드 KeyAscii 값

상수 값 설명 LButton 1 마우스 왼쪽 단추 RButton 2 마우스 오른쪽 단추 Cancel 3 취소키 MButton 4 마우스 가운데 단추 Back 8 <백스페이스>키 Tab 9 <Tab>키 Clear 12 <Clear>키 Return 13 <Enter>키 Shift 16 <Shift>키 Control 17 <Ctrl>키 Menu 18 <Menu>키 Pause 19 <Pause>키 Capital 20 <Caps Lock>키 Escape 27 <Esc>키 Space 32 <스페이스바>키… Read More »

Null 값 공백으로 받기

MS SQL isNUL 로 처리 해도 1900-01-01 로 나오는 경우 또는 01 1 1900 12:00AM

참조 : https://www.mssqltips.com/sqlservertip/1145/date-and-time-conversions-using-sql-server/

영문 숫자만 입력가능 하게 만든 함수

‘영문 숫자만 입력가능 하게 만든 함수 (일일이 적기 귀찮아서 만들었음) Public Function CharacterMode(KeyAscii As Integer, Mode As Integer, Optional CharacterCode1 As Integer, Optional CharacterCode2 As Integer) As Integer ‘mode:’영문 0 ‘숫자 1 ‘영문+숫자 2 ”’22 Ctrl+V ”’3 Ctrl+C ”’24 Ctrl+X ’66~90 :A~Z 97~122 :a~z ’48~57 :0~9 ’47 : / , ‘8 : backspace, ‘tab, enter… Read More »

물음 메시지 함수

Function AskMsgBox(strMassege As String, Optional strTitle As String) As Boolean ‘물음 메시지. Dim Msg, Style, Help, Ctxt, Response ‘, MyString Msg = strMassege ‘ 기본 메시지. Style = vbYesNo + vbQuestion + vbDefaultButton2 ‘ Define buttons. ‘Title = Title ‘ 기본 제목. ‘Help = “DEMO.HLP” ‘ 기본 도움말 파일. Ctxt = 1000 ‘ 기본 항목… Read More »