[VB] LINE INPUT 명령문을 사용해 파일 읽기
■ LINE INPUT 명령문을 사용해 파일을 읽는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 |
Line Input #파일 번호, 변수명 |
[카테고리:] VB
[VB] INPUT 함수를 사용해 파일 읽기
■ INPUT 함수를 사용해 파일을 읽는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 |
변수 = Input(글자 수, #파일 번호) |
[VB] INPUT 명령문을 사용해 파일 읽기
■ INPUT 명령문을 사용해 파일을 읽는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 |
Input #파일 번호, 변수명 리스트 |
※ 변수명 리스트 : 변수명1, 변수명2, …, 변수명N
[VB] OPEN 명령문을 사용해 파일 열기
■ OPEN 명령문을 사용해 파일을 여는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Open 파일명 For 모드 As #파일 번호 [Len = 버퍼 크기] [모드] • Input : 읽기 전용 모드 • Output : 쓰기 전용 모드 • Append : 추가 모드 • Random : 랜덤 액세스 모드 • Binary : 이진 모드 •파일 번호 : 1 ~ 51 사이 정수 |
[VB] ERROR 명령문을 사용해 에러 발생시키기
■ ERROR 명령문을 사용해 에러를 발생시키는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 |
Error 58 |
[VB] 프로세스 제거하기
■ 프로세스를 제거하는 방법을 보여준다. ▶ 예제 코드 (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 |
Private Function KillProcess(strProcess As String) Dim pService As Object Dim pObjectSet As Object Dim pObject As Object Set pService = GetObject("winmgmts:") Set pObjectSet = pService.ExecQuery("SELECT * FROM win32_process") For Each pObject In pObjectSet DoEvents If LCase(pObject.Name) = strProcess Then pObject.Terminate Exit For End If Next End Function |
[VB] BASE64 문자열 인코딩/디코딩 하기
■ BASE64 문자열을 인코딩/디코깅하는 방법을 보여준다. ▶ BASE64 문자열 인코딩/디코깅 하기 예제 (VB)
|
1 2 3 4 5 6 7 8 9 |
Dim strBase64 As String strBase64 = GetBase64String(StrConv("테스트 문자열", vbFromUnicode)) Print strBase64 Print StrConv(GetUnicodeString(strBase64), vbUnicode) |
1. 프로젝트 / 참조 메뉴를 클릭한다. 2. 참조
[VB] 아래 한글 텍스트 대체하기
■ 아래 한글의 텍스트를 대체하는 방법을 보여준다. ▶ 예제 코드 (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 |
'-------------------------------------------------- ' 아래 한글 텍스트 대체하기 '-------------------------------------------------- ' pHwpCtrl : HwpCtrl OCX ' strSource : 소스 문자열 ' strReplace : 대체 문자열 '-------------------------------------------------- Public Sub ReplaceText(pHwpCtrl As HwpCtrl, strSource As String, strReplace As String) Dim pHwpAction As HwpAction Dim pHwpParameterSet As HwpParameterSet Set pHwpAction = pHwpCtrl.CreateAction("AllReplace") Set pHwpParameterSet = pHwpAction.CreateSet() pHwpParameterSet.SetItem "FindString", strSource ' 찾을 문자열 pHwpParameterSet.SetItem "ReplaceString", strReplace ' 대체 문자열 pHwpParameterSet.SetItem "IgnoreMessage", True ' 메시지 무시 여부 pHwpParameterSet.SetItem "Direction", 2 ' 찾을 방향 : 앞(0), 뒤(1), 전체(2) pHwpParameterSet.SetItem "SeveralWords", True ' 복수 단어 찾기 여부 pHwpAction.Execute pHwpParameterSet Set pHwpAction = Nothing Set pHwpParameterSet = Nothing End Sub |
[VB] 아래 한글 도구 모음줄 표시하기
■ 아래 한글의 도구 모음줄 표시하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
pHwpCtrl.SetToolBar 0, "FilePreview, Print, Separator, Undo, Redo, Separator, Cut, Copy, Paste," + _ "Separator, ParaNumberBullet, MultiColumn, SpellingCheck, HwpDic, Separator, PictureInsertDialog, MacroPlay1" pHwpCtrl.SetToolBar 1, "DrawObjCreatorLine, DrawObjCreatorRectangle, DrawObjCreatorEllipse," + _ "DrawObjCreatorArc, DrawObjCreatorPolygon, DrawObjCreatorCurve, DrawObjTemplateLoad," + _ "Separator, ShapeObjSelect, ShapeObjGroup, ShapeObjUngroup, Separator, ShapeObjBringToFront," + _ "ShapeObjSendToBack, ShapeObjDialog, ShapeObjAttrDialog" pHwpCtrl.SetToolBar 2, "StyleCombo, CharShapeLanguage, CharShapeTypeFace, CharShapeHeight," + _ "CharShapeBold, CharShapeItalic, CharShapeUnderline, ParagraphShapeAlignJustify, ParagraphShapeAlignLeft," + _ "ParagraphShapeAlignCenter, ParagraphShapeAlignRight, Separator, ParaShapeLineSpacing," + _ "ParagraphShapeDecreaseLeftMargin, ParagraphShapeIncreaseLeftMargin" pHwpCtrl.ShowToolBar True |
[VB] 커스텀 데이터 타입 사용하기
■ 커스텀 데이터 타입을 사용하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 |
Type Student ID As Integer Name As String End Type Dim Student1 As Student |
[VB] 파일 속성 구하기
■ 파일 속성을 구하는 방법을 보여준다. ▶ 예제 코드 (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 |
Public Function IsReadOnlyFile(nFileAttribute As Integer) As Boolean IsReadOnlyFile = (nFileAttribute And 1) > 0 ' 읽기 전용 파일 End Function Public Function IsHiddenFile(nFileAttribute As Integer) As Boolean IsHiddenFile = (nFileAttribute And 2) > 0 ' 숨김 파일 End Function Public Function IsSystemFile(nFileAttribute As Integer) As Boolean IsSystemFile = (nFileAttribute And 4) > 0 ' 시스템 파일 End Function Public Function IsDiskVolume(nFileAttribute As Integer) As Boolean IsDiskVolume = (nFileAttribute And 8) > 0 ' 디스크 볼륨 End Function Public Function IsDirectory(nFileAttribute As Integer) As Boolean IsDirectory = (nFileAttribute And 16) > 0 ' 디렉토리 End Function Public Function IsArchiveFile(nFileAttribute As Integer) As Boolean IsArchiveFile = (nFileAttribute And 32) > 0 ' 아카이브 파일 End Function |
[VB] RMDIR 명령문을 사용해 디렉토리 제거하기
■ RMDIR 명령문을 사용해 디렉토리를 제거하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 |
RmDir "c:\test" |
[VB] 파일 길이 구하기
■ 파일 길이를 구하는 방법을 보여준다. ▶ 예제 코드 (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 40 |
Public Function GetFileSize(strFileName) As String Dim strFileLength As String On Error GoTo ErrorLabel strFileLength = FileLen(strFileName) If strFileLength >= "1024" Then 'KB strFileLength = CCur(strFileLength / 1024) & "KB" Else If strFileLength >= "1048576" Then 'MB strFileLength = CCur(strFileLength / (1024 * 1024)) & "KB" Else strFileLength = CCur(strFileLength) & "B" End If End If GetFileSize = strFileLength Exit Function ErrorLabel: GetFileSize = "0B" Resume End Function |
[VB] MKDIR 명령문을 사용해 디렉토리 생성하기
■ MKDIR 명령문을 사용해 디렉토리를 생성하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 |
MkDir "c:\test" |
[VB] 16진수 문자열 → 2진수 문자열 구하기
■ 16진수 문자열 → 2진수 문자열로 구하는 방법을 보여준다. ▶ 예제 코드 (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 |
Public Function GetBinaryCode(ByVal strHexadecimalCode As String) As String Dim nHexadecimalStringLength As Integer Dim nTemporaryNumber As Integer Dim strResult As String Dim I As Integer Dim J As Integer nHexadecimalCodeLength = Len(strHexadecimalCode) For I = 1 To nHexadecimalCodeLength nTemporaryNumber = CInt("&H" & Mid(strHexadecimalCode, I, 1)) For J = 3 To 0 Step -1 If nTemporaryNumber >= 2 ^ J Then strResult = strResult & "1" nTemporaryNumber = nTemporaryNumber - 2 ^ J Else strResult = strResult & "0" End If Next J Next I GetBinaryCode = strResult End Function |
[VB] MDI폼 타이틀바 감추기
■ MDI폼 타이틀바를 감추는 방법을 보여준다. BoardStyle이 없는 MDI폼의 타이틀바를 API를 이용해서 않보이게 한다. 1. 모듈에서 다음의 API 함수를 선언한다. ▶ 예제
[VB] 최상위 폼 설정하기
■ 최상위 폼을 설정하는 방법을 보여준다. ▶ 최상위 폼 설정하기 예제 (VB)
|
1 2 3 4 5 |
SetTopMostForm pForm.hwnd, True ' 최상위 폼 설정하기 SetTopMostForm pForm.hwnd, False ' 최상위 폼 설정 취소하기 |
▶ 최상위 폼 설정하기 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Public Const HWND_TOPMOST = -1 Public Const HWND_NOTOPMOST = -2 Public Const SWP_FRAMECHANGED = &H20 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOSIZE = &H1 Public Const SWP_SHOWME = SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Declare Function SetWindowPos Lib "user32" (ByVal lWindowHandle As Long, ByVal lInsertAfterWindowHandle As Long, ByVal lX As Long, ByVal lY As Long, ByVal lWidth As Long, ByVal lHeight As Long, ByVal lFlag As Long) As Long Public Function SetTopMostForm(lWindowHandle As Long, bTopMost As Boolean) Call SetWindowPos(lWindowHandle, IIf(bTopMost, HWND_TOPMOST, HWND_NOTOPMOST), 0&, 0&, 0&, 0&, SWP_SHOWME) End Function |
[VB] MDI에서 최소화, 최대화 없애기
■ MDI에서 최소화, 최대화를 없애는 방법을 보여준다. ▶ 예제 코드 (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 |
Private Const GWL_STYLE = (-16) Private Const WS_MAXIMIZEBOX = &H10000 Private Const WS_MINIMIZEBOX = &H20000 Private Const WS_SYSMENU = &H80000 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal pWindowHandle As Long, ByVal lIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal pWindowHandle As Long, ByVal lIndex As Long, ByVal lNewValue As Long) As Long Private Declare Function GetSystemMenu Lib "user32" (ByVal pWindowHandle As Long, ByVal lRevert As Long) As Long Private Const SC_MAXIMIZE = &HF030& Private Const SC_MINIMIZE = &HF020& Private Const SC_SIZE = &HF000& Private Const MF_BYCOMMAND = &H0& Private Declare Function DeleteMenu Lib "user32" (ByVal pMenuHandle As Long, ByVal lPosition As Long, ByVal lFlag As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal pWindowHandle As Long) As Long Private Sub MDIForm_Load() Dim lNewValue As Long Dim pMenuHandle As Long lNewValue = GetWindowLong(Me.hwnd, GWL_STYLE) lNewValue = lNewValue And Not WS_MAXIMIZEBOX ' 최대 버튼 제거 lNewValue = lNewValue And Not WS_MINIMIZEBOX ' 최소 버튼 제거 lNewValue = lNewValue And Not WS_SYSMENU ' 시스템 메뉴 제거 SetWindowLong Me.hwnd, GWL_STYLE, lNewValue ' 시스템 메뉴에서 최소화, 최대화 메뉴 제거 pMenuHandle = GetSystemMenu(Me.hwnd, 0) DeleteMenu pMenuHandle, SC_MAXIMIZE, MF_BYCOMMAND DeleteMenu pMenuHandle, SC_MINIMIZE, MF_BYCOMMAND DeleteMenu pMenuHandle, SC_SIZE, MF_BYCOMMAND DrawMenuBar Me.hwnd End Sub |
[VB] FILECOPY 명령문을 사용해 파일 복사하기
■ FILECOPY 명령문을 사용해 파일을 복사하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 |
FileCopy "c:\source.txt", "c:\target.txt" |
[VB] 화면 픽셀 크기 구하기
■ 화면 픽셀 크기를 구하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Public Function GetScreenWidth() As Integer GetScreenWidth = Screen.Width / Screen.TwipsPerPixelX ' 화면 너비(트윕 단위) / 픽셀당 트윕 수 X End Function Public Function GetScreenHeight() As Integer GetScreenHeight = Screen.Height / Screen.TwipsPerPixelY ' 화면 높이(트윕 단위) / 픽셀당 트윕 수 Y End Function |
[VB] FILELEN 함수를 사용해 파일 길이 구하기
■ FILELEN 함수를 사용해 파일 길이를 구하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 |
Dim lFileLength As Long lFileLength = FileLen("c:\sample.txt") Print lFileLength |
[VB] NAME 명령문을 사용해 파일명 변경하기
■ NAME 명령문을 사용해 파일명을 변경하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 |
Name "c:\source.txt" As "target.txt" |
[VB] 순차 파일 APPEND 모드 사용하기
■ 순차 파일 APPEND 모드를 사용하는 방법을 보여준다. ▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 |
Open "c:\sample.txt" For Append As #1 Print #1, Format(Now, "yyyy-MM-dd hh:mm:ss") Close #1 |
[VB] 순차 파일 쓰기/읽기
■ 순차 파일 쓰고 읽는 방법을 보여준다. ▶ 예제 코드 (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 |
Open "c:\sample.txt" For Output As #1 Print #1, "김철수" Print #1, "홍길동" Print #1, "김영희" Close #1 Dim strText As String Open "c:\sample.txt" For Input As #2 Do While Not EOF(2) Line Input #2, strText Print strText Loop Close #2 |
[VB] 데이터 폼 마법사 사용하기
■ 데이터 폼 마법사를 사용하는 방법을 보여준다. 1. 추가 기능 / 추가 기능 관리자 메뉴를 클릭한다. 2. "VB 6 데이터 폼 마법사"