表單設計精華

《表單設計精華》由會員上傳分享，免費在線閱讀，更多相關內容在行業(yè)資料-天天文庫。

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.數(shù)以一個數(shù)按計算按鈕顯示平方和

3、立方Command1.Click事件代碼：x=val(Thisform.text1.Value)Thisform.Text2.Value=x*xThisform.Text3.Value=x*x*x3.交換兩個text的數(shù)值（1）：設置表單名稱為Form1，表單運行時不能最大化。設置，F(xiàn)orm1的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.雞兔同籠算腳數(shù)問題？？？？？？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年之間的所有閏年并顯示在列表框中?！保煮w為宋體、12號字。設置Label2的標題為“閏年如下:”，字體為：隸書加粗、14號字。Command1_CLICK事件代碼：Fori=2000to2100Ifi%400=0ORi%4=0ANDi%100<>0ThenThisForm.List1.Addit