VB中有没有这样的控件?

jwxian2008 2003-03-04 01:30:32

在使用windows优化大师注册信息清理时，一个个子键都会列在文本框中，点击其中一个子键时，这个子键就会变蓝色。而不会选到另外一个子键。难道容纳这些子键都是文本框吗?

...全文

65 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

SeeSunSet 2003-03-04

打赏
举报

'为 ColumnHeader 对象创建对象变量。
Dim clmX As ColumnHeader
'添加 ColumnHeaders。列宽度等于控件宽度
'除以 ColumnHeader 对象的数目。
Set clmX = ListView1.ColumnHeaders. _
Add(, , "Company", ListView1.Width / 3)
Set clmX = ListView1.ColumnHeaders. _
Add(, , "Address", ListView1.Width / 3)
Set clmX = ListView1.ColumnHeaders. _
Add(, , "Phone", ListView1.Width / 3)

ListView1.BorderStyle = ccFixedSingle '设置 BorderStyle 属性。
ListView1.View = lvwReport '设置 View 属性为报表型。
Command1.Caption = "&FindItem"
tmpstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\tmp\BIBLIO.MDB;Persist Security Info=False"

'用 FindItem 选项标注 OptionButton 控件。
Option1(0).Caption = "Text"
Option1(1).Caption = "SubItem"
Option1(2).Caption = "Tag"
' ListView1.FindItem = 0 '设置 ListView 控件的 FindItem 属性为文本。
' End With

'将数据库记录植入 ListView 控件。
'为数据访问对象创建对象变量。
Dim myDb As New ADODB.Connection
Dim myRs As New ADODB.Recordset
'设置数据库为 BIBLIO.MDB 数据库。
' Set myDb = DBEngine.Workspaces(0).OpenDatabase("BIBLIO.MDB")
myDb.Open tmpstr
'设置 recordset 为 Publishers 表。
Set myRs = myDb.Execute("select * from publishers")

'若当前记录不是最后一条记录，则添加 ListItem 对象。
'使用新对象的引用设置属性。
'设置 Text 属性为 Name 字段 (myRS!Name)。
'设置 SubItem(1) 为 Address 字段 (myRS!Address)。
'设置 SubItem(7) 为 Phone 字段 (myRS!Telephone)。

While Not myRs.EOF
Dim itmX As ListItem 'ListItem 变量。
Dim intCount As Integer '计数器变量。
'使用 Add 方法添加新的 ListItem 并为新引用设置对象。
'使用引用设置
'属性。
Set itmX = ListView1.ListItems.Add(, , CStr(myRs!Name))
intCount = intCount + 1 'Tag 属性计数器递增。
itmX.Tag = "ListItem " & intCount '用计数器值设置 Tag。

'若 Address 字段不为空，则设置 subitem 1 为此字段。
If Not IsNull(myRs!Address) Then
itmX.SubItems(1) = CStr(myRs!Address) 'Address 字段。
End If

'若 Phone 字段不为空，则设置 subitem 2 为此字段。
If Not IsNull(myRs!Telephone) Then
itmX.SubItems(2) = myRs!Telephone 'Phone 字段。
End If

myRs.MoveNext '移动到下一条记录。
Wend
End Sub

Private Sub Command2_Click()
'FindItem 方法。
'创建名为 intSelectedOption 的整数类型变量
'来存储选定按钮的索引。
'创建名为 strFindMe 的字符串变量。使用 InputBox
'把查找的字符串存储在变量中。使用
' FindItem 方法查找字符串。使用 Option1
'切换决定在何处查找的 FindItem 参数。

Dim intSelectedOption As Integer
Dim strFindMe As String
If Option1(0).Value = True Then
strFindMe = InputBox("Find in " & Option1(0).Caption)
intSelectedOption = lvwText
End If
If Option1(1).Value = True Then
strFindMe = InputBox("Find in " & Option1(1).Caption)
intSelectedOption = lvwSubItem
End If
If Option1(2).Value = True Then
strFindMe = InputBox("Find in " & Option1(2).Caption)
intSelectedOption = lvwTag

End If

'FindItem 方法返回找到的项目的引用，所以
'必须创建对象变量并将
'找到的项目设置给它。
Dim itmFound As ListItem 'FoundItem 变量。

Set itmFound = ListView1.FindItem(strFindMe, intSelectedOption, , lvwPartial)

'若未找到符合条件的 ListItem 则通知用户并退出。如果
'找到 ListItem，则使用 EnsureVisible 方法滚动控件，
'并选定 ListItem。
If itmFound Is Nothing Then '若没有匹配成功，则通知用户并退出。
MsgBox "No match found"
Exit Sub
Else
itmFound.EnsureVisible '滚动 ListView 以显示找到的 ListItem。
itmFound.Selected = True '选定ListItem。
'将焦点返回给控件以查看选择。
ListView1.SetFocus
End If

jwxian2008 2003-03-04