表单设计精华

《表单设计精华》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、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.P

2、ARENT.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.数以一个数按计算按钮显示平方和

3、立方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的值(

4、form.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.t

5、ext2.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.tex

6、t2.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.

7、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控件，名称为：

8、List1。3：设置Label1的标题为：单击“开始”按钮，可以求出从2000年到2100年之间的所有闰年并显示在列表框中。”，字体为宋体、12号字。设置Label2的标题为“闰年如下:”，字体为：隶书加粗、14号字。Command1_CLICK事件代码：Fori=2000to2100Ifi%400=0ORi%4=0ANDi%100<>0ThenThisForm.List1.Addit