FarPoint Spread控件使用

交替背景色

grid1.BackColorStyle = 1

ret = grid1.SetOddEvenRowColor(&HFFFFFF, &H80000008, &HC0FFFF, &H80000008)

fpSpread.SetOddEvenRowColor(ByVal clrBackOddAs Long, ByVal clrForeOdd As Long, ByVal clrBackEvenAs Long, ByVal clrForeEven As Long) As Boolean

Parameter

Description

clrBackOdd Background color of odd rows clrForeOdd Text color of odd rows clrBackEven Background color of even rows clrForeEven Text color of even rows

设定回车方向

grid1.EditEnterAction = EditEnterActionNext

[form.]fpSpread.EditEnterAction[ = setting%]

Setting 0 - None 1 - Up 2 - Down 3 - Left 4 - Right 5 - Next

Description

(Default) Active cell does not change Active cell moves up Active cell moves down Active cell moves left Active cell moves right

Constant

EditEnterActionNone EditEnterActionUp EditEnterActionDown EditEnterActionLeft EditEnterActionRight

Next cell becomes active cell

(Active cell moves in the order left to right, EditEnterActionNext top to bottom.)

Previous cell becomes active cell

(Active cell moves in the order right to left, EditEnterActionPrevious bottom to top.)

Current cell remains active cell

EditEnterActionSame

6 - Previous 7 - Same 8 - Next Row

Active cell moves to first column of next row EditEnterActionNextRow

按键的键值

可在代码中的任何地方用下列常数代替实际值：

常数 vbKeyLButton vbKeyRButton vbKeyCancel vbKeyMButton vbKeyBack vbKeyTab vbKeyClear vbKeyReturn vbKeyShift vbKeyControl vbKeyMenu vbKeyPause vbKeyCapital vbKeyEscape vbKeySpace vbKeyPageUp vbKeyPageDown vbKeyEnd vbKeyHome vbKeyLeft 值 0x1 0x2 0x3 0x4 0x8 0x9 0xC 0xD 0x10 0x11 0x12 0x13 0x14 0x1B 0x20 0x21 0x22 0x23 0x24 0x25 描述 鼠标左键 鼠标右键 CANCEL 键 鼠标中键 BACKSPACE 键 TAB 键 CLEAR 键 ENTER 键 SHIFT 键 CTRL 键 MENU 键 PAUSE 键 CAPS LOCK 键 ESC 键 SPACEBAR 键 PAGE UP 键 PAGE DOWN 键 END 键 HOME 键 LEFT ARROW 键 vbKeyUp vbKeyRight vbKeyDown vbKeySelect vbKeyPrint vbKeyExecute vbKeySnapshot vbKeyInsert vbKeyDelete vbKeyHelp vbKeyNumlock

0x26 0x27 0x28 0x29 0x2A 0x2B 0x2C 0x2D 0x2E 0x2F 0x90 UP ARROW 键 RIGHT ARROW 键 DOWN ARROW 键 SELECT 键 PRINT SCREEN 键 EXECUTE 键 SNAPSHOT 键 INSERT 键 DELETE 键 HELP 键 NUM LOCK 键 A 至 Z 键与 A – Z 字母的 ASCII 码相同： 常数 vbKeyA vbKeyB vbKeyC vbKeyD vbKeyE vbKeyF vbKeyG vbKeyH vbKeyI 值 65 66 67 68 69 70 71 72 73 描述 A 键 B 键 C 键 D 键 E 键 F 键 G 键 H 键 I 键 vbKeyJ vbKeyK vbKeyL vbKeyM vbKeyN vbKeyO vbKeyP vbKeyQ vbKeyR vbKeyS vbKeyT vbKeyU vbKeyV vbKeyW vbKeyX vbKeyY vbKeyZ

74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 J 键 K 键 L 键 M 键 N 键 O 键 P 键 Q 键 R 键 S 键 T 键 U 键 V 键 W 键 X 键 Y 键 Z 键 0 至 9 键与数字 0 – 9 的 ASCII 码相同： 常数 vbKey0 vbKey1 vbKey2 值 48 49 50 描述 0 键 1 键 2 键 vbKey3 vbKey4 vbKey5 vbKey6 vbKey7 vbKey8 vbKey9

51 52 53 54 55 56 57 3 键 4 键 5 键 6 键 7 键 8 键 9 键 下列常数代表数字键盘上的键：

常数 vbKeyNumpad0 vbKeyNumpad1 vbKeyNumpad2 vbKeyNumpad3 vbKeyNumpad4 vbKeyNumpad5 vbKeyNumpad6 vbKeyNumpad7 vbKeyNumpad8 vbKeyNumpad9 vbKeyMultiply vbKeyAdd vbKeySeparator 值 0x60 0x61 0x62 0x63 0x64 0x65 0x66 0x67 0x68 0x69 0x6A 0x6B 0x6C 描述 0 键 1 键 2 键 3 键 4 键 5 键 6 键 7 键 8 键 9 键 MULTIPLICATION SIGN (*) 键 PLUS SIGN (+) 键 ENTER 键

grid1.Row = r grid1.Row2 = r2

grid1.TypeVAlign = TypeVAlignTop grid1.BlockMode = False '居下

On Error GoTo exitsub grid1.BlockMode = True

grid1.GetSelection vv, c, r, c2, r2 grid1.Col = c grid1.Col2 = c2 grid1.Row = r grid1.Row2 = r2

grid1.TypeVAlign = TypeVAlignBottom grid1.BlockMode = False '居左

On Error GoTo exitsub grid1.BlockMode = True

grid1.GetSelection vv, c, r, c2, r2 grid1.Col = c grid1.Col2 = c2 grid1.Row = r grid1.Row2 = r2

grid1.TypeHAlign = TypeHAlignLeft grid1.BlockMode = False '居右

On Error GoTo exitsub grid1.BlockMode = True

grid1.GetSelection vv, c, r, c2, r2 grid1.Col = c grid1.Col2 = c2 grid1.Row = r grid1.Row2 = r2

grid1.TypeHAlign = TypeHAlignRight grid1.BlockMode = False

合并、恢复单元格

'合并

grid1.AddCellSpan grid1.SelBlockCol, grid1.SelBlockRow, grid1.SelBlockCol + 1, grid1.SelBlockRow2 - grid1.SelBlockRow + 1

'恢复单元格

grid1.RemoveCellSpan grid1.SelBlockCol, grid1.SelBlockRow

grid1.SelBlockCol2

-

本文来源：https://www.bwwdw.com/article/nhw7.html