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

关于TREEVIEW的CHECKED!!

编辑:说三道四文库 发布时间:2017-10-17 08:20
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做关键字找一下,应该会有答案的。
使用VB获得一页的HTML代码 使用VB收发电子邮件 VB使用超链接和发送Email VB使用浏览器的文件复制对话框 输入/输出篇 -VB资料 通过WnetEnumResource函数获得网络资源 -VB资料 通往 Internet 的捷径-VB资料 显示计算机的名称 -VB资料 VB用 MAPI 控件实现发送邮件 VB用 WinSock 控件下载文件 VB用 Winsock 实现聊天的程序 VB用Internet Transfer编写FTP程序 VB用Sockets发送电子邮件 用VB 创建自己的通信程序 用VB5.0开发通信软件的技巧 用VB5开发IE 用VB编写网络寻呼 用VB编写小型的网络系统 用VB创建自己的通信程序 用VB构建Internet的应用 用VB开发标准CGI程序 用VB实现客户——服务器(TCP/IP)编程实例 用VB实现聊天讨论室和点对点会话 用VB写一个定时PING某IP的程序 用VB制作浏览器 用Visual Basic 5.0设计E-mail程序(MAPI) 用Visual Basic6.0编写客户服务器程序 用Visual Basic创建FTP组件 用Visual Basic开发数据库浏览器 用Visual Basic轻松地设计Browser及Ftp程序 VB用Winsock控件发信Email 不知道为什么 数据窗口的数据怎么修改?(急,在线等) 这个图片怎么找不到?? 我开发了一个计算机安全产品,谁能帮我申请一下计算机安全产品销售许可证?? 如果两个条件一个都不满足,是用and还是or? 屏幕突然出现马赛克,然后死机了,为什么 vb访问数据(sql server)时出现数据只读 关于sql语言左连接的问题,help 请问java里边一个截取String的问题 没有相对应的菜单信息,这是怎么回事呀? XML文件里面只能有英文? 为何我删除一万条纪录也会提示数据库事务日志已满? 有关Table控件动态添加row的问题!!!! 我开发了一个计算机安全产品,谁能帮我申请一下计算机安全产品销售许可证?? 为什么mysocket.Connect()函数返回0仍然建立了连接? 我错过了看 <我从校园出来的这几年>,现在找不到了.请各位指点 EXCEL中表达式求值? -->>50分一个小问题:如何改变一个只读属性文件夹为可写属性文件夹? 应用程序运行出错的问题:字体变大,网页变形,残不忍读! 帮朋友做的网站自动生成系统,大家提提意见 vb访问数据(sql server)时出现数据只读 能够登陆但是使用出错的问题!!!急!!!!!! 请问有一VC执行程序 但是老出错,有什么办法可以得到原代码 或者是查看内部运行原理然后修改某接口吗?多谢 如何在服务器端获取手机号码! 如何用java把日期插入数据库,要变成字符吗 在线等待!!!!!!!!!!!!!!!!!急!!!!! 高分请教高手,如何让oracle 8i自动执行一段已经写好的sql??? modem编程的问题? TMD,还真是热闹啊,没有我的份怎么行,哈哈!!!!!! 请问各位你们是多大才想到好好学习的?也可以说是学习上开窍的,我儿子今年10岁,只想玩,如何让他意识到学习才是他的主业,玩是副业? 如果Session为过期或者为空,强制返回登录页,应该怎么写?在那里写? 请各位大侠赐教,急用!!!数据库查询问题 两个可能常用的技巧,要你解决!:) 问的问题没人回答,可否删除帖子? 再PB环境中,数据窗口打不开,急!!!! 公司正在成立===问题大家解决 请问有三个Radio按钮,名字都叫radioTest,值不同,我想在提交表单之前得到被选中的Radio的值,如何实现 应用程序运行出错的问题:字体变大,网页变形,残不忍读! 如何关闭excel 请大家谈谈J2ME和J2EE的发展 主键重复,在存储过程中怎么抓不住 负载很重的FreeBSD服务器,运行Apache和cgi程序,大家有什么好主意么? 关于samba,求助 问题:有没有谁想过通过读取(伪)汇编码把相应的C代码恢复出来? jceweb.ear ,JCE_Test_Web.war 两个存储过程问题,一个是除0溢出,一个是删除问题 触发器设置问题~急呀! 结合 jsp-->Excel ? 请问 高手请进,急,在线等待! 网站数据文件(.mdb)在FAT32系统正常,在NTFS系统打开后只读 如何快速求平面上的两条线段是否相交? 下列物质属于纯净物的是()A纯净水B清新的空气C24K黄金D氦氖激光气 各类名言 造影剂化学成分是什么 有道典型的工程问题,抽考考到了修一条公路 甲队修2天后,乙队又修了3天,共修了全程的2/5,剩下的甲和乙共修4天,那么甲单独修要多少天 求一切名言要一切名言,要最短的越多越好,要短的10个字的左右 从物理角度来说造影剂有哪些的特征? 请问不锈钢罐的容量怎么算?1立方水等于多少斤水/谢谢各位了 在百度上搜“动手制作可以吃的植物细胞模型” 联系的客观性原理.急用! 1 亩鱼塘能养殖多少尾鱼苗 最大密度平均深度大概2M左右谢谢了谢谢了, zrbv—450/750—3*10PC25 打雷的时候为什么会跳闸 as the saying goes 与as we know有何不同 荣威750是什么意思? 武汉哪里有20%人血白蛋白急,医院药房都可以人命关天的事,不要只是一个复制粘贴!不然我宁愿弃分. 已知函数f(x)=1/3x立方+bx平方+cx+bc,如果函数f(x)在x=1处有极值-3/4,求b、c的值 BV-450/750-(4*4)什么意思关于导线的 咩话是啥? 有道神题,请大神们解答一下,谢谢了大神们. --currently it is more and more difficult to find a good job in the fiece job-hunting market.-___.but highil-qualified graduates are always in great demand.A.No kidding.B.That sounds reasonable.为什么选A? 人血白蛋白保存我朋友在山东买的带到黑龙江去了 用矿泉水冻的冰块保存的,一直的温度都是零下,病人注射没什么作用 是不是冻了后就不能用了 北京奥运会吉祥物分别是什么意思? 励志名言全部一定是全部,知道的少了也没事也可以写 古人说“一个人时也要洁身自爱”的词语是“独×××”? 塑壳断路器的作用和用途以及原理大神们帮帮忙塑壳断路器的作用和用途以及原理, 英语翻译bios的具体内容给翻译一下. 打雷跳闸怎么回事? 怎么消除汽车零件的剩磁 the policy being carried out in job enables women to enjoy the equal rights.为什么是being carried 而不是carried 规律的客观性可以划归为高中哲学内容的哪个版块?在做题中如何区分? 电磁阀铁性如何消除剩磁?电磁阀通电后,动铁芯(材料:Cr13Al4N6)在线圈通电后受到磁化,断电后有小量的磁性(剩磁)保留在动铁芯上,这样对电磁阀的性能有一定的影响,请问如何消除这些 a doctor is a job he enjoys 选什么?A To being B Be C Being D Going to 问古人语录的作者1.风声、雨声、读书声,声声入耳;家事、国事、天下事,事事关心.2.天下初定,百姓财力俱困,比犹初飞之鸟,不可拔其羽;新植之木,不可摇其根.要在安养生息之.3.城存与存,城 秦始皇统一六国是历史必然吗? 急求各类名言警句!我们平时所学所看到的名言警句都是很混乱的,没有进行分类,我现在急需要分好类的名言警句.比如说可以分成读书类(读书破万卷,下笔如有神)、珍惜时间类(光阴似箭, 求古人对”错过”的态度的语句 为什么小米手机那么难买啊? 各类名言警句一类一句,作者朝代,种类繁多 古人骂人的经典语句很少了解古人是怎么骂人,所以望大家一起研究下. 小米手机为什么那么难买 各类名言 为什么打雷有的会跳闸有的不会 为什么买个小米2S还要抢购呢?难不成小米手机就那么好吗? 各种名言警句要说出这个名言警句包含着什么人生道理,如贵在坚持、讲究诚实. 不打雷也跳闸,这是为什么? 氦氖激光,二氧化碳激光,点阵激光有什么区别?_湿疹 小米手机难买吗?大家帮帮忙. 英语翻译who knows what happend you often told me i hurt you so much you can't believe me .as you can't change~i will leave .but i really want to know ,why you can't see and feeling my love am i a animal in your heart?anything all you first~i choo 为什么负电荷受力方向与与电场强度方向相同? 小米手机为什么要抢着买而不是正常买?怎么回事?老早就想问这问题了老听人说抢小米,为什么不多生产小米? 急求所有名人名言如果有那就非常感谢了 如何判断电场强度的方向?是位于改点的正电荷受力的方向. 茶蛋是什么意思 匀变速直线运动的规律的应用汽车以10m/s的速度在平直公路上行驶,突然发现前方sm处有一辆自行车以4m/s的速度作同方向的匀速直线运动,若汽车立即关闭油门作加速度为-6m/s2的减速运动,汽车 挖一个长40m,宽25m,均深2m的游泳池……1.要挖出多少立方米的图土?2.沿着游泳池的周围走一圈,至少要多少m? 我想知道这是什么茶🍵 加强CT的造影剂副作用因为妈妈的腰部有个血管瘤,所以医生建议做一个加强CT,昨天做的时候注射了静脉的造影剂,今天左手有点肿,而且手有点疼,请问这正常么? 一个养鱼池长25m宽15m深2m底部铺有10cm厚的沙子1最多能储水多少立方米2如果养鱼池注水后,水面距上沿有2dm,注入的水的体积是多少? 现在有个子曰茶,这个是什么意思啊? 将18g不纯的氯化铜样品(杂质不溶于水,也不参加反应)跟一定量的氢氧化钠恰好完全反应可得到溶质质量分数为20%的溶液58.5g.求样品中氯化铜的质量分数;加入氢氧化钠溶液的质量分数. 刚果(金)反叛武装称愿与政府重启和谈美研发新型间谍机 可一小时内到达全球日本调查发现:口腔护理有利癌症治疗尼康将推全幅复古单反 或于本周发布是时候把美式“监听帝国”关进“笼子”苏格兰首席部长访华 推动双方经贸合作日刊:四大派系博弈安倍政权联合国促国际合作防陨石撞地球日本推行“安倍经济学”一年挑战犹存何亚非:美国亚太再平衡战略的经济抓手香港保安局局长:马尼拉人质事件处理步官员“一票否决”制被指滥用 想装什么养老金双轨制改革几无进展 并轨试点已人民日报:年底需防止各地为GDP\"教育经费管理存在多项问题 回应质疑制北京雾霾刚去 寒衣节不少市民当街焚烧浙江部分行政区划调整 绍兴县上虞市撤菲律宾副总统:人质事件总统不可代表整曝汪峰或哈林明年退出好声音 女导师不停摆还卖票3万人受困 台高铁再“出包民进党台北市长初选 五月天主唱阿信被城市学年会在杭召开初秋的信息责编:苗春邮箱:wenhuawanx越王剑(中国传统故事)华人爱发明土语版《三体》在伊斯坦布尔签售记忆中的家乡“创客盛会”创意多亚洲艺术节在泉州开幕华侨华人摄影展在京开幕(侨讯)广东汉剧电影《白门柳》开机责编:梁益琴邮箱:hwbjjb@16中华苏维埃代表大会制度史陈列馆将开馆杭州电子科技大学面向海内外公开招聘学网友走进八一飞行表演队政协常委会会议闭幕寻全高速公路全线通车课本剧形式带来的新思考我国发现两个中药植物新属中国新闻奖,颁奖!责编:陈劲松汪莹邮箱:dieryw@
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘