复制/粘贴/清除/撤销/全选

 复制/粘贴/清除/撤销/全选

控件:RichTextBOX

  代码:

1. RichTextBox1.Copy()        '复制
2. RichTextBox1.Paste()       '粘贴
3. RichTextBox1.Clear()       '清空
4. RichTextBox1.Undo()        '撤销
5. RichTextBox1.SelectAll()   '全选

弹出对话框

代码:

1. If MessageBox.Show("确实要删除'该文件'并将所有内容移入回收站吗?", "确认文件夹删除", _
2.                           MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
3.         End If

对选择字体作用:

1. FontDialog1.ShowApply = True
2. FontDialog1.ShowColor = True
3. FontDialog1.ShowDialog()
4. Dim thefont As System.Drawing.Font
5. thefont = FontDialog1.Font
6.  RichTextBox1.SelectionFont = thefont     '只对选中的字起作用