以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ListView  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92462)

--  作者:longyanlin
--  发布时间:2016/11/3 23:06:00
--  ListView

参考帮助22例做了个东东,为什么第一个名称不显示完全啊,变成了...

 


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

--  作者:有点蓝
--  发布时间:2016/11/3 23:25:00
--  
是不是设置成了ViewMode.Details模式,列宽不够就这样了
--  作者:longyanlin
--  发布时间:2016/11/3 23:52:00
--  

没有啊,跟后面的设置一样的,把他拉成多大都不行,不知道怎么了,是 不是下面的代码有问题啊:

e.Form.Text = "PMC主计划 *** " & User.Name &  " ***  " & NOW

Dim lvw1 As WinForm.ListView = e.Form.Controls("ListView1") \'订单信息
Dim lvw2 As WinForm.ListView = e.Form.Controls("ListView2") \'金工
Dim lvw3 As WinForm.ListView = e.Form.Controls("ListView3") \'焊接
Dim lvw4 As WinForm.ListView = e.Form.Controls("ListView4") \'喷塑
Dim lvw5 As WinForm.ListView = e.Form.Controls("ListView5") \'外协
Dim lvw6 As WinForm.ListView = e.Form.Controls("ListView6") \'塑胶
Dim lvw7 As WinForm.ListView = e.Form.Controls("ListView7") \'待产
Dim lvws() As Winform.ListView = {lvw1,lvw2,lvw3,lvw4,lvw5,lvw6,lvw7} \'看看我们是怎样批量设置某组控件属性的
For Each lvw As WinForm.ListView In lvws
    lvw.View = ViewMode.List
    lvw.AllowDrag = True
    lvw.AllowDrop = True
    lvw.Images.AddSmallImage("Man","右.GIF") \'添加代表男性的一对图标
    lvw.Images.AddSmallImage("Woman", "暂停中.png") \'添加代表女性的一对图标
Next

[此贴子已经被作者于2016/11/4 0:05:14编辑过]

--  作者:longyanlin
--  发布时间:2016/11/4 7:48:00
--  

帅哥美女老师们,哪位能帮我给上面个事办了啊,谢谢


--  作者:有点色
--  发布时间:2016/11/4 8:45:00
--  

 把这个list删除,重新弄一个list控件。

 

 不行的话,做个小例发上来测试。


--  作者:longyanlin
--  发布时间:2016/11/4 8:55:00
--  
原来是不能放在TabControl的第一页,就好了,不过我还是想放第一页,只能将就了
--  作者:有点蓝
--  发布时间:2016/11/4 9:33:00
--  
测试没有问题的,第几页都可以。上例子看看
--  作者:longyanlin
--  发布时间:2016/11/4 10:37:00
--  

试了好多次都是一样的,后面任何一页都可以,就是不能放第一页,搞了好久都传不上去,算了,将就吧,下次学会传了再说,嘻嘻,我是门外女。


--  作者:有点蓝
--  发布时间:2016/11/4 10:40:00
--  
上传文件:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

一次不行多试几次
[此贴子已经被作者于2016/11/4 10:40:32编辑过]

--  作者:有点色
--  发布时间:2016/11/4 10:59:00
--  
以下是引用longyanlin在2016/11/4 8:55:00的发言:
原来是不能放在TabControl的第一页,就好了,不过我还是想放第一页,只能将就了

 

不应该吧?如果确实这样,你放在第二页,在afterLoad之后,切换到第二页。

 

e.Form.Controls("TabControl1").SelectedIndex = 1