[Dev]VB6.0 – AuctionPro

vb6 에서 마우스 휠 사용하기

2020년 06월 10일 golgol 0

vb6 에서 마우스 휠과 호환이 안되는 문제가 있어 컴포넌트를 설치하면 해결 됩니다. 다운로드 : vb60_mouserwheel 1. 다운 받아 압축을 풀고 파일중 VB6IDEMouseWheelAddin.dll을 C:\Windows\System32에 복사합니다. 2 […]

[vb] win7에 Microsoft Visual Basic 6.0 설치

2018년 12월 31일 golgol 1

Vs6sp6.exe (vb서비스팩) 파일 다운로드 : Vs6sp6.exe VBRegTLB6.exe (레지등록 프로그램 )파일 다운로드 : VBRegTLB6.exe VB6를 관리자 권한으로 설치한다. 관리자 권한으로 설치 합니다. 설치를 진행합니다. 동의 후 […]

Visual Studio 6 Windows Common Controls 6.0 (sp6) Windows 7, Error

2018년 03월 08일 golgol 0

99 행: TabStrip1 컨트롤의 MSComctlLib.TabStrip 클래스는 로드한 컨트롤 클래스가 아닙니다. https://www.microsoft.com/ko-kr/download/details.aspx?id=10019

Excel VBA 활용하기

2016년 11월 30일 golgol 0

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


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) &gt; 0, Sheet2.Cells(j, 2), "")
               Sheet1.Cells(i, 4) = Sheet2.Cells(j, 3)
               Sheet1.Cells(i, 5) = IIf(Sheet2.Cells(j, 4) &gt; 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

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


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

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


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

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

[vb] xml 특정 노드 제거

2013년 11월 01일 golgol 0

difference between char13 and char10

2013년 02월 01일 golgol 0

difference between char13 and char10. Control character Value Tab char(9) Line feed char(10) Carriage return char(13)

VB 에서 키보드 KeyAscii 값

2012년 08월 27일 golgol 0

상수 값 설명 LButton 1 마우스 왼쪽 단추 RButton 2 마우스 오른쪽 단추 Cancel 3 취소키 MButton 4 마우스 가운데 단추 Back 8 <백스페이스>키 Tab […]

Null 값 공백으로 받기

2012년 08월 23일 golgol 0


Dim sVal as string
--중간 생략--
sVal = IIf(IsNull(rs("Modi_Date")), "", rs("Modi_Date"))

//mssql query :
isNull(컬럼, '변경할문자')

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


CancelDate = 
     CASE WHEN CancelDate = '01  1 1900 12:00AM ' THEN ''
     ELSE CONVERT(varchar, CancelDate, 120) 
    END 
FROM Product_List

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/

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

2012년 08월 21일 golgol 0

‘영문 숫자만 입력가능 하게 만든 함수 (일일이 적기 귀찮아서 만들었음) Public Function CharacterMode(KeyAscii As Integer, Mode As Integer, Optional CharacterCode1 As Integer, Optional CharacterCode2 As […]

물음 메시지 함수

2012년 08월 21일 golgol 0

Function AskMsgBox(strMassege As String, Optional strTitle As String) As Boolean ‘물음 메시지. Dim Msg, Style, Help, Ctxt, Response ‘, MyString Msg = strMassege ‘ 기본 […]