|
Webmaster Genel kategorisinde açılmış olan VB Pencere Taşıma konusu , ...
| LinkBack | Seçenekler | Arama | Stil |
21.10.2014, 10:11 | #1 (permalink) |
| VB Pencere Taşıma VB Pencere Taşıma Bilindiği gibi VB de hazırlanan programlarda pencerelerin başlık cubuğu olmadan sürekleme işlemi yapılmamaktadır.aşağıda ki kod standart kaydırma işleminden sıyrılıp,kendi kaydırma işlemimizi yapmamız için kullanabileceğimiz bir kod örenğidir. Öncelikle projemize bir modul ekleyip aşağıda ki kodlarıyazıyoruz Public Const WM_NCLBUTTONDOWN = &HA1 Public Const HTCAPTION = 2 Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal IParam As Long) As Long Public Declare Sub ReleaseCapture Lib "user32" () Daha sonra formumuz üzerinde kod penceresini açıp; Sub moveform(frm As Form) Dim ReturnVal As Long ReleaseCapture ReturnVal = SendMessage(frm.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) If ReturnVal = 0 Then End If End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then moveform Me End Sub Projemizi çalıştırdıktan sonra formun neresinden tutarsak tutalım sürekleme işlemi gerçekleşecektir.
__________________ Kadının gücünü Hafife Alma. Her Yol Sana Çıkar Galatasaray ! Konu Şafak tarafından (21.10.2014 Saat 18:08 ) değiştirilmiştir. |
Yukarı'daki Konuyu Aşağıdaki Sosyal Ağlarda Paylaşabilirsiniz. |
| |
Forum hakkında | Kullanılan sistem hakkında |
| SEO by vBSEO 3.6.0 PL2 ©2011, Crawlability, Inc. |