startupform.vb

文件与IO存取,数据绑定,数据库更新,章立民的程序

Imports System.IO
Public Class StartUpForm

    Private Sub StartUpForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DemoWinForms As FileInfo() = _
          My.Computer.FileSystem.GetDirectoryInfo( _
          My.Computer.FileSystem.CurrentDirectory).GetFiles("CH9_Demo*.vb")
        Dim DemoWinFormFile As FileInfo
        For Each DemoWinFormFile In DemoWinForms
            If DemoWinFormFile.Name.ToUpper.IndexOf(".DESIGNER") < 0 Then
                cboFormsToRun.Items.Add(DemoWinFormFile.Name)
            End If
        Next

        ' 设定 ToolTip 控件的各个属性。
        With ToolTip1
            .IsBalloon = True
            ' 设定 ToolTip 控件的背景色。
            .BackColor = Color.Black
            ' 设定 ToolTip 控件的前景色。
            .ForeColor = Color.Red
            .ToolTipIcon = ToolTipIcon.Info
            .UseAnimation = True
            .UseFading = True
        End With
    End Sub

    Private Sub StartUpForm_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        ' 在下拉列表框上显示工具提示文字。
        ToolTip1.Show( _
          "请选取您所要执行的程序范例，然后单击'启动'按钮。", _
          Me.cboFormsToRun, _
          CInt(Me.cboFormsToRun.Width / 4), _
          CInt(Me.cboFormsToRun.Height / 2), _
          10000)
    End Sub

    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        If cboFormsToRun.SelectedIndex >= 0 Then
            Dim choice As String = cboFormsToRun.SelectedItem.ToString()

            Select Case choice
                Case "CH9_DemoForm001.vb"
                    My.Forms.CH9_DemoForm001.Show()
                Case "CH9_DemoForm002.vb"
                    My.Forms.CH9_DemoForm002.Show()
                Case "CH9_DemoForm003.vb"
                    My.Forms.CH9_DemoForm003.Show()
            End Select
        End If
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub StartUpForm_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim g As Graphics = e.Graphics
        Dim lb As System.Drawing.Drawing2D.LinearGradientBrush = New System.Drawing.Drawing2D.LinearGradientBrush(Me.DisplayRectangle, Color.CadetBlue, Color.DarkGreen, Drawing2D.LinearGradientMode.Horizontal)
        g.FillRectangle(lb, Me.DisplayRectangle)
    End Sub

    Private Sub cboFormsToRun_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboFormsToRun.DropDown
        ' 隐藏下拉列表框上的工具提示文字。
        Me.ToolTip1.Hide(Me.cboFormsToRun)
    End Sub

    Private Sub cboFormsToRun_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboFormsToRun.DropDownClosed
        If cboFormsToRun.SelectedIndex <> -1 Then
            ' 在下拉列表框上显示工具提示文字。
            ToolTip1.Show( _
              "您已经选取了程序范例 " & cboFormsToRun.SelectedItem.ToString & _
              Environment.NewLine & _
              "，请单击'启动'按钮来执行它。", _
              Me.cboFormsToRun, _
              CInt(Me.cboFormsToRun.Width / 4), _
              CInt(Me.cboFormsToRun.Height / 2), _
              10000)
        Else
            ' 在下拉列表框上显示工具提示文字。
            ToolTip1.Show( _
              "请选取您所要执行的程序范例，然后单击'启动'按钮。", _
              Me.cboFormsToRun, _
              CInt(Me.cboFormsToRun.Width / 4), _
              CInt(Me.cboFormsToRun.Height / 2), _
              10000)
        End If
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub
End Class