使用flexcell控件的两个技巧.docVIP

flexcell grid如何实现撤销和恢复的功能 撤销和恢复确实不是你想像中那么容易做的，下面的程序可以把选中的区域的内容保存到数组，也可以通过这些数组恢复到指定的单元格，通过多个这样的数组可以完成简单的撤销和恢复。 我花了一些时间写了一段程序，用于把剪贴板中的数据保存到数组中，并可从数组中恢复数据。 ? Option Explicit ? Private Declare Function GlobalAlloc Lib KERNEL32 (ByVal wFlags As Long, ByVal dwBytes As Long) As LongPrivate Declare Function GlobalFree Lib KERNEL32 (ByVal hMem As Long) As LongPrivate Declare Function GlobalLock Lib KERNEL32 (ByVal hMem As Long) As LongPrivate Declare Function GlobalUnlock Lib KERNEL32 (ByVal hMem As Long) As LongPrivate Declare Function RegisterClipboardFormat Lib user32 Alias RegisterClipboardFormatA (ByVal lpString As String) As LongPrivate Declare Function OpenClipboard Lib user32 (ByVal hWnd As Long) As LongPrivate Declare Function CloseClipboard Lib user32 () As LongPrivate Declare Function GetClipboardData Lib user32 (ByVal wFormat As Long) As LongPrivate Declare Function SetClipboardData Lib user32 (ByVal wFormat As Long, ByVal hMem As Long) As LongPrivate Declare Function EmptyClipboard Lib user32 () As LongPrivate Declare Function IsClipboardFormatAvailable Lib user32 (ByVal wFormat As Long) As LongPrivate Declare Sub CopyMemory Lib KERNEL32 Alias RtlMoveMemory (pDst As Any, pSrc As Any, ByVal ByteLen As Long) ? Private Type ClipBoardData??? Data1 As Long??? Data2 As Long??? Data3 As Long??? Data4 As Long??? Data5 As Long??? Data6 As Long??? Data7 As Long??? Data8 As Long??? Flag1 As Boolean??? Flag2 As BooleanEnd Type ? Private Const GMEM_MOVEABLE = H2Private Const GMEM_ZEROINIT = H40Private Const GHND = (GMEM_MOVEABLE Or GMEM_ZEROINIT) ? Private mlngClipFormat As LongPrivate mstrText As StringPrivate marrData() As BytePrivate mblnHasData As Boolean ? 这段程序的作用是把Grid.Selection中的内容复制到ClipBoard，然后再把ClipBoard中的数据取出来，复制到marrData和mstrText中去Private Sub Command1_Click()??? Grid1.Selection.CopyData??? ??? mstrText = Clipboard.GetText ? ??? Dim lngAddress As Long??? Dim lngLength As Long??? Dim ClipData As ClipBoardData??? ??? If IsClipboar