提供3000多款全球软件/控件产品
针对软件研发的各个阶段提供专业培训与技术咨询
根据客户需求提供定制化的软件开发服务
全球知名设计软件,显著提升设计质量
打造以经营为中心,实现生产过程透明化管理
帮助企业合理产能分配,提高资源利用率
快速打造数字化生产线,实现全流程追溯
生产过程精准追溯,满足企业合规要求
以六西格玛为理论基础,实现产品质量全数字化管理
通过大屏电子看板,实现车间透明化管理
对设备进行全生命周期管理,提高设备综合利用率
实现设备数据的实时采集与监控
利用数字化技术提升油气勘探的效率和成功率
钻井计划优化、实时监控和风险评估
提供业务洞察与决策支持实现数据驱动决策
原创|其它|编辑:郝浩|2012-01-15 19:58:26.000|阅读 483 次
概述:开发人员面临的最常见的用户场景之一是剪切板中的(support)支持/复制/剪切 功能。从 Excel 中粘贴数据到Spread for COM 中是很容易的。但是,一次性粘帖500行以上的数据是受到限制的。下面的代码(Visual Basic 6)将展示如何利用剪切板 API 去实现期待的效果。
# 慧都年终大促·界面/图表报表/文档/IDE等千款热门软控件火热促销中 >>
开发人员面临的最常见的用户场景之一是剪切板中的(support)支持/复制/剪切 功能。从 Excel 中粘贴数据到Spread for COM 中是很容易的。但是,一次性粘帖500行以上的数据是受到限制的。
这是 Spread for COM 的一个限制,不允许用户一次性粘帖500行(Spread for COM 的 MaxRows 属性)以上的数据。如果默认设置允许500行以上的粘帖,一般会影响性能,因此建议不增加默认的粘帖最大值。即使在设计时 MaxRows 值被设定,也不意味着复制/粘帖行的数量就一定要在这个设定值以下。因此,要克服这个限制,需要操作这个属性,同时需要设置在剪切板中的数据的数量...
解决这个问题的方法,取得剪切板中数据的长度(从 Excel 文件中复制的行数),在粘帖之前,设定 MaxRows 属性的值,然后粘帖。一旦粘帖完成,重新把这个属性设定成原始值。
下面的代码(Visual Basic 6)将展示如何利用剪切板 API 去实现期待的效果。
首先,在代码中声明剪切板的 API,然后创建获取剪切板中数据行/列数的函数。这个函数的返回值是数组,第一个元素为剪切板中数据的行数,第一个元素是剪切板中数据的列数。
Option Explicit
Const CF_SYLK = 4
Const CF_DSPTEXT = &H81
Declare Function OpenClipboard Lib "user32" (ByVal Hwnd As Long) As Long
Declare Function CloseClipboard Lib "user32" () As Long
Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long
Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Function ClipBoard_RangeSize()
Dim lhCB&, lpCB&, lRet&, lSize&, sText$
Dim aTmp, sTmp$, nRow&, nCol&
If IsClipboardFormatAvailable(CF_SYLK) Then
If OpenClipboard(0&) <> 0 Then
lhCB = GetClipboardData(CF_DSPTEXT)
If lhCB <> 0 Then
lpCB = GlobalLock(lhCB)
If lpCB <> 0 Then
lSize = GlobalSize(lpCB)
sText = Space$(lSize)
lRet = lstrcpy(sText, lpCB)
lRet = GlobalUnlock(lhCB)
sText = Left(sText, InStr(1, sText, Chr$(0), 0) - 1)
End If
End If
CloseClipboard
End If
aTmp = Split(sText, " ")
If UBound(aTmp) > 2 Then
sTmp = aTmp(UBound(aTmp) - 2)
nRow = Left(sTmp, Len(sTmp) - 1)
sTmp = aTmp(UBound(aTmp))
nCol = Left(sTmp, Len(sTmp) - 1)
End If
End If
ClipBoard_RangeSize = Array(nRow, nCol)
End Function
同时,要在设计时或 Form_Load 事件中把 Spread 的 AutoClipBoard 属性设置为 true,这样 Spread 表单才能接受剪切板中的数据。
通过代码设置:
Private Sub Form_Load()
fpSpread1.AutoClipboard = True
End Sub
Spread for COM 中捕获 Ctrl+V(粘帖)最好的方法是 KeyPress 事件。在这个事件中,通过 ClipBoard_RangeSize() 方法取得剪切板中的行数,这个数值也是我们将要设置的 MaxRows 属性的值。
Private Sub fpSpread1_KeyPress(KeyAscii As Integer)
If KeyAscii = 22 Then 'paste(ctrl+ v)
numRows = ClipBoard_RangeSize(0)
fpSpread1.MaxRows = numRows
fpSpread1.ClipboardPaste
End If
End Sub
通过上述做法,可以完成从 Excel 中复制任意数量的行在 Spread for COM 中粘帖的操作。 function forumhottag_callback(data){ tags = data; } parsetag();
本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处、不得修改原文相关链接,如果存在内容上的异议请邮件反馈至chenjj@pclwef.cn
文章转载自:网络转载面对“数字中国”建设和中国制造2025战略实施的机遇期,中车信息公司紧跟时代的步伐,以“集约化、专业化、标准化、精益化、一体化、平台化”为工作目标,大力推进信息服务、工业软件等核心产品及业务的发展。在慧都3D解决方案的实施下,清软英泰建成了多模型来源的综合轻量化显示平台、实现文件不失真的百倍压缩比、针对模型中的大模型文件,在展示平台上进行流畅展示,提升工作效率,优化了使用体验。
本站的模型资源均免费下载,登录后即可下载。模型仅供学习交流,勿做商业用途。
本站的模型资源均免费下载,登录后即可下载。模型仅供学习交流,勿做商业用途。
本站的模型资源均免费下载,登录后即可下载。模型仅供学习交流,勿做商业用途。
服务电话
重庆/ 023-68661681
华东/ 13452821722
华南/ 18100878085
华北/ 17347785263
客户支持
技术支持咨询服务
服务热线:400-700-1020
邮箱:sales@pclwef.cn
关注我们
地址 : 重庆市九龙坡区火炬大道69号6幢