[ Aleksandar Ružičić @ 10.09.2007. 00:02 ] @
Pre nekog vremena sam u jednoj temi pomenuo da cu da uradim klasu koja ce da "doda" neke funkcije koje "nedostaju" VB-ovim formama, evo pored dosta obaveza stigao sam do prve beta verzije, i kao sto sam obecao kacim je ovde na es-u (kada bude sve zavrseno okacicu na planet source code).

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

3. u Form_Load povezete cFormEx sa formom:
Code:

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


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...
[ dava @ 10.09.2007. 14:36 ] @
Svaka pohvala za ovo. Nisam jos isprobao sve mogucnosti, ali naisao sam na jedan problem (mozda je do mene). Kada se formu spustim u Tray ne mogu je vise podignuti!
Posebno mi se svidja ShowBaloon funkcija.
Jos jedna pohvala za modul koji si jos prije napravio za modifikovanje registry-ja, koristim ga i odlicno radi.
[ Aleksandar Ružičić @ 10.09.2007. 14:45 ] @
da bi "vratio" formu iz tray-a, tj da bi je restorovao, moras da hvatas onTrayAction dogadjaj:
Code:

Private Sub ex_onTrayAction(ByVal TrayAction As TrayActionConstants)
    
    If TrayAction = taLeftButtonDblClick Then
        
          ex.Restore
        
    End If
    
End Sub

ovo bi mozda mogao da ubacim u klasu... videcu...


btw, sto se tice te klase za registry planirao sam da radim novu verziju (od "nule") koja bi imala sve moguce funkcije, tj rad sa tipovima podataka koji su postali standardni u 2000+ sistemima, i rad sa remote bazom... al nikako da stignem da uradim :) al bice!