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



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



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 1063 korisnika na forumu :: 58 registrovanih, 10 sakrivenih i 995 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: A.R.Chafee.Jr., Atomski čoban, babaroga, Bobrock1, bojank, cavatina, croato, Denaya, Dimitrije Paunovic, Dimitrise93, doklevise, DonRumataEstorski, Dorcolac, dragoljub11987, FOX, Frunze, Gargantua, goxin, Grah0, ivica976, jaeger, Karla, kikisp, Koridor, kunktator, Leonov, MaksicZoran, mercedesamg, Metanoja, MikeHammer, milenko crazy north, Milometer, mkukoleca, mrav pesadinac, MrNo, naki011, Nemanja.M, nuke92, operniki, Panter, Parker, pein, procesor, RJ, ruger357, S2M, sasa76, slonic_tonic, Smiljke, solic, Srle993, stegonosa, Tvrtko I, vathra, VP6919, YugoSlav, zodiac94, 125