form1.vb

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

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 MyAlarmClock1 As 用户控件.myAlarmClock
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.MyAlarmClock1 = New 用户控件.myAlarmClock()
        Me.SuspendLayout()
        '
        'MyAlarmClock1
        '
        Me.MyAlarmClock1.AlarmSet = False
        Me.MyAlarmClock1.AlarmTime = New Date(CType(0, Long))
        Me.MyAlarmClock1.BackColor = System.Drawing.SystemColors.Desktop
        Me.MyAlarmClock1.CBC = System.Drawing.Color.Empty
        Me.MyAlarmClock1.CFC = System.Drawing.Color.Empty
        Me.MyAlarmClock1.Location = New System.Drawing.Point(32, 16)
        Me.MyAlarmClock1.Name = "MyAlarmClock1"
        Me.MyAlarmClock1.Size = New System.Drawing.Size(128, 88)
        Me.MyAlarmClock1.TabIndex = 0
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(192, 133)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.MyAlarmClock1})
        Me.Name = "Form1"
        Me.Text = "Test1"
        Me.ResumeLayout(False)

    End Sub

#End Region




    ' Private Sub MyClock1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    '
    '       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 MyClock2_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    '   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


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MyAlarmClock1.CBC = System.Drawing.Color.FromArgb(30, Color.LightGreen)
        Me.MyAlarmClock1.CFC = System.Drawing.Color.Black
        Me.MyAlarmClock1.AlarmSet = True
        Me.MyAlarmClock1.AlarmTime = #4/10/2003 2:12:00 PM#
    End Sub
End Class