form1.vb

vb 应用实例 简单应用 ddddddddddddddddddddddddddddddddd

Imports System.IO
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 MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
    Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
    Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.MenuItem1 = New System.Windows.Forms.MenuItem()
        Me.MenuItem2 = New System.Windows.Forms.MenuItem()
        Me.MenuItem4 = New System.Windows.Forms.MenuItem()
        Me.MenuItem5 = New System.Windows.Forms.MenuItem()
        Me.MenuItem6 = New System.Windows.Forms.MenuItem()
        Me.MenuItem7 = New System.Windows.Forms.MenuItem()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.StatusBar1 = New System.Windows.Forms.StatusBar()
        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
        Me.MenuItem8 = New System.Windows.Forms.MenuItem()
        Me.MenuItem9 = New System.Windows.Forms.MenuItem()
        Me.MenuItem3 = New System.Windows.Forms.MenuItem()
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
        Me.SuspendLayout()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem9, Me.MenuItem8, Me.MenuItem4, Me.MenuItem5, Me.MenuItem6, Me.MenuItem3, Me.MenuItem7})
        Me.MenuItem1.Text = "档案(&F)"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 0
        Me.MenuItem2.Text = "新增(&N)"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 3
        Me.MenuItem4.Text = "储存(&S)"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 4
        Me.MenuItem5.Text = "-"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 5
        Me.MenuItem6.Text = "关闭(&C)"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 7
        Me.MenuItem7.Text = "结束(&X)"
        '
        'TextBox1
        '
        Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.TextBox1.Multiline = True
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Both
        Me.TextBox1.Size = New System.Drawing.Size(456, 289)
        Me.TextBox1.TabIndex = 0
        Me.TextBox1.Text = ""
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 267)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Size = New System.Drawing.Size(456, 22)
        Me.StatusBar1.TabIndex = 1
        Me.StatusBar1.Text = "就绪"
        '
        'SaveFileDialog1
        '
        Me.SaveFileDialog1.FileName = "doc1"
        '
        'MenuItem8
        '
        Me.MenuItem8.Index = 2
        Me.MenuItem8.Text = "打开(&O)"
        '
        'MenuItem9
        '
        Me.MenuItem9.Index = 1
        Me.MenuItem9.Text = "-"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 6
        Me.MenuItem3.Text = "-"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 15)
        Me.ClientSize = New System.Drawing.Size(456, 289)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.StatusBar1, Me.TextBox1})
        Me.Menu = Me.MainMenu1
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "记事本"
        Me.ResumeLayout(False)

    End Sub

#End Region

    'Froms 项目需设定启始对象为 Sub Main, 而非 From1

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        SaveDoc()
    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        MyForm.AddNewForm()
    End Sub

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

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        RaiseEvent ExitApplication(Me, Nothing)
    End Sub


    Public ReadOnly Property ClosingComplete() As Boolean
        Get
            Return _ClosingComplete
        End Get
    End Property

    Public ReadOnly Property DocName() As String
        Get
            Return _DocName
        End Get
    End Property




    Public Event SaveWhileClosingCancelled As System.EventHandler
    Public Event ExitApplication As System.EventHandler

    Private _HasChanges As Boolean = False
    Private _ClosingComplete As Boolean = False
    Private _DocName As String
    Private _FileName As String


    Public Property HasChanges() As Boolean
        'HasChanges 属性主要目的为决定关闭窗体时是否要储存, 窗体标题有 * 表示有修改过.
        Get
            Return _HasChanges
        End Get
        Set(ByVal Value1 As Boolean)
            If Value1 Then
                '窗体标题有 * 表示有修改过
                If Not Me.Text.EndsWith("*") Then
                    Me.Text = Me.Text & "*"

                    Me.StatusBar1.Text = "有修改过需要储存."
                End If
            Else
                Me.StatusBar1.Text = "就绪"
                '移除 *
                Me.Text = Me.Text.Substring(0, (Me.Text.Length - 1))
            End If

            _HasChanges = Value1
        End Set
    End Property

    Public Property FileName() As String
        Get
            Return _FileName
        End Get
        Set(ByVal Value As String)
            _FileName = Value
            _DocName = System.IO.Path.GetFileNameWithoutExtension(_FileName)
            Me.Text = Me.DocName
        End Set
    End Property

    'See CommonDialogs.sln for details
    Private FileName1 As String
    Private Sub SaveDoc()

        Dim sw1 As StreamWriter

        Try
            With SaveFileDialog1

                '若为 true 则在使用者遗漏扩展名时会自动加入档案的扩展名。默认值是 true 。
                .AddExtension = True

                '检查所选择的档案路径是否存在
                .CheckPathExists = True

                .CreatePrompt = False

                .OverwritePrompt = True

                '仅接受有效的 Win32 檔名
                .ValidateNames = True

                '显示 Help 按钮
                .ShowHelp = True

                '预设的档案扩展名 .txt 檔
                .DefaultExt = "txt"

                '檔名
                .FileName = FileName1