MSFlexGrid - highlight FixedRow i FixedCol

MSFlexGrid - highlight FixedRow i FixedCol

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.
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



https://www.mycity.rs/must-login.png



offline
  • Pridružio: 03 Okt 2006
  • Poruke: 30

Rajko, zahvaljujem ti na odgovoru. Pomogao si mi.

offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Molim, tu sam da pomognem.

Ko je trenutno na forumu
 

Ukupno su 891 korisnika na forumu :: 40 registrovanih, 11 sakrivenih i 840 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., ArmyBoss, arsa, Boris90, bozidar79, cezar 35, darkstar101, David, dragon986, dule10savic, Faki-Valjevo, havoc995, ikan, ivan979, kolateralnasteta, konstruktor, Krusarac, KS, manda87, Marko Marković, mercedesamg, milansombor, milenko crazy north, Milos ZA, mnn2, nikolapetkovic, pavlo, pedja63, Recce, sevenino, Smiljke, sovanova95, Toni, vathra, VJ, Vl veliki, vlvl, voja64, VP3987, wolverined4