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

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

控件: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     '只对选中的字起作用

你可能感兴趣的:(复制/粘贴/清除/撤销/全选)