English
- VERSION 5.00
- Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
- Begin VB.Form Form1
- BorderStyle = 1 'Fixed Single
- Caption = "ActiveXTest"
- ClientHeight = 3015
- ClientLeft = 45
- ClientTop = 405
- ClientWidth = 5685
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 3015
- ScaleWidth = 5685
- StartUpPosition = 2 '屏幕中心
- Begin 工程1.QQ_Frame QQ_Frame1
- Height = 2895
- Left = 120
- TabIndex = 3
- Top = 60
- Width = 5535
- _ExtentX = 9763
- _ExtentY = 5106
- Caption = "QQ风格控件"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Begin CSCommand.Command Command2
- Height = 315
- Left = 4440
- TabIndex = 14
- Top = 2400
- Width = 975
- _ExtentX = 1720
- _ExtentY = 556
- IconAlign = 0
- Icon = "Form1.frx":0000
- Caption = "退出"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ShowFocus = 0 'False
- Picture = "Form1.frx":001C
- End
- Begin CSCommand.Command Command1
- Height = 315
- Left = 0
- TabIndex = 13
- Top = 2400
- Width = 1215
- _ExtentX = 2143
- _ExtentY = 556
- IconAlign = 0
- Icon = "Form1.frx":556A
- Caption = "清空文本框"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ShowFocus = 0 'False
- Picture = "Form1.frx":5586
- End
- Begin 工程1.QQRadioButton QQRadioButton3
- Height = 255
- Left = 3600
- TabIndex = 12
- Top = 1920
- Width = 1935
- _ExtentX = 3413
- _ExtentY = 450
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Caption = "QQ2008_Darkbluesea"
- End
- Begin 工程1.QQRadioButton QQRadioButton2
- Height = 255
- Left = 1800
- TabIndex = 11
- Top = 1920
- Width = 1575
- _ExtentX = 2778
- _ExtentY = 450
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Caption = "QQ2009_Skyblue"
- End
- Begin 工程1.QQRadioButton QQRadioButton1
- Height = 255
- Left = 0
- TabIndex = 10
- Top = 1920
- Width = 1575
- _ExtentX = 2778
- _ExtentY = 450
- Value = -1 'True
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Caption = "QQ2010_Natural"
- End
- Begin 工程1.QQText QQText1
- Height = 375
- Left = 0
- TabIndex = 8
- Top = 1080
- Width = 5415
- _ExtentX = 9551
- _ExtentY = 661
- End
- Begin 工程1.QQCheckBox QQCheckBox3
- Height = 255
- Left = 4080
- TabIndex = 6
- Top = 420
- Width = 1335
- _ExtentX = 2355
- _ExtentY = 450
- Enabled = 0 'False
- CheckBoxLook = 1
- Caption = "是否多行显示"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- End
- Begin 工程1.QQCheckBox QQCheckBox2
- Height = 255
- Left = 2520
- TabIndex = 5
- Top = 420
- Width = 1335
- _ExtentX = 2355
- _ExtentY = 450
- CheckBoxLook = 1
- Caption = "是否锁定文本"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- End
- Begin 工程1.QQCheckBox QQCheckBox1
- Height = 255
- Left = 0
- TabIndex = 4
- Top = 420
- Width = 2415
- _ExtentX = 4260
- _ExtentY = 450
- CheckBoxLook = 1
- Value = 1
- Caption = "是否将Enabled设置为True"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- End
- Begin VB.Label Label2
- Caption = "ButtonSkin："
- Height = 255
- Left = 0
- TabIndex = 9
- Top = 1560
- Width = 1215
- End
- Begin VB.Label Label1
- Caption = "QQ文本框："
- Height = 255
- Left = 0
- TabIndex = 7
- Top = 840
- Width = 975
- End
- End
- Begin VB.PictureBox PictureClip3
- Height = 480
- Left = 0
- ScaleHeight = 420
- ScaleWidth = 1140
- TabIndex = 0
- Top = 6000
- Width = 1200
- End
- Begin VB.PictureBox PictureClip2
- Height = 480
- Left = 0
- ScaleHeight = 420
- ScaleWidth = 1140
- TabIndex = 1
- Top = 5640
- Width = 1200
- End
- Begin VB.PictureBox PictureClip1
- Height = 480
- Left = 0
- ScaleHeight = 420
- ScaleWidth = 1140
- TabIndex = 2
- Top = 5280
- Width = 1200
- End
- End
- Attribute VB_Name = "Form1"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub Command1_Click()
- QQText1.Text = ""
- End Sub
- Private Sub Command2_Click()
- Unload Me
- End Sub
- Private Sub Form_Load()
- Me.Icon = LoadPicture()
- QQText1.Enabled = True
- End Sub
- Private Sub QQCheckBox1_Click()
- If QQCheckBox1.Value = Checked Then
- QQText1.Enabled = False
- Else
- QQText1.Enabled = True
- End If
- End Sub
- Private Sub QQCheckBox2_Click()
- If QQCheckBox2.Value = Checked Then
- QQText1.Locked = False
- Else
- QQText1.Locked = True
- End If
- End Sub
- Private Sub QQRadioButton1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
- Command1.Picture = LoadPicture(App.Path & "QQ2010btn.bmp")
- Command2.Picture = LoadPicture(App.Path & "QQ2010btn.bmp")
- End Sub
- Private Sub QQRadioButton2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
- Command1.Picture = LoadPicture(App.Path & "QQ2009btn.bmp")
- Command2.Picture = LoadPicture(App.Path & "QQ2009btn.bmp")
- End Sub
- Private Sub QQRadioButton3_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
- Command1.Picture = LoadPicture(App.Path & "QQ2008btn.bmp")
- Command2.Picture = LoadPicture(App.Path & "QQ2008btn.bmp")
- End Sub
