Geen reacties in dit onderwerp

[Marc_DV]

Beste.. ik weet het.. een oldtimer vraagske :

Ik heb een MSFlexgrid waarbij een volledige ROW geselecteerd wordt met een linker mouseclick. Ik wil na deze linker mouseclick met een rechter mouseclick een popupmenu openen - enkel bij de geselecteerde ROW ?

Code:

Private Sub MSHFLEXProcedures_KeyDown(KeyCode As Integer, Shift As Integer)
	With MSHFLEXProcedures
   
		MSHFLEXProcedures.Col = 0
		MSHFLEXProcedures.ColSel = 7
		MSHFLEXProcedures.Row = MSHFLEXProcedures.RowSel
		   
		If Shift = 1 And (KeyCode = 38 Or KeyCode = 40) Then
			MSHFLEXProcedures.Redraw = False
		Else
			MSHFLEXProcedures.Redraw = True
		End If
		  
	End With
   
End Sub
Private Sub MSHFLEXProcedures_KeyUp(KeyCode As Integer, Shift As Integer)
   
	With MSHFLEXProcedures
   
		.Col = 0
		.ColSel = 7
		   
		If .Row - .RowSel <> 0 Then
			.Row = .RowSel
			.SetFocus
		End If
	   
		.Redraw = True
		   
	End With
   
End Sub
Private Sub MSHFLEXProcedures_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
	If Button = vbLeftButton Then
   
		With MSHFLEXProcedures
		   
			.Col = 0
			.ColSel = 7
			.Redraw = False
				 
		End With
	End If

End Sub
Private Sub MSHFLEXProcedures_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
	   
		With MSHFLEXProcedures
			.Col = 0
			.ColSel = 7
		   
			If .Row - .RowSel <> 0 Then
				.Row = .RowSel
				.SetFocus
			End If
		   
			.Redraw = True
				 
		End With
   
	End If
		   
End Sub