2015年8月19日 星期三

0819 note

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

=======================================
調色盤

沒有留言:

張貼留言