Office 97 Araç Çubuğu Yaratmak

Office 97 ile gelen araç çubuğu uygulamaya güzel bir görünüm katıyor. Aslında bunu VBasic ile yapmak içi bir kontrol gelmiyor. Fakat API fonksiyonlarını ve eski Common Controls ToolBar'ı kullanarak bu tür araç çubukları oluşturmak mümkün. 1. Önce yeni bir proje hazırlayın ve Common Controls ActiveX kontrolünü ekleyin.
2. Bir formun üzerine ToolBar kontrolünü yerleştirin ve butonları oluşturun.
3. Şimdi projeye bir Module yerleştirin ve aşağıdaki kodu modülün General Declarations kısmına yerleştirin:

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function SendTBMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long

Public Const WM_USER = &H400
Public Const TBSTYLE_FLAT = &H800
Public Const TBSTYLE_TRANSPARENT = &H8000
Public Const TB_SETSTYLE = (WM_USER + 56)
Public Const TB_GETSTYLE = (WM_USER + 57)

Public Sub MakeToolbarFlat(theToolbar As Control)

Dim Res As Long
Dim Style As Long

Style = SendTBMessage(FindWindowEx(theToolbar.hwnd, 0&, "ToolbarWindow32", vbNullString), TB_GETSTYLE, 0&, 0&)
Style = Style Or TBSTYLE_FLAT Or TBSTYLE_TRANSPARENT
Res = SendTBMessage(FindWindowEx(theToolbar.hwnd, 0&, "ToolbarWindow32", vbNullString), TB_SETSTYLE, 0, Style)

theToolbar.Refresh

End Sub

4. Aşağıdaki kodları da formun Form_Load olayına kopyalayın:

Call MakeToolbarFlat(Toolbar1)

Toolbar1, tabiki ToolBar kontrolünün adı.

Ayrıntılı Konu Bilgileri
Konu BaşlığıKonu: Office 97 Araç Çubuğu Yaratmak	Cevap SayısıCevap Sayısı: 0 cevap var
Okunma SayısıOkunma Sayısı 87 defa	Konuyu Görüntüleyenler0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Benzer Konular
	Konu Başlığı	Başlatan	Yanıtlar	Görüntülenme	Son Mesaj
	Office ve Office 2007 ile İlgili Herşey...Mutlaka bakın ¿ WinDows	SahveMat	16	406	Eylül 08, 2007, 06:27:03 ÖS Gönderen: MythEskiya
	Renkli Başlat Çubuğu Yeni Başlayanlar İçin Genel Dökümanlar	Tetikci	5	435	Nisan 19, 2008, 09:16:37 ÖS Gönderen: BY_Vista
	Masaüstünüze kısa yol çubuğu (vistadaki objectdock ozelligi) K-L-M-N-O	SuBHaN_	1	86	Ekim 21, 2008, 12:53:23 ÖS Gönderen: henryyy
	Vista Kenar Çubuğu Araçları (6 Adet Gadgets) VisTa	7h30x5a	5	507	Şubat 27, 2008, 07:57:31 ÖS Gönderen: SuBHaN_
	GÜlle: Herkesİn gÖrev aldiĞi bİr ortam yaratmak İstİyoruz 23.08 Türkiye'den Güncel haberler	@kif1905	0	66	Ağustos 23, 2008, 10:18:09 ÖÖ Gönderen: @kif1905

	Gönderen	Konu: Office 97 Araç Çubuğu Yaratmak (Okunma Sayısı 87 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.