Peluang BISNIS Kursus Online: Belajar HTML, PHP & MySQL Sambil Menghasilkan UANG

Microsoft Visual Basic 6.0: Drag Jendela lewat Textbox


web hosting indonesia


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


Terbit 22.02.2006. Edisi Feb 2006. Sudah ada 5 Komentar.
DHINATACOM

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:
  1. untuk membuka jendela Project1 – Form1 (Code)
  2. 6. Ketikkan kode program berikut ini :
  3.  
  4. [code]Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  5. (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam _
  6. As Any) As Long
  7. Private Declare Sub ReleaseCapture Lib "user32" ()
  8. Public Sub GeserJendela(TheForm As Form)
  9. ReleaseCapture
  10. Call SendMessage(TheForm.hWnd, &HA1, 2, 0&)
  11. End Sub
  12.  
  13. Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  14. GeserJendela Me
  15. 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 !!!

Baca Juga:






Powered by FeedBlitz
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

Tulis komentar

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 . cekemail . maho . marah . najis . kiss . bingung . berduka . takut . 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 - The Largest Indonesian Community.