'Default Property Values:
Const m_def_BackColor = 0
Const m_def_ForeColor = 0
Const m_def_Enabled = 0
Const m_def_BackStyle = 0
Const m_def_BorderStyle = 0
Const m_def_Wrappable = 0
Const m_def_WhatsThisHelpID = 0
Const m_def_Value = 0
Const m_def_UseMaskColor = 0
Const m_def_TopIndex = 0
Const m_def_ToolTipText = ""
Const m_def_TextAlignment = 0
Const m_def_Text = ""
Const m_def_Style = 0
Const m_def_Sorted = 0
Const m_def_ShowTips = 0
Const m_def_SelText = ""
Const m_def_SelStart = 0
Const m_def_SelLength = 0
Const m_def_ScaleWidth = 0
Const m_def_ScaleTop = 0
Const m_def_ScaleMode = 0
Const m_def_ScaleLeft = 0
Const m_def_ScaleHeight = 0
Const m_def_RightToLeft = 0
Const m_def_PaletteMode = 0
Const m_def_OLEDropMode = 0
Const m_def_OLEDragMode = 0
Const m_def_NewIndex = 0
Const m_def_MousePointer = 0
Const m_def_MaskColor = 0
Const m_def_Locked = 0
Const m_def_ListIndex = 0
Const m_def_ListCount = 0
Const m_def_List = ""
Const m_def_ItemData = 0
Const m_def_IntegralHeight = 0
Const m_def_hWnd = 0
Const m_def_HitBehavior = 0
Const m_def_HelpFile = ""
Const m_def_hDC = 0
Const m_def_HasDC = 0
Const m_def_FontUnderline = 0
Const m_def_FontTransparent = 0
Const m_def_FontStrikethru = 0
Const m_def_FontSize = 0
Const m_def_FontName = ""
Const m_def_FontItalic = 0
Const m_def_FontBold = 0
Const m_def_FillStyle = 0
Const m_def_FillColor = 0
Const m_def_DrawWidth = 0
Const m_def_DrawStyle = 0
Const m_def_DrawMode = 0
Const m_def_Default = 0
Const m_def_DataMember = ""
Const m_def_CurrentY = 0
Const m_def_CurrentX = 0
Const m_def_ContainerHwnd = 0
Const m_def_ClipControls = 0
Const m_def_ClipBehavior = 0
Const m_def_CausesValidation = 0
Const m_def_Caption = ""
Const m_def_Cancel = 0
Const m_def_ButtonWidth = 0
Const m_def_ButtonHeight = 0
Const m_def_AutoRedraw = 0
Const m_def_Appearance = 0
Const m_def_AllowCustomize = 0
Const m_def_Align = 0
'Property Variables:
Dim m_BackColor As Long
Dim m_ForeColor As Long
Dim m_Enabled As Boolean
Dim m_Font As Font
Dim m_BackStyle As Integer
Dim m_BorderStyle As Integer
Dim m_Wrappable As Boolean
Dim m_WhatsThisHelpID As Long
Dim m_Value As Boolean
Dim m_UseMaskColor As Boolean
Dim m_TopIndex As Integer
Dim m_ToolTipText As String
Dim m_TextAlignment As ToolbarTextAlignConstants
Dim m_Text As String
Dim m_Style As ToolbarStyleConstants
Dim m_Sorted As Boolean
Dim m_ShowTips As Boolean
Dim m_SelText As String
Dim m_SelStart As Long
Dim m_SelLength As Long
Dim m_ScaleWidth As Single
Dim m_ScaleTop As Single
Dim m_ScaleMode As Integer
Dim m_ScaleLeft As Single
Dim m_ScaleHeight As Single
Dim m_RightToLeft As Boolean
Dim m_Picture As Picture
Dim m_PaletteMode As Integer
Dim m_Palette As Picture
Dim m_OLEDropMode As Integer
Dim m_OLEDragMode As Integer
Dim m_NewIndex As Integer
Dim m_MousePointer As Integer
Dim m_MouseIcon As Picture
Dim m_MaskPicture As Picture
Dim m_MaskColor As Long
Dim m_Locked As Boolean
Dim m_ListIndex As Integer
Dim m_ListCount As Integer
Dim m_List As String
Dim m_ItemData As Long
Dim m_IntegralHeight As Boolean
Dim m_ImageList As Object
Dim m_Image As Picture
Dim m_HyperLink As HyperLink
Dim m_hWnd As Long
Dim m_HotImageList As Object
Dim m_HitBehavior As Integer
Dim m_HelpFile As String
Dim m_hDC As Long
Dim m_HasDC As Boolean
Dim m_FontUnderline As Boolean
Dim m_FontTransparent As Boolean
Dim m_FontStrikethru As Boolean
Dim m_FontSize As Single
Dim m_FontName As String
Dim m_FontItalic As Boolean
Dim m_FontBold As Boolean
Dim m_FillStyle As Integer
Dim m_FillColor As Long
Dim m_DrawWidth As Integer
Dim m_DrawStyle As Integer
Dim m_DrawMode As Integer
Dim m_DownPicture As Picture
Dim m_DisabledPicture As Picture
Dim m_DisabledImageList As Object
Dim m_Default As Boolean
'Dim m_DataSource As DataSource
Dim m_DataMembers As DataMembers
Dim m_DataMember As String
'Dim m_DataFormat As IStdDataFormatDisp
Dim m_DataBindings As DataBindings
Dim m_CurrentY As Single
Dim m_CurrentX As Single
Dim m_Controls As Object
Dim m_ContainerHwnd As Long
Dim m_ClipControls As Boolean
Dim m_ClipBehavior As Integer
Dim m_CausesValidation As Boolean
Dim m_Caption As String
Dim m_Cancel As Boolean
Dim m_ButtonWidth As Single
Dim m_Buttons As IButtons
Dim m_ButtonHeight As Single
Dim m_AutoRedraw As Boolean
Dim m_Appearance As Integer
Dim m_AllowCustomize As Boolean
Dim m_Align As Integer
Dim m_ActiveControl As Control
'Event Declarations:
Event Click()
Event DblClick()
Event KeyDown(KeyCode As Integer, Shift As Integer)
Event KeyPress(KeyAscii As Integer)
Event KeyUp(KeyCode As Integer, Shift As Integer)
Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Event WriteProperties(PropBag As PropertyBag)
Event Validate(Cancel As Boolean)
Event Show()
Event Scroll()
Event Resize()
Event ReadProperties(PropBag As PropertyBag)
Event Paint()
Event OLEStartDrag(Data As DataObject, AllowedEffects As Long)
Event OLESetData(Data As DataObject, DataFormat As Integer)
Event OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
Event OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
Event OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Event OLECompleteDrag(Effect As Long)
Event InitProperties()
Event HitTest(X As Single, Y As Single, HitResult As Integer)
Event Hide()
Event GetDataMember(DataMember As String, Data As Object)
Event DropDown()
Event Change()
Event ButtonMenuClick(ByVal ButtonMenu As ButtonMenu)
Event ButtonDropDown(ByVal Button As Button)
Event ButtonClick(ByVal Button As Button)
Event AsyncReadProgress(AsyncProp As AsyncProperty)
Event AsyncReadComplete(AsyncProp As AsyncProperty)
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=8,0,0,0
Public Property Get BackColor() As Long
BackColor = m_BackColor
End Property
Public Property Let BackColor(ByVal New_BackColor As Long)
m_BackColor = New_BackColor
PropertyChanged "BackColor"
End Property
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=8,0,0,0
Public Property Get ForeColor() As Long
ForeColor = m_ForeColor
End Property
Public Property Let ForeColor(ByVal New_ForeColor As Long)
m_ForeColor = New_ForeColor
PropertyChanged "ForeColor"
End Property
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=0,0,0,0
Public Property Get Enabled() As Boolean
Enabled = m_Enabled
End Property
Public Property Let Enabled(ByVal New_Enabled As Boolean)
m_Enabled = New_Enabled
PropertyChanged "Enabled"
End Property
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=6,0,0,0
Public Property Get Font() As Font
Set Font = m_Font
End Property
Public Property Set Font(ByVal New_Font As Font)
Set m_Font = New_Font
PropertyChanged "Font"
End Property
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=7,0,0,0
Public Property Get BackStyle() As Integer
BackStyle = m_BackStyle
End Property
Public Property Let BackStyle(ByVal New_BackStyle As Integer)
m_BackStyle = New_BackStyle
PropertyChanged "BackStyle"
End Property
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=7,0,0,0
Public Property Get BorderStyle() As Integer
BorderStyle = m_BorderStyle
End Property
Public Property Let BorderStyle(ByVal New_BorderStyle As Integer)
m_BorderStyle = New_BorderStyle
PropertyChanged "BorderStyle"
End Property
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInf
vb可以打印表格,问题,图片的控件源代码
5星 · 超过95%的资源 需积分: 9 107 浏览量
2009-03-24
08:15:19
上传
评论 3
收藏 89KB RAR 举报
salau
- 粉丝: 2
- 资源: 10
最新资源
- STM32单片机FPGA毕设电路原理论文报告位标器动平衡测试系统中相位测量的实现
- STM32单片机FPGA毕设电路原理论文报告卫星天线的单片机快速对星系统
- STM32单片机FPGA毕设电路原理论文报告微型机与单片机串行通信的实现
- 戴尔Windowshello驱动程序
- STM32单片机FPGA毕设电路原理论文报告微型机单片机两级温度控制系统
- STM32单片机FPGA毕设电路原理论文报告微型地图里程测量仪的研制
- STM32单片机FPGA毕设电路原理论文报告微弱生理信号在多通道数据采集系统中的研究与实现
- 易打标-专业版-条码标签打印软件
- STM32单片机FPGA毕设电路原理论文报告微机原理与单片机课程体系改革
- STM32单片机FPGA毕设电路原理论文报告微机控制晶闸管投切电容器无功补偿装置
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈