| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2270 人关注过本帖, 1 人收藏
标题:win7计算器?
只看楼主 加入收藏
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
结帖率:99.34%
收藏(1)
已结贴  问题点数:20 回复次数:76 
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的背景色,或者设置为透明?
如果不是有没有一种功能就是 当鼠标没有移到这个控件时他是透明的 移到他上面后显示背景色是红色?
目前遇到这些问题 向大牛们请教
搜索更多相关主题的帖子: color 
2012-09-17 16:42
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:3 
最大化按钮 maxbutton=.t.
最小化按钮 mixbutton=.t.
关闭按钮 commandbutton中 release thisform
2012-09-17 16:49
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
回复 2楼 tlliqi
TitleBar 已经置0了啊

梅尚程荀
马谭杨奚







                                                       
2012-09-17 16:58
wjp456789
Rank: 5Rank: 5
来 自:四川成都
等 级:职业侠客
威 望:1
帖 子:345
专家分:330
注 册:2012-6-25
收藏
得分:0 
唐版是个爱学习的人,就是不一样。。。天天在研究,我曾经也想做这个练一下。可是没有恒心。。做不下去了。。。用表单做了一点点类似的功能。传上来让大家批评指点一下。我也想学学用代码写东西。可是自己感觉基础都不牢固,还是用表单弄吧,我连爬都没学会,就不要学走了。
jsq.rar (3.13 KB)

我是来向高手学习的!
2012-09-17 18:12
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
现在不清楚 最大化 最小化 和 关闭按钮是commandbutton吗?
表单自带的,与COMMANGBUTTON没关系。
TitleBar = 0
TitleBar = 1 && 改为默认值
maxbutton=.F.
如果是怎么设置commandbutton的背景色,或者设置为透明?
用LABEL做可以达到效果,自己可以写个标签类
procedure exit1.click
     a = MessageBox("真的要退出吗?", 1 + 32, "退出")
     if a == 1
         clear events
     else

        return

     endif
endproc
下划线部分可以不要
可以使用VFP中的事件,没必要自己写个方法。

[ 本帖最后由 bccn201203 于 2012-9-17 18:26 编辑 ]
2012-09-17 18:25
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
唐僧俗家姓陈

授人以渔,不授人以鱼。
2012-09-17 18:39
wjp456789
Rank: 5Rank: 5
来 自:四川成都
等 级:职业侠客
威 望:1
帖 子:345
专家分:330
注 册:2012-6-25
收藏
得分:0 
唐版 就是一个取经人。

我是来向高手学习的!
2012-09-17 18:43
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
回复 4楼 wjp456789
呵呵 不错的东西还带括号 厉害啊
玩了下发现个小bug 就是那个小数点没对头 点击它出来的是9

梅尚程荀
马谭杨奚







                                                       
2012-09-17 19:34
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
以下是引用bccn201203在2012-9-17 18:25:48的发言:

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

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

梅尚程荀
马谭杨奚







                                                       
2012-09-17 19:35
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
以下是引用TonyDeng在2012-9-17 18:39:07的发言:

唐僧俗家姓陈

陈胜者 阳城人也 字色

梅尚程荀
马谭杨奚







                                                       
2012-09-17 19:37
快速回复:win7计算器?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.074269 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved