[es] - Kontrola MSHFlexGrid?

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

^{02.06.2007. u 19:50 - pre 205 meseci}

Nema na cemu, nadam se da si shvatio zasto je Do...While petlja bila suvisna. Ako koristis For...Next petlju, a postoji neki uslov pod kojim treba da se prekine sa izvrsenjem te petlje (ovde je to bio da u celiji pise "1"), koristi se Exit For cime se prekida sa izvrsenjem petlje.

Takodje sam primetio da imas problem sa With...End With konstrukcijom koju je Ero prvi postavio ovde, a ti si onda kopiranjem koda dobio gresku koju nisi razumeo, pa da ti samo ukratko objasnim: Sa With...End With blokom naredbi ti kazes VB-u da se u tom bloku sve sto pocinje sa "." odnosi na objekat koji je naveden u With delu (u ovom primeru to je MSHFlexGrid1) cime se skracuje pisanje koda, olaksava citljivost i grupise sukcesivna promena vrednosti vise svojstava ako se odnose na isti objekat.

Pozdrav!

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.220.*

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Kontrola MSHFlexGrid?

^{02.06.2007. u 19:58 - pre 205 meseci}

Izvinjavam se ako je moj post napravio pometnju, trebao je da bude postavljen pre nekih sat vremena, ali sam morao nešto da završim na drugoj strani, a zaboravio sam da kliknem na postavi odgovor, i kad sam postavio, video sam da je u međuvremenu dosta toga napisano, pa i rešenje problema.

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
*.adsl-1.sezampro.yu.

Profil

Re: Kontrola MSHFlexGrid?

^{02.06.2007. u 20:19 - pre 205 meseci}

Marko, hvala ti na objasnjenju za petlju.
Goran mi je vec pokazao gde treba staviti prekid.
pozdrav

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
212.200.223.*

Profil

Re: Kontrola MSHFlexGrid?

^{04.06.2007. u 20:27 - pre 205 meseci}

Na koji nacin da saberem Green polja po kolonama?
Kad se popuni prva kolona da se u Labelu upise zbir, i tako redom.

Code:
With  MSHFlexGrid1
   For i = 1 to .Rows - 1
     For j = 1 To .Cols - 1
        If .TextMatrix(i, j) = "" Then
             .Row = i
             .Col = j
             .CellBackColor = vbGreen

        ElseIf .TextMatrix(i, j) = "1" Then
             .Row = i
             .Col = j
             .CellBackColor = vbRed
   Exit For
        End If
      Next
   Next
End With

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.220.*

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Kontrola MSHFlexGrid?

^{05.06.2007. u 21:51 - pre 205 meseci}

Koliko ja vidim u tvom kodu, samo će se prazna polja bojiti u zeleno, što znači da će zbir uvek biti 0 (nula). Ako te interesuje broj praznih polja, onda samo dodaj neki counter u delu gde bojiš u zeleno. Ili još bolje napravi neku funkciju koja će da ih prebrojava... nešto ovako

Code:
Private Function CountGreenCells(col_number As Long) As Long
MSHFlexGrid1.Col = col_number
Dim i As Long
Dim Brojac As Long
Brojac = 0
   For i = 1 To .Rows - 1
      MSHFlexGrid1.Row = i
      If MSHFlexGrid1.CellBackColor = vbGreen Then Brojac = Brojac + 1
   Next i
CountGreenCells = Brojac
End Function

i onda je samo pozivaš tamo gde ti treba... recimo ako ti treba ti broj zelenih u drugoj koloni i hoćeš da smestiš dobijenu vrednost u Label1 klikom na button

Code:
Private Sub Command1_Click()
Label1.Caption = CountGreenCells(2)
End Sub

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
*.adsl.sezampro.yu.

Profil

Re: Kontrola MSHFlexGrid?

^{06.06.2007. u 10:48 - pre 205 meseci}

@Marko_L, zahvaljujem ti na odgovoru. To je ono sto mi je trebalo.

Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859

Profil

Re: Kontrola MSHFlexGrid?

^{09.06.2007. u 07:18 - pre 205 meseci}

Ja se izvinjavam sto nisam odgovorio na vase poruke, posto sam bio zauzet odbranom maturskog rada.
Puno vam hvala sto ste mi pomogli da resim ovaj problem.
Uzeo sam metodu koju je napiso Marko_L.
Pozdrav svima, i jos jedanput HVALA VAM PUNO!

A gde je moj moped ko da je u moravu propo!
Pero kojot genije!

Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
91.191.17.*

Jabber: kiselina@elitesecurity.org
ICQ: 226466859

Profil

Re: Kontrola MSHFlexGrid?

^{28.03.2008. u 10:21 - pre 195 meseci}

Pozdrav svima!
Nisam hteo otvarati novu temu posto je u sklopu ove.
Imam problem, tj. ne znam kako da izvedem: imam MSHFlexGrid i popunjavam je iz baze podataka, e sada imam problem kada npr. markiram 5 redova samo da mi iz tih redova sabere kolone pod brojem 8.
Hvala unapred!

A gde je moj moped ko da je u moravu propo!
Pero kojot genije!

Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859

Profil

Re: Kontrola MSHFlexGrid?

^{04.04.2008. u 08:54 - pre 195 meseci}

Pozdrav svima!
Ja se stvarno izvinjavam, ali mi stvarno treba da resim ovaj problem, ako nisam bio jasan u svom pitanju recite mi molim vas.

A gde je moj moped ko da je u moravu propo!
Pero kojot genije!

Odgovor na temu