Multipage1:多重頁面
Mutipage1.value=0 =>第一頁面
Mutipage1.value=1 =>第二頁面
tabstrip1:索引標籤
1.Tabstrip1.value=0 ->
Tabstrip1.value=1 ->
2.Tabstrip1.tab(0).caption=string
Tabstrip1.tab(1).caption=string
Private Sub TabStrip1_Change()
Dim choose As Integer
choose = TabStrip1.SelectedItem.Index '標籤索引值
If choose = 0 Then ' 利用索引值控制多重頁面
MultiPage1.Value = 0
Else
MultiPage1.Value = 1
End If
End Sub
Private Sub UserForm_Initialize()
TabStrip1.Tabs(0).Caption = "輸入資料"
TabStrip1.Tabs(0).Caption = "查詢資料"
TabStrip1.Value = 0 '停在第一頁面
End Sub
=================================
ListView要新增工具控制項
Private Sub UserForm_Initialize()
With ListView1
.View = lvwReport
.LabelEdit = lvwManual
.HideSelection = False
.AllowColumnReorder = True
.FullRowSelect = True
.Gridlines = True
.ColumnHeaders.Add , "編號", "編號"
.ColumnHeaders.Add , "姓名", "姓名"
.ColumnHeaders.Add , "生日", "生日"
.ColumnHeaders.Add , "血型", "血型"
.ColumnHeaders.Add , "學歷", "學歷"
End With
Dim i As Integer
Dim id As Variant
Dim name As Variant
Dim birth As Variant
Dim blood As Variant
Dim school As Variant
id = Array("p1001", "p1002")
name = Array("陳曉明", "李曉東")
birth = Array("65/02/03", "68/12/31")
blood = Array("A", "O")
school = Array("大學", "研究所")
For i = 0 To UBound(id)
With ListView1.ListItems.Add
.Text = id(i)
.SubItems(1) = name(i)
.SubItems(2) = birth(i)
.SubItems(3) = blood(i)
.SubItems(4) = school(i)
End With
Next i
End Sub
Private Sub CommandButton1_Click()
Dim data As String
data = ListView1.SelectedItem.Index & ":" & ListView1.SelectedItem.Text & ":" & ListView1.SelectedItem.ListSubItems(1).Text
MsgBox data
End Sub
=======================================
調色盤
沒有留言:
張貼留言