form1.vb

vb 应用实例 简单应用 ddddddddddddddddddddddddddddddddd

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form 设计工具产生的程序代码 "

    Public Sub New()
        MyBase.New()

        '此呼叫为 Windows Form 设计工具的必要项。
        InitializeComponent()

        '在 InitializeComponent() 呼叫之后加入所有的初始设定

    End Sub

    'Form 覆写 Dispose 以清除组件清单。
    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 Form 设计工具的必要项
    Private components As System.ComponentModel.IContainer

    '注意: 以下为 Windows Form 设计工具所需的程序
    '您可以使用 Windows Form 设计工具进行修改。
    '请勿使用程序代码编辑器来修改这些程序。
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents Button6 As System.Windows.Forms.Button
    Friend WithEvents Button7 As System.Windows.Forms.Button
    Friend WithEvents Timer1 As System.Timers.Timer
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.Button2 = New System.Windows.Forms.Button
        Me.Label1 = New System.Windows.Forms.Label
        Me.Button3 = New System.Windows.Forms.Button
        Me.Button4 = New System.Windows.Forms.Button
        Me.Button5 = New System.Windows.Forms.Button
        Me.Button6 = New System.Windows.Forms.Button
        Me.Button7 = New System.Windows.Forms.Button
        Me.Timer1 = New System.Timers.Timer
        CType(Me.Timer1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(31, 48)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(164, 24)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "DateTime基本"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(31, 112)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(164, 24)
        Me.Button2.TabIndex = 1
        Me.Button2.Text = "DateTime Methods"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(31, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(286, 23)
        Me.Label1.TabIndex = 2
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(31, 80)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(164, 24)
        Me.Button3.TabIndex = 3
        Me.Button3.Text = "DateTime Properties"
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(31, 144)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(164, 24)
        Me.Button4.TabIndex = 4
        Me.Button4.Text = "Conversion Methods"
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(215, 80)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(164, 24)
        Me.Button5.TabIndex = 5
        Me.Button5.Text = "TimeSpan Properties"
        '
        'Button6
        '
        Me.Button6.Location = New System.Drawing.Point(215, 112)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(164, 24)
        Me.Button6.TabIndex = 6
        Me.Button6.Text = "TimeSpan Methods"
        '
        'Button7
        '
        Me.Button7.Location = New System.Drawing.Point(215, 144)
        Me.Button7.Name = "Button7"
        Me.Button7.Size = New System.Drawing.Size(164, 24)
        Me.Button7.TabIndex = 7
        Me.Button7.Text = "TimeSpan Fields"
        '
        'Timer1
        '
        Me.Timer1.Enabled = True
        Me.Timer1.SynchronizingObject = Me
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(409, 190)
        Me.Controls.Add(Me.Button7)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "DateTime"
        CType(Me.Timer1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str1 As String
        str1 = "DateTime.Now: " & vbTab & DateTime.Now.ToString & vbCrLf
        str1 += "DateTime.Today: " & vbTab & DateTime.Today.ToString & vbCrLf
        str1 += "DateTime.UtcNow: " & vbTab & DateTime.Now.UtcNow & vbCrLf
        MsgBox(str1)
        str1 = "DateTime.MinValue: " & vbTab & DateTime.MinValue.ToString & vbCrLf
        str1 += "DateTime.MaxValue: " & vbTab & DateTime.MaxValue.ToString & vbCrLf
        MsgBox(str1)
        str1 = "DateTime.FromOADate: " & vbTab & DateTime.FromOADate(CDbl(39512.625)).ToString & vbCrLf
        str1 += "DateTime.IsLeapYear(2004): " & vbTab & DateTime.IsLeapYear(CInt(2004)).ToString & vbCrLf
        str1 += "DateTime.DaysInMonth(2003,12): " & vbTab & DateTime.DaysInMonth(2003, 12).ToString & vbCrLf
        MsgBox(str1)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim str1 As String

        Dim dt1 As DateTime = DateTime.Now
        Label1.Text = dt1.ToString

        str1 += "dt1.AddYears(17): " & vbTab & dt1.AddYears(CDbl(17)).ToString & vbCrLf
        str1 += "dt1.AddMonths(5): " & vbTab & dt1.AddMonths(CDbl(5)).ToString & vbCrLf
        str1 += "dt1.AddDays(7): " & vbTab & dt1.AddDays(CDbl(7)).ToString & vbCrLf
        str1 += "dt1.AddHours(18): " & vbTab & dt1.AddHours(CDbl(18)).ToString & vbCrLf
        str1 += "dt1.AddMinutes(100): " & vbTab & dt1.AddMinutes(CDbl(100)).ToString & vbCrLf
        str1 += "dt1.AddSeconds(1000): " & vbTab & dt1.AddSeconds(CDbl(1000)).ToString & vbCrLf
        str1 += "dt1.AddMilliseconds(7000): " & vbTab & dt1.AddMilliseconds(CDbl(7000)).ToString & vbCrLf
        str1 += "dt1.AddTicks(7000): " & vbTab & dt1.AddTicks(CDbl(7000)).ToString & vbCrLf

        MsgBox(str1)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim str1 As String

        Dim dt1 As DateTime = DateTime.Now
        Label1.Text = dt1.ToString

        str1 = "DateTime.Now: " & vbTab & dt1.ToString & vbCrLf
        str1 += "DateTime.Year: " & vbTab & dt1.Year.ToString & vbCrLf
        str1 += "DateTime.Month: " & vbTab & dt1.Month.ToString & vbCrLf
        str1 += "DateTime.Day: " & vbTab & dt1.Day.ToString & vbCrLf

        str1 += "DateTime.Hour: " & vbTab & dt1.Hour.ToString & vbCrLf
        str1 += "DateTime.Minute: " & vbTab & dt1.Minute.ToString & vbCrLf
        str1 += "DateTime.Second: " & vbTab & dt1.Second.ToString & vbCrLf
        str1 += "DateTime.Millisecond: " & vbTab & dt1.Millisecond.ToString & vbCrLf
        str1 += "DateTime.Ticks: " & vbTab & dt1.Ticks.ToString & vbCrLf
        MsgBox(str1)
        str1 = "DateTime.DayOfYear: " & vbTab & dt1.DayOfYear.ToString & vbCrLf
        str1 += "DateTime.DayOfWeek: " & vbTab & dt1.DayOfWeek.ToString & vbCrLf
        str1 += "DateTime.TimeOfDay: " & vbTab & dt1.TimeOfDay.ToString & vbCrLf
        MsgBox(str1)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim str1 As String

        Dim dt1 As DateTime = DateTime.Now
        Label1.Text = dt1.ToString

        str1 = "DateTime.ToFileTime: " & vbTab & dt1.ToFileTime.ToString & vbCrLf
        str1 += "DateTime.ToLocalTime: " & vbTab & dt1.ToLocalTime.ToString & vbCrLf
        str1 += "DateTime.ToOADate: " & vbTab & dt1.ToOADate.ToString & vbCrLf
        str1 += "DateTime.ToUniversalTime: " & vbTab & dt1.ToUniversalTime.ToString & vbCrLf
        str1 += "DateTime.ToLongDateString: " & vbTab & dt1.ToLongDateString & vbCrLf
        str1 += "DateTime.ToShortDateString: " & vbTab & dt1.ToShortDateString & vbCrLf
        str1 += "DateTime.ToLongTimeString: " & vbTab & dt1.ToLongTimeString & vbCrLf
        str1 += "DateTime.ToShortTimeString: " & vbTab & dt1.ToShortTimeString & vbCrLf


        MsgBox(str1)


    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim str1 As String

        Dim StartTime As DateTime = DateTime.Parse("9:05:18 AM")
        Dim EndTime As DateTime = DateTime.Parse("6:10:20 PM")
        Dim ts1 As TimeSpan = EndTime.Subtract(StartTime).Duration

        str1 = "TimeSpan.Days: " & vbTab & ts1.Days.ToString & vbCrLf
        str1 += "TimeSpan.Hours: " & vbTab & ts1.Hours.ToString & vbCrLf
        str1 += "TimeSpan.Minutes: " & vbTab & ts1.Minutes.ToString & vbCrLf
        str1 += "TimeSpan.Seconds: " & vbTab & ts1.Seconds.ToString & vbCrLf
        str1 += "TimeSpan.Milliseconds: " & vbTab & ts1.Milliseconds.ToString & vbCrLf

        MsgBox(str1)
        str1 = "TimeSpan.TotalDays: " & vbTab & ts1.TotalDays.ToString & vbCrLf
        str1 += "TimeSpan.TotalHours: " & vbTab & ts1.TotalHours.ToString & vbCrLf
        str1 += "TimeSpan.TotalMinutes: " & vbTab & ts1.TotalMinutes.ToString & vbCrLf
        str1 += "TimeSpan.TotalSeconds: " & vbTab & ts1.TotalSeconds & vbCrLf
        str1 += "TimeSpan.TotalMilliseconds: " & vbTab & ts1.TotalMilliseconds & vbCrLf

        MsgBox(str1)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim str1 As String

        str1 += "TimeSpan.FromDays(12.5): " & vbTab & TimeSpan.FromDays(CDbl(12.5)).ToString & vbCrLf
        str1 += "TimeSpan.FromHours(102.5): " & vbTab & TimeSpan.FromHours(CDbl(102.5)).ToString & vbCrLf
        str1 += "TimeSpan.FromMinutes(200): " & vbTab & TimeSpan.FromMinutes(CDbl(200)).ToString & vbCrLf
        str1 += "TimeSpan.FromSeconds(2000): " & vbTab & TimeSpan.FromSeconds(CDbl(2000)).ToString & vbCrLf
        str1 += "TimeSpan.FromMilliseconds(20000): " & vbTab & TimeSpan.FromMilliseconds(CDbl(20000)).ToString & vbCrLf
        str1 += "TimeSpan.FromTicks(1204567): " & vbTab & TimeSpan.FromTicks(CLng(1204567)).ToString & vbCrLf

        MsgBox(str1)

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim str1 As String

        str1 += "TimeSpan.MaxValue: " & vbTab & TimeSpan.MaxValue.ToString & vbCrLf
        str1 += "TimeSpan.MinValue: " & vbTab & TimeSpan.MinValue.ToString & vbCrLf
        str1 += "TimeSpan.TicksPerDay: " & vbTab & TimeSpan.TicksPerDay.ToString & vbCrLf
        str1 += "TimeSpan.TicksPerHour: " & vbTab & TimeSpan.TicksPerHour.ToString & vbCrLf
        str1 += "TimeSpan.TicksPerMinute: " & vbTab & TimeSpan.TicksPerMinute.ToString & vbCrLf
        str1 += "TimeSpan.TicksPerSecond: " & vbTab & TimeSpan.TicksPerSecond.ToString & vbCrLf
        str1 += "TimeSpan.TicksPerMillisecond: " & vbTab & TimeSpan.TicksPerMillisecond.ToString & vbCrLf

        str1 += "TimeSpan.Zero: " & vbTab & TimeSpan.Zero.ToString & vbCrLf


        MsgBox(str1)
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class