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

291

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

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

      Luetuimmat keskustelut

      1. Omakotitalossa väkivaltaa ounasrinteellä

        Kertoo iltalehdet Mitä lienee Tapahtui. Verinen ihminen kannettu lanssiin
        Rovaniemi
        11
        1288
      2. Martinan hevoset.

        Tämä todella kaunis ja ketterä harmaa hevonen jolla monet kilpailut voitetaan ei ole Martinan.Tytär ratsastaa sillä tait
        Kotimaiset julkkisjuorut
        306
        1190
      3. Persut jakavat tekoälyllä tehtyjä kuvia maahanmuuttajista somessa

        Eivät mainitse, että ovat tekoälyllä tehtyjä. Eivät näe asiassa mitään ongelmaa. Valehtelijapuolue taas vauhdissa. Unka
        Maailman menoa
        380
        1137
      4. Ethän leiki kanssani J- mies

        Jos oletkin joku pelimies, jolla monia vaihtoehtoja, katkon kylmästi yhteyden. En jaksa sellaisia miehiä.
        Ikävä
        97
        825
      5. Miesmäinen vanha nainen joka kulkee lastenvaunujen kanssa

        Mikähän kaheli tämä yks kaupungilla karvahattu päässä kulukeva vanha eukko on joka työntää lastenvaunuja. Onhan sitte
        Kuhmo
        13
        751
      6. Molemmat päät

        aivan tulessa😫 Miksi pitää ihmisen tällaisesta kärsiä??? Jos koko ajan pnettaa, niin miksi sitä seksiä ei voi sitten s
        Ikävä
        113
        750
      7. Miltä kaivattusi näyttää?

        Mitä vikoja? jne
        Ikävä
        34
        692
      8. Kasteen merkityksestä ihmiselle

        Jeesuksen hyvä ystävä Nikodemus meni heti Jeesuksen kasteen jälkeen kysymään häneltä kasteen merkityksestä ihmiselle. J
        Kaste
        371
        690
      9. Liikenne onnettomuus

        Luin juuri Ampparista Konneveden kauheasta onnettomuudesta jossa menehtyi 60-luvulla syntynyt mies. Onko kellään tarkemp
        Konnevesi
        6
        680
      10. kukaan ei pakota kasteeseen..

        Kommentointi estetty, joten kommentoin tähän.Kukaan ei pakota pakkokasteesta puhuvaa kastamaan lastansa.Noloa edes ehdot
        Kaste
        222
        661
      Aihe