。。在处理节点问题上,老蹦出这个问题。。烦晕了。 。虚心请教

lin_style 2006-05-06 09:22:03
Dim m_tempnode As TreeNode
Dim m_node As New TreeNode
If test() Then
m_tempnode = New TreeNode(node_text.Text, index, sindex)
m_node = TreeView1.SelectedNode.Parent
If m_node Is Nothing Then
TreeView1.Nodes.Add(m_tempnode)
node_text.Text = ""
index_text.Text = ""
sindex_text.Text = ""
Return
End If
Try
TreeView1.SelectedNode.Parent.Nodes.Add(m_tempnode)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OKOnly, "树视图")
Return
End Try
node_text.Text = ""
index_text.Text = ""
sindex_text.Text = ""
Else
Return
End If
End Sub

执行时,到m_node = TreeView1.SelectedNode.Parent 这句上提示 未将对象引用设置到对象的实例

搞不懂了~~
...全文
72 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lin_style 2006-05-06
  • 打赏
  • 举报
回复
懂了。 。

一开始初始化没设置parent。。

不好意思
lin_style 2006-05-06
  • 打赏
  • 举报
回复
TreeView1.SelectedNode.Parent

这个有问题
我想直接DEBUG出来,也是提示那个错误
新鲜鱼排 2006-05-06
  • 打赏
  • 举报
回复
TreeView1.SelectedNode
这个参数是不是nothing

16,550

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧