Microsoft Visual Basic 6.0: Buat Tombol Menyalin Teks

Blogging Business Editorial Gadget Games General Highlight Humour Internet Mailbox Opinion Tips&Tricks Tutorial

Microsoft Visual Basic 6.0: Buat Tombol Menyalin Teks

Mau Cari Informasi tentang Teknologi/Game? Cari Artikel Disini!

Terbit 01.08.2007. Edisi Aug 2007. Sudah ada 4 Komentar.

DHINATACOM

Ketika kita membuat suatu aplikasi dengan Visual Basic 6.0, pastilah tidak asing dengan kata Textbox. Textbox sering digunakan untuk memasukkan data teks. Biasanya untuk menyalin kata pada Textbox, kita hanya sekadar menekan tombol kombinasi [Ctrl] + C atau menggunakan context menu pada textbox tersebut. Maka kalau tadi ada dua cara menyalin teks pada Textbox , sekarang kita buat satu cara lagi untuk melakukannya yaitu dengan menggunakan tombol Copy seperti yang ada pada Microsoft Office atau WordPad.

Langkah-langkah pembuatannya sebagai berikut :

1. Buka aplikasi Visual Basic 6.0 lewat [Start] > [All Programs] > [Microsoft Visual Studio 6.0] > [Microsoft Visual Studio 6.0].

2. Pada jendela New Project, pilih tab New.

3. Pada tab New, pilihlah Standard EXE dan klik [ Open ] untuk membuka Jendela Project1 - Form1 (Form).

4. Buat 1 Textbox dan 1 CommandButton

5. klik [View] > (Code) untuk membuka jendela Project1 – Form1 (Code)

6. Ketikkan kode program berikut ini :

PLAIN TEXT

CODE:

Dim i, j As Integer
Private Sub Command1_Click()
Dim str As String
str = Text1.Text
Text1.Text = Mid(Text1.Text, Text1.SelStart _
+ 1, Text1.SelLength)
Clipboard.Clear
Clipboard.SetText (Text1.Text)
Text1.Text = str
Text1.SelStart = Len(Text1.Text)
Text1.SetFocus
Text1.SelStart = i
Text1.SelLength = j
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = Text1.SelStart
j = Text1.SelLength
End Sub

7. Untuk melihat hasilnya simpan dan jalankan dengan menekan [F5].

Sekarang coba ketik kalimat pada Textbox. Kemudian, blok kalimat dengan mouse dan selanjutnya klik CommandButton untuk menyalin. Untuk melihat hasil salinan, coba tempel di Notepad. Mudah bukan ?