▶ 뭉충닷컴
 
mungchung.com login
Site Search
My Space
주절주절...
공부방
쥔장소개
Board
자유게시판
유용한 정보
자료실
Programming
강좌 & Articles
Spring 3.0
프로그래밍 Tip
   -ASP
   -PHP
   -JavaScript
   -HTML
   -Java/JSP
   -Database
   -Crystal Report
   -Visual Basic
   -이클립스
   -리눅스
   -기타
Windows API (VB)
Spread Sheet 7.0
컴퓨터활용 Tip
Other things
StarCraft 전략
StarCraft 문서
김용(金庸)
Son Q & Dieda
뭉충닷컴 *.101.175.159
리스트박스(ListBox) 위에 마우스 올려놓으면 항목이 TextBox에 나타나는 코드이다. 아마도.. 툴팁(ToolTip) 에서 이용되는듯 하다.
코딩시 ListBox, TextBox 컨트롤 2개 추가 시키면된다.



Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const LB_ITEMFROMPOINT = &H1A9

Private Sub Form_Load()
    With List1
        .AddItem "Visit"
        .AddItem "뭉충닷컴 입니다."
        .AddItem "http://www.mungchung.com"
    End With
End Sub

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lXPoint As Long
    Dim lYPoint As Long
    Dim lIndex As Long
    If Button = 0 Then ' if no button was pressed
        lXPoint = CLng(X / Screen.TwipsPerPixelX)
        lYPoint = CLng(Y / Screen.TwipsPerPixelY)
        With List1
            lIndex = SendMessage(.hwnd, LB_ITEMFROMPOINT, 0, ByVal ((lYPoint * 65536) + lXPoint))
            If (lIndex >= 0) And (lIndex <= .ListCount) Then
                .ToolTipText = .List(lIndex)
                Text1.Text = .List(lIndex)
            Else
                .ToolTipText = ""
            End If
        End With
    End If
End Sub





Source Page : http://www.mentalis.org/tips/tip065.shtml
문서 첨부 제한 : 0Byte/ 2.00MB
파일 크기 제한 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 본 게시물들은 AllAPI.net 에서 퍼온것을 수정한겁니다. 뭉충닷컴 2005-05-24 7587
44 스크롤바(ScrollBar) 구현하기 뭉충닷컴 2005-05-25 6285
43 모니터 스크린(Screen) 해상도 구하기 뭉충닷컴 2005-05-25 6637
42 전체화면, 현재 폼, 다른 활성화된 창 캡쳐(Capture)하기 and 프린트(Print) 하기 file 뭉충닷컴 2005-05-25 5023
41 이미지의 투명도(transparent) 설정 뭉충닷컴 2005-05-25 6027
40 이미지크기 늘리기 (이미지 크기 변환) 뭉충닷컴 2005-05-25 6132
39 마우스(Mouse)의 X축 Y축 좌표값 구하기 뭉충닷컴 2005-05-24 7049
38 마우스(Mouse)의 오른쪽/ 왼쪽 버튼 바꾸기 뭉충닷컴 2005-05-24 4285
37 마우스(Mouse)의 커서(Cursor) 숨기기/보이기 뭉충닷컴 2005-05-24 6216
» 리스트박스(ListBox) 위에 마우스 올려졌을때 항목 보여주기 뭉충닷컴 2005-05-24 5652
35 마우스(Mouse) 포인터를 컨트롤로 이동 시키기 뭉충닷컴 2005-05-24 5123
34 제목바(Title Bar) 없이 마우스로 폼 드래그해서 폼 이동시키기 뭉충닷컴 2005-05-24 4701
33 마우스(Mouse) 이동 뭉충닷컴 2005-05-24 4594
32 마우스(Mouse)의 버튼수 구하기 - 그 외 기타 시스템 정보 구하는 법 뭉충닷컴 2005-05-24 4521
31 마우스(Mouse)의 더클클릭(Double-Click) 시간 얻어오기 뭉충닷컴 2005-05-24 4249
30 마우스(Mouse)의 더블클릭(Double-Click) 시간 변경 뭉충닷컴 2005-05-24 5003
29 마우스 움직임을 폼안에서만 가능하도록 제한하기 뭉충닷컴 2005-05-24 4632
28 동영상(avi) 파일 재생하기 뭉충닷컴 2005-05-24 7087
27 자신의 PC에 사운드 카드가 설치되어있는지 여부 검사 뭉충닷컴 2005-05-24 4025
26 미디(MIDI) 파일, 웨이브(Wave) 파일 실행 시키기 뭉충닷컴 2005-05-24 5202