klasa je u attachmentu a koristi se mnogo lako:
1. dodate klasu u projekat (Project menu pa Add Class Module)
2. dodate instancu klase na vrh forme koju hocete da "extendujete"
Code:
Private WithEvents ex As cFormEx
Private WithEvents ex As cFormEx
3. u Form_Load povezete cFormEx sa formom:
Code:
Private Sub Form_Load()
Set ex = New cFormEx
ex.Extend Me
End Sub
Private Sub Form_Load()
Set ex = New cFormEx
ex.Extend Me
End Sub
4. podesavate svojstva i pozivate funkcije iz klase, primer:
Code:
Private WithEvents ex As cFormEx
Private Sub Form_Load()
Set ex = New cFormEx
ex.Extend Me
ex.Snap = True
ex.EasyMove = True
ex.ShowInTray = True
ex.MinimizeToTray = True
End Sub
Private WithEvents ex As cFormEx
Private Sub Form_Load()
Set ex = New cFormEx
ex.Extend Me
ex.Snap = True
ex.EasyMove = True
ex.ShowInTray = True
ex.MinimizeToTray = True
End Sub
ovo ce da "natera" formu da se lepi za ivice desktopa (Snap svojstvo), da se "lako" pomera tj da ne mora da se uhvati za titlebar (EasyMove svojstvo), da se prikaze ikonica "pored sata" (ShowInTray svojstvo) i da se prilikom minimiziranje program spusti u tray a ne u taskbar (MinimizeToTray svojstvo)
uostalom, pogledajte sta je sve dostupno u klasi od svojstava, procedura i dogadjaja pa se igrajte :)
i naravno, recite sta bi zeleli da se ubaci u klasu (u planu je kontrolisanje transparentnosti forme i dodavanje senke - ove dve opcije ce rade samo na 2000+)
u klasi ima i funkcija kojima nije "mesto" u formi (jer je projekat zapocet kao dodavanje onoga sto nedostaje formama) ali sam ih ubacio jer su zgodne za "imati ih pri ruci", to su f-je za pronalazenje putanje sistemskih foldera, za informacije o verziji windowsa i sl...