表单设计精华.docVIP

1.颜色微调 三个微调控件的调整范围都是在0-255之间,默认值都是255。 Spinner1_INTERACTIVECHANGE事件代码： r=THIS.PARENT.Spinner1.Value g= THIS.PARENT.Spinner2.Value b= THIS.PARENT.Spinner3.Value THIS.PARENT.Label1.BackColor=RGB(r,g,b) Spinner2_INTERACTIVECHANGE事件代码： r=THIS.PARENT.Spinner1.Value g= THIS.PARENT.Spinner2.Value b= THIS.PARENT.Spinner3.Value THIS.PARENT.Label1.BackColor=RGB(r,g,b) Spinner3_INTERACTIVECHANGE事件代码： r=THIS.PARENT.Spinner1.Value g= THIS.PARENT.Spinner2.Value b= THIS.PARENT.Spinner3.Value THIS.PARENT.Label1.BackColor=RGB(r,g,b) 2.数以一个数按计算按钮显示平方和立方 Command1.Click事件代码： x=val(Thisform.text1.Value) Thisform.Text2.Value=x*x Thisform.Text3.Value=x*x*x 3.交换两个text的数值 （1）：设置表单名称为Form1，表单运行时不能最大化。 设置，Form1的WindowState为“0—正常”； （2）： Command1。 设置Caption属性为“交换A，B的值(\C)”。 方法1： Command1.Click事件代码： a=THISform.text1.value b=thisform.text2.value c=a a=b b=c thisform.text1.value=a thisform.text2.value=b 【A=val(thisform.text1.value) B=val(thisform.text2.value) T=a A=b B=t thisform.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= ELSE THISFORM.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.54 Command2.Click() x=val(THISform.text1.value) ThisForm.text2.Value=x/2.54 7.调整曲率 要求： 1：表单内控件如图中所示，表单标题为“调整曲率实例”。 2：微调框调整范围在0-99之间。 3：调整微调框图形shape1的曲率随之变化。 Spinner1_INTERACTIVECHANGE事件代码： thisform.shape1.curvature=this.value 8.列表闰年 设置： 1：设置表单名称为Form1。 2：在窗体内添加2个Label控件，名称分别为：Label1、Label2。 添加1个CommandButton控件，名称为：Command1。添加1个ListBox控件，名称为：List1。 3：设置Label1的标题为：单击“开始”按钮，可以求出从2000年到2100年之间的所有闰年 并显示在列表框中。”，字体为宋体、12号字。 设置Label2的标题为“闰年如下:”