form1.vb

来自「Visual Basic.NET应用编程150例」· VB 代码 · 共 140 行

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows ?????????? "

    Public Sub New()
        MyBase.New()

        '???? Windows ??????????
        InitializeComponent()

        '? InitializeComponent() ???????????

    End Sub

    '??????????????
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows ?????????
    Private components As System.ComponentModel.IContainer

    '??:????? Windows ?????????
    '???? Windows ???????????
    '?????????????
    Friend WithEvents MyClock1 As 用户控件.myClock
    Friend WithEvents MyClock2 As 用户控件.myClock
    Friend WithEvents MyClock3 As 用户控件.myClock
    Friend WithEvents MyClock4 As 用户控件.myClock
    Friend WithEvents MyClock5 As 用户控件.myClock
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.MyClock1 = New 用户控件.myClock()
        Me.MyClock2 = New 用户控件.myClock()
        Me.MyClock3 = New 用户控件.myClock()
        Me.MyClock4 = New 用户控件.myClock()
        Me.MyClock5 = New 用户控件.myClock()
        Me.SuspendLayout()
        '
        'MyClock1
        '
        Me.MyClock1.BackColor = System.Drawing.SystemColors.Desktop
        Me.MyClock1.CBC = System.Drawing.Color.Empty
        Me.MyClock1.CFC = System.Drawing.Color.Empty
        Me.MyClock1.Location = New System.Drawing.Point(168, 64)
        Me.MyClock1.Name = "MyClock1"
        Me.MyClock1.Size = New System.Drawing.Size(128, 48)
        Me.MyClock1.TabIndex = 0
        '
        'MyClock2
        '
        Me.MyClock2.BackColor = System.Drawing.SystemColors.Desktop
        Me.MyClock2.CBC = System.Drawing.Color.Empty
        Me.MyClock2.CFC = System.Drawing.Color.Empty
        Me.MyClock2.Location = New System.Drawing.Point(24, 16)
        Me.MyClock2.Name = "MyClock2"
        Me.MyClock2.Size = New System.Drawing.Size(128, 48)
        Me.MyClock2.TabIndex = 1
        '
        'MyClock3
        '
        Me.MyClock3.BackColor = System.Drawing.SystemColors.Desktop
        Me.MyClock3.CBC = System.Drawing.Color.Empty
        Me.MyClock3.CFC = System.Drawing.Color.Empty
        Me.MyClock3.Location = New System.Drawing.Point(176, 160)
        Me.MyClock3.Name = "MyClock3"
        Me.MyClock3.Size = New System.Drawing.Size(128, 48)
        Me.MyClock3.TabIndex = 2
        '
        'MyClock4
        '
        Me.MyClock4.BackColor = System.Drawing.SystemColors.Desktop
        Me.MyClock4.CBC = System.Drawing.Color.Empty
        Me.MyClock4.CFC = System.Drawing.Color.Empty
        Me.MyClock4.Location = New System.Drawing.Point(24, 112)
        Me.MyClock4.Name = "MyClock4"
        Me.MyClock4.Size = New System.Drawing.Size(128, 48)
        Me.MyClock4.TabIndex = 3
        '
        'MyClock5
        '
        Me.MyClock5.BackColor = System.Drawing.SystemColors.Desktop
        Me.MyClock5.CBC = System.Drawing.Color.Empty
        Me.MyClock5.CFC = System.Drawing.Color.Empty
        Me.MyClock5.Location = New System.Drawing.Point(24, 216)
        Me.MyClock5.Name = "MyClock5"
        Me.MyClock5.Size = New System.Drawing.Size(128, 48)
        Me.MyClock5.TabIndex = 4
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(320, 285)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.MyClock5, Me.MyClock4, Me.MyClock3, Me.MyClock2, Me.MyClock1})
        Me.Name = "Form1"
        Me.Text = "Test1"
        Me.ResumeLayout(False)

    End Sub

#End Region



   
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
        MyClock1.CBC = System.Drawing.Color.Black
        MyClock1.CFC = System.Drawing.Color.White
        MyClock2.CBC = System.Drawing.Color.Black
        MyClock2.CFC = System.Drawing.Color.White
        MyClock3.CBC = System.Drawing.Color.Black
        MyClock3.CFC = System.Drawing.Color.White
        MyClock4.CBC = System.Drawing.Color.Black
        MyClock4.CFC = System.Drawing.Color.White
        MyClock5.CBC = System.Drawing.Color.Black
        MyClock5.CFC = System.Drawing.Color.White

    End Sub


    Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.DoubleClick
        MyClock1.CBC = System.Drawing.Color.White
        MyClock1.CFC = System.Drawing.Color.Black
        MyClock2.CBC = System.Drawing.Color.White
        MyClock2.CFC = System.Drawing.Color.Black
        MyClock3.CBC = System.Drawing.Color.White
        MyClock3.CFC = System.Drawing.Color.Black
        MyClock4.CBC = System.Drawing.Color.White
        MyClock4.CFC = System.Drawing.Color.Black
        MyClock5.CBC = System.Drawing.Color.White
        MyClock5.CFC = System.Drawing.Color.Black

    End Sub
End Class