FarPoint Spread控件使用.docx

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 键 vbKeySubtract vbKeyDecimal vbKeyDivide 下列常数代表功能键： 0x6D 0x6E 0x6F MINUS SIGN () 键 DECIMAL POINT (.) 键 DIVISION SIGN (/) 键 常数 vbKeyF1 vbKeyF2 vbKeyF3 vbKeyF4 vbKeyF5 vbKeyF6 vbKeyF7 vbKeyF8 vbKeyF9 vbKeyF10 vbKeyF11 vbKeyF12 vbKeyF13 vbKeyF14 vbKeyF15 vbKeyF16 值 描述 0x70 0x71 0x72 0x73 0x74 0x75 0x76 0x77 0x78 0x79 0x7A 0x7B 0x7C 0x7D 0x7E 0x7F F1 键 F2 键 F3 键 F4 键 F5 键 F6 键 F7 键 F8 键 F9 键 F10 键 F11 键 F12 键 F13 键 F14 键 F15 键 F16 键 插入行、删除行 grid1.InsertRows grow, 1 grid1.DeleteRows grow, 1 删除选中行 grid1.DeleteRows grid1.SelBlockRow, grid1.SelBlockRow2 - grid1.SelBlockRow + 1 grid1.MaxRows = grid1.MaxRows - (grid1.SelBlockRow2 - grid1.SelBlockRow + 1) 网格线颜色 grid1.BackColorStyle = 1 ret = grid1.SetOddEvenRowColor(&HFFFFFF, &H80000008, &HC0FFFF, &H80000008) 拖动复制 If grid1.IsBlockSelected And grid1.SelBlockCol = gcol And grid1.SelBlockCol2 = gcol Then grid1.Row = grid1.SelBlockRow: grid1.Col = gcol: xxx$ = grid1.Text For lrow = grid1.SelBlockRow To grid1.SelBlockRow2 grid1.Row = lrow: grid1.Col = gcol grid1.Text = xxx$ 'grid1.BackColor = RGB(255, 255, 255) Next lrow End If 字体颜色、位置、对齐、网格线颜色 '前景颜色 On Error GoTo exitsub CommonDialog1.ShowColor grid1.BlockMode = True grid1.GetSelection vv, c, r, c2, r2 grid1.Col = c grid1.Col2 = c2 grid1.Row = r grid1.Row2 = r2 grid1.ForeColor = CommonDialog1.Color grid1.BlockMode = False '背景颜色 On Error GoTo exitsub CommonDialog1.ShowColor grid1.BlockMode = True grid1.GetSelection vv, c, r, c2, r2 grid1.Col = c grid1.Col2 = c2 grid1.Row = r grid1.Row2 = r2 grid1.BackColor = CommonDialog1.Color grid1.BlockMode = False '字体 On Error GoTo exitsub ' 设置 Flags 属性 CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth CommonDialog1.CancelError = True CommonDialog1.ShowFont grid1.BlockMode = True grid1.GetSelection vv, c, r, c2, r2 grid1.Col = c grid1.Col2 = c2 grid1.Row = r grid1.Row2 = r2 grid1.FontName = CommonDialog1.FontName grid1.FontSize = CommonDialog1.FontSize grid1.FontBold = CommonDialog1.FontBold grid1.FontItalic = CommonDialog1.FontItalic grid1.FontUnderline = CommonDialog1.FontUnderline grid1.FontStrikethru = CommonDialog1.FontStrikethru grid1.ForeColor = CommonDialog1.Color 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.FontBold = True 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.FontItalic = True 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.FontUnderline = True 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.FontItalic = True grid1.FontBold = True 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.FontItalic = False grid1.FontBold = False grid1.FontUnderline = False grid1.FontStrikethru = False grid1.BlockMode = False '网格线颜色 On Error GoTo exitsub CommonDialog1.ShowColor grid1.GridColor = CommonDialog1.Color '左右居中 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 = TypeHAlignCenter 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 = TypeVAlignCenter 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 = 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 -