Memindahkan Text Tanpa Kondisi Dan Double Tools

tugas buat begini ...




cara kerja : klo di klik "pindah" 1x maka textbox di atas pindah ke bawah,kalo di klik "pindah" 1x lagi maka textbox yg udah pindah di bawah pindah lagi ke atas ...

nah di sini serunya ga boleh pake Perintah Kondisi (if then) atau tools berganda ( ga boleh command buttonnya 2 buah )

coding :

Private Sub Command1_Click()
    Dim strTest As String
    strTest = Text1.Text
    Text1.Text = Text2.Text
    Text2.Text = strTest
End Sub

untuk programnya bisa di download di SINI
kalo masalah adf.ly (di pojok kanan atas klik skip add setelah anda menunggu 5 detik)

sumber : http://www.kaskus.us/showthread.php?p=436403271&posted=1#post436403271

Penulis : Jusuf Indrakumala ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Memindahkan Text Tanpa Kondisi Dan Double Tools ini dipublish oleh Jusuf Indrakumala pada hari Kamis, 26 Mei 2011. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Memindahkan Text Tanpa Kondisi Dan Double Tools