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 591 korisnika na forumu :: 17 registrovanih, 1 sakriven i 573 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: banebeograd, Bobrock1, Bubimir, DucicM, goran.vvv, gorantrojka, kayvan6079, Litostroton, mile1983, nenooo, NiNo_88, Parker, Profica, Sale.S, simazr, Tas011, taz1cl