win7计算器?
如下图左边那个是win7自带的计算器 右边是XP自带的
俺的系统是XP 下了个WIN7的计算器 可是用不了 网上看了下说是WIN7是高级货很多函数功能xp没有
我想做个和win7的计算器界面相似的计算器 但是没有实际操作对象 模仿起来就不顺了
下面是我自己做的一小部分 好丑啊 感觉
可以看到XP那个是直接在form下添控件 没对FORM的边框做修改
安照win7的 我这么设置的 代码如下
程序代码:
***************************************************************** *--主函数 set clock on set talk off main_form = CreateObject("c_form") main_form.show read events return *--程序结束 ***************************************************************** ***************************************************************** *--类 c_form *-- 父类: form *-- 基类: form define class c_form as Form Borderstyle = 1 TitleBar = 0 BackColor = RGB(107, 173, 246) width = 400 height = 500 autocenter = .T. borderstyle = 2 add object pic as image with height = 30, width = 20 add object cap as label with caption = "计算器", height = 30, width = 100 add object exit1 as commandbutton with height = 30, width = 40, caption = "x"; procedure Arrange with thisform.pic .top = 10 .left = 20 .stretch = 2 .backstyle = 0 .picture = [D:\VFP\ico\ra.ico] endwith with thisform.cap .top = thisform.pic.top .left = thisform.pic.left + thisform.pic.width + 50 .fontsize = 22 .backstyle = 0 endwith with thisform.exit1 .top = 0 .left = thisform.Width - .width - 5 endwith endproc procedure Activate thisform.Arrange endproc procedure exit1.click a = MessageBox("真的要退出吗?", 1 + 32, "退出") if a == 1 clear events else return endif endproc enddefine * *--end_define: c_form *****************************************************************现在不清楚 最大化 最小化 和 关闭按钮是commandbutton吗?
如果是怎么设置commandbutton的背景色,或者设置为透明?
如果不是有没有一种功能就是 当鼠标没有移到这个控件时他是透明的 移到他上面后显示背景色是红色?
目前遇到这些问题 向大牛们请教