[es] - cFormEx - Form Extensions

Aleksandar Ružičić
Developer, Haragei Creative Solutions
Beograd - Čačak

Moderator
Član broj: 26939
Poruke: 1781
*.smin.itsisp.net.

Jabber: krcko@haragei.com
Sajt: krcko.haragei.org

Profil

cFormEx - Form Extensions

^{10.09.2007. u 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...

Čovekova dostignuća prevazilaze njegovu maštu.

Prikačeni fajlovi

cFormEx.cls - 109.66k

^{10.09.2007. u 00:02}

dava
Banja Luka

Član broj: 27208
Poruke: 435
*.lanaco.com.

Profil

Re: cFormEx - Form Extensions

^{10.09.2007. u 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.

^{10.09.2007. u 14:36}

Re: cFormEx - Form Extensions

^{10.09.2007. u 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!

Čovekova dostignuća prevazilaze njegovu maštu.

^{10.09.2007. u 14:45}