以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  控件赋值问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44540)
--  作者：owenlyx
--  发布时间：2014/1/3 10:05:00
--  控件赋值问题

思路是判断控件类型,然后将表中按钮图标图案自动赋予按钮控件,代码如下:

For Each a As WinForm.Control In e.Form.Controls
    If typeof a Is winform.button Then
        Dim t As WinForm.Button = a
        Dim dr As DataRow = DataTables("配置表").Find("[窗口名称] = \'" & e.Form.Name & "\'and [按钮名称] = \'" & t.name & "\'" )
        If dr IsNot Nothing Then
           t.text = dr("按钮标题")
           t.Image =dr("按钮图标")
        End If
    End If
Next

报错如下:

 


图片点击可在新窗口打开查看此主题相关图片如下：截图11.jpg
图片点击可在新窗口打开查看
请指教,谢谢
--  作者：Bin
--  发布时间：2014/1/3 10:07:00
--  
dr("按钮图标")  你这里存的是字符串吧? 只是一个路径而已吧? 是不会自动变成图片的


t.Image =GetImage(dr("按钮图标"))
如果只是存文件名,你还需要拼接一下路径

例如t.Image =GetImage("Images\\" & dr("按钮图标"))