Kontrola MSHFlexGrid?

Re: Kontrola MSHFlexGrid? 02.06.2007. u 19:50 · pre 236 meseci #21

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!

Re: Kontrola MSHFlexGrid? 02.06.2007. u 19:58 · pre 236 meseci #22

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.

Potpis

-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

Re: Kontrola MSHFlexGrid? 02.06.2007. u 20:19 · pre 236 meseci #23

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

Re: Kontrola MSHFlexGrid? 04.06.2007. u 20:27 · pre 236 meseci #24

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

Re: Kontrola MSHFlexGrid? 05.06.2007. u 21:51 · pre 236 meseci #25

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

Potpis

-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

Re: Kontrola MSHFlexGrid? 06.06.2007. u 10:48 · pre 235 meseci #26

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

Re: Kontrola MSHFlexGrid? 09.06.2007. u 07:18 · pre 235 meseci #27

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!

Potpis

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

Re: Kontrola MSHFlexGrid? 28.03.2008. u 10:21 · pre 226 meseci #28

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!

Potpis

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

Re: Kontrola MSHFlexGrid? 04.04.2008. u 08:54 · pre 225 meseci #29

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.

Potpis

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

Srodne teme