?? ovalcmd.ctl
字號(hào):
VERSION 5.00
Begin VB.UserControl OvalCmd
BackColor = &H8000000A&
ClientHeight = 1935
ClientLeft = 0
ClientTop = 0
ClientWidth = 2295
PropertyPages = "OvalCmd.ctx":0000
ScaleHeight = 129
ScaleMode = 3 'Pixel
ScaleWidth = 153
ToolboxBitmap = "OvalCmd.ctx":0028
Begin VB.PictureBox OvalPic
BackColor = &H0000FF00&
BorderStyle = 0 'None
Height = 480
Left = 360
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 0
Top = 120
Width = 480
End
Begin VB.Label OvalLbl
BackColor = &H0000FF00&
Height = 735
Left = 0
TabIndex = 1
Top = 0
Width = 1335
End
End
Attribute VB_Name = "OvalCmd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "PropPageWizardRun" ,"Yes"
'Default Property Values:
Const m_def_TipString = "example tip"
Const m_def_FileName = ""
'Property Variables:
Public m_TipString As String
Public m_FileName As String
'Event Declarations:
Event Click() 'MappingInfo=OvalLbl,OvalLbl,-1,Click
Private Sub OvalLbl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
OvalLbl.BackColor = RGB(255, 0, 0)
OvalPic.BackColor = RGB(255, 0, 0)
End Sub
Private Sub OvalLbl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Point As POINTAPI
Tip_String = m_TipString
File_Name = m_FileName
OvalLbl.BackColor = RGB(0, 255, 0)
OvalPic.BackColor = RGB(0, 255, 0)
If ShowTip Then
ShowTip = False
GetCursorPos Point
OvalTip.Left = Point.X * Screen.Width / 800
OvalTip.Top = Point.Y * Screen.Height / 600
OvalTip.Show
End If
End Sub
Private Sub OvalPic_Click()
OvalLbl_Click
End Sub
Private Sub OvalPic_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
OvalLbl_MouseDown Button, Shift, X, Y
End Sub
Private Sub OvalPic_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
OvalLbl_MouseMove Button, Shift, X, Y
End Sub
Private Sub UserControl_Initialize()
ShowTip = True
End Sub
Private Sub UserControl_Resize()
SetWindowRgn UserControl.hwnd, _
CreateEllipticRgn(0, 0, OvalLbl.Width, OvalLbl.Height), _
True
End Sub
Private Sub OvalLbl_Click()
RaiseEvent Click
End Sub
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=OvalPic,OvalPic,-1,Picture
Public Property Get Picture() As Picture
Attribute Picture.VB_Description = "Returns/sets a graphic to be displayed in a control."
Set Picture = OvalPic.Picture
End Property
Public Property Set Picture(ByVal New_Picture As Picture)
Set OvalPic.Picture = New_Picture
PropertyChanged "Picture"
End Property
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=13,0,0,example tip
Public Property Get TipString() As String
TipString = m_TipString
End Property
Public Property Let TipString(ByVal New_TipString As String)
m_TipString = New_TipString
PropertyChanged "TipString"
End Property
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=13,0,0,showtip.wav
Public Property Get FileName() As String
FileName = m_FileName
End Property
Public Property Let FileName(ByVal New_FileName As String)
m_FileName = New_FileName
PropertyChanged "FileName"
End Property
'Initialize Properties for User Control
Private Sub UserControl_InitProperties()
m_TipString = m_def_TipString
m_FileName = m_def_FileName
End Sub
'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set Picture = PropBag.ReadProperty("Picture", Nothing)
m_TipString = PropBag.ReadProperty("TipString", m_def_TipString)
m_FileName = PropBag.ReadProperty("FileName", m_def_FileName)
End Sub
'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Picture", Picture, Nothing)
Call PropBag.WriteProperty("TipString", m_TipString, m_def_TipString)
Call PropBag.WriteProperty("FileName", m_FileName, m_def_FileName)
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -