‘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.
MSHFlexGrid-monivalinnat
VB6
0
180
Vastaukset
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1333397
- 1091341
Timo Soini tyrmää Tynkkysen selitykset Venäjän putinistileiristä
"Soini toimi ulkoministerinä ja puolueen puheenjohtajana vuonna 2016, jolloin silloinen perussuomalaisten varapuheenjoht2711310Sulla on nainen muuten näkyvät viiksikarvat naamassa jotka pitää poistaa
Kannattaa katsoa peilistä lasien kanssa, ettet saa ihmisiltä ikäviä kommentteja.671156Kalateltta fiasko
Onko Tamperelaisyrittäjälle iskenyt ahneus vai mistä johtuu että tänä vuonna ruuat on surkeita aikaisempiin vuosiin verr171094Nainen voi rakastaa
Ujoakin miestä, mutta jos miestä pelottaa näkeminenkin, niin aika vaikeaa on. Semmoista ei varmaan voi rakastaa. Miehelt791071IS Viikonloppu 20.-21.7.2024
Tällä kertaa Toni Pitkälä esittelee piirrostaitojansa nuorten pimujen, musiikkibändien ja Raamatun Edenin kertomusten ku57999- 30986
Ikävöimäsi henkilön ikä
Minkä ikäinen kaipauksen kohteenne on? Onko tämä vain plus 50 palsta vai kaivataanko kolme-neljäkymppisiä? Oma kohde mie43973- 47877