VB 中LISTVIEW修改列头

发布网友发布时间：2023-09-27 17:27

共1个回答

热心网友时间：2023-10-10 05:46

步骤如下。
添加部件Microsoft Windows Common Controls 6.0.
建立Listview1.
打开菜单编辑器，建立父层菜单，标题任意，名称为mnu。把“可见”去掉。
建立mnu的若干个子菜单，以3个为例说明。标题分别为你想要的文字内容（工程、角度、面等等），名称分别为mnu1，mnu2，mnu3.
下面就可以粘贴代码运行调试了。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit

Dim CH As Integer

Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , "A", "A"
ListView1.ColumnHeaders.Add , "B", "B"
ListView1.ColumnHeaders.Add , "C", "C"
End Sub

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
CH = ColumnHeader.Index
PopupMenu mnu
End Sub

Private Sub mnu1_Click()
ListView1.ColumnHeaders(CH).Text = mnu1.Caption
End Sub

Private Sub mnu2_Click()
ListView1.ColumnHeaders(CH).Text = mnu2.Caption
End Sub

Private Sub mnu3_Click()
ListView1.ColumnHeaders(CH).Text = mnu3.Caption
End Sub