|
.Style)
End If
End Sub
''''下面这个SetFontFamily函数是用来设置字体的变化
Public Sub SetFontFamily(ByVal rtb As RichTextBox, ByVal fontName As String)
Dim fontFam As New System.Drawing.FontFamily(fontName)
Dim style As System.Drawing.FontStyle
If rtb.SelectionLength > 0 Then
Dim selStart As Integer = rtb.SelectionStart
Dim selLength As Integer = rtb.SelectionLength
Dim i As Integer
For i = 0 To selLength - 1
rtb.Select(selStart + i, 1)
style = GetSafeStyleForFontFamily(fontFam, rtb.SelectionFont.Style)
rtb.SelectionFont = New Font(fontFam, rtb.SelectionFont.Size, style)
Next
rtb.Select(selStart, selLength)
Else
style = GetSafeStyleForFontFamily(fontFam, rtb.SelectionFont.Style)
rtb.SelectionFont = New Font(fontFam, rtb.SelectionFont.Size, style)
End If
End Sub
''''************************************************************************************
''''下面这个函数是用来新建文件
Private Sub newfile()
Dim flag As Integer
''''如果文本已经被保存，则清空rtbox内容，所有变量重置以新建文本
If bSave Then
rtbox.Clear()
SaveFileDialog1.FileName = ""
bSave = True
Else
''''如果文本没有保存，则提示是否要保存
flag = MessageBox.Show("文件内容已更改，想保存文件吗？？", "info", MessageBoxButtons.YesNoCancel, 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
''''然后就是清空rtbox的内容，重置变量以新建文本
bSave = True
rtbox.Clear()
SaveFileDialog1.FileName = ""
''''case 7就是当用户选择了no也就是不保存时，立即清空rtbox内容，重置变量以新建文本
Case 7
rtbox.Clear()
SaveFileDialog1.FileName = ""
bSave = True
''''case else就是当用户选择了取消，则取消新建操作，也就是Do Nothing
Case Else
End Select
End If
End Sub
''''下面这个函数是用来打开文件
Private Sub openfile()
Dim flag As Integer
''''如果文本内容没有保存，询问用户是否保存
If Not bSave Then
flag = MessageBox.Show("文件内容已更改，想保存文件吗？？", "info", MessageBoxButtons.YesNoCancel, 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
''''弹出打开文件对话框，执行打开文件操作
bSave = True
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
rtbox.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
End If
''''case 7的意思是如果用户选择了“不保存”，则直接执行打开文件操作
Case 7
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
&n 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
