VB 6 i VS 2008 - menjanje boje pozadine MENU-a ( standardno je plava )

Code:


' Treba ti forma, dugme ( na koje ces kasnije da kliknes :) ), jedna stavka u meniju i jedna u podmeniju

Option Explicit
 
Private Const MIM_BACKGROUND As Long = &H2

Private Const MIM_APPLYTOSUBMENUS As Long = &H80000000
Private Type MENUINFO

    cbSize As Long

    fMask As Long

    dwStyle As Long

    cyMax As Long

    hbrBack As Long

    dwContextHelpID As Long

    dwMenuData As Long

End Type

Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SetMenuInfo Lib "user32" (ByVal hMenu As Long, mi As MENUINFO) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
       
Private Sub Command1_Click()

Dim mi As MENUINFO

    With mi

        .cbSize = Len(mi)

        .fMask = MIM_BACKGROUND

        .hbrBack = CreateSolidBrush(&HFF) ' <-Ovde menjas boju za glavni meni

        SetMenuInfo GetMenu(Me.hWnd), mi

        .fMask = MIM_BACKGROUND Or MIM_APPLYTOSUBMENUS

        .hbrBack = CreateSolidBrush(&HFFFFFF) '<- Ovde za podmeni

        SetMenuInfo GetSubMenu(GetMenu(Me.hWnd), 0), mi

    End With

    DrawMenuBar Me.hWnd

End Sub

Code:

Private Declare Function [function name] Lib [library] ([arg1], [arg2]) As [return type]

Code:


    ' Predpostavljam da ti ovaj deo nije jasan

    With mi '<- 1*

        .cbSize = Len(mi) ' <- Broj bajtova koji su nam potrebni da bi sacuvali promenjivu (u ovom slucaju tip) smesta u polje mi.cbSize
        .fMask = MIM_BACKGROUND ' mi.fMask je maska koja pokazuje na sta ce se odnositi sledeca operacija

        .hbrBack = CreateSolidBrush(&HFF) ' Posto WIN32 API radi malo drugacije nego sam VB6,
ne mozemo direktno upisati vrednost za odredjenu boju vec moramo napraviti "cetku" koja ce sadrzati informaciju o boji.

        SetMenuInfo GetMenu(Me.hWnd), mi ' Vrednost mi cemo prekopirati na meni koji se nalazi na formi sa handle-om Me.hWnd
        
        ' Dalje se sve ponavlja, samo za podmenije.
        
        .fMask = MIM_BACKGROUND Or MIM_APPLYTOSUBMENUS ' <- Predpostavljam da ti je http://en.wikipedia.org/wiki/Or - logicka disjunkcija[/url] poznata
        .hbrBack = CreateSolidBrush(&HFFFFFF) ' Umesto hexa vrednosti mozes koristiti funkciju RGB([rr], [gg], [bb]) ako ti je lakse da radis tako.

        SetMenuInfo GetSubMenu(GetMenu(Me.hWnd), 0), mi

    End With

    DrawMenuBar Me.hWnd

End Sub

Code:

With user_defined_var

    statements

End With

Code:


Type rect_type
    x As Single
    y As Single
End Type

Dim the_rectangle As rect_type
Dim As Integer temp, t

With the_rectangle
    temp = .x
    .x = 234 * t + 48 + .y
    .y = 321 * t + 2
End With

Code:


' Module MenuColor.bas

Option Explicit
Private Const MIM_BACKGROUND As Long = &H2 ' konstanta
Private Const MIM_APPLYTOSUBMENUS As Long = &H80000000 ' konstanta

'Struktura MENUINFO , strukture su kompeksan tip podataka ...
Private Type MENUINFO
    cbSize As Long
    fMask As Long
    dwStyle As Long
    cyMax As Long
    hbrBack As Long
    dwContextHelpID As Long
    dwMenuData As Long
End Type

'WinApi funkcije
'U WinApi-ju se manje vise sve radi preko handlera, pocetnici handlere mogu da zamisljaju kao svojevrstan ID objekta
'I svaki objekat (npr. prozor, menu itd. ima drugi handler)

'Dobijanje menu handlera za window hWnd
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long

'Dobijanje submeni handlera , hMenu je hendler meni-a a nPos pozicija , prva pozicija je 0, itd.
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

'Funkcija menja hMenu, mi ja MENUINFO struktura koja opisuje menu
Private Declare Function SetMenuInfo Lib "user32" (ByVal hMenu As Long, mi As MENUINFO) As Long

'Kreiranje objekta za bojenje
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

' Iscrtava menu bar , parametar hWnd je handle prozora na kojem je menu
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

'************************************************************************
' Subrutina SetMenuColor sluzi za menjanje boje menija i submenija na odredjenom prozoru
'
' hWnd ---------------------- window handler forme na kojoj je menu
' MenuBackColor ----------- boja pozadine celog menija, ako je manje od nula boja se ne menja
' SubMenuBackColor ------- boja pozadine sub menija, ako je manje od nula boja se ne menja
'
'************************************************************************

Public Sub SetMenuColor(hWnd As Long, MenuBackColor As Long, SubMenuBackColor As Long)

Dim hMenu As Long ' menu handler
hMenu = GetMenu(hWnd) ' trazimo menu handler od windowsa
If hMenu = 0 Then Exit Sub ' nemamo nista ... moramo da izadjemo iz procedure

Dim mnui As MENUINFO ' deklarisemo promenljivu

' ovo cesto mora da se uradi u WinApi-u pre nego sto struktura moze da se upotrebi ...
' opisuje velicinu strukture u bajtovima
mnui.cbSize = Len(mnui)

If Not MenuBackColor < 0 Then ' ako vrednost boje nije manja od nule pokusavamo da je promenimo
mnui.fMask = MIM_BACKGROUND ' zanima nas boja pozadine
mnui.hbrBack = CreateSolidBrush(MenuBackColor) ' podesavamo je u strukturi
SetMenuInfo hMenu, mnui ' i menjamo MENUINFO za glavni menu hMenu
End If

If Not SubMenuBackColor < 0 Then ' ako vrednost boje za submenu nije manja od nule pokusavamo da je promenimo
mnui.fMask = MIM_BACKGROUND Or MIM_APPLYTOSUBMENUS ' zanima nas boja pozadine submenija
mnui.hbrBack = CreateSolidBrush(SubMenuBackColor)  ' podesavamo je u strukturi
'Ovde cemo da napravimo petlju koja ce da oboji sve submenije
'Posto nemamo broj submenije idemo dok ne dodjemo do NULL handlera
Dim hSubMenu As Long, i ' hSubMenu submenu handler, i broj za poziciju
i = 0
hSubMenu = GetSubMenu(hMenu, i) ' trazimo submenu handler od windowsa
While hSubMenu ' dok je hSubMenu > 0
SetMenuInfo hSubMenu, mnui ' i menjamo MENUINFO
i = i + 1
hSubMenu = GetSubMenu(hMenu, i) ' trazimo submenu handler od windowsa
Wend
End If

TheEnd:
DrawMenuBar hWnd ' ovde iscrtavamo novi meni sa novim podatcima
End Sub

Code:

Private Sub Form_Load()
' Vrednosti za boje menija mozes da dobijes u properties editoru
' Npr. promeni boju pozadine forme u onu koja ti ovde treba i kopiraj vrednost boje
SetMenuColor Me.hWnd, -1, &HFF0000
End Sub