说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

关于TREEVIEW的CHECKED!!

编辑:说三道四文库 发布时间:2017-05-24 12:53
HTML文档下载 WORD文档下载 PDF文档下载
下面这段程序在TREEVIEW的图象列表里有IMAGELIST的时候CHECKED属性死活加不上,请问是为什么?我的机器配置是2000+SP1,VB6
Private Sub Form_Load()
For i = 1 To 4
TreeView1.Nodes.Add , , "r" & i, "asdfsadf"
TreeView1.Nodes("r" & i).Checked = True
Next
End Sub
先设置
TreeView1.Checkboxes = True
加一个Button,加入一下代码

Private Sub Command1_Click()
For i = 1 To 4
TreeView1.Nodes("r" & i).Checked = True
Next
End Sub

可以,估计可能和TreeView得可见性Visible有关系。因为Form_Load的时候,TreeView没有可见
Private Sub Command1_Click()
For i = 1 To 4
TreeView1.Nodes.Add , , "r" & i, "asdfsadf", 1
TreeView1.Nodes("r" & i).Checked = True
Next
End Sub

这个都到ButtonClick重处理,运行,点Button一切OK

如果非要自动添加完成,可以先显示窗体,加一个Timer作延时

一样可以实现
to snowrose,这样设置好像还是不行,没有及时回信,263破兰,老是服务器繁忙,谢谢你的来信。我当时想要那个MC Snap什么技术的代码,就是你楼下那个,呵呵

你好
如果是说在FORMLOAD的时候和TREEVIEW的VISIBLE有关,为什么我去掉TREEVIEW中图象列表的IMAGELIST就可以了呢?
这个帖子虽然答案不是很满意,但还是结掉了,如果有人知道能告诉我的话,我会另开帖子送分,谢谢
这是VB的Bug,解决方法:
Private Declare Function GetWindowLong Lib "user32" Alias _
       "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias _
       "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
       ByVal dwNewLong As Long) As Long
      
Private Sub Form_Load()
    Const TVS_CHECKBOXES = &H100
    Const GWL_STYLE = (-16)

    Dim CurStyle As Long
    Dim Result As Long

    
    Me.Show
    

    TreeView1.LabelEdit = tvwManual
    TreeView1.Style = tvwTreelinesText   ' Style 4.
    TreeView1.BorderStyle = vbFixedSingle
    CurStyle = GetWindowLong(TreeView1.hwnd, GWL_STYLE)
    Result = SetWindowLong(TreeView1.hwnd, GWL_STYLE, _
            CurStyle Or TVS_CHECKBOXES)
    For i = 1 To 4
        Set nodX = TreeView1.Nodes.Add(, , "r" & i, "asdfsadf")
        nodX.EnsureVisible
        nodX.Checked = True
    Next
    nodX.EnsureVisible
End Sub
详情参见:http://support.microsoft.com/support/kb/articles/Q192/1/88.ASP
TechnoFantasy(www.applevb.com)你好

TreeView1.Style = tvwTreelinesText  ' Style 4
改为
TreeView1.Style = 7 即包含图象的方式依旧不行
不过还是谢谢
阿,我没有注意到这个问题,估计是VB的Bug,你到msdn.microsoft.com 上以TreeView1.Checked做关键字找一下,应该会有答案的。
32场!2013年360HTML5校园行首站告捷 移动周报:不做内容,只钻技术的快播 一周消息树:中国开源发展缓慢的“病因” 百度应用引擎BAE正式开放 新增支持Node.js CloudVelocity,下一个VMware? Buffer创始人谈开发:先验证,后编程! 谷歌可穿戴式产品再度来袭:会说话的鞋子 未来Chrome OS或取得Android般成功 云落地@北京,北京市北斗公共平台或开放API? GitHub再遭攻击 主要服务中断约一小时 移动开发者将有望拥有.app域名使用权 微信将推“游戏中心”?移动互联网入口圈地加剧 美国航空公司首次开放API 并举办“黑客马拉松”编程大赛 谷歌数据中心设计的10条“黄金法则” GitHub时代:为什么我们都在开源 VMware发布Horizon Suite 三款应用打包折扣低 TOP30+应用排行榜:二月份国内外综合榜单 开源是否意味着不需要负任何责任? 微软年度科技展 酷炫技术知多少 图解Hadoop生态系统 HTML5并不给力 微软IE10又默认启用Flash Oracle出新提案:Java正逼近iOS? TIOBE 2013年3月编程语言排行榜:厚积薄发 Ruby反超Perl 清华大学开源镜像站将被关闭 发表公开信 前Google资深研究员赵勇回国创业 专注计算机视觉/模式识别 开发者福音,微软开源Kinect源代码 日本很积极:富士通和NEC确认将推Tizen设备 10大支持移动“触摸操作”的JavaScript框架推荐 数据科学家的争夺及美分析学专业研究生院的建立 从开放走向封闭 Netflix宣布停止发布API key 《植物大战僵尸》神秘续作:可能是一款横版游戏 关于类库的问题!!!!!!! 非常简单的问题 报表打印中,有没有办法不用QuickRep1.Prepare,也能求出报表的总页数?高分求助! 最后80分啦!!!! 请高手指点,如何让客户端执行ActiveX控件。 请问如何用JBuilder做一个Hello World!程序? java中有没有函数可以直接得到日期,时间 如何防止COUNT取到空值? 转贴:中国人上呀 怎样用一个位图来画LISTCTROL的背景?有没有例子呀? 关于DATAGRID的取值 Delphi程序的体积太大了!请教如何减肥?(欢迎讨论) socket ? 初学Delphi的感受! 我的那个帐号不灌水,想增加点小绿帽帽,到了几个论坛转了一圈,没有什么我会的,苦闷。 用取下电池的方法对CMOS进行放电,需要多少时间才起作用? 我是oracle的新手,请帮帮我! 谁用过MYSQL C API 在BCB下写过程序?我实在做不出来了,如果那位大狭做过的话。能否告诉小弟解决的办法。。。 一个关于RDS的问题!!!各位帮帮忙,来看看了! 请高手帮忙:如何在对话框中实现弹出另一个最上层的透明窗体? 在JSP中可以控制ie上的返回按钮吗?(这个问题好难) 如何在学习C++后学习windows编程? 对于学习java不到一个月时间的员工,你会让他做什么项目呢? 关于对话框中弹出对话框的问题 TreeView的问题。 有熟悉注册表的进来看看,或者用过whdhtml作过帮助文档的进来看看!急用!!! 新手实验送分 怎么为DBGrid的特定行设置不同的颜色 急问delphi打印问题? 几个小问题 关于韩文显示的问题。 一个头疼的问题,发错地方了,大家来帮忙看看啊。 求救,CMPP中的Connect消息,用于计算MD5的AuthenticatorSource的结构是什么样的啊。 javascript惹的祸?我的网页上的字不能选择。所以也不能复制。   如何对RichEdit的文本实现向前查找? 请教:有关模板类的一个问题 怎么破解这个字符串。。。 监控用户在线情况 Delphi中消息队列的建立,消息的创建、发送和接收??? 看谁是真正的高手。对于usercontrol?怎样把透明usercontrol上的shape拼出的图形传给外面的image引用。 请问用Jscript如何连接字符串? 紧急求救:关于如何用C#使用COM组件 一、■--无连接的纪录集合--■ 技术参考(我们不是为了编程而编程,编程是一种享受) Delphi中消息队列的建立,消息的创建和发送 各位老大,下个星期交活,麻烦大家看看我下面的问题!!!就是那个帮助文档的! 如何写对其他服务器上面的EJB的资源引用? 不知道哪儿的域名注册和空间租用比较便宜??? 发布的问题 见很多网站上都将浏览器的右边的滚动条变了颜色,是怎样做出来的? 我用Delphi在本地建立了一个专用消息队列,但不知道该如何创建一个消息并将它发送到 结合课文内容,展开想象续写《穷人》 歇后语“蚊子唱小曲”和“竹竿打月亮”的下一句是什么? 羚羊木雕结尾续写 请问一下大家描写夏天的现代诗有什么啊?感受大伙 晏子使吴的吴王想用什么事试探晏子 羚羊木雕续写 帮忙看下描写夏天的现代诗有什么啊?感受大伙 高缭在晏子属下做官,晏子把他辞退了.随从的官员们向晏子提出劝阻,说:“高缭已跟你做了三年的工作,一直没有给他一个贵族的封号,而且还要辞退他,这在道义上讲得过去吗?”晏子说,“我(晏 羚羊木雕续写怎么写? 一至六年级课外古诗(苏教版) 羚羊木雕联系文章内容,说说结尾画线句的含义和作用 《羚羊木雕》续写结尾,250字~今天就要~ 紧急!请问一个门字里面有个三的那个字怎么读? 一个门字,里面加个或者的或字,念什么字啊? 续写《羚羊木雕》 "门"里面一个"外",这个字怎么读啊? 一个门字里面加个敢字念什么 史铁生先生为我们留下怎样的智慧? "门”字里有个”或”字,这个字怎么读? 一个门字里面有个或怎么读呀 史铁生简介 半路上杀出个程咬金是什么意思 我最高兴的一件事100~200字的作文 史铁生先生还健在吗?请问. 为什么说"半路上杀出个程咬金?" 一件让我高兴的事作文 心情此起彼伏什么意思 半路上杀出个程咬金 突如其来:措手不及 “门”字里面三横这个字咋念 海市蜃楼 (从前……)七年级语文作业本 阅读答案 有关猫的文章 让我快乐的一件事 海市蜃楼 苏教版 有关猫的作文是棕色的猫 门里面一个真,这个字念啥啊?门字里面一个真字,登记东西要用,但我打不出来.要是能用五笔打出来给我也可以. 刘胡兰的英雄故事要清楚 有关猫的文章~很急!大家帮帮忙!~很急! 车字旁一个乐字!这个字怎么念? 文学概论中情感把握的定义 关于猫的作文 作文开头用反问句有什么好处 为什么说文学既是情感的又是认识的 有没有关于猫的作文?200字的300的也好,但字数别太多,别随便在百度上找,都看过了,不行. 文章最后一段的反问句有什么作用?七月间,新疆的戈壁滩炎暑逼人,这时最理想的是骑马上天山.进入天山,戈壁滩上的炎暑就被远远地撇在后边,迎面送来的雪山的寒气,会使你感到像秋天似的凉 《家乡情感》这部小说以什么为线索,其作用是什么? 看移动的物体时,瞳孔是如何变化的 小学四年级文明之星推荐表个人事迹写什么? 相声《一等于几》主要内容 怎么用ps移动瞳孔的位置ps白痴 求详解- -. 描写树的古诗或现代诗题目是“树”要有作者,内容不要太长,不可以是自己写的,题目只能是“树”其他的比如说“杨树”、“柳树”的,全部PUSE 一等于几讲了一件什么事 四年级读书(推荐书)怎么写? 一个门字里面是一个文字 那这字读什么、? 情感和感情的区别到底在哪里? 感情挫折,我和女友好了两年多,起初我不在乎她,她很关心我,就这样过了两年,前几个月她到外地上学,每天都联系我,导致我很烦!我半年前抛弃过她,和另外女生好了,到后来想想还是她对我要好 一个门里面一个文字读什么? 13打电话讲了一件什么事,故事里那个人说话有什么特点;再说说这个相声对自有什么启 感情经不起挫折! 一个门字匡,里面一个文字读啥哦 "情感","心情"和"感情"的区别是什么?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘