[es] - improvizovani toolbar

REDiceREDuction

Član broj: 43973
Poruke: 74
195.252.107.*

Profil

^{12.01.2005. u 21:47 - pre 239 meseci}

hoću da od osnovnih objekata napravim nešto kao toolbar. To sam mislio da napravim tako što ću u picturebox stavljati button ali javio se problem: kako da se stvaraju u run-timeu novi dugmići (znam ono dim dugme as new button) ali kako da svako dugme ima različito ime i da se prilagodjava dužini teksta (captiona)

Odgovor na temu

negyxo
Aleksandar Perkuchin

Član broj: 29751
Poruke: 898
*.sksyu.net.

+171 Profil

Re: improvizovani toolbar

^{13.01.2005. u 09:39 - pre 239 meseci}

E REDiceREDuction nemas srece. U VB-u neces moci da kreiras dugmad u run-time-u. Kod VB-a nema dinamicko kreiranje kontrola. Ono drugo bi bilo lako ali sta da radis kad ne moze prvo.

Pozdrav

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: improvizovani toolbar

^{13.01.2005. u 10:02 - pre 239 meseci}

U picture box u design timeu stavis jedan command button i nazoves ga, na primer, cmdButton, stavis index property na 0, a Visible na false.

Code:

Private Sub cmdButton_Click(Index As Integer)
    Debug.Print cmdButton(Index).Tag
End Sub

Private Sub Command2_Click()
    Static Counter As Integer
    Counter = Counter + 1
    AddButton "Button" & Counter, "Button" & Counter
End Sub

Public Function AddButton(BtnCaption As String, BtnTag As String)
    Dim Ind As Integer

    Ind = cmdButton.ubound
    Load cmdButton(Ind + 1)
    cmdButton(Ind + 1).Move cmdButton(Ind).Left + cmdButton(Ind).Width + 30, cmdButton(Ind).Top
    cmdButton(Ind + 1).Tag = BtnTag
    cmdButton(Ind + 1).Caption = BtnCaption
    cmdButton(Ind + 1).Visible = True
End Function

Dugmici ne moraju da se zovu razlicito. Na primer, po Tag propertyju mozes da ih razlikujes.

Za sirinu texta pogledaj textWidth metod pictureboxa

Blue Man Group

Odgovor na temu

REDiceREDuction

Član broj: 43973
Poruke: 74
195.252.107.*

Profil

Re: improvizovani toolbar

^{13.01.2005. u 19:26 - pre 239 meseci}

hvala na odgovoru, ali me interesuje kako da kada se dugmici "prenamnoze" predju u naredni red?

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12867

+4787 Profil

Re: improvizovani toolbar

^{13.01.2005. u 19:33 - pre 239 meseci}

Code:

dim InRow as integer
inRow=10 'Ako ces npr. 10 u jednom redu
Public Function AddButton(BtnCaption As String, BtnTag As String)
    ...
    cmdButton(Ind + 1).Move cmdButton(Ind).Left + cmdButton(Ind).Width + 30, _
cmdButton(Ind).Top + Int(cmdButton.ubound / inRow)*cmdButton(Ind).Height + 30
     ...
End Function

Znaci, samo taj jedan red promenis a u inRow stavis koliko hoces da bude u jednom redu.
Mozda je malo lose formatiran kod jer nisam pisao u editoru vec direktno

_{[Ovu poruku je menjao mladenovicz dana 14.01.2005. u 09:54 GMT+1]}

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

Pr[o_O]F
Tamna strana mjeseca ;)

Član broj: 30368
Poruke: 155
*.as3.sr.bih.net.ba.

Profil

Re: improvizovani toolbar

^{13.01.2005. u 19:39 - pre 239 meseci}

[url]
http://www.Planet-Source-Code....p?txtCodeId=57102&lngWId=1
[/url]
Za dinamicne kontrole mogao bi ih ovdje upotrijebiti

[ :. n!t .: ]

Odgovor na temu

negyxo
Aleksandar Perkuchin

Član broj: 29751
Poruke: 898
*.sksyu.net.

+171 Profil

Re: improvizovani toolbar

^{14.01.2005. u 13:11 - pre 239 meseci}

Code:

Private WithEvents cmdDynamic As CommandButton

Private Sub Form_Load()
Set cmdDynamic = Controls.Add("VB.CommandButton", "Command1")

cmdDynamic.Caption = "Click Me"
cmdDynamic.Visible = True
End Sub

Zanimljivo
eto srece da je neko ranije postavio ovo pitanje

Odgovor na temu

REDiceREDuction

Član broj: 43973
Poruke: 74
195.252.107.*

Profil

Re: improvizovani toolbar

^{14.01.2005. u 22:10 - pre 239 meseci}

zanimljivo je to dinamičko dodavanje, ali kako dodati više od jednog dugmeta?

Citat:

Shadowed:

to baš i ne radi kod mene kako treba, a šta treba da radi:
-da višak dugmića u jednom redu prebaci u sledeći
-ne može tačno da se kaže koliko će dugmića biti u jednom redu jer to zavisi od dužine teksta (captiona) koji prikazuju, ali ako je dužina samo jedno slovo, dugme neće biti toliko tesno, već mora da postoji minimum duzine (width-a) od 1000 twipa

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12867

+4787 Profil

Re: improvizovani toolbar

^{15.01.2005. u 14:41 - pre 239 meseci}

Da, da, vidim u cemu je greska, pretpostavljam da ti postavlja u drugom redu ali i dalje nadesko od poslednjeg...
Brzopletost... Na zalost sada nemam vremena da prepravim to.

Inace, inRow mozes da izracunas na osnovu sirine prethodnih tastera. Ako ti treba vise redova, onda moras da napravis niz inRow(MaxBrRedova) gde ti je svaki element niza broj tastera u jednom redu. Ako se i dinamicki menjju cirine rastera, onda se menja i njihov broj u redu pa ti je potrebna i neka Refresh f-ja itd. Sto vise stvari hoces da implementiras vise se komplikuje i usoznjava kod. Ovde imas par hintova pa pokusaj. Ako budem mogao kasnije mozda ti uradim nesto.

Odgovor na temu

REDiceREDuction

Član broj: 43973
Poruke: 74
195.252.107.*

Profil

Re: improvizovani toolbar

^{27.01.2005. u 19:38 - pre 239 meseci}

sad znam kako da dodam dugme, ali kako da ga obrišem?

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: improvizovani toolbar

^{27.01.2005. u 23:57 - pre 239 meseci}

ako ih ucitavas sa load onda:

Code:

Unload cmdButton(Index)

a ako sa set onda (pretpostavljam nisam nikad radio na taj nacin):

Code:

Set cmdButton(Index) = Nothing

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu