MSHFlexGrid-monivalinnat

VB6

‘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.

0

279

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

      Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

      Luetuimmat keskustelut

      1. Kelekkakisat

        Mikä vakava onnettomuus sattunut kisoissa. On peruttu koko kisat. Pelastuskopteri näytti käyvän paikalla.
        Nivala
        34
        11301
      2. Aivan kauheaa

        Veikö koskiuoma taas ihmishengen? Se pitää kieltää!
        Imatra
        62
        9162
      3. Onko kaivattusi

        …mielestäsi älykäs, tai kenties tyhmä? Oma mielipide.
        Ikävä
        137
        5455
      4. Kuinka pitkä välimatka

        on teidän kotien välillä?
        Ikävä
        144
        3754
      5. Epäilen ettet edes

        Kehtaisi liikkua kanssani.
        Ikävä
        75
        3690
      6. Virkamiehille tarvitaan tuntuvat palkankorotukset

        Naistenpäivänä on syytä muistuttaa, että virkamiehen euro on vain 80 senttiä. Palkat tulee saattaa samalle tasolle yksi
        Maailman menoa
        37
        3599
      7. Oletko huomannut

        Yhden muutoksen?
        Ikävä
        40
        3348
      8. Jäikö meidän välit

        Mielestäsi Kesken?
        Ikävä
        61
        2713
      9. Olisipa saanut sinuun

        Tutustua paremmin. Harmi että aloin lopulta jännittämään kun näytit tunteesi niin voimakkaasti ja lähestyit niin voimaak
        Ikävä
        72
        2430
      10. Riikka Purran kaudella nousi bensan hinta yli 2 euron

        Muistatteko kuinka edellisen vasemmistohallituksen aikana, ns. Marinin aikakaudella, bensiiniä sai 1,3 euron litrahinnal
        Maailman menoa
        15
        2249
      Aihe