Kako da izvedem da red koji selektujem font bude boldovan?
Pozdrav i hvala svima.
Pozdrav i hvala svima.
Boldovanje MSHFlexGrid-a
Zaključano
Zakačeno
Lol!
Dal' svi misle da smo vidoviti? :)
Dal' svi misle da smo vidoviti? :)
@stefanpn pa u cemu je problem???
Naslov nosi naziv "Boldovanje MSHFlexgrid-a", i popunio sam tabelu, znaci kada kliknem na jedan red samo u tom redu da mi font bude boldovan?
Naslov nosi naziv "Boldovanje MSHFlexgrid-a", i popunio sam tabelu, znaci kada kliknem na jedan red samo u tom redu da mi font bude boldovan?
Nema problema.
Code:
Dim t As Integer
For t = 0 To MSFlexGrid1.Rows
MSFlexGrid1.Col = t
msflexgrid1.CellFontBold = True
Next t
Dim t As Integer
For t = 0 To MSFlexGrid1.Rows
MSFlexGrid1.Col = t
msflexgrid1.CellFontBold = True
Next t
@stefanpn
To je to, ali mi se sada desava problem, u podesavanju MSHFlexGrid-a postavio sam da selektuje citav red, medutim kada stavim ovaj kod selektuje samo zadnju kolonu u tom redu, i jos kada kliknem na neki drugi red prvi mi ostane bold a ne treba. Valjda si me razumeo?
To je to, ali mi se sada desava problem, u podesavanju MSHFlexGrid-a postavio sam da selektuje citav red, medutim kada stavim ovaj kod selektuje samo zadnju kolonu u tom redu, i jos kada kliknem na neki drugi red prvi mi ostane bold a ne treba. Valjda si me razumeo?
Code:
Private Sub MSFlexGrid1_Click()
MSFlexGrid1.FillStyle = flexFillRepeat
MSFlexGrid1.RowSel = MSFlexGrid1.Row
MSFlexGrid1.Col = 0
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
MSFlexGrid1.CellFontBold = True
MSFlexGrid1.FillStyle = flexFillSingle
End Sub
Private Sub MSFlexGrid1_Click()
MSFlexGrid1.FillStyle = flexFillRepeat
MSFlexGrid1.RowSel = MSFlexGrid1.Row
MSFlexGrid1.Col = 0
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
MSFlexGrid1.CellFontBold = True
MSFlexGrid1.FillStyle = flexFillSingle
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
-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
@Marko_L to je to, samo kako jos da vratim prijasnji red na koji sam bio klikno da se vrati font na normalan?
Pa ako nemaš drugih formatiranja u flex gridu, najjednostavniji način je da pre boldovanja pročistiš ceo grid, dakle ovako
Code:
Private Sub MSFlexGrid1_Click()
MSFlexGrid1.FillStyle = flexFillRepeat
Dim lRow as Long
lRow = MSFlexGrid1.Row
MSFlexGrid1.Row = 1
MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
MSFlexGrid1.CellFontBold = False
MSFlexGrid1.Row = lRow
MSFlexGrid1.RowSel = lRow
MSFlexGrid1.Col = 0
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
MSFlexGrid1.CellFontBold = True
MSFlexGrid1.FillStyle = flexFillSingle
End Sub
Private Sub MSFlexGrid1_Click()
MSFlexGrid1.FillStyle = flexFillRepeat
Dim lRow as Long
lRow = MSFlexGrid1.Row
MSFlexGrid1.Row = 1
MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
MSFlexGrid1.CellFontBold = False
MSFlexGrid1.Row = lRow
MSFlexGrid1.RowSel = lRow
MSFlexGrid1.Col = 0
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
MSFlexGrid1.CellFontBold = True
MSFlexGrid1.FillStyle = flexFillSingle
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
-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
@Marko_L hvala puno
Imao bi jos jedno pitanje tice se isto MSHFlexGrid-a, i molio bi vas da mi pomognete ako je uopste moguce.
U pitanju je sortiranje kolone, ali dali moze da se nekako uradi ovako kao na slici:
Znaci kada kliknem na naziv kolone da mi sortira po toj koloni od ASC i DESC i ako je moguce da mi se pojavi ona slicica (prema dole i prema gore).
Hvala unapred
Imao bi jos jedno pitanje tice se isto MSHFlexGrid-a, i molio bi vas da mi pomognete ako je uopste moguce.
U pitanju je sortiranje kolone, ali dali moze da se nekako uradi ovako kao na slici:
Znaci kada kliknem na naziv kolone da mi sortira po toj koloni od ASC i DESC i ako je moguce da mi se pojavi ona slicica (prema dole i prema gore).
Hvala unapred