MSHFlexGrid-monivalinnat

VB6 kirjoitti:

‘TÄMÄ TOIMII HALUTULLA TAVALLA
Private Sub MSHFlexGrid_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim lngRow As Long
Dim lngCol As Long
Dim lngColor As Long

If Button = vbLeftButton And Shift = vbCtrlMask Then

MSHFlexGrid.HighLight = 0
With MSHFlexGrid
.Redraw = False
lngRow = .MouseRow
If lngRow >= .FixedRows Then
.Col = .FixedCols
If .CellBackColor = vbInfoBackground Then
lngColor = .BackColor
Else
lngColor = vbInfoBackground
End If
For lngCol = .FixedCols To .Cols - 1
.Col = lngCol
.CellBackColor = lngColor
Next lngCol
End If
.Redraw = True
End With
End If
End Sub
----------------------------------------------------------------------------------------------------------
Private Sub MSHFlexGrid_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown And Shift = vbShiftMask Then
'MITEN TAPAHTUU MONIVALINTA YKSITTÄIN ALASPÄIN LIIKKUESSA?
End If
If KeyCode = vbKeyUp And Shift = vbShiftMask Then
'MITEN TAPAHTUU MONIVALINNAN PERUUTTAMINEN YKSITTÄIN YLÖSPÄIN LIIKKUESSA?
End If
End Sub
----------------------------------------------------------------------------------------------------------
Entä mitenkä tehdään monivalinta alkaen ekasta klikatusta rivistä ja päättyen viimeiseen kikattuun riviin pitämällä Shift-näppäintä alhaalla ja klikkaamalla vikaa riviä? Eli samalla tavalla kuin Windowsin resurssienhallinnassa käsitellään tiedostoja.

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä