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 1235 korisnika na forumu :: 60 registrovanih, 11 sakrivenih i 1164 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: 8u47, A.R.Chafee.Jr., awathorn, boromir, BZ, C-Gun, carinko, cemix, Cirkon, Coficab, d.arsenal321, Darko8, Despot1, djukapfc, DonerEbal, dragoljub11987, efektiva, esko_hz, Herman Terrance Aubrey, ILGromovnik, Jakonjveliki, Jaxupa, JK, Jonbonjovi, karevski, kibihrchak, Komder, koneks, Korle, Lieutenant, LUDI, luka35, M74AB3, Manjane, mercedesamg, MGBRBG, milivoje_vatrogasac, Milun24, Miškić, moldway, Nikola Galovic, Parker, pein, Pekman, PrincipL, proka89, Risbo_Boris, Sharpshooter, shiro, T55, Taras, Tumansky, vaso1, vathra, vazduh, vidra1, Vlada1389, vuksa72, Zastava, ziggga