ePages = True Else e.HasMorePages = False '''' You must explicitly reset intCurrentChar as it is static. intCurrentChar = 0 End If End Sub
Private Sub printpreview() Dim ppd As New PrintPreviewDialog() Try ppd.Document = pdoc ppd.ShowDialog() Catch exp As Exception MessageBox.Show("有错误发生!!不能预览 !" & _ "确信现在你是否能够 " & _ "连接到一个打印机?" & _ "然后预览才可以.", Me.Text, _ MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub
Private Sub mPrintpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mPrintpreview.Click printpreview() End Sub
Private Sub mPagesetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mPagesetup.Click Dim psd As New PageSetupDialog() With psd .Document = pdoc .PageSettings = pdoc.DefaultPageSettings End With
If psd.ShowDialog = DialogResult.OK Then pdoc.DefaultPageSettings = psd.PageSettings End If End Sub
Private Sub printfile() Dim dialog As New PrintDialog() dialog.Document = pdoc
If dialog.ShowDialog = DialogResult.OK Then pdoc.Print() End If End Sub ''''********************************************************************************
Private Sub mNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mNew.Click newfile() End Sub
Private Sub mOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mOpen.Click openfile() End Sub
Private Sub mSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mSave.Click savefile() End Sub
Private Sub mSaveas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mSaveas.Click ''''将保存文件窗口标题改为“文件另存为” SaveFileDialog1.Title = "文件另存为" If SaveFileDialog1.ShowDialog() = DialogResult.OK Then rtbox.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText) bSave = True End If ''''将标题改回 SaveFileDialog1.Title = "保存文件" End Sub
Private Sub mExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mExit.Click ''''退出操作 Close() End Sub
''''在关闭程序之前,判断文本是否需要保存 Private Sub formMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing If bSave = False Then Dim flag As Integer flag = MessageBox.Show("文件内容已更改,想保存文件吗??", "info", MessageBoxButtons.YesNo, MessageBoxIcon.Information) Select Case flag ''''case 6是当用户选择了“保存”,则执行保存文件的操作 Case 6 ''''如果没有选择要保存的文件名,则弹出保存对话框,由用户选择要保存的文件名后保存文本 If SaveFileDialog1.FileName = "" Then If SaveFileDialog1.ShowDialog Then rtbox.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText) End If Else ''''如果已经选择了要保存的文件名,则保存文本到文件中 rtbox.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText) End If Case Else ''''不保存 End Select End If End Sub
''''关于显示“关于”窗体的代码 Private Sub mAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mAbout.Click ''''首先需要定义一个“关于”Form的实例 Dim fAbout As New formAbout() ''''显示他 fAbout.Show() End Sub
Private Sub mFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mFont.Click If FontDialog1.ShowDialog() = DialogResult.OK Then rtbox.Font = FontDialog1.Font End If End Sub
Private Sub mUndo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mUndo.Click rtbox.Undo() End Sub
Private Sub mCut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mCut.Click rtbox.Cut() End Sub
Private Sub mCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mCopy.Click rtbox.Copy() End Sub
Private Sub mPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mPaste.Click rtbox.Paste() End Sub
Private Sub mClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mClear.Click rtbox.Clear() End Sub
Private Sub mSelectall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mSelectall.Click rtbox.SelectAll() End Sub
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页 没有相关教程
|