note.vb

固定资产管理信息系统,虽然还有些不足,但基本功能已实现!希望大家多多改进!

        Me.MenuItem31.Index = 1
        Me.MenuItem31.Text = "-"
        '
        'MenuItem17
        '
        Me.MenuItem17.Index = 2
        Me.MenuItem17.Text = "帮助主题"
        '
        'ToolBar1
        '
        Me.ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3, Me.ToolBarButton4, Me.ToolBarButton5, Me.ToolBarButton6, Me.ToolBarButton7, Me.ToolBarButton8})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.HelpProvider1.SetShowHelp(Me.ToolBar1, True)
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(536, 28)
        Me.ToolBar1.TabIndex = 2
        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.DropDownMenu = Me.ContextMenu1
        Me.ToolBarButton1.ImageIndex = 1
        Me.ToolBarButton1.Style = System.Windows.Forms.ToolBarButtonStyle.DropDownButton
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem33, Me.MenuItem34})
        '
        'MenuItem33
        '
        Me.MenuItem33.Index = 0
        Me.MenuItem33.Text = "新建空白区"
        '
        'MenuItem34
        '
        Me.MenuItem34.Index = 1
        Me.MenuItem34.Text = "新建空白记事本"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.ImageIndex = 0
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.ImageIndex = 5
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.ImageIndex = 4
        '
        'ToolBarButton5
        '
        Me.ToolBarButton5.ImageIndex = 2
        '
        'ToolBarButton6
        '
        Me.ToolBarButton6.ImageIndex = 6
        '
        'ToolBarButton7
        '
        Me.ToolBarButton7.ImageIndex = 7
        Me.ToolBarButton7.Style = System.Windows.Forms.ToolBarButtonStyle.DropDownButton
        '
        'ToolBarButton8
        '
        Me.ToolBarButton8.ImageIndex = 8
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'TextBox2
        '
        Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.TextBox2.Location = New System.Drawing.Point(224, 8)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.TabIndex = 3
        Me.TextBox2.Text = ""
        '
        'HelpProvider1
        '
        Me.HelpProvider1.HelpNamespace = "E:\作业文件夹\Vb.NET\作业\课外作业\Notepad\notepad\note\notepad.chm"
        '
        'note
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(536, 414)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.ToolBar1)
        Me.IsMdiContainer = True
        Me.MaximizeBox = False
        Me.Menu = Me.MainMenu1
        Me.Name = "note"
        Me.HelpProvider1.SetShowHelp(Me, True)
        Me.Text = "-----------记事本"
        Me.ResumeLayout(False)

    End Sub

#End Region



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

        Dim ObjNoteHeader As New noteHeader

        'ObjNoteHeader.MdiParent = Me
        ' ObjNoteHeader.Show()
        If falg = 0 Then
            ObjNoteHeader.MdiParent = Me
            ObjNoteHeader.Show()
        End If

        falg = 1


    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        'OPen.ShowDialog()

        With OPen
            .InitialDirectory = System.Reflection.Assembly.GetExecutingAssembly.Location
            .Filter = "text file(*.txt)|*.txt|all file(*.*)|*.*"
        End With
        If OPen.ShowDialog() = DialogResult.OK Then
            ObjNoteHeader.TextBox1.Text = readFile(OPen.FileName)

        End If

    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        With Save
            .InitialDirectory = OPen.InitialDirectory = System.Reflection.Assembly.GetExecutingAssembly.Location
            .Filter = "text files | *.txt | all files | *.*"
        End With
        If Save.ShowDialog = DialogResult.Cancel Then Exit Sub
        writeFile(Save.FileName)

    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        print.Document = pDocument
        Dim result As DialogResult = print.ShowDialog
        If result = Windows.Forms.DialogResult.OK Then
            pDocument.Print()
        End If

    End Sub

    Public Function readFile(ByVal path As String) As String
        Dim fs As FileStream
        fs = File.Open(path, FileMode.Open)
        Dim data(fs.Length) As Byte
        fs.Read(data, 0, fs.Length)

        Dim temp As New StringBuilder
        Dim i As Int16
        For i = 0 To fs.Length
            temp.Append(Chr(data(i)))
        Next
        fs.Close()
        Return temp.ToString
    End Function

    Public Sub writeFile(ByVal path As String)
        Dim fs As FileStream, i As Int32
        fs = File.Open(path, FileMode.OpenOrCreate)
        Dim strdata As String = ObjNoteHeader.TextBox1.Text
        Dim data(strdata.Length) As Byte
        For i = 0 To strdata.Length - 1
            data(i) = Asc(strdata.Substring(i, 1))

        Next
        fs.Write(data, 0, UBound(data))
        fs.Close()

    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click

        If MenuItem14.Checked = False Then
            ObjNoteHeader.TextBox1.WordWrap = True
            MenuItem14.Checked = True

        Else
            ObjNoteHeader.TextBox1.WordWrap = False
            MenuItem14.Checked = False
        End If



    End Sub

    Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
        fon.ShowDialog()
        ObjNoteHeader.TextBox1.Font = fon.Font()
    End Sub
    Private Sub FontColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontColor.Click
        color.ShowDialog()
        ObjNoteHeader.TextBox1.ForeColor = color.Color()
    End Sub


    Private Sub BackColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackColor.Click
        color.ShowDialog()
        ObjNoteHeader.TextBox1.BackColor = color.Color()
    End Sub


    Private Sub ANotespad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANotespad.Click
        System.Diagnostics.Process.Start("notepad.chm")
    End Sub

    Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
        Dim obj_help As New Help
        obj_help.Show()

    End Sub



    Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
        Dim pageset As New PageSettings
        pagesetup.PageSettings = pageset
        pagesetup.ShowDialog()
    End Sub

    Private Sub MenuItem19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem19.Click
        Close()
    End Sub

    Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click
        ObjNoteHeader.TextBox1.SelectedText = ""
    End Sub

    Private Sub MenuItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem22.Click
        ObjNoteHeader.TextBox1.SelectionStart = 0
        ObjNoteHeader.TextBox1.SelectionLength = Len(ObjNoteHeader.TextBox1.Text)
    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        'TextBox1.SendKeys("^{insert}")
        System.Windows.Forms.Clipboard.GetDataObject()
        System.Windows.Forms.Clipboard.SetDataObject(ObjNoteHeader.TextBox1.SelectedText)
    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        If ObjNoteHeader.TextBox1.CanUndo = True Then
            ' Undo the last operation.
            ObjNoteHeader.TextBox1.Undo()
            ' Clear the undo buffer to prevent last action from being redone.
            ObjNoteHeader.TextBox1.ClearUndo()
        End If
    End Sub

    Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click
        'SendKeys("+{del}")
        System.Windows.Forms.Clipboard.GetDataObject()
        System.Windows.Forms.Clipboard.SetDataObject(ObjNoteHeader.TextBox1.SelectedText)
        ObjNoteHeader.TextBox1.SelectedText = ""
    End Sub

    Dim clip As System.Windows.Forms.Clipboard
    Dim send As System.Windows.Forms.SendKeys

    Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
        send.Send("+{insert}")
        'TextBox1.SelectedText = clip.GetType


    End Sub

    Dim sFind As String
    'Dim find As find

    Private Sub MenuItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem23.Click
        sFind = InputBox("请输入要查找的字、词：", "查找内容", sFind)
        'TextBox1.find(sFind)
    End Sub


    Private Sub MenuItem25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem25.Click
        ObjNoteHeader.TextBox1.SelectionStart = ObjNoteHeader.TextBox1.SelectionStart + ObjNoteHeader.TextBox1.SelectionLength + 1
        ' TextBox1.Find(sFind, , Len(TextBox1))

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ObjNoteHeader.MdiParent = Me
        ObjNoteHeader.Show()

        ToolBar1.ImageList = ImageList1

        ToolBarButton1.ImageIndex = 0
        ToolBarButton2.ImageIndex = 1
        ToolBarButton3.ImageIndex = 2
        ToolBarButton4.ImageIndex = 3
        ToolBarButton5.ImageIndex = 4
        ToolBarButton6.ImageIndex = 5
        ToolBarButton7.ImageIndex = 6
        ToolBarButton8.ImageIndex = 7


        If ObjNoteHeader.TextBox1.Text = "" Then
            MenuItem11.Enabled = False
            MenuItem12.Enabled = False
            MenuItem20.Enabled = False
            MenuItem21.Enabled = False
            MenuItem22.Enabled = False
            MenuItem23.Enabled = False
            MenuItem25.Enabled = False

        Else
            MenuItem11.Enabled = True
            MenuItem12.Enabled = True
            MenuItem20.Enabled = True
            MenuItem21.Enabled = True
            MenuItem22.Enabled = True
            MenuItem23.Enabled = True
            MenuItem25.Enabled = True

        End If

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub note_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

        falg = 0

    End Sub
End Class