[求助]挪动到按钮上，改变背景颜色 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]挪动到按钮上，改变背景颜色

共有2620人关注过本帖树形打印复制链接主题：[求助]挪动到按钮上，改变背景颜色

81538475

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00

[求助]挪动到按钮上，改变背景颜色 发帖心情

Post By：2018/7/27 0:22:00 [只看该作者]

此主题相关图片如下：2018727-01938.jpg

此主题相关图片如下：2018727-01954.jpg

现在把鼠标挪动到按钮上，背景会变成灰色，如何能够变成系统菜单那样的颜色

[此贴子已经被作者于2018/7/27 0:22:54编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/27 8:58:00 [只看该作者]

设置成flat样式

http://www.foxtable.com/webhelp/scr/0770.htm

81538475

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00

Post By：2018/7/27 10:25:00 [只看该作者]

是flat样式，图标显示是正常的。。。现在只是鼠标挪上去的时候颜色风格变化是系统那样。

此主题相关图片如下：qq截图20180727102525.png

e.form.controls("button5").BaseControl.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch

e.Form.Controls("Button5").VisualStyle= 4

第二段代码没有作用

[此贴子已经被作者于2018/7/27 10:25:48编辑过]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/27 10:27:00 [只看该作者]

1、如果你不写代码设置，直接在属性那里设置呢？

2、上传具体实例说明。

81538475

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00

Post By：2018/7/30 15:34:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

不写代码的话，没办法让图片正好显示在按钮上。。

麻烦看看

[此贴子已经被作者于2018/7/30 15:35:30编辑过]

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/30 16:14:00 [只看该作者]

方法一：

e.form.controls("button5").BaseControl.BackgroundImage = getimage(ProjectPath & "images/PNG065.ico")
e.form.controls("button5").BaseControl.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
e.Form.Controls("Button5").VisualStyle= IVisualStyle.system
e.Form.Controls("Button5").FlatStyle = FlatStyle.Standard

方法二：

Dim file As String = ProjectPath & "images/PNG065.ico"
Dim img As image = getImage(file)
Dim bmp As bitmap
Dim btn As WinForm.Button = e.form.controls("button5")
bmp = new bitmap(img, btn.width, btn.height)
e.form.controls("button5").BaseControl.image = bmp
e.Form.Controls("Button5").VisualStyle= IVisualStyle.Office2007Blue
e.Form.Controls("Button5").FlatStyle = FlatStyle.Standard