| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2270 人关注过本帖, 1 人收藏
标题:win7计算器?
取消只看楼主 加入收藏
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
结帖率:99.34%
收藏(1)
已结贴  问题点数:20 回复次数:32 
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
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
回复 2楼 tlliqi
TitleBar 已经置0了啊

梅尚程荀
马谭杨奚







                                                       
2012-09-17 16:58
有容就大
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
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
以下是引用wjp456789在2012-9-17 18:43:01的发言:

唐版 就是一个取经人。

取笑 取笑。。。


梅尚程荀
马谭杨奚







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

是你理解错了,WIN7下表单界面与WINXP下表单界面不一样了,但都是有标题栏的。

那在TitleBar = 1的情况下怎么改变边框大小 怎么改变ico图标 和 标题 以及怎么去除最大化最小化关闭按钮的边框并修改它们的背景色 这个在网上翻半天没有一点线索啊 不然早跨过这步了

梅尚程荀
马谭杨奚







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

表单的背景色渐变问题,需要自己写个代码,这个问题可以解决。
其它的设置与在XP下设置一样
那个最大化、最小化、关闭按钮的形状问题,可以借助表单的皮肤类解决。

可以看出win7和XP的边框大小是不一样的 怎么调整边框尺寸?
貌似在form的属性里只看到BorderStyle和这个有关 但是没涉及到边框的尺寸

梅尚程荀
马谭杨奚







                                                       
2012-09-17 20:01
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
回复 20楼 bccn201203
害羞哥 我还是没搞懂 再来个写皮肤就更蒙了 你的意思是边框尺寸是不会改变的?

梅尚程荀
马谭杨奚







                                                       
2012-09-17 20:24
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
回复 19楼 TonyDeng
老大 你给这个的边框明显是一条线啊 狐狸的图标也没改
不过对三个按钮的处理值得学习 教教我怎么弄啊

梅尚程荀
马谭杨奚







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



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

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