[ rgdrajko @ 04.06.2008. 20:20 ] @
Kod koji objasnjava kako napraviti da kada se selektuje neka celija u MSFG-u da se oznace i odgovarajuci FixedRow i FixedCol - kao u Excelu. Takodje je dodat i kod da se upisuje neki tekst u celiju i da se brise sa backspace. Ovo sam uradio na brzinu. Mozda neko ima neku bolju ideju? Code: '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 |