请问VB怎么实现MSHFlexGrid支持ctrl+c、ctrl+v

ccall 2006-09-15 03:21:05
请问VB怎么实现MSHFlexGrid支持ctrl+c、ctrl+v
...全文
288 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
南山明月 2006-09-25
  • 打赏
  • 举报
回复
http://community.csdn.net/Expert/topic/5046/5046735.xml?temp=.1589472
南山明月 2006-09-20
  • 打赏
  • 举报
回复

Clipboard.Clear
Clipboard.SetText MSHFlexGrid1.Clip
Hassle 2006-09-16
  • 打赏
  • 举报
回复
如果需要复制区域
Clipboard.Clear
Clipboard.SetText MSHFlexGrid1.Clip
找寻蓝色的海 2006-09-16
  • 打赏
  • 举报
回复
楼上的把我想的都说了
qingoodrar 2006-09-15
  • 打赏
  • 举报
回复
你是要复制粘贴什么呢?
如果按ctrl+c时,把你grid中选定的行列进行复制这样好说的,
你可以描述当前选的内容,将他形成带分隔符的字符串,使用chr(9)表示列分隔符chr(13)chr(10)表示行分隔这样的格式,然后送入clipboard!
同理,你ctrl+v时,先从clipboard读出来然后按上面的格式分析读出的内容并写入grid中不就行了么?
zq972 2006-09-15
  • 打赏
  • 举报
回复
Private Sub MSHFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
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
ccall 2006-09-15
  • 打赏
  • 举报
回复
该如何解决呢?

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧