Blog Business Review Gadget Games General Highlight Humour Internet Mailbox Opinion Tips&Tricks Tutorial

Microsoft Visual Basic 6.0: Drag Jendela lewat Textbox



Author: DHINATACOM
Posted: 22.02.2006 at 13:26.
Last Updated: 22.02.2006 at 23:26.
5 Komentar.

Untuk menggeser suatu jendela aplikasi, biasanya kita lakukan lewat title bar pada jendela. Ada banyak jalan menuju Roma, demikian pula ada banyak juga cara untuk menggeser jendela aplikasi. Dengan menggunakan Visual Basic 6.0, kita akan mencobanya dengan menggeser jendela lewat Textbox. Lalu bagaimana caranya ?

Langkah-langkahnya tidak terlalu sulit :
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 Textbox pada jendela Project1 – Form1 (Form).
5. klik [View] > [Code] untuk membuka jendela Project1 – Form1 (Code)
6. Ketikkan kode program berikut ini :

  1. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  2. (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam _
  3. As Any) As Long
  4. Private Declare Sub ReleaseCapture Lib "user32" ()
  5. Public Sub GeserJendela(TheForm As Form)
  6. ReleaseCapture
  7. Call SendMessage(TheForm.hWnd, &HA1, 2, 0&)
  8. End Sub
  9.  
  10. Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  11. GeserJendela Me
  12. End Sub

7. Simpan dan jalankan dengan menekan [F5].

Sekarang coba pastikan pointer mouse berada di atas textbox dan segera klik kiri, tahan dan geser mouse anda. Apakah jendela aplikasi ikut bergeser ? jika ya, selamat anda telah berhasil !!!



komentar pembaca DHINATACOM

  1. astrid says:

    mas,ad tutorial bkin database dengan mnggunakan VB 6.0 ga?? bingung neh gmn caranya?? nangis gatau

  2. ogel says:

    mas,klo coding bwt ngirim email lewat vb6 gmn y??
    nangis

  3. ogel says:

    da yg kelupaan mas, ehm… gni ato g’ ngirim comment kyk yg q lakuin skrang tp lewat vb6,jd q g usah masuk ke webny mas,tp q bs kirim comment,kira2 gmna y?? ksh tutorial yg lengkap mas… love

    best regard

D . ( . P . diem . piss . kaget . nocomment . malu . mimpi . licik . ide . yess . tipi . tendang . sombong . sinchan . sial . senam . nyerah . ngiler . nggaya . nangis . musik . males . love . konslet . kembar . gatau . damn . bye . ayuk . belajar . tutupkuping . tolong . terharu . strees . serang . sendiri . ngakak . mimisan . mati . mantap . kesel . keren . kartukuning . kartumerah . fiuhhh . cendol . salaman . recseller . maho . marah . najis . kiss . bingung . berduka . takut . ngacir . ngacir2 . janganribut . capedeh .

Petunjuk komentar:
1. Tolong tulis komentar yang berhubungan dengan topik artikel. Jangan mengirim SPAM!
2. Komentar yang tidak berhubungan atau SPAM akan dihapus.
3. Klik gambar emoticon diatas untuk menampilkannya pada komentar Anda.

Catatan: Beberapa emoticon yang ditampilkan merupakan hak cipta dari Kaskus.

home DHINATACOM


Home Article Index Contact Disclaimer F.A.Q


langganan majalah DHINATACOM
Artikel Terbaru

Internet Hemat dengan Paket Simpati di Bawah 1 GB

Membuat Jaringan Multimedia Server Dengan PC Windows dan Smartphone Android

Disclaimer . Contact Info . Privacy Policy . F A Q . Servis Komputer Tangerang
DHINATA.COM © 2008-2017 oleh Yoki DHINATA. Theme: D-Magz 3.1
Desain Tema oleh Yoki DHINATA. My Copyright Is Not Your Right To Copy.
Powered by WordPress. Hak Cipta Dilindungi.
home DHINATACOM