开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > GDI/图象编程 > 查看源码
AeroGroupBox.ctl
资源名称：VistaForm-OCX.rar　[点击查看]
上传用户：jnjasmy
上传日期：2015-01-04
资源大小：637k
文件大小：8k
源码类别：

GDI/图象编程

开发平台：

Visual Basic

AeroGroupBox.ctl：源码内容
  1. VERSION 5.00
  2. Begin VB.UserControl AeroGroupBox 
  3.    BackColor       =   &H00C0C0C0&
  4.    ClientHeight    =   3600
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   4800
  8.    ClipControls    =   0   'False
  9.    ControlContainer=   -1  'True
  10.    BeginProperty Font 
  11.       Name            =   "Segoe UI"
  12.       Size            =   9
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    MaskColor       =   &H00C0C0C0&
  20.    ScaleHeight     =   240
  21.    ScaleMode       =   3  'Pixel
  22.    ScaleWidth      =   320
  23.    ToolboxBitmap   =   "AeroGroupBox.ctx":0000
  24. End
  25. Attribute VB_Name = "AeroGroupBox"
  26. Attribute VB_GlobalNameSpace = False
  27. Attribute VB_Creatable = True
  28. Attribute VB_PredeclaredId = False
  29. Attribute VB_Exposed = True
  30. Option Explicit
  32. Private Declare Function RoundRect Lib "gdi32.dll" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
  34. Private m_CRect As RECT
  36. 'Default Property Values:
  37. Const m_def_Caption = ""
  38. Const m_def_ForeColor = vbBlack
  39. 'Property Variables:
  40. Dim m_Caption As String
  41. Dim m_ForeColor As OLE_COLOR
  42. Dim m_BackColor As OLE_COLOR
  43. 'Event Declarations:
  44. Event Click() 'MappingInfo=UserControl,UserControl,-1,Click
  45. Attribute Click.VB_Description = "Occurs when the user presses and then releases a mouse button over an object."
  46. Attribute Click.VB_UserMemId = -600
  47. Event DblClick() 'MappingInfo=UserControl,UserControl,-1,DblClick
  48. Attribute DblClick.VB_Description = "Occurs when the user presses and releases a mouse button and then presses and releases it again over an object."
  49. Attribute DblClick.VB_UserMemId = -601
  50. Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=UserControl,UserControl,-1,MouseDown
  51. Attribute MouseDown.VB_Description = "Occurs when the user presses the mouse button while an object has the focus."
  52. Attribute MouseDown.VB_UserMemId = -605
  53. Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=UserControl,UserControl,-1,MouseMove
  54. Attribute MouseMove.VB_Description = "Occurs when the user moves the mouse."
  55. Attribute MouseMove.VB_UserMemId = -606
  56. Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=UserControl,UserControl,-1,MouseUp
  57. Attribute MouseUp.VB_Description = "Occurs when the user releases the mouse button while an object has the focus."
  58. Attribute MouseUp.VB_UserMemId = -607
  60. Public Sub About()
  61. Attribute About.VB_UserMemId = -552
  62.   fAbout.Show vbModal
  63. End Sub
  65. Private Sub UserControl_AmbientChanged(PropertyName As String)
  66.   UserControl_Resize
  67. End Sub
  69. Private Sub UserControl_Paint()
  70.   Call UserControl_Resize
  71. End Sub
  73. Private Sub UserControl_Resize()
  74.   On Error Resume Next
  75.   With UserControl
  76.     .Cls
  77.     .ForeColor = vbWhite
  78.     RoundRect UserControl.hdc, 1, (TextHeight("H") / 2) + 1, ScaleWidth - 2, ScaleHeight - 1, 5, 5
  79.     .ForeColor = RGB(213, 223, 229)
  80.     RoundRect UserControl.hdc, 0, (TextHeight("H") / 2), ScaleWidth - 1, ScaleHeight - 2, 5, 5
  81.     .ForeColor = m_ForeColor
  82.     If m_Caption <> "" Then
  83.       SetRect m_CRect, 6, 0, .TextWidth(m_Caption) + 12, .TextHeight(m_Caption)
  84.       UserControl.Line (6, 0)-(.TextWidth(m_Caption) + 12, .TextHeight(m_Caption)), m_BackColor, BF
  85.       DrawText UserControl.hdc, m_Caption, -1, m_CRect, DT_CENTER Or DT_VCENTER
  86.     End If
  87.     Set UserControl.MaskPicture = UserControl.Image
  88.   End With
  89. End Sub
  91. Public Property Get BackColor() As OLE_COLOR
  92. Attribute BackColor.VB_ProcData.VB_Invoke_Property = ";Appearance"
  93. Attribute BackColor.VB_UserMemId = -501
  94.   BackColor = m_BackColor
  95. End Property
  97. Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
  98.   m_BackColor = New_BackColor
  99.   PropertyChanged "BackColor"
  100.   UserControl.BackColor = m_BackColor
  101.   UserControl_Resize
  102. End Property
  104. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  105. 'MappingInfo=UserControl,UserControl,-1,ForeColor
  106. Public Property Get ForeColor() As OLE_COLOR
  107. Attribute ForeColor.VB_Description = "Returns/sets the foreground color used to display text and graphics in an object."
  108. Attribute ForeColor.VB_ProcData.VB_Invoke_Property = ";Appearance"
  109. Attribute ForeColor.VB_UserMemId = -513
  110.   ForeColor = m_ForeColor
  111. End Property
  113. Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR)
  114.   m_ForeColor = New_ForeColor
  115.   PropertyChanged "ForeColor"
  116.   UserControl_Resize
  117. End Property
  119. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  120. 'MappingInfo=UserControl,UserControl,-1,Enabled
  121. Public Property Get Enabled() As Boolean
  122. Attribute Enabled.VB_Description = "Returns/sets a value that determines whether an object can respond to user-generated events."
  123. Attribute Enabled.VB_ProcData.VB_Invoke_Property = ";Behavior"
  124. Attribute Enabled.VB_UserMemId = -514
  125.   Enabled = UserControl.Enabled
  126. End Property
  128. Public Property Let Enabled(ByVal New_Enabled As Boolean)
  129.   UserControl.Enabled() = New_Enabled
  130.   PropertyChanged "Enabled"
  131. End Property
  133. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  134. 'MappingInfo=UserControl,UserControl,-1,Font
  135. Public Property Get Font() As Font
  136. Attribute Font.VB_Description = "Returns a Font object."
  137. Attribute Font.VB_ProcData.VB_Invoke_Property = ";Font"
  138. Attribute Font.VB_UserMemId = -512
  139.   Set Font = UserControl.Font
  140. End Property
  142. Public Property Set Font(ByVal New_Font As Font)
  143.   Set UserControl.Font = New_Font
  144.   PropertyChanged "Font"
  145. End Property
  147. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  148. 'MappingInfo=UserControl,UserControl,-1,Refresh
  149. Public Sub Refresh()
  150. Attribute Refresh.VB_Description = "Forces a complete repaint of a object."
  151. Attribute Refresh.VB_UserMemId = -550
  152.   UserControl.Refresh
  153. End Sub
  155. Private Sub UserControl_Click()
  156.   RaiseEvent Click
  157. End Sub
  159. Private Sub UserControl_DblClick()
  160.   RaiseEvent DblClick
  161. End Sub
  163. Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  164.   RaiseEvent MouseDown(Button, Shift, X, Y)
  165. End Sub
  167. Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  168.   RaiseEvent MouseMove(Button, Shift, X, Y)
  169. End Sub
  171. Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  172.   RaiseEvent MouseUp(Button, Shift, X, Y)
  173. End Sub
  175. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  176. 'MappingInfo=UserControl,UserControl,-1,hWnd
  177. Public Property Get hWnd() As Long
  178. Attribute hWnd.VB_Description = "Returns a handle (from Microsoft Windows) to an object's window."
  179. Attribute hWnd.VB_ProcData.VB_Invoke_Property = ";Misc"
  180. Attribute hWnd.VB_UserMemId = -515
  181.   hWnd = UserControl.hWnd
  182. End Property
  184. 'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
  185. 'MemberInfo=13,0,0,
  186. Public Property Get Caption() As String
  187. Attribute Caption.VB_ProcData.VB_Invoke_Property = ";Appearance"
  188. Attribute Caption.VB_UserMemId = -518
  189.   Caption = m_Caption
  190. End Property
  192. Public Property Let Caption(ByVal New_Caption As String)
  193.   m_Caption = New_Caption
  194.   PropertyChanged "Caption"
  195.   UserControl_Resize
  196. End Property
  198. 'Initialize Properties for User Control
  199. Private Sub UserControl_InitProperties()
  200.   Set UserControl.Font = Ambient.Font
  201.   m_Caption = Ambient.DisplayName
  202.   m_ForeColor = m_def_ForeColor
  203.   m_BackColor = Ambient.BackColor
  204. End Sub
  206. 'Load property values from storage
  207. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  209.   m_BackColor = PropBag.ReadProperty("BackColor")
  210.   m_ForeColor = PropBag.ReadProperty("ForeColor", m_def_ForeColor)
  211.   UserControl.Enabled = PropBag.ReadProperty("Enabled", True)
  212.   Set UserControl.Font = PropBag.ReadProperty("Font", Ambient.Font)
  213.   m_Caption = PropBag.ReadProperty("Caption", m_def_Caption)
  214.   UserControl.BackColor = m_BackColor
  215. End Sub
  217. Private Sub UserControl_Show()
  218.   UserControl_Resize
  219. End Sub
  221. 'Write property values to storage
  222. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  224.   Call PropBag.WriteProperty("BackColor", m_BackColor)
  225.   Call PropBag.WriteProperty("ForeColor", m_ForeColor, m_def_ForeColor)
  226.   Call PropBag.WriteProperty("Enabled", UserControl.Enabled, True)
  227.   Call PropBag.WriteProperty("Font", UserControl.Font, Ambient.Font)
  228.   Call PropBag.WriteProperty("Caption", m_Caption, m_def_Caption)
  229. End Sub