是要處理文本嗎?'添加窗體Form1,文本框Text1,按鈕Command1,Command2,Command3,然后添加如下代碼:PrivateSubForm_Load()Command1.Caption="剪切"Command2.Caption="復制"Command3.Caption="粘貼"EndSub'剪切PrivateSubCommand1_Click()Clipboard.ClearClipboard.SetTextText1.SelTextText1.SelText=""EndSub'復制PrivateSubCommand2_Click()Clipboard.ClearClipboard.SetTextText1.SelTextEndSub'粘貼PrivateSubCommand3_Click()Text1.SelText=Clipboard.GetTextEndSub
網站導航
- zblogPHP模板zbpkf
- zblog免費模板zblogfree
- zblog模板學習zblogxuexi
- zblogPHP仿站zbpfang