VB里关于复制、粘贴的代码

《VB里关于复制、粘贴的代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、PrivateSubCopy_Click()Clipboard.SetTextText1.SelTextPaste.Enabled=TrueEndSubPrivateSubCut_Click()Clipboard.SetTextText1.SelTextText1.SelText=""EndSubPrivateSubPaste_Click()Text1.SelText=Clipboard.GetTextEndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComCtlLib.Button)OnErrorResumeNextSelectC

2、aseButton.KeyCase"新建"new_Click'应做:添加'新建'按钮代码。Case"保存"save_ClickCase"复制"Copy_ClickCase"剪切"Cut_ClickCase"粘贴"Paste_ClickCase"粗体"Text1.FontBold=True'应做:添加'粗体'按钮代码。Case"斜体"Text1.FontItalic=True'应做:添加'斜体'按钮代码。Case"下划线"Text1.FontUnderline=True'应做:添加'下划线'按钮代码。EndSelectEndSubPrivateSubBackColor_Click()Cm

3、d.Action=3Text1.BackColor=Cmd.ColorEndSubPrivateSubend_Click()EndEndSubPrivateSubForeColor_Click()Cmd.Action=3Text1.ForeColor=Cmd.ColorEndSubPrivateSubHT_Click()Text1.FontName="黑体"EndSubPrivateSubJRead_Click()JRead.Checked=TrueEndSubPrivateSubKS_Click()Text1.FontName="楷体_GB2312"EndSubPrivateSubL

4、S_Click()Text1.FontName="隶书"EndSubPrivateSubnew_Click()Text1.Text=""EndSubPrivateSubsave_Click()Cmd.Filter="文本文件(*.txt)

5、*.txt

6、源程序（*.asm)

7、*.asm

8、所有文件

9、*.*

10、"Cmd.ShowSaveIfCmd.FileName=""ThenExitSubEndIfOpenCmd.FileNameForOutputAs#1Print#1,Text1.TextClose#1EndSubPrivateSubSaveAs_Click()Cmd.Filter="文本

11、文件(*.txt)

12、*.txt

13、源程序（*.asm)

14、*.asm

15、所有文件

16、*.*

17、"Cmd.ShowSaveIfCmd.FileName=""ThenExitSubEndIfOpenCmd.FileNameForOutputAs#1Print#1,Text1.TextClose#1EndSubPrivateSubShowl1_Click()IfShowl1.Caption="显示"ThenShowl1.Caption="隐藏"Text1.Visible=FalseElseIfShowl1.Caption="隐藏"ThenShowl1.Caption="显示"Text1.Visible

18、=TrueEndIfEndSubPrivateSubST_Click()Text1.FontName="宋体"EndSub