VB Archives - icodebroker

[VB] 현재 시간을 밀리초까지 구하기

■ 현재 시간을 밀리초까지 구하는 방법을 보여준다. ▶ 예제 코드 (VB)


Public Type SYSTEMTIME

    Year        As Integer
    Month       As Integer
    DayOfWeek   As Integer
    Day         As Integer
    Hour        As Integer
    Minute      As Integer
    Second      As Integer
    Millisecond As Integer

End Type

Public Declare Sub GetLocalTime Lib "kernel32" (pSYSTEMTIME As SYSTEMTIME)

Private Sub cmdTest_Click()

    Dim pSYSTEMTIME As SYSTEMTIME

    GetLocalTime pSYSTEMTIME

    MsgBox pSYSTEMTIME.Hour & ":" & pSYSTEMTIME.Minute & ":" & pSYSTEMTIME.Second & "." & pSYSTEMTIME.Millisecond

End Sub

Public Type SYSTEMTIME

Year As Integer

Month As Integer

DayOfWeek As Integer

Day As Integer

Hour As Integer

Minute As Integer

Second As Integer

Millisecond As Integer

End Type

Public Declare Sub GetLocalTime Lib "kernel32" (pSYSTEMTIME As SYSTEMTIME)

Private Sub cmdTest_Click()

Dim pSYSTEMTIME As SYSTEMTIME

GetLocalTime pSYSTEMTIME

MsgBox pSYSTEMTIME.Hour & ":" & pSYSTEMTIME.Minute & ":" & pSYSTEMTIME.Second & "." & pSYSTEMTIME.Millisecond

End Sub

[VB] 문자열 추출하기

■ 문자열을 추출하는 방법을 보여준다. ▶ 문자열 추출하기 예제 (VB)


Print ExtractString("[ID] id1 [Password] password1", "[ID]", "[")

Print ExtractString("[ID] id1 [Password] password1", "[ID]", "[")

▶ 문자열 추출하기 (VB)


' 문자열 추출하기
' strSource  : 소스 문자열
' strSearch1 : 검색 문자열 1
' strSearch2 : 검색 문자열 2
Public Function ExtractString(strSource As String, strSearch1 As String, strSearch2 As String)

    Dim nSearch1 As Integer
    Dim nSearch2 As Integer

    If Not InStr(1, strSource, strSearch1) = 0 Then

        nSearch1 = InStr(1, strSource, strSearch1) + Len(strSearch1)

        nSearch2 = InStr(nSearch1, strSource, strSearch2)

        ExtractString = Mid(strSource, nSearch1, nSearch2 - nSearch1)

     Else

         ExtractString = ""

    End If

End Function

' 문자열 추출하기

' strSource : 소스 문자열

' strSearch1 : 검색 문자열 1

' strSearch2 : 검색 문자열 2

Public Function ExtractString(strSource As String, strSearch1 As String, strSearch2 As String)

Dim nSearch1 As Integer

Dim nSearch2 As Integer

If Not InStr(1, strSource, strSearch1) = 0 Then

nSearch1 = InStr(1, strSource, strSearch1) + Len(strSearch1)

nSearch2 = InStr(nSearch1, strSource, strSearch2)

ExtractString = Mid(strSource, nSearch1, nSearch2 - nSearch1)

Else

ExtractString = ""

End If

End Function

[VB] 문자열 선형 탐색하기

■ 문자열을 선형 탐색하는 방법을 보여준다. ▶ 문자열 선형 탐색하기 예제 (VB)


Dim strValueArray(1 To 100) As String
Dim nIndex                  As Integer
Dim I                       As Integer

For I = 1 To 100

    strValueArray(I) = "D" & Right("000" & I, 3)

Next

nIndex = LinearSearch(strValueArray, "D083")

If nIndex > -1 Then

    Print nIndex

Else

    Print "Not found"

End If

Dim strValueArray(1 To 100) As String

Dim nIndex As Integer

Dim I As Integer

For I = 1 To 100

strValueArray(I) = "D" & Right("000" & I, 3)

nIndex = LinearSearch(strValueArray, "D083")

If nIndex > -1 Then

Print nIndex

Else

Print "Not found"

End If

▶ 문자열 선형 탐색하기 (VB)


' 선형 탐색하기
' strValueArray : 값 배열
' strSearch     : 검색 문자열
' 반환값        : 인덱스, -1인 경우 찾는 항목이 없음
Public Function LinearSearch(strValueArray() As String, strSearch As String) As Integer

    Dim nFirstIndex As Integer
    Dim nLastIndex  As Integer
    Dim I           As Integer


    nFirstIndex = LBound(strValueArray)

    nLastIndex = UBound(strValueArray)


    For I = nFirstIndex To nLastIndex

        If strSearch = strValueArray(I) Then

            LinearSearch = I

            Exit Function

        End If

    Next I

    LinearSearch = -1

End Function

' 선형 탐색하기

' strValueArray : 값 배열

' strSearch : 검색 문자열

' 반환값 : 인덱스, -1인 경우 찾는 항목이 없음

Public Function LinearSearch(strValueArray() As String, strSearch As String) As Integer

Dim nFirstIndex As Integer

Dim nLastIndex As Integer

Dim I As Integer

nFirstIndex = LBound(strValueArray)

nLastIndex = UBound(strValueArray)

For I = nFirstIndex To nLastIndex

If strSearch = strValueArray(I) Then

LinearSearch = I

Exit Function

End If

Next I

LinearSearch = -1

End Function

[VB] 문자열 이진 탐색하기

■ 문자열을 이진 탐색하는 방법을 보여준다. ▶ 문자열 이진 탐색하기 예제 (VB)


Dim strValueArray(1 To 100) As String
Dim nIndex                  As Integer
Dim I                       As Integer

For I = 1 To 100

    strValueArray(I) = "D" & Right("000" & I, 3)

Next

nIndex = BinarySearch(strValueArray, "D083")

If nIndex > -1 Then

    Print nIndex

Else

    Print "Not found"

End If

Dim strValueArray(1 To 100) As String

Dim nIndex As Integer

Dim I As Integer

For I = 1 To 100

strValueArray(I) = "D" & Right("000" & I, 3)

nIndex = BinarySearch(strValueArray, "D083")

If nIndex > -1 Then

Print nIndex

Else

Print "Not found"

End If

▶ 문자열 이진 탐색하기 (VB)


' 이진 탐색하기
' strValueArray : 값 배열
' strSearch     : 검색 문자열
' 반환값        : 인덱스, -1인 경우 찾는 항목이 없음
Public Function BinarySearch(strValueArray() As String, strSearch As String) As Integer

    Dim nFirstIndex  As Integer
    Dim nLastIndex   As Integer
    Dim nMiddleIndex As Integer


    nFirstIndex = LBound(strValueArray)

    nLastIndex = UBound(strValueArray)


    Do While nFirstIndex <= nLastIndex

        nMiddleIndex = (nFirstIndex + nLastIndex) / 2

        If strSearch = strValueArray(nMiddleIndex) Then

            BinarySearch = nMiddleIndex

            Exit Function

        Else

            If strSearch < strValueArray(nMiddleIndex) Then

                nLastIndex = nMiddleIndex - 1

            Else

                nFirstIndex = nMiddleIndex + 1

            End If

        End If

    Loop

    BinarySearch = -1

End Function

' 이진 탐색하기

' strValueArray : 값 배열

' strSearch : 검색 문자열

' 반환값 : 인덱스, -1인 경우 찾는 항목이 없음

Public Function BinarySearch(strValueArray() As String, strSearch As String) As Integer

Dim nFirstIndex As Integer

Dim nLastIndex As Integer

Dim nMiddleIndex As Integer

nFirstIndex = LBound(strValueArray)

nLastIndex = UBound(strValueArray)

Do While nFirstIndex <= nLastIndex

nMiddleIndex = (nFirstIndex + nLastIndex) / 2

If strSearch = strValueArray(nMiddleIndex) Then

BinarySearch = nMiddleIndex

Exit Function

Else

If strSearch < strValueArray(nMiddleIndex) Then

nLastIndex = nMiddleIndex - 1

Else

nFirstIndex = nMiddleIndex + 1

End If

Loop

BinarySearch = -1

End Function

[VB] DBEngine 클래스 : CompactDatabase 메소드를 사용해 패스워드를 갖는 MDB 파일 압축하기

■ DBEngine 클래스의 CompactDatabase 메소드를 사용해 패스워드를 갖는 MDB 파일을 압축하는 방법을 보여준다. ▶ 예제 코드 (VB)


DBEngine.CompactDatabase "c:\source.mdb", "c:\target.mdb", False, False, "MS Access;PWD=1234"

DBEngine.CompactDatabase "c:\source.mdb", "c:\target.mdb", False, False, "MS Access;PWD=1234"

[VB] INI 파일 항목 값 읽기

■ INI 파일 항목 값을 읽는 방법을 보여준다. ▶ 예제 코드 (VB)


[Examination]
ExaminationType=5

[Examination]

ExaminationType=5

▶ API 선언 (VB)


Declare Function WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" (strApplicationName As String, strKeyName As String, strKeyDefault As String, strFileName As String)

Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (strApplicationName As String, strKeyName As String, strKeyDefault As String, strReturnValue As String,  lSize As Long, strFileName As String)

Declare Function WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" (strApplicationName As String, strKeyName As String, strKeyDefault As String, strFileName As String)

Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (strApplicationName As String, strKeyName As String, strKeyDefault As String, strReturnValue As String, lSize As Long, strFileName As String)

▶ 함수 호출 (VB)

[VB] OPENDATABASE 명령문을 사용해 패스워드를 갖는 MDB 파일 열기

■ OPENDATABASE 명령문을 사용해 패스워드를 갖는 MDB 파일을 여는 방법을 보여준다. ▶ 예제 코드 (VB)


Dim pDatabase As Database

Set pDatabase = OpenDatabase("c:\test.mdb", False, False, "MS Access;PWD=1234")

Dim pDatabase As Database

Set pDatabase = OpenDatabase("c:\test.mdb", False, False, "MS Access;PWD=1234")

[VB] 애플리케이션 중복 여부 구하기

■ 애플리케이션 중복 여부를 구하는 방법을 보여준다. ▶ 예제 코드 (VB)


If App.PrevInstance Then

    MsgBox "이미 시스템을 실행 중입니다.", vbInformation, "알림"

    End

End If

If App.PrevInstance Then

MsgBox "이미 시스템을 실행 중입니다.", vbInformation, "알림"

End

End If

[VB] DBEngine 클래스 : CompectDatabase 메소드를 사용해 MDB 파일 압축하기

■ DBEngine 클래스의 CompectDatabase 메소드를 사용해 MDB 파일을 압축하는 방법을 보여준다. ▶ 예제 코드 (VB)


Dim strSourceFilePath As String
Dim strTargetFilePath As String

strSourceFilePath = "c:\source.mdb"
strTargetFilePath = "c:\target.mdb"

DBEngine.CompactDatabase strSourceFilePath, strTargetFilePath

Dim strSourceFilePath As String

Dim strTargetFilePath As String

strSourceFilePath = "c:\source.mdb"

strTargetFilePath = "c:\target.mdb"

DBEngine.CompactDatabase strSourceFilePath, strTargetFilePath

[VB] MDB 파일 정보 구하기

■ MDB 파일 정보를 구하는 방법을 보여준다. ▶ 예제 코드 (VB)


Dim pDatabase   As Database
Dim strFilePath As String

strFilePath = "c:\test.mdb"

Set pDatabase = OpenDatabase(strFilePath)

Print pDatabase.Name           ' 데이터베이스명
Print pDatabase.Version        ' 데이터베이스 버전
Print pDatabase.CollatingOrder ' 정렬 순서

pDatabase.Close

Dim pDatabase As Database

Dim strFilePath As String

strFilePath = "c:\test.mdb"

Set pDatabase = OpenDatabase(strFilePath)

Print pDatabase.Name ' 데이터베이스명

Print pDatabase.Version ' 데이터베이스 버전

Print pDatabase.CollatingOrder ' 정렬 순서

pDatabase.Close

[VB] 마우스 커서 표시 여부 설정하기

■ 마우스 커서 표시 여부를 설정하는 방법을 보여준다. ▶ 마우스 커서 표시 여부 설정하기 예제 (VB)


ShowCursor True  ' 마우스 커서를 보여준다.

ShowCursor False ' 마우스 커서를 숨긴다.

ShowCursor True ' 마우스 커서를 보여준다.

ShowCursor False ' 마우스 커서를 숨긴다.

▶ 마우스 커서 표시 여부

[VB] 클래스 사용하기

■ 클래스를 사용하는 방법을 보여준다. ▶ 클래스 사용하기 예제 (VB)


Dim pTestClass As TestClass

Set pTestClass = New TestClass

pTestClass.ValueA = 10
pTestClass.ValueB = 50

Print pTestClass.GetSummary()

Dim pTestClass As TestClass

Set pTestClass = New TestClass

pTestClass.ValueA = 10

pTestClass.ValueB = 50

Print pTestClass.GetSummary()

▶ 클래스 사용하기 예제 (VB)


Option Explicit

Private m_nValueA As Integer

Private m_nValueB As Integer

Private Sub Class_Initialize()

    m_nValueA = 0
    m_nValueB = 0

End Sub

Public Property Get ValueA() As Integer

    ValueA = m_nValueA

End Property

Public Property Let ValueA(nValue As Integer)

    m_nValueA = nValue

End Property

Public Property Get ValueB() As Integer

    ValueB = m_nValueB

End Property

Public Property Let ValueB(nValue As Integer)

    m_nValueB = nValue

End Property

Public Function GetSummary() As Integer

    GetSummary = m_nValueA + m_nValueB

End Function

Option Explicit

Private m_nValueA As Integer

Private m_nValueB As Integer

Private Sub Class_Initialize()

m_nValueA = 0

m_nValueB = 0

End Sub

Public Property Get ValueA() As Integer

ValueA = m_nValueA

End Property

Public Property Let ValueA(nValue As Integer)

m_nValueA = nValue

End Property

Public Property Get ValueB() As Integer

ValueB = m_nValueB

End Property

Public Property Let ValueB(nValue As Integer)

m_nValueB = nValue

End Property

Public Function GetSummary() As Integer

GetSummary = m_nValueA + m_nValueB

End Function

[VB] 아래 한글 페이지 마진 설정하기

■ 아래 한글 페이지 마진을 설정하는 방법을 보여준다. ▶ 예제 코드 (VB)


'--------------------------------------------------
' 아래 한글 페이지 마진 설정하기 (단위 : 밀리미터)
'--------------------------------------------------
' pHwpCtrl      : HwpCtrl OCX
' dLeftMargin   : 왼쪽 마진
' dTopMargin    : 위쪽 마진
' dRightMargin  : 오른쪽 마진
' dBottomMargin : 아래쪽 마진
'--------------------------------------------------
Public Sub HWPSetPageMargin(pHwpCtrl As HwpCtrl, dLeftMargin As Double, dTopMargin As Double, dRightMargin As Double, dBottomMargin As Double)

    Dim pHwpAction        As HwpAction
    Dim pHwpParameterSet1 As HwpParameterSet
    Dim pHwpParameterSet2 As HwpParameterSet

    Set pHwpAction = pHwpCtrl.CreateAction("PageSetup")

    Set pHwpParameterSet1 = pHwpAction.CreateSet()

    pHwpAction.GetDefault pHwpParameterSet1

    pHwpParameterSet1.SetItem "ApplyTo", 3

    Set pHwpParameterSet2 = pHwpParameterSet1.CreateItemSet("PageDef", "PageDef")

    pHwpParameterSet2.SetItem "TopMargin", HWPGetUnit(dTopMargin)
    pHwpParameterSet2.SetItem "BottomMargin", HWPGetUnit(dBottomMargin)
    pHwpParameterSet2.SetItem "LeftMargin", HWPGetUnit(dLeftMargin)
    pHwpParameterSet2.SetItem "RightMargin", HWPGetUnit(dRightMargin)
    pHwpParameterSet2.SetItem "HeaderLen", 0
    pHwpParameterSet2.SetItem "FooterLen", 0
    pHwpParameterSet2.SetItem "GutterLen", 0

    pHwpAction.Execute pHwpParameterSet1

    Set pHwpParameterSet2 = Nothing

    Set pHwpParameterSet2 = Nothing

    Set pHwpAction = Nothing

End Sub

'--------------------------------------------------

' 아래 한글 페이지 마진 설정하기 (단위 : 밀리미터)

'--------------------------------------------------

' pHwpCtrl : HwpCtrl OCX

' dLeftMargin : 왼쪽 마진

' dTopMargin : 위쪽 마진

' dRightMargin : 오른쪽 마진

' dBottomMargin : 아래쪽 마진

'--------------------------------------------------

Public Sub HWPSetPageMargin(pHwpCtrl As HwpCtrl, dLeftMargin As Double, dTopMargin As Double, dRightMargin As Double, dBottomMargin As Double)

Dim pHwpAction As HwpAction

Dim pHwpParameterSet1 As HwpParameterSet

Dim pHwpParameterSet2 As HwpParameterSet

Set pHwpAction = pHwpCtrl.CreateAction("PageSetup")

Set pHwpParameterSet1 = pHwpAction.CreateSet()

pHwpAction.GetDefault pHwpParameterSet1

pHwpParameterSet1.SetItem "ApplyTo", 3

Set pHwpParameterSet2 = pHwpParameterSet1.CreateItemSet("PageDef", "PageDef")

pHwpParameterSet2.SetItem "TopMargin", HWPGetUnit(dTopMargin)

pHwpParameterSet2.SetItem "BottomMargin", HWPGetUnit(dBottomMargin)

pHwpParameterSet2.SetItem "LeftMargin", HWPGetUnit(dLeftMargin)

pHwpParameterSet2.SetItem "RightMargin", HWPGetUnit(dRightMargin)

pHwpParameterSet2.SetItem "HeaderLen", 0

pHwpParameterSet2.SetItem "FooterLen", 0

pHwpParameterSet2.SetItem "GutterLen", 0

pHwpAction.Execute pHwpParameterSet1

Set pHwpParameterSet2 = Nothing

Set pHwpAction = Nothing

End Sub

※ HWPGetUnit 함수 : "아래 한글 단위 구하기" 참조

[VB] 마우스 위치를 폼 내부로 제한하기

■ 마우스 위치를 폼 내부로 제한하는 방법을 보여준다. ▶ 예제 코드 (VB)


Option Explicit

Private Declare Function ClientToScreen& Lib "user32" (ByVal pWindowHandle As Long, pPOINT As POINT)
Private Declare Function ClipCursor& Lib "user32" (pRECT As RECT)
Private Declare Function ClipCursorBynum& Lib "user32" Alias "ClipCursor" (ByVal pRECT As Long)
Private Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long)

Private Type POINT

    X As Long
    Y As Long

End Type

Private Type RECT

    Left As Long
    Top As Long
    Right As Long
    Bottom As Long

End Type

Private Sub Form_Load()

    Me.ScaleMode = 3 ' 픽셀

End Sub

Private Sub btnStart_Click()

    Dim pRECT  As RECT
    Dim pPOINT As POINT

    pPOINT.X = 0
    pPOINT.Y = 0

    ClientToScreen& Me.hwnd, pPOINT

    pRECT.Top = pPOINT.Y
    pRECT.Left = pPOINT.X
    pRECT.Right = pRECT.Left + Me.ScaleWidth
    pRECT.Bottom = pRECT.Top + Me.ScaleHeight

    ClipCursor& pRECT

End Sub

Private Sub btnRestore_Click()

    ClipCursorBynum& 0

End Sub

Option Explicit

Private Declare Function ClientToScreen& Lib "user32" (ByVal pWindowHandle As Long, pPOINT As POINT)

Private Declare Function ClipCursor& Lib "user32" (pRECT As RECT)

Private Declare Function ClipCursorBynum& Lib "user32" Alias "ClipCursor" (ByVal pRECT As Long)

Private Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long)

Private Type POINT

X As Long

Y As Long

End Type

Private Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Private Sub Form_Load()

Me.ScaleMode = 3 ' 픽셀

End Sub

Private Sub btnStart_Click()

Dim pRECT As RECT

Dim pPOINT As POINT

pPOINT.X = 0

pPOINT.Y = 0

ClientToScreen& Me.hwnd, pPOINT

pRECT.Top = pPOINT.Y

pRECT.Left = pPOINT.X

pRECT.Right = pRECT.Left + Me.ScaleWidth

pRECT.Bottom = pRECT.Top + Me.ScaleHeight

ClipCursor& pRECT

End Sub

Private Sub btnRestore_Click()

ClipCursorBynum& 0

End Sub

[VB] 아래 한글 테이블 추가하기

■ 아래 한글 테이블을 추가하는 방법을 보여준다. ▶ 아래 한글 테이블 추가하기 예제 (VB)


HWPHideSecurityWarningWindow pHwpCtrl

pHwpCtrl.EditMode = 0

pHwpCtrl.Open "c:\template.hwp"

pHwpCtrl.MovePos 3

'--------------------------------------------------
' 테이블 초기화 데이터를 생성한다. (컬럼 수 : 8)
'--------------------------------------------------
Dim pColumnWidthArray     As Variant ' 컬럼 너비 배열 (단위 : 밀리미터)
Dim pColumnAlignmentArray As Variant ' 컬럼 정렬 배열 ; 왼쪽 정렬(L), 가운데 정렬(C), 오른쪽 정렬(R)
Dim pColumnHeaderArray    As Variant ' 컬럼 헤더 배열

ReDim pColumnWidthArray(1 To 8) As Variant
ReDim pColumnAlignmentArray(1 To 8) As Variant
ReDim pColumnHeaderArray(1 To 8) As Variant

' A4 가로 페이지 여백 10mm 설정시 이용 가능 크기 : 약 246 mm
pColumnWidthArray(1) = 30.75
pColumnWidthArray(2) = 30.75
pColumnWidthArray(3) = 30.75
pColumnWidthArray(4) = 30.75
pColumnWidthArray(5) = 30.75
pColumnWidthArray(6) = 30.75
pColumnWidthArray(7) = 30.75
pColumnWidthArray(8) = 30.75

pColumnAlignmentArray(1) = "L"
pColumnAlignmentArray(2) = "C"
pColumnAlignmentArray(3) = "R"
pColumnAlignmentArray(4) = "L"
pColumnAlignmentArray(5) = "L"
pColumnAlignmentArray(6) = "R"
pColumnAlignmentArray(7) = "L"
pColumnAlignmentArray(8) = "L"

pColumnHeaderArray(1) = "가"
pColumnHeaderArray(2) = "나"
pColumnHeaderArray(3) = "다"
pColumnHeaderArray(4) = "라"
pColumnHeaderArray(5) = "마"
pColumnHeaderArray(6) = "바"
pColumnHeaderArray(7) = "사"
pColumnHeaderArray(8) = "아"

'--------------------------------------------------
' 테이블 데이터를 생성한다.
' ※ 일반적으로 데이터베이스 조회 데이터를 설정한다.
'--------------------------------------------------
Dim strValueArray() As String

ReDim strValueArray(1 To 200, 1 To 8) As String

Dim Y, X

For Y = 1 To 200

    For X = 1 To 3

        strValueArray(Y, X) = "Z" & Y & "," & X

    Next X

Next Y

'--------------------------------------------------
' 페이지 방향을 설정한다.
'--------------------------------------------------
HWPSetPageDirection pHwpCtrl, True

'--------------------------------------------------
' 테이블을 초기화 한다.
'--------------------------------------------------
HWPInitializeTable pHwpCtrl, 8, pColumnWidthArray, pColumnAlignmentArray, pColumnHeaderArray

'--------------------------------------------------
' 리포트 테이블을 추가한다.
'--------------------------------------------------
HWPInsertReportTable pHwpCtrl, strValueArray, 30, 30


pHwpCtrl.MovePos 2

HWPHideSecurityWarningWindow pHwpCtrl

pHwpCtrl.EditMode = 0

pHwpCtrl.Open "c:\template.hwp"

pHwpCtrl.MovePos 3

'--------------------------------------------------

' 테이블 초기화 데이터를 생성한다. (컬럼 수 : 8)

'--------------------------------------------------

Dim pColumnWidthArray As Variant ' 컬럼 너비 배열 (단위 : 밀리미터)

Dim pColumnAlignmentArray As Variant ' 컬럼 정렬 배열 ; 왼쪽 정렬(L), 가운데 정렬(C), 오른쪽 정렬(R)

Dim pColumnHeaderArray As Variant ' 컬럼 헤더 배열

ReDim pColumnWidthArray(1 To 8) As Variant

ReDim pColumnAlignmentArray(1 To 8) As Variant

ReDim pColumnHeaderArray(1 To 8) As Variant

' A4 가로 페이지 여백 10mm 설정시 이용 가능 크기 : 약 246 mm

pColumnWidthArray(1) = 30.75

pColumnWidthArray(2) = 30.75

pColumnWidthArray(3) = 30.75

pColumnWidthArray(4) = 30.75

pColumnWidthArray(5) = 30.75

pColumnWidthArray(6) = 30.75

pColumnWidthArray(7) = 30.75

pColumnWidthArray(8) = 30.75

pColumnAlignmentArray(1) = "L"

pColumnAlignmentArray(2) = "C"

pColumnAlignmentArray(3) = "R"

pColumnAlignmentArray(4) = "L"

pColumnAlignmentArray(5) = "L"

pColumnAlignmentArray(6) = "R"

pColumnAlignmentArray(7) = "L"

pColumnAlignmentArray(8) = "L"

pColumnHeaderArray(1) = "가"

pColumnHeaderArray(2) = "나"

pColumnHeaderArray(3) = "다"

pColumnHeaderArray(4) = "라"

pColumnHeaderArray(5) = "마"

pColumnHeaderArray(6) = "바"

pColumnHeaderArray(7) = "사"

pColumnHeaderArray(8) = "아"

'--------------------------------------------------

' 테이블 데이터를 생성한다.

' ※ 일반적으로 데이터베이스 조회 데이터를 설정한다.

'--------------------------------------------------

Dim strValueArray() As String

ReDim strValueArray(1 To 200, 1 To 8) As String

Dim Y, X

For Y = 1 To 200

For X = 1 To 3

strValueArray(Y, X) = "Z" & Y & "," & X

Next X

Next Y

'--------------------------------------------------

' 페이지 방향을 설정한다.

'--------------------------------------------------

HWPSetPageDirection pHwpCtrl, True

'--------------------------------------------------

' 테이블을 초기화 한다.

'--------------------------------------------------

HWPInitializeTable pHwpCtrl, 8, pColumnWidthArray, pColumnAlignmentArray, pColumnHeaderArray

'--------------------------------------------------

' 리포트 테이블을 추가한다.

'--------------------------------------------------

HWPInsertReportTable pHwpCtrl, strValueArray, 30, 30

pHwpCtrl.MovePos 2

※ HWPHideSecurityWarningWindow 메소드 : "아래 한글 문서

[VB] 아래 한글 텍스트 크기 설정하기

■ 아래 한글 텍스트 크기를 설정하는 방법을 보여준다. ▶ 예제 코드 (VB)


'--------------------------------------------------
' 아래 한글 텍스트 크기 설정하기
'--------------------------------------------------
' pHwpCtrl : HwpCtrl OCX
' dSize    : 크기
'--------------------------------------------------
Public Sub HWPSetTextHeight(pHwpCtrl As HwpCtrl, dSize As Double)

    Dim pHwpAction       As HwpAction
    Dim pHwpParameterSet As HwpParameterSet

    Set pHwpAction = pHwpCtrl.CreateAction("CharShape")

    Set pHwpParameterSet = pHwpAction.CreateSet()

    pHwpAction.GetDefault pHwpParameterSet

    pHwpParameterSet.SetItem "Height", HWPGetUnit(dSize) ' "아래 한글 단위 구하기" 참조

    pHwpAction.Execute pHwpParameterSet

    Set pHwpAction = Nothing

    Set pHwpParameterSet = Nothing

End Sub

'--------------------------------------------------

' 아래 한글 텍스트 크기 설정하기

'--------------------------------------------------

' pHwpCtrl : HwpCtrl OCX

' dSize : 크기

'--------------------------------------------------

Public Sub HWPSetTextHeight(pHwpCtrl As HwpCtrl, dSize As Double)

Dim pHwpAction As HwpAction

Dim pHwpParameterSet As HwpParameterSet

Set pHwpAction = pHwpCtrl.CreateAction("CharShape")

Set pHwpParameterSet = pHwpAction.CreateSet()

pHwpAction.GetDefault pHwpParameterSet

pHwpParameterSet.SetItem "Height", HWPGetUnit(dSize) ' "아래 한글 단위 구하기" 참조

pHwpAction.Execute pHwpParameterSet

Set pHwpAction = Nothing

Set pHwpParameterSet = Nothing

End Sub

[VB] 아래 한글 텍스트 색상 설정하기

■ 아래 한글 텍스트 색상을 설정하는 방법을 보여준다. ▶ 예제 코드 (VB)


'--------------------------------------------------
' 아래 한글 텍스트 색상 설정하기
'--------------------------------------------------
' pHwpCtrl   : HwpCtrl OCX
' nTextColor : 텍스트 색상
'--------------------------------------------------
Public Sub HWPSetTextColor(pHwpCtrl As HwpCtrl, nTextColor As Integer)

    Dim pHwpAction       As HwpAction
    Dim pHwpParameterSet As HwpParameterSet

    Set pHwpAction = pHwpCtrl.CreateAction("CharShape")

    Set pHwpParameterSet = pHwpAction.CreateSet()

    pHwpAction.GetDefault pHwpParameterSet

    pHwpParameterSet.SetItem "TextColor", nTextColor

    pHwpAction.Execute pHwpParameterSet

    Set pHwpAction = Nothing

    Set pHwpParameterSet = Nothing

End Sub

'--------------------------------------------------

' 아래 한글 텍스트 색상 설정하기

'--------------------------------------------------

' pHwpCtrl : HwpCtrl OCX

' nTextColor : 텍스트 색상

'--------------------------------------------------

Public Sub HWPSetTextColor(pHwpCtrl As HwpCtrl, nTextColor As Integer)

Dim pHwpAction As HwpAction

Dim pHwpParameterSet As HwpParameterSet

Set pHwpAction = pHwpCtrl.CreateAction("CharShape")

Set pHwpParameterSet = pHwpAction.CreateSet()

pHwpAction.GetDefault pHwpParameterSet

pHwpParameterSet.SetItem "TextColor", nTextColor

pHwpAction.Execute pHwpParameterSet

Set pHwpAction = Nothing

Set pHwpParameterSet = Nothing

End Sub

[VB] 아래 한글 페이지 방향 설정하기

■ 아래 한글 페이지 방향을 설정하는 방법을 보여준다. ▶ 예제 코드 (VB)


'--------------------------------------------------
' 아래 한글 페이지 방향 설정하기
'--------------------------------------------------
' pHwpCtrl   : HwpCtrl OCX
' bLandsacpe : 가로 방향 여부
'--------------------------------------------------
Public Sub HWPSetPageDirection(pHwpCtrl As HwpCtrl, bLandsacpe As Boolean)

    Dim pHwpAction                As HwpAction
    Dim pHwpParameterSet          As HwpParameterSet
    Dim pSubsidaryHwpParameterSet As HwpParameterSet

    Set pHwpAction = pHwpCtrl.CreateAction("PageSetup")

    Set pHwpParameterSet = pHwpAction.CreateSet()

    pHwpAction.GetDefault pHwpParameterSet

    pHwpParameterSet.SetItem "ApplyTo", 3

    Set pSubsidaryHwpParameterSet = pHwpParameterSet.CreateItemSet("PageDef", "PageDef")


    If bLandsacpe = True Then

        pSubsidaryHwpParameterSet.SetItem "Landscape", 1

    Else

        pSubsidaryHwpParameterSet.SetItem "Landscape", 0

    End If

    pHwpAction.Execute pHwpParameterSet

    Set pHwpParameterSet = Nothing

    Set pHwpAction = Nothing

End Sub

'--------------------------------------------------

' 아래 한글 페이지 방향 설정하기

'--------------------------------------------------

' pHwpCtrl : HwpCtrl OCX

' bLandsacpe : 가로 방향 여부

'--------------------------------------------------

Public Sub HWPSetPageDirection(pHwpCtrl As HwpCtrl, bLandsacpe As Boolean)

Dim pHwpAction As HwpAction

Dim pHwpParameterSet As HwpParameterSet

Dim pSubsidaryHwpParameterSet As HwpParameterSet

Set pHwpAction = pHwpCtrl.CreateAction("PageSetup")

Set pHwpParameterSet = pHwpAction.CreateSet()

pHwpAction.GetDefault pHwpParameterSet

pHwpParameterSet.SetItem "ApplyTo", 3

Set pSubsidaryHwpParameterSet = pHwpParameterSet.CreateItemSet("PageDef", "PageDef")

If bLandsacpe = True Then

pSubsidaryHwpParameterSet.SetItem "Landscape", 1

Else

pSubsidaryHwpParameterSet.SetItem "Landscape", 0

End If

pHwpAction.Execute pHwpParameterSet

Set pHwpParameterSet = Nothing

Set pHwpAction = Nothing

End Sub

[VB] PUT 명령문을 사용해 파일 쓰기

■ PUT 명령문을 사용해 파일을 쓰는 방법을 보여준다. ▶ 예제 코드 (VB)


Put #파일 번호, [레코드 번호 또는 바이트 번호], 변수

Put #파일 번호, [레코드 번호 또는 바이트 번호], 변수

※ 레코드 번호 생략시 가장 최근 사용한 레코드 다음

[VB] GET 명령문을 사용해 파일 읽기

■ GET 명령문을 사용해 파일을 읽는 방법을 보여준다. ▶ 예제 코드 (VB)


Get #파일 번호, [레코드 번호 또는 바이트 번호], 변수

Get #파일 번호, [레코드 번호 또는 바이트 번호], 변수

※ 레코드 번호 생략시 가장 최근 사용한 레코드 다음

[VB] EOF 함수를 사용해 파일 끝 여부 구하기

■ EOF 함수를 사용해 파일 끝 여부를 구하는 방법을 보여준다. ▶ 예제 코드 (VB)


Do While Not EOF(1)

   ...

Loop

Do While Not EOF(1)

...

Loop

※ EOF 함수 사용시 파일 번호 앞에

[VB] CLOSE 명령문을 사용해 파일 닫기

■ CLOSE 명령문을 사용해 파일을 닫는 방법을 보여준다. ▶ 예제 코드 (VB)


Close #파일 번호

Close #파일 번호

[VB] WRITE 명령문을 사용해 파일 쓰기

■ WRITE 명령문을 사용해 파일을 쓰는 방법을 보여준다. ▶ 예제 코드 (VB)


Write #파일 번호, 출력 리스트

Write #파일 번호, 출력 리스트

※ 출력 리스트는 상수나 변수이다.

[VB] PRINT 명령문을 사용해 파일 쓰기

■ PRINT 명령문을 사용해 파일을 쓰는 방법을 보여준다. ▶ 예제 코드 (VB)


Print #파일 번호, 출력 리스트

Print #파일 번호, 출력 리스트

※ 출력 리스트는 상수나 변수이다.

[VB] INPUTB 함수를 사용해 파일 읽기

■ INPUTB 함수를 사용해 파일을 읽는 방법을 보여준다. ▶ 예제 코드 (VB)


변수 = InputB(바이트 수, #파일 번호)

변수 = InputB(바이트 수, #파일 번호)