Foxtable(狐表)用户栏目专家坐堂 → 图片位置


  共有2754人关注过本帖树形打印复制链接

主题:图片位置

帅哥哟,离线,有人找我吗?
blsu33
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2928 积分:20184 威望:0 精华:0 注册:2012/2/3 17:45:00
图片位置  发帖心情 Post By:2015/4/2 10:12:00 [只看该作者]

老师,
   窗口的Click命令的确指定背景的图片:g.DrawImage(getImage("down03.png"),e.Sender.Left,e.Sender.Top,84,86)  84*86 和pane_按钮 中按钮的大小一致,可是,结果还是如下,背景灰色down03.png的位置不对:

图片点击可在新窗口打开查看此主题相关图片如下:窗口中的图片.png
图片点击可在新窗口打开查看


弄了好久,没看出门道,不知道为什么,老师能否帮忙看下,麻烦您了。


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:图片位置调整.rar




 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/4/2 11:06:00 [只看该作者]

 完全搞不懂你想表达什么

 

If e.Sender.Name.Contains("icon_") Then
    e.Form.Controls(e.sender.name).basecontrol.BackgroundImage = getImage("down03.png")
    e.Form.Controls(e.sender.name).BaseControl.BackgroundImageLayout = ImageLayout.Stretch
    Application.DoEvents
End If

[此贴子已经被作者于2015/4/2 11:06:26编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2928 积分:20184 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/4/2 11:22:00 [只看该作者]

o 在商业版中能正确显示 ,这个是效果

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150402112410.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/4/2 11:24:52编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/4/2 11:24:00 [只看该作者]

那就是代码没有问题。

 

直接说你想做什么效果


 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2928 积分:20184 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/4/2 11:32:00 [只看该作者]

效果就是 down03.png 这个图片灰色的部分 怎么会显示成这样

 


图片点击可在新窗口打开查看此主题相关图片如下:灰色的部分.png
图片点击可在新窗口打开查看

 

怎么设置才能成为这样呢 没看出来怎么弄得

 

 


图片点击可在新窗口打开查看此主题相关图片如下:灰色应显示成与图片相同的大小.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/4/2 11:53:00 [只看该作者]

 测试了一下,代码没问题,你三个大小必须一致。 afterload事件设置一下

 

 

e.Form.Controls("pane_down").Left = e.Form.Controls("pane_按钮").left
e.Form.Controls("pane_down").Top = e.Form.Controls("pane_按钮").Top
e.Form.Controls("pane_down").width = e.Form.Controls("pane_按钮").width
e.Form.Controls("pane_down").height = e.Form.Controls("pane_按钮").height


e.Form.Controls("Painter1").Left = e.Form.Controls("pane_按钮").left
e.Form.Controls("Painter1").Top = e.Form.Controls("pane_按钮").Top
e.Form.Controls("Painter1").width = e.Form.Controls("pane_按钮").width
e.Form.Controls("Painter1").height = e.Form.Controls("pane_按钮").height


 回到顶部