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的背景色，或者设置为透明?
如果不是有没有一种功能就是 当鼠标没有移到这个控件时他是透明的 移到他上面后显示背景色是红色？
目前遇到这些问题 向大牛们请教
