以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]选中刚添加的列表项  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117135)

--  作者:天一生水
--  发布时间:2018/4/7 14:27:00
--  [求助]选中刚添加的列表项
如图,通过拖拽将图片放入左边的列表框,点击列表框的值,右边图片控件显示相应的图片。
当列表框添加值之后,怎样自动选中刚添加的项(就是不用再点击就变成选中状态)
谢谢!

图片点击可在新窗口打开查看此主题相关图片如下:image 4.jpg
图片点击可在新窗口打开查看


1、选中列表项,代码不知道对不对,也不知道往哪里放?
Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
For i As Integer = 0 To lst.Items.Count - 1
    lst.SelectedIndex = lst.Items.Count -1       ’最后一项
Next

2、PictureBox显示图片
Dim pbx As WinForm.PictureBox = e.Form.Controls("照片")
pbx.ImageFile = e.form.controls("ListBox1").Selectedvalue

--  作者:有点蓝
--  发布时间:2018/4/7 14:50:00
--  
不需要循环
Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
lst.SelectedIndex = lst.Items.Count -1

SelectedIndexChanged事件
Dim pbx As WinForm.PictureBox = e.Form.Controls("照片")
pbx.ImageFile = e.form.controls("ListBox1").Selectedvalue