(整)VB实现MSHFlexGrid支持复制粘贴ctrl+c、ctrl+v
VB实现MSHFlexGrid支持ctrl+c、ctrl+v
Option Explicit
Private Sub Form_Load()
With Me.MSHFlexGrid1
.Cols = 10
.Rows = 10
.TextMatrix(2, 2) = ”TEST”
.TextMatrix(2, 3) = ”TEST2″
End With
End Sub
Private Sub MSHFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
‘VB实现MSHFlexGrid支持ctrl+c、ctrl+v
‘只支持文本，而且只能一格一格复制
Dim tmptext As String
If Shift = 2 Then
Select Case KeyCode
Case vbKeyC
Clipboard.Clear
Clipboard.SetText MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, MSHFlexGrid1.Col)
Case vbKeyV
If Clipboard.GetFormat(vbCFText) Then
tmptext = Clipboard.GetText(vbCFText)
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, MSHFlexGrid1.Col) = tmptext ’ Clipboard.GetData()
End If
End Select
End If
End Sub
——————————————————————
公告栏
———————————
留言板
———————————
看广告玩游戏送QQ币
