我想用VB6做一个框架,谁能告诉我方法,提点建议也给分 那个树型控件有单击事件(click),在其中添加代码:根据读取到树型控件的选中数据来处理右边变化. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1。界面:你可以在窗体上放上你需要的控件,然后动态调整(如果需要动态),一般在Form_Resize里实现。2。功能:各个控件都有事件(比如ObjectName_Click),在这些事件里实现你要的功能就可以了。建议你找一本带例子的VB入门书就可以了。 dbtree有事件的Private Sub dbtree_NodeClick(ByVal node As ComctlLib.node)If node.Tag = "item" Thenaddscomd.Enabled = True 'Else addscomd.Enabled = Falseaddcomd.Enabled = Falsedbcurritem = Val(node.Key)getnode Val(node.Key)mb = dblist.ListItems.countprostatus.Panels(1).Text = node.Textprostatus.Panels(2).Text = mb & "Ìâ"prostatus.Panels(3).Text = ""prostatus.Panels(4).Text = ""Else: addscomd.Enabled = FalseEnd IfIf node.Tag = "type" Thenaddcomd.Enabled = Trueprostatus.Panels(1).Text = node.Textprostatus.Panels(2).Text = node.Children & "½Ú"prostatus.Panels(3).Text = ""prostatus.Panels(4).Text = ""End IfIf node.Tag = "manage" Then addcomd.Enabled = TrueEnd Sub 我看用select case 比较好 vb同sql的问题 怎样才能让combobox只能选择,不能输入? ATL编写的控件方法中包含VARIANT,在VB中应如何调用 关于给数组负值的问题!急啊!! 如何使托动窗体任何位置都能移动窗体 Vb API发送函数错误 敬请高手指点,感谢不尽! VB 窗体和Timer控件都有BUG!!! 我发现一些软件使用的数据文件是.db为后缀名,不知用什么软件才可以打开 求助关于winsock传输文件问!! 怎样判断一个数是素数 实时错误分析,高手请进,马上结帖!再送100分
2。功能:各个控件都有事件(比如ObjectName_Click),在这些事件里实现你要的功能就可以了。建议你找一本带例子的VB入门书就可以了。
Private Sub dbtree_NodeClick(ByVal node As ComctlLib.node)If node.Tag = "item" Then
addscomd.Enabled = True 'Else addscomd.Enabled = False
addcomd.Enabled = Falsedbcurritem = Val(node.Key)
getnode Val(node.Key)
mb = dblist.ListItems.count
prostatus.Panels(1).Text = node.Text
prostatus.Panels(2).Text = mb & "Ìâ"
prostatus.Panels(3).Text = ""
prostatus.Panels(4).Text = ""
Else: addscomd.Enabled = False
End IfIf node.Tag = "type" Then
addcomd.Enabled = True
prostatus.Panels(1).Text = node.Text
prostatus.Panels(2).Text = node.Children & "½Ú"
prostatus.Panels(3).Text = ""
prostatus.Panels(4).Text = ""
End IfIf node.Tag = "manage" Then addcomd.Enabled = True
End Sub