짧은 지식이지만, 한번 나누어보고자 올려봅니다. ^^ '해당 디렉터리가 있는지 여부를 검사 Function dhGetDir(strdir As String) As Boolean On Error GoTo e1 'dir함수를 이용해 해당 디렉터리가 있는지 여부를 검사합니다 '만약 디렉터리가 존재하지 않는다...
ListView에서 Items.add로 데이터를 추가할 때에
많은 양을 작업하게 되면 속도가 저하되는 현상이 발생합니다.
이는 데이터가 추가될 때 마다 발생하는 이벤트들에 대한 것으로 보이며,
이를 최소화 하는게 BeginUpdate()와 EndUpdate()라고 ...
IMessageFilter를 구현하고
자신의 Application으로 수신되는 Window Message를 Hooking하는 과정을
간단하게 테스트 해보았습니다.
우선 MessageFilter를 상속하여 구현합니다.
윈도우 메시지가 어플리케이션의 각각의 컨트롤핸들에 전달되는 ...
'vbkeyreturn 이 엔터티이다..
Private Sub t_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) '엔터시 다음데이타 입력창으로 이동명령 03/10일 추가 If Index = 0 And KeyCode = vbKeyReturn Then T(1).SetFocus If Index = 1 And Key...
Option Explicit Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long Declare Function GetForegroundWindow Lib "user32" () As Long Declare Fun...
모듈1
Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szexeFile As String...
이번엔 IF 만 아니라 IF 를 이용한 간단한 비밀번호 비교를 하는 프로그램도 만들어보도록하겠습니다 ^^ IF 조건 then 조건에 맞을때 일어나는 이벤트 Else 조건이 맞지 않을때 일어나는 이벤트 End if 우선 구조는 이런식이구요 else 부분은 빠져도 상관은없...
API 선언문 : DeClare Funtion PathFileExists Lib"Shlwapi"Alias"PathFileExistsA"(Byval lpsazpath As String)As Long
라고 API 선언문을 코딩해주시면됩니다.
오늘은 파일이 존재한지 존재하지않는지 배워보겠습니다.
위와같이 API 선언문을 코딩...
인수 선언의 바로 앞에, Optional을 붙혀 주시면 됩니다.
예)
Function a(Optional b As String) MsgBox b End Function
Private Sub Form_Load() a a (1) End Sub
만약에 Optional b as string에서 optional이 없었으면, 선택적 인수가 아니라는 런타임 ...
