表单设计精华

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事件代码：IFTHIS.VALUE=1THISFORM.TEXT1.PASSWORDCHAR=ELSETHISFORM.TEXT1.PASSWORDCHAR=*ENDIF﹡5.鸡兔同笼算脚数问题？？？？？？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事件代码：Fori=2000to2100Ifi%400=0ORi%4=0ANDi%1000ThenThisForm.List1.Additem(str(i))Endifendfor9.选项按钮组Optiongroup1_Click事件代码：ifthis.value=1thisform.caption=this.option1.captionelsethisform.caption=this.option2.captionendifCommand1_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=100Timer1的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)Fori=AtoBIfi%400=0ORi%4=0ANDi%1000ThenThisForm.List1.Additem(str(i))Endifendfor14.输入A值和B值求出最大值Command1_CLICK事件代码：A=val(thisform.text1.value)B=val(thisform.text2.value)Max=aIfabMax=bEndifthisform.text3.value=str(max)另一种算法A=val(thisform.text1.value)B=val(thisform.text2.value)Ifabthisform.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)forx=1toNifx%5=0ThisForm.List1.Additem(str(x))endifendfor18三个文本框显示年月日Command1_click事件代码：thisform.timer1.Interval=100Timer1_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))FORi=1to100IFi%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事件代码：IFALLTRIM(THISFORM.Text1.Value)==ADMIN.AND.ALLTRIM(THISFORM.Text2.Value)==1234MESSAGEBOX(欢迎登陆,64,提示)ELSEMESSAGEBOX(姓名或口令错误！,48,提示)ENDIFCommand2的Click事件代码：THISFORM.RELEASE23.要求：1：选中“斜体”复选框时，文字变为斜体，选中“粗体”复选框时，文字为粗体。2：单击“清除”按钮时，清除文本框中的文字。Check1的InteractiveChange事件代码：IFTHIS.Value=1THISFORM.Text1.FontItalic=.T.ELSETHISFORM.Text1.FontItalic=.F.ENDIFCheck2的Click事件代码：IFTHIS.Value=1THISFORM.Text1.FontBold=.T.ELSETHISFORM.Text1.FontBold=.F.ENDIFCommand1的Click事件：THISFORM.Text1.Value=THISFORM.Caption=文字24.选中“隐藏”复选框，隐藏“标签文字”，反之，“标签文字”可见要求：1：选中“隐藏”复选框，隐藏“标签文字”，反之，“标签文字”可见。基