欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → listview 控件没有反应

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有4355人关注过本帖树形打印复制链接

主题：listview 控件没有反应
帅哥哟，离线，有人找我吗？
guotx2010
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：蜘蛛侠 帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33 		  发帖心情 Post By：2014/3/11 19:33:39 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:listviw.rar

这是我做的例子使用listview的范例，请参考，如果需要更多代码，我这有一个access下的范例，可以给你借鉴。
 回到顶部
帅哥哟，离线，有人找我吗？
guotx2010
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：蜘蛛侠 帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33 		  发帖心情 Post By：2014/3/13 8:09:54 [显示全部帖子]

你改改UserForm1_listview1.View = 3  这里的3是listview的显示风格，修改看看，我这里有一份access的例子，发给你参考吧。论坛发不了文件，你加我qq或微信，我发给你
 回到顶部
帅哥哟，离线，有人找我吗？
guotx2010
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：蜘蛛侠 帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33 		  发帖心情 Post By：2014/3/18 9:27:50 [显示全部帖子]

Sub UserForm1_Load()
Dim objDummy
Dim ocxListV
Dim objListItem
   
UserForm1_listview1.ColumnHeaders.Clear
Set objDummy = UserForm1_listview1.ColumnHeaders.Add(, , "客户代码", UserForm1_listview1.Width / 6)
Set objDummy = UserForm1_listview1.ColumnHeaders.Add(, , "客户姓名", UserForm1_listview1.Width / 5)
  Set objDummy = UserForm1_listview1.ColumnHeaders.Add(, , "客户性别", UserForm1_listview1.Width / 4)
'    set UserForm1_listview1.Icons = UserForm1_imagelist1 '.Object
'    Set objListItem = UserForm1_listview1.listitems.Add(, , "AAA", 1)
' objListItem.Icon = 1
' objListItem.SmallIcon = 1
' objListItem.SubItems(1) = "0001"
' objListItem.SubItems(2) = "Name"
    UserForm1_listview1.View = 3  
End Sub

这是代码，注释部分是设置图标的，可是会引起金字塔崩溃，估计这个控件在金字塔下有点问题。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.21680 秒, 7 次数据查询