button.ctl

来自「简单的数字时钟」· CTL 代码 · 共 36 行

VERSION 5.00
Begin VB.UserControl UserControl1 
   ClientHeight    =   3600
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4800
   ScaleHeight     =   3600
   ScaleWidth      =   4800
End
Attribute VB_Name = "UserControl1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private ButtonState As Boolean

Private Sub UserControl_Click()
    ButtonState = Not ButtonState
    '产生Paint事件
    Refresh
End Sub

Private Sub UserControl_Initialize()
    ButtonState = True
End Sub

Private Sub UserControl_Paint()
    If ButtonState Then
        Line (300, 300)-(2300, 2300), 4, BF
    Else
        FillStyle = 0
        Circle (1300, 1300), 1000, 4
    End If
End Sub