www.pudn.com > VBkongjian.rar > Form1.frm

VERSION 5.00 
Object = "*\ANiceCombo.vbp" 
Begin VB.Form Form1  
   Caption         =   "Form1" 
   ClientHeight    =   3195 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   4680 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   3195 
   ScaleWidth      =   4680 
   StartUpPosition =   3  '´°¿Úȱʡ 
   Begin ¹¤³Ì1.NiceCombo NiceCombo1  
      Height          =   300 
      Left            =   1125 
      TabIndex        =   0 
      Top             =   1575 
      Width           =   2130 
      _extentx        =   3757 
      _extenty        =   529 
   End 
End 
Attribute VB_Name = "Form1" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Declare Function SendMessage Lib "user32" _ 
    Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ 
    ByVal wParam As Long, lParam As Long) As Long 
 
Private Const CB_SHOWDROPDOWN = &H14F 
 
Private Sub P_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    PaintCombos PD ' image on 
    ' Automatically drops down the ComboBox 
    SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0& 
End Sub 
 
Private Sub P_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    PaintCombos PO ' image over 
End Sub 
 
Private Sub P_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    PaintCombos PN ' image off 
End Sub 
 
Private Sub Combo1_Click() 
    P.Cls 
    PaintCombos PO ' image over 
End Sub 
 
Private Sub Combo1_LostFocus() 
    PaintCombos PN ' Image Off 
End Sub 
 
Private Sub PaintCombos(Pict As Image) 
     
    ' set the picture 
    With P 
        .Picture = Pict ' the Image 
    End With 
     
End Sub