以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]图片选择后如何在图片框中显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91791)

--  作者:188802386
--  发布时间:2016/10/19 10:36:00
--  [求助]图片选择后如何在图片框中显示
求助有很多张图片,请问假如选中了图片3,请问如何在图片框中显示图片3的图片呢,参考图片在二楼
--  作者:188802386
--  发布时间:2016/10/19 10:37:00
--  
参考图片

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


--  作者:有点蓝
--  发布时间:2016/10/19 10:56:00
--  
病历listview,取得和单选框名称一样的行,把图片路径给图片框
--  作者:188802386
--  发布时间:2016/10/19 11:40:00
--  
没做过,有没有教程或案例,参考学习下
--  作者:有点蓝
--  发布时间:2016/10/19 11:59:00
--  
都在帮助中:http://www.foxtable.com/webhelp/scr/2849.htm

不会就上传例子

--  作者:188802386
--  发布时间:2016/10/23 15:14:00
--  
谢谢了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:web.foxdb


--  作者:狐狸爸爸
--  发布时间:2016/10/23 17:33:00
--  

radiobutton的命名要有规则,不能RadioButton1、RadioButton2,这样不利于统一编码。

应该这样: rdo-p-x,例如 rdo-1-2,表示在位置1显示第2个图片,rdo-2-7表示在位置2显示第三个图片。

 

接下来的全局CheckedChanged事件代码:

 

if e.Seneder.Name.StartsWith("rdo-") Then

    Dim pts = e.Sender.Name.Split("-")

    Dim wz As Integer = pts(1)  \'位置

    Dim tp  AS Integer = pts(2) ‘要显示的图片编号

   .......你可以i自己处理了。

 

 

 

需要批量处理的时候,规范命名是简化编码的基础。


--  作者:188802386
--  发布时间:2016/10/23 18:34:00
--  
老师能不能给个全的,出错了,之前没接触过单选框如何返回 比如 dro-1-2,请问如何实现在图片位置1列显示 图片2列选定行的网址呢

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20161023181958.png
图片点击可在新窗口打开查看
Dim dr As Row  = Tables("表A").Current
If e.Seneder.Name.StartsWith("rdo-") Then
    Dim pts = e.Sender.Name.Split("-")
    Dim wz As Integer = pts(1)  \'位置
    Dim tp  As Integer = pts(2) \'要显示的图片编号
For w As Integer = 1 To 4
For t As Integer = 1 To 10
    If e.Form.Controls("dro-" & w & t).Checked Then
        dr("图片位置" & w) = e.Form.Controls("dro-" & w & t).Text
        Exit For
    End If
Next
End If

--  作者:狐狸爸爸
--  发布时间:2016/10/24 7:23:00
--  
是Sender,不是Seneder,错误提示,已经告诉你了啊