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

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

控件:RichTextBOX

代码:

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

弹出对话框

代码:

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

对选择字体作用:

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