Visual Basic Controls

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / cellcont / data1.cab / VBDEMO_Files / CellForm.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1998-11-20 | 45.3 KB | 1,360 lines

VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX" Object = "{DD44C0E7-B2CF-11D1-8DD2-444553540000}#1.0#0"; "CELL.OCX" Begin VB.Form frmCell BorderStyle = 1 'Fixed Single Caption = "Demo" ClientHeight = 5916 ClientLeft = 4308 ClientTop = 1992 ClientWidth = 7572 BeginProperty Font Name = " Size = 12 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 5916 ScaleWidth = 7572 StartUpPosition = 2 'CenterScreen Visible = 0 'False Begin CELLLib.Cell DemoCell Height = 3372 Left = 120 TabIndex = 74 Top = 120 Width = 7332 _Version = 65536 _ExtentX = 12933 _ExtentY = 5948 _StockProps = 0 End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 16 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 38 Top = 3600 Width = 7095 Begin VB.CommandButton Command8 Caption = "Open" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 5520 TabIndex = 67 Top = 120 Width = 1095 End Begin VB.CommandButton Command7 Caption = " BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4920 TabIndex = 66 Top = 120 Width = 375 End Begin VB.TextBox Text5 BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 360 Left = 1320 TabIndex = 65 Top = 120 Width = 3495 End Begin VB.Label Label17 Caption = "database file" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 0 TabIndex = 64 Top = 120 Width = 1335 End Begin VB.Label Label16 Caption = "CELL can open any ODBC source and any ISAM database." BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 780 Left = 0 TabIndex = 63 Top = 960 Width = 6780 WordWrap = -1 'True End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 17 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 39 Top = 3600 Width = 7095 Begin VB.CommandButton Command11 Caption = "Save" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 6120 TabIndex = 73 Top = 0 Width = 975 End Begin VB.CommandButton Command10 Caption = "Open" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 5040 TabIndex = 72 Top = 0 Width = 975 End Begin VB.CommandButton Command9 Caption = " BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4560 TabIndex = 71 Top = 0 Width = 375 End Begin VB.TextBox Text6 BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 360 Left = 960 TabIndex = 70 Top = 0 Width = 3375 End Begin VB.Label Label19 Caption = "File name" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 0 TabIndex = 69 Top = 0 Width = 735 End Begin VB.Label Label18 Caption = "CELL control can open the file which created by CELL Application." BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 780 Left = 0 TabIndex = 68 Top = 840 Width = 6780 WordWrap = -1 'True End End Begin MSComDlg.CommonDialog CommonDialog Left = 120 Top = 5280 _ExtentX = 847 _ExtentY = 847 _Version = 327681 End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 15 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 37 Top = 3600 Width = 7095 Begin VB.Label Label15 Caption = "Drop window looks like an extend drop list." BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 780 Left = 0 TabIndex = 62 Top = 0 Width = 6780 WordWrap = -1 'True End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 14 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 36 Top = 3600 Width = 7095 Begin VB.CommandButton Command6 Caption = "Set Page Label" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 5280 TabIndex = 60 Top = 120 Width = 1455 End Begin VB.TextBox Text4 BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 3720 TabIndex = 59 Top = 120 Width = 1335 End Begin VB.CommandButton Command5 Caption = "Set current page" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1200 TabIndex = 58 Top = 120 Width = 1335 End Begin VB.TextBox Text3 BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 0 TabIndex = 57 Text = "1" Top = 120 Width = 975 End Begin VB.Label Label14 Caption = "CELL support 2000 pages." BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 0 TabIndex = 61 Top = 840 Width = 2775 End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 12 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 34 Top = 3600 Width = 7095 Begin VB.Label Label12 Caption = "It's easy to sort data in CELL, and supply an event for you to compare data." BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 780 Left = 0 TabIndex = 53 Top = 0 Width = 6780 WordWrap = -1 'True End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 13 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 35 Top = 3600 Width = 7095 Begin VB.CommandButton Command4 Caption = "Print preview" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1560 TabIndex = 56 Top = 120 Width = 1575 End Begin VB.CommandButton Command3 Caption = "Print" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 0 TabIndex = 55 Top = 120 Width = 1335 End Begin VB.Label Label13 Caption = "CELL support professional print&preview interface for you." BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 780 Left = 0 TabIndex = 54 Top = 840 Width = 6780 WordWrap = -1 'True End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 11 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 33 Top = 3600 Width = 7095 Begin VB.Label Label11 Caption = "CELL support draq and drop" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 780 Left = 0 TabIndex = 52 Top = 0 Width = 6780 WordWrap = -1 'True End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 10 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 21 Top = 3600 Width = 7095 Begin VB.CommandButton cmdPasteSize Caption = "Paste with same size" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 5640 TabIndex = 25 Top = 120 Width = 1455 End Begin VB.CommandButton cmdPaste Caption = "Paste" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 3720 TabIndex = 24 Top = 120 Width = 1575 End Begin VB.CommandButton cmdCopy Caption = "Copy" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1800 TabIndex = 23 Top = 120 Width = 1575 End Begin VB.CommandButton cmdCut Caption = "Cut" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 0 TabIndex = 22 Top = 120 Width = 1455 End Begin VB.Label Label2 Caption = "CELL support clipboard, you can copy in CELL and paste it to Excel, Word, and CELL Application." BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 780 Left = 120 TabIndex = 26 Top = 720 Width = 6780 WordWrap = -1 'True End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 9 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 32 Top = 3600 Width = 7095 Begin VB.Label Label10 Caption = "You can add user function for CELL,include function guide and help!" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1095 Left = 0 TabIndex = 51 Top = 0 Width = 6855 End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 8 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 31 Top = 3600 Width = 7095 Begin VB.Label Label9 Caption = "CELL can hold or not hold the data in memory." BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1095 Left = 0 TabIndex = 50 Top = 0 Width = 6855 End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 7 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 30 Top = 3600 Width = 7095 Begin VB.Label Label8 Caption = "CELL's chart and chart guide(double click chart will show chart guide)." BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1095 Left = 120 TabIndex = 49 Top = 120 Width = 6855 End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 6 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 29 Top = 3600 Width = 7095 Begin VB.CommandButton Command2 Caption = "Syntax" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 5400 TabIndex = 48 Top = 480 Width = 1335 End Begin VB.TextBox Text2 BackColor = &H80000004& Enabled = 0 'False BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 270 Left = 1680 TabIndex = 47 Top = 480 Width = 3255 End Begin VB.CommandButton Command1 Caption = "Value" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 5400 TabIndex = 45 Top = 0 Width = 1335 End Begin VB.TextBox Text1 BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 1680 TabIndex = 44 Top = 0 Width = 3255 End Begin VB.Label Label7 Caption = "result" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 120 TabIndex = 46 Top = 480 Width = 975 End Begin VB.Label Label6 Caption = "Input expression" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 43 Top = 0 Width = 1575 End Begin VB.Label Label5 Caption = "You can use formula in CELL, CELL's formula can refresh when source cell changed(like Excel)." BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 0 TabIndex = 42 Top = 1080 Width = 6975 End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 5 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 28 Top = 3600 Width = 7095 Begin VB.CheckBox Check1 Caption = "Edit area auto_sizing" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 41 Top = 120 Value = 1 'Checked Width = 2175 End Begin VB.Label Label4 Caption = "CELL will record the move direction when edit(click Enter you will find it)." BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 855 Left = 120 TabIndex = 40 Top = 600 Width = 6975 End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 3 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 13 Top = 3600 Width = 7095 Begin VB.Label labLabel AutoSize = -1 'True Caption = "rich cell style in CELL." BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 180 Left = 0 TabIndex = 20 Top = 0 Width = 2160 End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 4 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 19 Top = 3600 Width = 7095 Begin VB.Label Label3 Caption = "CELL have all kind of cell types, include all the common controls in Windows." BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 27 Top = 120 Width = 6255 End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 2 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 9 Top = 3600 Width = 7095 Begin VB.OptionButton optGrid Caption = "Blank" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 4 Left = 1800 TabIndex = 18 Top = 960 Width = 1335 End Begin VB.OptionButton optGrid Caption = "raised" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 3 Left = 240 TabIndex = 17 Top = 960 Width = 1335 End Begin VB.OptionButton optGrid Caption = "recessed" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 2 Left = 3480 TabIndex = 16 Top = 360 Width = 1455 End Begin VB.OptionButton optGrid Caption = "solid line" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 1 Left = 1800 TabIndex = 15 Top = 360 Value = -1 'True Width = 1335 End Begin VB.OptionButton optGrid Caption = "dashed line" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 0 Left = 240 TabIndex = 14 Top = 240 Width = 1215 End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 1 Left = 120 ScaleHeight = 1572 ScaleWidth = 7092 TabIndex = 2 Top = 3600 Width = 7095 Begin VB.CheckBox chkRetract Caption = "Sizing multi line" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 3120 TabIndex = 11 Top = 240 Value = 1 'Checked Width = 2895 End Begin VB.CheckBox chkAdjust Caption = "Sizing cell" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 0 TabIndex = 10 Top = 240 Value = 1 'Checked Width = 2655 End Begin VB.Label Label1 Caption = "You can size every thing in CELL." BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 0 TabIndex = 12 Top = 720 Width = 6975 End End Begin VB.PictureBox picPicture BorderStyle = 0 'None Height = 1575 Index = 0 Left = 120 ScaleHeight = 1572 ScaleWidth = 7212 TabIndex = 1 Top = 3600 Width = 7215 Begin VB.CheckBox chkPage Caption = "Page label" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2880 TabIndex = 8 Top = 720 Value = 1 'Checked Width = 735 End Begin VB.CheckBox chkBorder Caption = "Border" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2880 TabIndex = 7 Top = 240 Value = 1 'Checked Width = 855 End Begin VB.CheckBox chkV Caption = "V_Scrollbar" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1200 TabIndex = 6 Top = 720 Value = 1 'Checked Width = 1455 End Begin VB.CheckBox chkH Caption = "H_Scrollbar" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1200 TabIndex = 5 Top = 240 Value = 1 'Checked Width = 1455 End Begin VB.CheckBox chkRow Caption = "Col label" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 120 TabIndex = 4 Top = 720 Value = 1 'Checked Width = 855 End Begin VB.CheckBox chkCol Caption = "Row label" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 120 TabIndex = 3 Top = 240 Value = 1 'Checked Width = 1095 End End Begin VB.CommandButton CBFinished Cancel = -1 'True Caption = "Close" BeginProperty Font Name = "Times New Roman" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 6360 TabIndex = 0 Top = 5400 Width = 1095 End Attribute VB_Name = "frmCell" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub CBFinished_Click() Unload Me End Sub Private Sub Check1_Click() DemoCell.DynamicEditArea = Check1.Value End Sub Private Sub chkAdjust_Click() DemoCell.AllowSizeCell = chkAdjust.Value End Sub Private Sub chkBorder_Click() DemoCell.Border = chkBorder.Value End Sub Private Sub chkCol_Click() DemoCell.SideLabelVisible = chkCol.Value End Sub Private Sub chkH_Click() DemoCell.HScrollVisible = chkH.Value End Sub Private Sub chkPage_Click() DemoCell.PageLabelVisible = chkPage.Value End Sub Private Sub chkRetract_Click() DemoCell.MultiColSizeMode = chkRetract.Value End Sub Private Sub chkRow_Click() DemoCell.TopLabelVisible = chkRow.Value End Sub Private Sub chkV_Click() DemoCell.VScrollVisible = chkV.Value End Sub Private Sub cmdCopy_Click() DemoCell.DoCopySelected End Sub Private Sub cmdCut_Click() DemoCell.DoCutSelected End Sub Private Sub cmdPaste_Click() DemoCell.DoPaste DemoCell.DoGetCurrentCol, DemoCell.DoGetCurrentRow, False End Sub Private Sub cmdPasteSize_Click() DemoCell.DoPaste DemoCell.DoGetCurrentCol, DemoCell.DoGetCurrentRow, True End Sub Private Sub Command1_Click() If Len(Text1) > 0 Then End If End Sub Private Sub Command10_Click() frmCell.DemoCell.DoOpenFile Text6 End Sub Private Sub Command11_Click() frmCell.DemoCell.DoSaveFile Text6 End Sub Private Sub Command2_Click() MsgBox "There are 4 data type in CELL, double value, string, cell and area." End Sub Private Sub Command3_Click() frmCell.DemoCell.DoPrint True End Sub Private Sub Command4_Click() frmCell.DemoCell.DoPrintPreview False End Sub Private Sub Command5_Click() With DemoCell ipage = Val(Text3) If ipage < .DoGetTotalPages Then .DoSetCurrentPage ipage - 1 .DoRedrawPageLabel End If End With End Sub Private Sub Command6_Click() With DemoCell .DoSetPageLabel .DoGetCurrentPage, Text4 .DoRedrawPageLabel End With End Sub Private Sub Command7_Click() With CommonDialog .Filter = "Access File(*.MDB)|*.mdb" .ShowOpen Text5 = .filename End With End Sub Private Sub Command8_Click() Dim sTableName As String Dim iInstr With frmCell.DemoCell .DoOpenFileDbase 0, Text5, sTables If Len(sTables) > 0 Then For i = 0 To 2 iInstr = InStr(sTables, vbCrLf) If iInstr > 0 Then sTableName = Left(sTables, iInstr - 1) sTables = Right(sTables, Len(sTables) - iInstr - 1) If i > 0 Then .DoAppendPage "", 1 .DoDumpDbaseTable sTableName, 0, -1, i, True, varcols, varrows End If Next End If .DoCloseDbase End With End Sub Private Sub Command9_Click() With CommonDialog .Filter = "Cell File(*.CLL)|*.cll" .ShowOpen Text6 = .filename End With End Sub Private Sub DemoCell_OnExecuteUserFunc(ByVal name As String, ByVal rettype As Integer, ByVal paranum As Integer, paraType As Long, funcResult As Variant) ReDim paraVar(paranum - 1) As Variant ReDim paraVarType(paranum - 1) For i = 0 To paranum - 1 If Not DemoCell.DoFetchFuncParameter(i, paraVar(i)) Then Exit Sub End If paraVarType(i) = VarType(paraVar(i)) Next Select Case name Case "MyFunction1" funcResult = paraVar(0) If (rettype) Then funcResult = Str(funcResult) End If Case Else MsgBox "No Such User Function" End Select End Sub Private Sub DemoCell_OnGetCellData(ByVal col As Long, ByVal row As Long, data As Variant, changed As Boolean) If iSelection = 9 Then Dim tmp As Long changed = True tmp = col + 1 + (row + 1) * 10000 data = tmp End If End Sub Private Sub optGrid_Click(Index As Integer) DemoCell.DoSetBackGround Index End Sub