6、添加事件代码：
（1）选项按钮组Optiongroup1的click事件代码：
thisform.label3.visible=.t.thisform.label4.visible=.t.a=2*(val(thisform.text1.value)+val(thisform.text2.value))b=val(thisform.text1.value)*val(thisform.text2.value)do case case this.value=1 thisform.label3.caption="长方形的周长为："+str(a) thisform.label4.caption="" case this.value=2 thisform.label4.caption="长方形的面积为："+str(b) thisform.label3.caption="" case this.value=3 thisform.label3.caption="长方形的周长为："+str(a) thisform.label4.caption="长方形的面积为："+str(b) endcase（2）ming令按钮command1的click事件代码：thisform.release
7、运行“计算长方形周长及面积.scx”。
本例比较简单，代码在Win2003+VFP6.0环境下调试通过。
本文源自：翔宇亭——IT乐园（http://），转载请保留此信息！
最新文章
热门文章
猜你喜欢
