记录号 OBJNAME PROPERTIES METHODS 1 2 Dataenvironment Name = "Dataenvironment" 3 Form1 Top = 0 PROCEDURE DragOver Left = 0 LPARAMETERS oSource, nXCoord, nYCoord, nState Height = 443 thisform.caption = Width = 625 osource.name+":"+str(nxcoord)+":"+str(Nycoord)+ DoCreate = .T. ":"+str(nState) ShowTips = .T. Caption = "Form1" ENDPROC Closable = .F. PROCEDURE Init Name = "Form1" thisform.label2.caption="" &&在程序运行状态，在 表单的初始化事件中，将标签2的标题设置为空 thisform.label3.caption="" &&在程序运行状态，在 表单的初始化事件中，将标签3的标题设置为空 thisform.label4.caption="" &&在程序运行状态，在 表单的初始化事件中，将标签4的标题设置为空 thisform.text1.setfocus &&将窗口表单的焦点设 置到文本框里 ENDPROC PROCEDURE DragDrop LPARAMETERS oSource, nXCoord, nYCoord osource.top = nycoord-int(oSource.height/2) oSource.left = nxcoord-int(oSource.width/2) ENDPROC 4 Command1 Top = 288 PROCEDURE Init Left = 192 this.caption = "中文" &&在运行状态时，设置 Height = 25 command1的显示文本内容为：中文 Width = 60 Caption = "Command1" ENDPROC Name = "Command1" PROCEDURE Click thisform.label2.caption = "Click" thisform.label5.caption = "中国徐水，加油！" ENDPROC PROCEDURE MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord thisform.label3.caption = "MouseDown" ENDPROC PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord thisform.label4.caption = "MouseUp" ENDPROC 5 Command2 DragMode = 0 PROCEDURE MouseUp Top = 288 LPARAMETERS nButton, nShift, nXCoord, nYCoord Left = 312 Height = 25 ENDPROC Width = 60 PROCEDURE Init Caption = "Command2" this.caption = "English" &&在运行状态时，设置 MousePointer = 0 command1的显示文本内容为：English Name = "Command2" ENDPROC PROCEDURE Click &&以下语句，当本对象（command2）被鼠标点击（发生 Click事件）时， &&将表单中的Label5标签对象的标题更改内容为：Xushui China,Come on! thisform.label5.caption = "Xushui China,Come on! " ENDPROC PROCEDURE DragDrop LPARAMETERS oSource, nXCoord, nYCoord ENDPROC PROCEDURE DragOver LPARAMETERS oSource, nXCoord, nYCoord, nState ENDPROC 6 Command3 DragMode = 0 PROCEDURE Init Top = 288 &&在运行状态下，将表单中的命令按钮对象 command3的 Left = 431 工具提示内容更新为：点击鼠标右键，退出 Height = 25 this.tooltipText = "点击鼠标右键，退出" Width = 60 ENDPROC Caption = "关闭" PROCEDURE RightClick Name = "Command3" thisform.release ENDPROC 7 Text1 Height = 24 PROCEDURE InteractiveChange Left = 203 if len(allt(this.value))=0 Top = 114 thisform.caption = "微机109班" Width = 349 else Name = "Text1" thisform.caption=this.value endif ENDPROC 8 Label1 AutoSize = .T. PROCEDURE DblClick Caption = "输入标题内容" thisform.command1.click Height = 16 ENDPROC Left = 108 Top = 120 Width = 74 ToolTipText = "将输入的数据完成删除后，再观察" Name = "Label1" 9 Label2 AutoSize = .T. FontSize = 14 Caption = "Label2" Height = 24 Left = 194 Top = 244 Width = 62 ForeColor = 255,0,0 DisabledForeColor = 0,0,0 Name = "Label2" 10 Label3 AutoSize = .T. FontSize = 14 Caption = "Label3" Height = 24 Left = 314 Top = 244 Width = 62 ForeColor = 255,0,0 DisabledForeColor = 0,0,0 Name = "Label3" 11 Label4 AutoSize = .T. FontSize = 14 Caption = "Label4" Height = 24 Left = 436 Top = 244 Width = 62 ForeColor = 255,0,0 DisabledForeColor = 0,0,0 Name = "Label4" 12 Label5 AutoSize = .F. PROCEDURE Init FontBold = .F. &&在程序运行状态，设置表单里Label5对象的初始状态： FontExtend = .F. 标题内容、标题颜色、字体大小、对齐方式等 WordWrap = .F. this.caption = "" &&设置本标签的标题 BorderStyle = 0 为空 Caption = "Label5" this.forecolor = rgb(255,0,0) &&设置标题显示的文 Height = 48 本为 红色 Left = 192 this.fontsize = 22 &&设置标题显示的文 Top = 168 本字号为 30磅 Width = 336 this.Alignment = 2 &&设置标题显示的文 RightToLeft = .F. 本居中 ， 0 为居左，1为居右，2为居中 Name = "Label5" ENDPROC 13 Optiongroup1 AutoSize = .T. PROCEDURE InteractiveChange ButtonCount = 2 qy = this.value Value = 0 do case Height = 26 case qy=1 Left = 312 thisform.command2.dragmode=1 Top = 372 &&设置command2为可以拖动模式，期间不响应鼠标事件 Width = 98 thisform.command2.mousePointer =5 Name = "Optiongroup1" &&设置command2的鼠标形状为移动大小 Option1.Caption = "是" case qy=2 Option1.Value = 0 thisform.command2.dragmode=0 Option1.Height = 16 &&设置command2为可以人工模式，不可以拖动，可以正常 Option1.Left = 5 响应鼠标事件 Option1.Top = 5 thisform.command2.mousePointer =0 Option1.Width = 33 &&设置command2的鼠标形状为默认形状 Option1.AutoSize = .T. endcase Option1.Name = "Option1" ENDPROC Option2.Caption = "否" Option2.Height = 16 Option2.Left = 60 Option2.Top = 5 Option2.Width = 33 Option2.AutoSize = .T. Option2.Name = "Option2" 14 宋体, 0, 9, 6, 14, 10, 12, 2, 2