vb6 에서 마우스 휠 사용하기
vb6 에서 마우스 휠과 호환이 안되는 문제가 있어 컴포넌트를 설치하면 해결 됩니다. 다운로드 : vb60_mouserwheel 1. 다운 받아 압축을 풀고 파일중 VB6IDEMouseWheelAddin.dll을 C:\Windows\System32에 복사합니다. 2 […]
[Dev]VB6.0
[vb] win7에 Microsoft Visual Basic 6.0 설치
Vs6sp6.exe (vb서비스팩) 파일 다운로드 : Vs6sp6.exe VBRegTLB6.exe (레지등록 프로그램 )파일 다운로드 : VBRegTLB6.exe VB6를 관리자 권한으로 설치한다. 관리자 권한으로 설치 합니다. 설치를 진행합니다. 동의 후 […]
Visual Studio 6 Windows Common Controls 6.0 (sp6) Windows 7, Error
99 행: TabStrip1 컨트롤의 MSComctlLib.TabStrip 클래스는 로드한 컨트롤 클래스가 아닙니다. https://www.microsoft.com/ko-kr/download/details.aspx?id=10019
Excel VBA 활용하기
vb 배운거 써먹을 때가 많네요.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Sub Select1() For i = 1 To 54 Dim sName1 As String Dim sName2 As String sName1 = Trim(Sheet1.Cells(i, 2)) For j = 1 To 96 sName2 = Trim(Sheet2.Cells(j, 1)) '//Debug.Print sName1, sName2 If ((sName1 = sName2) And (sName1 = sName2)) Then Sheet1.Cells(i, 3) = IIf(Sheet2.Cells(j, 2) > 0, Sheet2.Cells(j, 2), "") Sheet1.Cells(i, 4) = Sheet2.Cells(j, 3) Sheet1.Cells(i, 5) = IIf(Sheet2.Cells(j, 4) > 0, Sheet2.Cells(j, 4), "") Sheet1.Cells(i, 6) = Sheet2.Cells(j, 5) Exit For End If Next j Next i End Sub |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Sub Select1() Dim price As Integer For i = 1 To 13 Dim sName1 As String Dim sName2 As String sName1 = Trim(Sheet1.Cells(i, 1)) sName2 = Trim(Sheet1.Cells(i, 2)) price = 0 '//초기값 If (Trim(sName1) = "기타" And Trim(sName2) = "문자2") Then price = Sheet1.Cells(i, 3) + price Sheet1.Cells(15, 1) = price End If Next i End Sub |
샘플 3
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
Sub Select1() For i = 2 To 29 Dim s1 As Integer Dim s2 As Integer s1 = Trim(Sheet1.Cells(i, 1)) For j = 2 To 4 s2 = Trim(Sheet1.Cells(i, j)) If (s1 <= s2) Then s1 = s2 Sheet1.Cells(i, 6 + j) = s2 End If 'Debug.Print s2 Next j Sheet1.Cells(i, 6) = s1 'Debug.Print s1 Next i End Sub |
difference between char13 and char10
difference between char13 and char10. Control character Value Tab char(9) Line feed char(10) Carriage return char(13)
VB 에서 키보드 KeyAscii 값
상수 값 설명 LButton 1 마우스 왼쪽 단추 RButton 2 마우스 오른쪽 단추 Cancel 3 취소키 MButton 4 마우스 가운데 단추 Back 8 <백스페이스>키 Tab […]
Null 값 공백으로 받기
|
1 2 3 4 5 6 7 8 |
Dim sVal as string --중간 생략-- sVal = IIf(IsNull(rs("Modi_Date")), "", rs("Modi_Date")) //mssql query : isNull(컬럼, '변경할문자') |
MS SQL isNUL 로 처리 해도 1900-01-01 로 나오는 경우 또는 01 1 1900 12:00AM
|
1 2 3 4 5 6 7 |
CancelDate = CASE WHEN CancelDate = '01 1 1900 12:00AM ' THEN '' ELSE CONVERT(varchar, CancelDate, 120) END FROM Product_List |
참조 : 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 […]
파일경로+파일명에서 파일명 또는 경로 알아내기 함수
파일경로+파일명에서 파일명 또는 경로 알아내기 Function GetFind(What As String, Optional division As String = “\”, Optional privious As Boolean) As String Dim Length As Integer, […]
숫자외에 모든문자를 제거 함수
Public Function gGet_Nember(strData As String) As String ‘ 내 용 : 숫자외에 모든문자를 제거한다.Dim i As Integer Dim strNum As String Dim strTmp As String […]
vb6에서 IP 주소 가져 오기 함수
참조 : https://learn.microsoft.com/en-us/windows/win32/api/iphlpapi/nf-iphlpapi-getipaddrtable c++ 에서
SQL Native Client 를 vb 에서 사용 (UPDATE ERROR (smalldatetime))
2005 server 2008 server 인 경우 Public Const Connect = “PROVIDER=MSDASQL;driver= {SQL Native Client};server=111.111.111.111;uid=IDXXX;pwd=PASSXXX2;database=DBXXX” UPDATE ERROR (smalldatetime) 인서트는 자동으로 해주지만 Update는 CAST 해주워야 함.
|
1 2 3 |
Format(DEP_DATETIME, "YYYY-MM-DD hh:mm:ss") |
VB ASP에서 웹서비스 이용하기
VB에서 웹서비스 이용하기
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
Option Explicit Private Sub Command1_Click() Const HttpPath = "http://111.111.111.111/service.asmx/Doc" Dim xmlDoc As Object Dim strRequest As String Dim XMLhttp As MSXML2.XMLHTTP30 Dim sSend Set XMLhttp = New MSXML2.XMLHTTP30 sSend = "RLOC=" & Me.Text1.Text XMLhttp.open "POST", HttpPath, False XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" XMLhttp.send sSend Me.Text2 = XMLhttp.responseText Me.Text2 = response Dim doc As DOMDocument Set doc = New DOMDocument '동적메모리 설정 Dim objNodeList As IXMLDOMNodeList doc.async = False doc.loadXML (response) Set objNodeList = doc.getElementsByTagName("Root") If objNodeList.length Then Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("Name").nodeTypedValue & ", " Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("age").nodeTypedValue & ", " Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("address").nodeTypedValue & ", " Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("phonnumber").nodeTypedValue & ", " End If End Sub |
ASP에서 웹서비스 이용하기
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
<% Dim ServerType Dim ServiceName Dim SoapRequest: ServerType = request.Form("ServerType") ServiceName = request.Form("ServiceName") SoapRequest = request.Form("SoapRequest") HttpPath="http://uapi.test.com/API" '------------------------------------------------------------------- Dim lResolve Dim lConnect Dim lSend Dim lReceive Dim sSend sSend="ServerType="& ServerType & _ "&ServiceName="& ServiceName & _ "&SoapRequest="& SoapRequest Set XMLhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0") lResolve = 60 * 1000 'Timeout values are in milli-seconds lConnect = 60 * 1000 lSend = 60 * 1000 lReceive = 60 * 1000 XMLhttp.setTimeouts lResolve, lConnect, lSend, lReceive XMLhttp.open "POST",HttpPath, False '------------------------------------------------------------------ XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" XMLhttp.Send sSend Dim sResponse sResponse = XMLhttp.responseText Response.ContentType = "text/xml" response.write sResponse response.end %> |
오류 : 시스템이 지정한 인코딩을 지원하지 않습니다.=> MSXML 4.0 SP2 파서가 설치 되지 않음 msxmlkor.msi 설치 다운로드 […]