MyCity » Visual Studio -> Visual Basic » MSFlexGrid - highlight FixedRow i FixedCol

MSFlexGrid - highlight FixedRow i FixedCol

Napisano na dan: 31.5.2008

MSFlexGrid - highlight FixedRow i FixedCol
Sledeća strana Pagination

Idi na vrh

Poslao: 31 Maj 2008 23:11
Idi na vrh
offline
  • Pridružio: 03 Okt 2006
  • Poruke: 30

Kako napraviti da kada se selektuje neka celija u MSFG-u da se oznace i odgovarajuci FixedRow i FixedCol - kao u Excelu?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 04 Jun 2008 21:04
Idi na vrh
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Posto niko ne odgovara red je da ja odgovorim. Malo sam se namucio. Evo.Uradio sam da moze i da se upisuje i tekst, brojevi slova u celije i da se brise sa backspace i da se u fiksni red, fiksna kolona ispisuje braon bojom za aktivnu celiju, kao u excellu. Dalje dopuni sam.
'Autor: Rajko Kuzmanovic Option Explicit Public red As Integer Public kolona As Integer Public redmemo As Integer Public kolonamemo As Integer Private Sub Form_Load()     Dim n As Integer         MSHFlexGrid1.Cols = 10     MSHFlexGrid1.Rows = 10         MSHFlexGrid1.BackColorFixed = RGB(239, 235, 222) 'Fiksne redove ispisuje bojom kao u excellu         For n = 1 To MSHFlexGrid1.Cols - 1         MSHFlexGrid1.TextMatrix(0, n) = Chr(Asc("A") + n - 1)     Next n         For n = 1 To MSHFlexGrid1.Rows - 1         MSHFlexGrid1.TextMatrix(n, 0) = n     Next n     End Sub Private Sub MSHFlexGrid1_Click()     red = MSHFlexGrid1.Row     kolona = MSHFlexGrid1.Col        'Brisanje prethodno obelezenih bocnih fiksnih kolona     If redmemo > 0 And kolonamemo > 0 Then         MSHFlexGrid1.Col = 0         MSHFlexGrid1.Row = redmemo         MSHFlexGrid1.CellBackColor = RGB(239, 235, 222)         MSHFlexGrid1.Col = kolonamemo         MSHFlexGrid1.Row = 0         MSHFlexGrid1.CellBackColor = RGB(239, 235, 222)     End If         'MSHFlexGrid1.BackColorFixed = RGB(239, 235, 222) 'Brise fiksne redove belom bojom         MSHFlexGrid1.Row = red     MSHFlexGrid1.Col = kolona         'Obelezavanje bocnih fiksnih kolona     MSHFlexGrid1.Col = 0     MSHFlexGrid1.Row = red     MSHFlexGrid1.CellBackColor = RGB(255, 192, 111)     MSHFlexGrid1.Col = kolona     MSHFlexGrid1.Row = 0     MSHFlexGrid1.CellBackColor = RGB(255, 192, 111)         MSHFlexGrid1.Row = red         redmemo = red     kolonamemo = kolona     End Sub Private Sub MSHFlexGrid1_KeyPress(KeyAscii As Integer)     If KeyAscii = 8 Then         If Len(MSHFlexGrid1.Text) > 0 Then             MSHFlexGrid1.Text = Left(MSHFlexGrid1.Text, Len(MSHFlexGrid1.Text) - 1)         End If     End If     If KeyAscii > 31 Then         MSHFlexGrid1.Text = MSHFlexGrid1.Text & Chr(KeyAscii)     End If End Sub



[Link mogu videti samo ulogovani korisnici]



Poslao: 05 Jun 2008 14:22
Idi na vrh
offline
  • Pridružio: 03 Okt 2006
  • Poruke: 30

Rajko, zahvaljujem ti na odgovoru. Pomogao si mi.

Poslao: 05 Jun 2008 16:31
Idi na vrh
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Molim, tu sam da pomognem.

MyCity » Visual Studio -> Visual Basic » MSFlexGrid - highlight FixedRow i FixedCol

Ko je trenutno na forumu
 

Ukupno su 1034 korisnika na forumu :: 66 registrovanih, 6 sakrivenih i 962 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 015, A.R.Chafee.Jr., batana, brandža84, Branke90, BSD, d.arsenal321, debeli, Dejan_vw, dekan.m, DezurniOperativni, dijica, dj.ape, DonRumataEstorski, dozorni, Dragan7777, Drugard72, Džekson, FileFinder, ginjica, gorval, In_hero, Jan, Jaz, Jester, joca83, Jomini, Jozo74, KimiMR, Koplje, Kruger, leopard83, Marko1238, MarkTven, maxim_von_burdengate, mačković, mercedesamg, milenko crazy north, moldway, nemkea71, nnovakis, nobutado, nsharambasa, nuke92, OKT, Orc, Pavel Medved, Promising0, read-only, Sale0501, sap, sasovsky, Sharpshooter, skok, Sone0883, stegonosa, vathra, Velizar Laro, vidra boy, VJ, vjetar, Vlada78, VonDrobac, Wrangler, Zrcalo, zzapNDjuric99