表单设计精华.doc

1.颜色微调三个微调控件的调整范围都是在0-255之间,默认值都是255。Spinner1_INTERACTIVECHANGE事件代码：r=THIS.PARENT.Spinner1.Valueg= THIS.PARENT.Spinner2.Valueb= THIS.PARENT.Spinner3.ValueTHIS.PARENT.Label1.BackColor=RGB(r,g,b) Spinner2_INTERACTIVECHANGE事件代码：r=THIS.PARENT.Spinner1.Valueg= THIS.PARENT.Spinner2.Valueb= THIS.PARENT.Spinner3.ValueTHIS.PARENT.Label1.BackColor=RGB(r,g,b) Spinner3_INTERACTIVECHANGE事件代码：r=THIS.PARENT.Spinner1.Valueg= THIS.PARENT.Spinner2.Valueb= THIS.PARENT.Spinner3.ValueTHIS.PARENT.Label1.BackColor=RGB(r,g,b)2.数以一个数按计算按钮显示平方和立方Command1.Click事件代码： x=val(Thisform.text1.Value)Thisform.Text2.Value=x*xThisform.Text3.Value=x*x*x3.交换两个text的数值（1）：设置表单名称为Form1，表单运行时不能最大化。设置，Form1的WindowState为“0正常”；（2）： Command1。设置Caption属性为“交换A，B的值(C)”。方法1：Command1.Click事件代码：a=THISform.text1.valueb=thisform.text2.valuec=aa=bb=cthisform.text1.value=athisform.text2.value=b【A=val(thisform.text1.value)B=val(thisform.text2.value)T=aA=bB=tthisform.text1.value=str(a)thisform.text2.value=str(b)】方法2：更简单的Command1的Click事件代码：A=val(thisform.text1.value)B=val(thisform.text2.value)thisform.text1.value=str(B)thisform.text2.value=str(A)4.是否显示明文密码Check1_Click事件代码：IF THIS.VALUE=1 THISFORM.TEXT1.PASSWORDCHAR=ELSETHISFORM.TEXT1.PASSWORDCHAR=*ENDIF5.鸡兔同笼算脚数问题？Command1.Click事件代码：a=val(THISform.text1.value)b=val(thisform.text2.value)?兔子有+str(b-2*a)/2)+”个”?鸡有+str(a-(b-2*a)/2)+”个”6.长度单位转换厘米转为英寸或英寸转为厘米两个按钮，text1为长度，text2为转换后提示：1英寸=2.54厘米Command1.Click事件代码：x=val(THISform.text1.value)ThisForm.text2.Value=x*2.54Command2.Click()x=val(THISform.text1.value)ThisForm.text2.Value=x/2.547.调整曲率要求：1：表单内控件如图中所示，表单标题为“调整曲率实例”。2：微调框调整范围在0-99之间。3：调整微调框图形shape1的曲率随之变化。Spinner1_INTERACTIVECHANGE事件代码：thisform.shape1.curvature=this.value8.列表闰年设置： 1：设置表单名称为Form1。2：在窗体内添加2个Label控件，名称分别为：Label1、Label2。 添加1个CommandButton控件，名称为：Command1。添加1个ListBox控件，名称为：List1。3：设置Label1的标题为：单击“开始”按钮，可以求出从2000年到2100年之间的所有闰年 并显示在列表框中。”，字体为宋体、12号字。 设置Label2的标题为“闰年如下:”，字体为：隶书加粗、14号字。 Command1_CLICK事件代码：For i=2000 to 2100If i % 400=0 OR i % 4=0 AND i % 100 0 Then ThisForm.List1.Additem(str(i) Endifendfor9.选项按钮组Optiongroup1_Click事件代码：if this.value=1thisform.caption=this.option1.captionelse thisform.caption=this.option2.captionendif Command1_CLICK事件代码：thisform.release10.设计一个计时器设置：1：设置计时器(Timer1)的时间间隔(Interval)为1000。要求：1：标签label1显示当前日期。2：标签label2显示当前时间，随系统时间不断变化。Form1_INIT事件代码：thisform.Label1.caption = dtoc(date()thisform.Label2.caption = time() Timer1_TIMER事件代码：thisform.Label2.caption=time()11.输入用户名和密码只设置密码的text2和退出按钮即可text2_init事件代码：this.passwordchar=* Command2_CLICK事件代码：THISFORM.RELEASE12.显示时间：时分秒设置1：设置表单名称为Form1。2：在窗体内添加3个Label控件，名称分别为：Label1、Label2、Label3。 添加3个TextBox控件，名称分别为：Text1、Text2、Text3。 添加2个CommandButton控件，名称为：Command1、Command2。3：设置Label1的标签标题为“时”，字体为：楷体、14号字。 设置Label2的标签标题为“分”，字体为：楷体、14号字。 设置Label3的标签标题为“秒”，字体为：楷体、14号字。 Command1的click事件代码：thisform.timer1.Interval=100 Timer1的timer事件代码：thisform.text1.Value=SUBSTR(time(),1,2)thisform.text2.Value=SUBSTR(time(),4,2)thisform.text3.Value=SUBSTR(time(),7,2)退出按钮：THISFORM.RELEASE13.输入起始年份和中止年份列出期间的闰年 Command1_CLICK事件代码：A=val(thisform.text1.value)B=val(thisform.text2.value)For i=A to BIf i % 400=0 OR i % 4=0 AND i % 100 0 Then ThisForm.List1.Additem(str(i) Endifendfor14.输入A值和B值求出最大值Command1_CLICK事件代码：A=val(thisform.text1.value)B=val(thisform.text2.value)Max=aIf abthisform.text3.value=str(a)elsethisform.text3.value=str(b)Endif*15.列表框中输入四季名称改变选项时文本框也改变设置： 1：设置列表框的名称为“List1”。 并在列表框中输入“春天”，“夏天”，“秋天”，“冬天”。？要求：1：当在列表框中改变选项时，文本框中的值也相应改变。List1_INTERACTIVECHANGE事件代码：thisform.text1.value = thisform.list1.value16显示当前时间并且可以暂停要求：文本框内当前时间，1秒钟刷新一次。Form1_LOAD事件代码：thisform.caption = dtoc(date() Command1_CLICK事件代码：thisform.timer1.enabled = .T. Command2_CLICK事件代码：thisform.timer1.enabled = .F. Timer1_TIMER事件代码：thisform.text1.value = time()17.输入一个数n，列出在1到n之间能被5整除的数COMMAND1.CLICK事件代码：N=VAL(THISFORM.TEXT1.VALUE)for x=1 to Nif x%5=0 ThisForm.List1.Additem(str(x)endifendfor18三个文本框显示年月日Command1_click事件代码：thisform.timer1.Interval=100 Timer1_timer事件代码：thisform.text1.Value=YEAR(DATE()thisform.text2.Value=month(DATE()thisform.text3.Value=day(DATE()*19.输入除数并把1到100之间被该数整除的数列出来Form1的Init事件代码：THISFORM.Text1.Value=0【不能被0除啊？】Command1的Click事件代码：x=Val(ALLTRIM(THISFORM.Text1.Value)FOR i=1 to 100IF i%x=0THISFORM.List1.Additem (ALLTRIM(STR(i)ENDIFENDFOR*20.组合框如何设计选项？21.输入华氏温度转换为摄氏温度转换按钮代码：F=VAL(THISFORM.Text1.Value)C=(5/9)*(F-32)THISFORM.Text2.Value=C22. 题中没有给出具体密码，这里暂以“1234”为例说明。Command1的Click事件代码：IF ALLTRIM(THISFORM.Text1.Value)=ADMIN .AND. ALLTRIM(THISFORM.Text2.Value)=1234 MESSAGEBOX(欢迎登陆,64,提示)ELSE MESSAGEBOX(姓名或口令错误！,48,提示)ENDIFCommand2的Click事件代码：THISFORM.RELEASE23. 要求：1：选中“斜体”复选框时，文字变为斜体，选中“粗体”复选框时，文字为粗体。2：单击“清除”按钮时，清除文本框中的文字。Check1的InteractiveChange事件代码：IF THIS.Value=1 THISFORM.Text1.FontItalic=.T.ELSE THISFORM.Text1.FontItalic=.F.ENDIFCheck2的Click事件代码：IF THIS.Value=1 THISFORM.Text1.FontBold=.T.ELSE THISFORM.Text1.FontBold=.F.ENDIFCommand1的Click事件：THISFORM.Text1.Value=THISFORM.Caption= 文字24. 选中“隐藏”复选框，隐藏“标签文字”，反之，“标签文字”可见要求：1：选中“隐藏”复选框，隐藏“标签文字”，反之，“标签文字”可见。基本属性：1：Label1.FontSize=142：Label1.FontBold=.T.Check1的InteractiveChange事件代码：IF THIS.Value=1 THISFORM.Label1.Visible=.F.ELSE THISFORM.Label1.Visible=.T.ENDIF25.要求：1：表单“最大化”、“最小化”、“关闭”按钮均可用。2：表单内控件如图中所示：其中“口令”对应的文本框输入内容是均显示为“#”。text1_init事件代码：This.passwordchar=”#”Command2_CLICK事件代码：thisform.release*26.最大化最小化按钮怎么设计有和无？27. Form1_ACTIVATE事件代码：THIS.Text1.SetFocusOptiongroup