Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » Form Başlığını form içinde gösterme
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

GÖRSEL BUTON 2

Yazar: orcun

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 745
Yayın Tar:31.08.2004
Yazar : icefire
Hit :3597

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Arkadaşlar Diyelim ki Windows un klasik form başlıklarından sıkıldınız ve kendi form başlığınızı yaratmak istiyorsunuz.O halde Form başlığını form içinde gösterebilirsiniz.Bunun içIn:
Projenize bir tane Modül ekleyin.Formunuzun BorderStyle özelliğini 0-None yapın.


Modül Kodları
*********************

Public Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Declare Function DrawCaption Lib "User32" (ByVal hwnd As Long, ByVal hdc As Long, pcRect As RECT, ByVal un As Long) As Long

Declare Function SetRect Lib "User32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Declare Sub ReleaseCapture Lib "User32" ()

Public Const WM_NCLBUTTONDOWN = &HA1

Public Const HTCAPTION = 2


form Kodları
***************************


Const TitleWidth = 20

Dim r As RECT



Private Sub Form_Load()

Form1.AutoRedraw = True

Me.Cls

Me.ScaleMode = vbPixels

SetRect r, 0, 0, Me.ScaleWidth, TitleWidth

DrawCaption Me.hwnd, Me.hdc, r, &H9

End Sub



Private Sub Form_Resize()

SetRect r, 0, 0, Me.ScaleWidth, TitleWidth

DrawCaption Me.hwnd, Me.hdc, r, &H9

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Y > TitleWidth Then Exit Sub

Dim lngReturnValue As Long

If Button = 1 Then

Call ReleaseCapture

lngReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

End If

End Sub




Bu sayfa için henüz yorum eklenmemiş.

© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin