📄 scombobox.ctl
字号:
VERSION 5.00
Begin VB.UserControl SComboBox
BackColor = &H00FFFFFF&
ClientHeight = 2130
ClientLeft = 0
ClientTop = 0
ClientWidth = 3855
KeyPreview = -1 'True
ScaleHeight = 142
ScaleMode = 3 'Pixel
ScaleWidth = 257
ToolboxBitmap = "SComboBox.ctx":0000
Begin VB.Timer tmrFocus
Enabled = 0 'False
Interval = 100
Left = 405
Top = 1035
End
Begin VB.PictureBox picList
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 1215
Left = -1800
ScaleHeight = 81
ScaleMode = 3 'Pixel
ScaleWidth = 97
TabIndex = 1
TabStop = 0 'False
Top = 1035
Visible = 0 'False
Width = 1455
End
Begin VB.TextBox txtCombo
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Left = -1800
TabIndex = 0
Top = 135
Width = 1155
End
End
Attribute VB_Name = "SComboBox"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'******************************************************'
'* All rights Reserved ?HACKPRO TM 2004 *'
'******************************************************'
'* Version 1.0.4 *'
'******************************************************'
'* Control: SComboBox *'
'******************************************************'
'* Author: Heriberto Mantilla Santamar韆 *'
'******************************************************'
'* Collaboration: fred.cpp *'
'* *'
'* So many thanks for his contribution *'
'* for this project, some styles and *'
'* Traduction to English of some *'
'* comments. *'
'******************************************************'
'* Description: This usercontrol simulates a Combo- *'
'* Box But adds new an great features *'
'* like: *'
'* *'
'* - The first ComboBox On PSC that *'
'* actually works in a single file *'
'* control. *'
'* - When the list is shown doesn't *'
'* deactivate the parent form. *'
'* - More than 20 Visual Styles; no *'
'* images Everything done by code. *'
'* - Some extra cool properties. *'
'******************************************************'
'* Started on: Friday, 11-jun-2004. *'
'******************************************************'
'* Version 1.0.0 *'
'* *'
'* Fixes: - List. (18/06/04) *'
'* - Control Appearance. (20/06/04) *'
'* - Standard Appearance. (21/06/04) *'
'* - MAC Appearance. (24/06/04) *'
'* - XP Appearance. (25/06/04) *'
'* - List Elements. (27/06/04) *'
'* - List Events. (27/06/04) *'
'* - Control properties. (28/08/09) *'
'* - Control properties. (29/08/09) *'
'* - List. (29/06/09) *'
'* - List. (01/07/09) *'
'* - JAVA Appearance. (02/07/09) *'
'* - List. (03/07/09) *'
'* - Soft Style Appearance. (03/07/09) *'
'* - Ardent Appearance. (04/07/09) *'
'* - List. (04/07/09) *'
'* - MAC Appearance. (04/07/04) *'
'******************************************************'
'* Errors corrected after the publication *'
'* Version 1.0.1 *'
'* *'
'* - ScrollBar Slider. (08/07/04) *'
'* - ListIndex Property. (08/07/04) *'
'* - Down or Up list when press keys. (09/07/04) *'
'* - Drop down List. (09/07/04) *'
'* - AddItem parameters. (09/07/04) *'
'* - ChangeItem parameters. (09/07/04) *'
'* - SeparatorLine for Item. (10/07/09) *'
'* - Reorganize Code. (11/07/09) *'
'* - ListIndex Property. (11/10/09) *'
'******************************************************'
'* Errors corrected after the publication *'
'* Version 1.0.2 *'
'* *'
'* - Reorganize Code. (14/07/09) *'
'* - Additional Xp Appearance. (14/07/09) *'
'* - NiaWBSS Appearance. (14/07/04) *'
'* - Style Arrow Appearance. (15/07/04) *'
'* - Ardent Appearance. (15/07/04) *'
'* - Office 2000 Appearance. (16/07/04) *'
'* - Comments. (16/07/04) *'
'* - Optimization code. (16/07/04) *'
'* - Chocolate Appearance. (16/07/04) *'
'* - Limit the Height of Control. (16/07/04) *'
'* - Text in the control. (16/07/04) *'
'* - Gral correction of the Appearances. (17/07/04) *'
'******************************************************'
'* Errors corrected after the publication *'
'* Version 1.0.3 *'
'* *'
'* - Remove the reference to the parameter MouseIcon *'
'* when RemoveItem uses. (22/07/04) *'
'* - Remove the reference to the parameter Separa- *'
'* torLine when RemoveItem uses. (22/07/04) *'
'* - Debug of the comments. (22/07/04) *'
'* - ScrollBar Position. (27/07/04) *'
'* - Appearance Windows Xp theme. (28/07/04) *'
'******************************************************'
'* Errors corrected after the publication *'
'* Version 1.0.4 *'
'* *'
'* - ItemFocus correction. (04/08/04) *'
'* - Clear function. (04/08/04) *'
'* - Border Select. (04/08/04) *'
'* - ScrollBar. (04/08/04) *'
'* - Width Text. (07/08/04) *'
'* - Move for the list. (11/08/04) *'
'* - Office 2003 Appearance. (15/08/04) *'
'* - Sub DrawAppearance. (19/08/04) *'
'* - Sub CreateText. (21/08/04) *'
'******************************************************'
'* Version 1.0.0 *'
'* *'
'* Enhancements: - Office Xp. (13/06/04) *'
'* - Win98. (13/06/04) *'
'* - Control Properties. (14/06/04) *'
'* - Appearance. (15/06/04) *'
'* - WinXp. (16/06/04) *'
'* - Office 2000. (16/06/04) *'
'* - Soft Style. (16/06/04) *'
'* - ItemTag Property. (16/06/04) *'
'* - JAVA. (17/06/04) *'
'* - GradientV. (18/06/04) *'
'* - GradientH. (18/06/04) *'
'* - OrderList. (18/06/04) *'
'* - Color properties. (19/06/04) *'
'* - Explorer Bar. (19/06/04) *'
'* - Picture. (19/06/04) *'
'* - Mac. (21/06/04) *'
'* - Special Border. (22/06/04) *'
'* - Rounded. (22/06/04) *'
'* - Search. (23/06/04) *'
'* - Style Arrow. (25/06/04) *'
'* - Light Blue. (26/06/04) *'
'* - KDE. (29/06/04) *'
'* - Style Arrow. (29/06/04) *'
'* - NiaWBSS. (30/06/04) *'
'* - Rhombus. (30/06/04) *'
'* - Additional Xp. (01/07/04) *'
'* - Ardent. (03/07/04) *'
'******************************************************'
'* Release date: Sunday, 04-07-2004. *'
'******************************************************'
'* Enhancements after the publication *'
'* Version 1.0.1 *'
'* *'
'* - Drop down when you press F4. (08/07/04) *'
'* - Press Enter hidden list. (08/07/04) *'
'* - MouseIcon property. (08/07/04) *'
'* - MousePointer property. (08/07/04) *'
'* - Down or Up list when press keys. (08/07/04) *'
'* - Set ListIndex when the text change. (09/07/04) *'
'* - AutoCompleteWord property. (09/07/04) *'
'* - Const VK_LBUTTON. (09/07/04) *'
'* - Const VK_RBUTTON. (09/07/04) *'
'* - New comments. (09/07/04) *'
'* - Add SeparatorLine for item. (09/07/04) *'
'* - Add MouseIcon for item. (09/07/04) *'
'******************************************************'
'* Release date: Sunday, 11-07-2004 *'
'******************************************************'
'* Enhancements after the publication *'
'* Version 1.0.2 *'
'* *'
'* - New Appearance: Chocolate. (15/07/04) *'
'* - New Appearance: Button Download. (16/07/04) *'
'* - Add controls the Usercontrol. (16/07/04) *'
'* - Added Windows XP Themed Style. (17/07/04) *'
'******************************************************'
'* Release date: Sunday, 18-07-2004. *'
'******************************************************'
'* Enhancements after the publication *'
'* Version 1.0.3 *'
'* *'
'* - New Comments. (22/07/04) *'
'* - ListPositionShow property. (23/07/04) *'
'* - Office 2003 Appearance. (25/07/04) *'
'* - Reorganize Office Appearance. (27/07/04) *'
'* - New Event TotalItems. (27/07/04) *'
'* - Office 2003 Appearance. (04/08/04) *'
'******************************************************'
'* Release date: Sunday, 01-08-2004. *'
'******************************************************'
'* Enhancements after the publication *'
'* Version 1.0.4 *'
'* *'
'* - Now if the Font change works. (04/08/04) *'
'* - Now the temporary directory of *'
'* Windows is used to manipulate *'
'* the images. (04/08/04) *'
'* - Parameter ShadowText. (11/08/04) *'
'* - Property ListGradient. (13/08/04) *'
'* - Function CalcTextWidth. (15/08/04) *'
'******************************************************'
'* Release date: Sunday, 13-09-2004. *'
'******************************************************'
'* Note: Comments, suggestions, doubts or bug *'
'* reports are wellcome to these e-mail *'
'* addresses: *'
'* *'
'* heri_05-hms@mixmail.com or *'
'* hcammus@hotmail.com *'
'* *'
'* Please rate my work on this control. *'
'* That lives the Soccer and the Am閞ica of Cali *'
'* Of Colombia for the world. *'
'******************************************************'
'* All rights Reserved ?HACKPRO TM 2004 *'
'******************************************************'
Option Explicit
'****************************'
'* English: Private Type. *'
'* Espa駉l: Tipos Privados. *'
'****************************'
Private Type GRADIENT_RECT
UpperLeft As Long
LowerRight As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type RGB
Red As Integer
Green As Integer
Blue As Integer
End Type
Private Type POINTAPI
x As Long
y As Long
End Type
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -