Buat 1 project dengan :
1 Form
1 TextBox
3 CommandButton
Source code pada Form :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| 'copyPrivate Sub Command1_Click() Clipboard.SetText Text1.SelTextEnd Sub'pastePrivate Sub Command2_Click() Text1.SelText = Clipboard.GetText()End Sub'cutPrivate Sub Command3_Click() Clipboard.SetText Text1.SelText Text1.SelText = ""End Sub |










0 komentar: