如下图

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

最大化按钮 maxbutton=.t.
最小化按钮 mixbutton=.t.
关闭按钮 commandbutton中 release thisform

TitleBar 已经置0了啊

唐版是个爱学习的人，就是不一样。。。天天在研究，我曾经也想做这个练一下。可是没有恒心。。做不下去了。。。用表单做了一点点类似的功能。传上来让大家批评指点一下。我也想学学用代码写东西。可是自己感觉基础都不牢固，还是用表单弄吧，我连爬都没学会，就不要学走了。

表单自带的，与COMMANGBUTTON没关系。
TitleBar = 1 && 改为默认值
maxbutton=.F.
用LABEL做可以达到效果，自己可以写个标签类
下划线部分可以不要
可以使用VFP中的事件，没必要自己写个方法。

[ 本帖最后由 bccn201203 于 2012-9-17 18:26 编辑 ]

唐僧俗家姓陈

唐版 就是一个取经人。

呵呵 不错的东西还带括号 厉害啊
玩了下发现个小bug 就是那个小数点没对头 点击它出来的是9

问题是win7版的计算器已经不再使用TitleBar了吧 难道是我理解错了？

陈胜者 阳城人也 字色