home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP05 / 309X0515.TXT < prev    next >
Encoding:
Text File  |  1998-05-27  |  1014 b   |  34 lines
  1.  
  2. Public Enum lbModeTypes
  3.      [Text Only Mode] = 0
  4.      [Image Mode]
  5. End Enum
  6.  
  7. Public Enum lbBorderStyleTypes
  8.      None = 0
  9.      [Fixed Single]
  10. End Enum
  11.  
  12. ' Expose the control's events as a part of its
  13. ' interface.
  14. Public Event Click()
  15. Public Event DblClick()
  16. Public Event KeyDown(KeyCode As Integer, Shift As Integer)
  17. Public Event KeyPress(KeyAscii As Integer)
  18. Public Event KeyUp(KeyCode As Integer, Shift As Integer)
  19. Public Event MouseDown(Button As Integer, Shift As Integer, _
  20.      X As Single, Y As Single)
  21. Public Event MouseMove(Button As Integer, Shift As Integer, _
  22.      X As Single, Y As Single)
  23. Public Event MouseUp(Button As Integer, Shift As Integer, _
  24.      X As Single, Y As Single)
  25.  
  26. Private mbooButtonLighted As Boolean
  27. Private mfonFont As StdFont
  28. Private mmodButtonMode As lbModeTypes
  29. Private molcBackColor As OLE_COLOR
  30. Private molcSelColor As OLE_COLOR
  31. Private mpicPicture As New StdPicture
  32. Private mpicSelPicture As New StdPicture
  33. Private mpoiCursorPos As POINTAPI
  34.