'把以下内容复制到记事本,保存为Form1.frmVERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3030
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3030
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin MSComctlLib.TreeView TreeView1
Height = 2535
Left = 120
TabIndex = 0
Top = 240
Width = 4335
_ExtentX = 7646
_ExtentY = 4471
_Version = 393217
Style = 7
Appearance = 1
End
Begin VB.Menu mnuPopup
Caption = "Popup"
Visible = 0 'False
Begin VB.Menu mnuOpen
Caption = "Open"
End
Begin VB.Menu mnuDelete
Caption = "Delete"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim i As Long
TreeView1.Nodes.Add , , "Root", "Root"
For i = 1 To 100
TreeView1.Nodes.Add "Root", tvwChild, , "Node " & i
Next i
TreeView1.Nodes("Root").Expanded = True
End SubPrivate Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim NodeX As Node
If Button = 2 Then
Set NodeX = TreeView1.HitTest(x, y)
If Not NodeX Is Nothing Then
TreeView1.SelectedItem.Selected = False
NodeX.BackColor = vbHighlight
NodeX.ForeColor = vbHighlightText
Form1.PopupMenu mnuPopup
TreeView1.SelectedItem.Selected = True
NodeX.BackColor = vbWindowBackground
NodeX.ForeColor = vbWindowText
End If
End If
End Sub
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3030
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3030
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin MSComctlLib.TreeView TreeView1
Height = 2535
Left = 120
TabIndex = 0
Top = 240
Width = 4335
_ExtentX = 7646
_ExtentY = 4471
_Version = 393217
Style = 7
Appearance = 1
End
Begin VB.Menu mnuPopup
Caption = "Popup"
Visible = 0 'False
Begin VB.Menu mnuOpen
Caption = "Open"
End
Begin VB.Menu mnuDelete
Caption = "Delete"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim i As Long
TreeView1.Nodes.Add , , "Root", "Root"
For i = 1 To 100
TreeView1.Nodes.Add "Root", tvwChild, , "Node " & i
Next i
TreeView1.Nodes("Root").Expanded = True
End SubPrivate Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim NodeX As Node
If Button = 2 Then
Set NodeX = TreeView1.HitTest(x, y)
If Not NodeX Is Nothing Then
TreeView1.SelectedItem.Selected = False
NodeX.BackColor = vbHighlight
NodeX.ForeColor = vbHighlightText
Form1.PopupMenu mnuPopup
TreeView1.SelectedItem.Selected = True
NodeX.BackColor = vbWindowBackground
NodeX.ForeColor = vbWindowText
End If
End If
End Sub
解决方案 »
- VB做的学生学籍管理系统打开失败
- 怎么注册可以在vb中引用的标准的dll,
- 满分求助?!走过可以路过,就是千万别错过。
- 请问有三个SSTab控件 在其中一个上边放上textbox 在另外两个中也显示 怎样解决这个问题?
- 高分求助!!!!!控件或代码
- 关于二进制文件
- 大家谈谈VB有什么优点吧,它的强项是什么?比Java哪一个更有优势?
- 如何用VB打包控件,以便ASP自动安装?
- 如何通过Vb代码调用sql写的用户自定义函数?
- 如何用公用对话框打开多个文件?
- 一个从没见过的怪问题:一样的换墙纸代码,分开两个工程,一个能换一个不能换?!300分只求一个为什么!
- 我想问一下我VB目录下的controls.vpb(工程文件)文件没有了怎么办?
你的方法很有意思,不过重命名节点时怎么办。这种方法不行。
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3030
ClientLeft = 165
ClientTop = 735
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3030
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin MSComctlLib.TreeView TreeView1
Height = 2535
Left = 120
TabIndex = 0
Top = 240
Width = 4335
_ExtentX = 7646
_ExtentY = 4471
_Version = 393217
Style = 7
Appearance = 1
End
Begin VB.Menu mnuPopup
Caption = "Popup"
Begin VB.Menu mnuRename
Caption = "Rename"
End
Begin VB.Menu mnuDelete
Caption = "Delete"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private SelectedNode As Node
Private ClickedNode As Node
Private Sub Form_Load()
Dim i As Long
TreeView1.LabelEdit = tvwManual
TreeView1.Nodes.Add , , "Root", "Root"
For i = 1 To 100
TreeView1.Nodes.Add "Root", tvwChild, , "Node " & i
Next i
TreeView1.Nodes("Root").Expanded = True
End SubPrivate Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
Set ClickedNode = TreeView1.HitTest(x, y)
If Not ClickedNode Is Nothing Then
Set SelectedNode = TreeView1.SelectedItem
TreeView1.SelectedItem.Selected = False
ClickedNode.BackColor = vbHighlight
ClickedNode.ForeColor = vbHighlightText
Form1.PopupMenu mnuPopup
TreeView1.SelectedItem.Selected = True
ClickedNode.BackColor = vbWindowBackground
ClickedNode.ForeColor = vbWindowText
End If
End If
End SubPrivate Sub mnuRename_Click()
Set TreeView1.SelectedItem = ClickedNode
TreeView1.StartLabelEdit
End SubPrivate Sub TreeView1_BeforeLabelEdit(Cancel As Integer)
Set TreeView1.SelectedItem = SelectedNode
End Sub