Obarvajmo ozadje gumba v Access-u 2007

V novejših verzijah Accessa (od verzija 2010 dalje) je to zelo enostavno.Preprosto določimo vrednost za lastnost BackColor. Če želimo razviti aplikacijo, ki bo podpirala vse verzije Accessa od 2007 dalje, moramo uporabiti trik:

Pred prekrivanjem
Slika 1

Na obrazec dodamo ukazni gumb in pravokotnik, ki morata biti natanko enake velikosti. Pravokotniku obarvamo ozadje in mu dodamo dvignjen videz (slika 1).

Gumbu spremenimo ozadje v transparetno in pomaknemo pravokotnik pod gumb. Nenadoma dobimo na obrazcu gumb z obarvanim ozadjem (slika 2):

Po prekrivanju
Slika 2

Gumb že izgleda natanko tako kot želimo, edini problem je to, da se ne vdre ob pritisku nanj. Tu si pomagamo z dogodkoma MouseDown in MouseUp:

	
	Option Compare Database
	Option Explicit

	Private Sub Ukaz0_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
	  Polje1.SpecialEffect = 2 ' pritisnjen gumb - udrto
	End Sub

	Private Sub Ukaz0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
	  Polje1.SpecialEffect = 1 ' spušcen gumb - dvignjeno
	End Sub	
	
    

Sedaj se bo gumb ob pritisku vizuelno povsem normalno obnašal (slika 3):

Po prekrivanju
Slika 3