[Visual Basic]
▷ UserControl.Parent.url
; ActiveX를 포함하는 주소를 나타낸다.
▷ Microsoft SysInfo Control 6.0
; SysInfo 컨트롤에서 DeviceArrival 이벤트를 통해 USB 메모리 카드의 연결, 해제 시점을 알 수 있다.
▷ Chart 관련 기능 좋은 컨트롤
; TeeChart, ChartFX, ComponentWorks 등 추천
▷ wdApp.Documents.Close, wdApp.Quit
; MS워드를 참조해서 사용하는 경우 사용한 문서를 Close하고 App를 종료해야한다.
그렇지 않은 경우 VB 프로그램은 종료되더라도 워드 프로그램은 실행중으로 남아있다.
▷ 닫기(X) 버튼 비활성화
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal Hmenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Const MF_BYCOMMAND = &H0&
Private Const SC_CLOSE = &HF060&
Sub DisableCloseButton(ByVal hwnd As Long)
Dim Hmenu As Long
Hmenu = GetSystemMenu(hwnd, False)
DeleteMenu Hmenu, SC_CLOSE, MF_BYCOMMAND
DrawMenuBar hwnd
End Sub
▷ 텍스트박스에서 캐럿(Caret) 숨기기/보이기
Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Text1_GotFocus()
HideCaret Text1.hwnd
End Sub
▷ iDiv.Style.setAttribute()
; Document에 DIV 태그를 추가하는 경우 Style.Position에 값을 할당하는 경우 "읽기전용속성" 오류가 발생한다.
; 이 경우 setAttribute() 함수를 이용하면 position 값을 설정할 수 있다.
Dim iDoc As HTMLDocument
Dim iDiv As HTMLDivElement
Dim iBody As HTMLBody
Set iDoc = WebBrowser1.Document
Set iBody = iDoc.body
Set iDiv = iDoc.createElement("DIV")
'iDiv.Style.position = "absolute" => 읽기전용속성입니다. 오류 발생
iDiv.Style.setAttribute "position", "absolute"
iDiv.Style.posLeft = 10
iDiv.Style.posTop = 10
iDiv.innerHTML = "sfsdfsdfsdfsdfsdfsd"
iDiv.Style.visibility = "visible"
iBody.appendChild iDiv
▷
▷
▷
▷
▷
댓글을 달아 주세요