将一个button的Image赋值给另一个Button - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 将一个button的Image赋值给另一个Button

共有4012人关注过本帖树形打印复制链接主题：将一个button的Image赋值给另一个Button

东坡一剑

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

加好友

发短信

等级：小狐帖子：366 积分：2478 威望：0 精华：0 注册：2013/1/13 23:43:00

将一个button的Image赋值给另一个Button 发帖心情

Post By：2013/9/2 14:28:00 [只看该作者]

Dim a,b As WinForm.Button
a = e.Sender
For Each b In Forms("录入货品信息").Controls
    If b.Focused Then
        b.Image = a.Image
        e.Form.Close()
    End If
Next

希望通过上面一段代码将button的Image赋值给另一个Button,却出现了错误提示，请教诸位高手，该怎么呢弄？

下面是错误提示的截图

图片点击可在新窗口打开查看此主题相关图片如下：2013-09-02 14 42 54.png

[此贴子已经被作者于2013-9-2 14:58:46编辑过]

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/9/2 14:35:00 [只看该作者]

出现什么错误?

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/9/2 14:49:00 [只看该作者]

意思是你当前的活动控件，并非一个Button，而是一个PictureBox

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2013/9/2 14:51:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:图标赋值.table

东坡一剑

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

加好友

发短信

等级：小狐帖子：366 积分：2478 威望：0 精华：0 注册：2013/1/13 23:43:00

Post By：2013/9/2 15:12:00 [只看该作者]

看完发来的实例，在forms（"洗涤图标"）的全局事件click事件中设置如下代码，还是不能成功，错误提示照旧

Dim a,b As WinForm.Button
a = e.Sender
For Each b In Forms("录入货品信息").Controls
    If b.Focused Then
        b.Image =GetImage(a.Tooltip)
        e.Form.Close()
    End If
Next

[此贴子已经被作者于2013-9-2 15:16:54编辑过]

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/9/2 15:15:00 [只看该作者]

你的错误问题是类型不对,并不是你现在所认为的这个问题. 而是狐爸所说的问题. 实在不会你就上例子吧.

你可以考虑直接

For Each b as WinForm.Control In Forms("录入货品信息").Controls
    If b.Focused Then
        b.Image = e.Sender.Image
        e.Form.Close()
    End If
Next

东坡一剑

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

加好友

发短信

等级：小狐帖子：366 积分：2478 威望：0 精华：0 注册：2013/1/13 23:43:00

Post By：2013/9/2 15:33:00 [只看该作者]

还是不行，只好上例子了，劳驾各位！

其实我的目标是：点击窗口"录入商品信息"的"boxgroup3“中的任意一个Button便选定它，同时打开窗口"洗涤标志"，点击其中的某个图标(Button),则将其Image赋值给窗口"录入商品信息"中选定的Button。当所有赋值工作完成后，点击窗口"录入商品信息"中的"确定"按钮，再将这些Image批量赋值给窗口所属表的对应列。