vba-commandbutton,textbox,label最常用方法與屬性以及個別事件

CommandButton 常用屬性+方法記錄：

1. Me.CommandButton1.ControlTipText = "" '按鈕的提示，就是鼠標移過去，會顯示 提示
2. Me.CommandButton1.Picture '按鈕的圖片
3. Me.CommandButton1.PicturePosition = fmPicturePositionCenter '按鈕上圖片，文字的位置
4. Me.CommandButton1.Visible '按鈕的顯示屬性
5. Me.CommandButton1.Accelerator = "F" '按鈕的熱鍵，此時按alt + F 則可執行
6. Me.CommandButton1.Enabled = False '設置按鈕不能用，但是可見
7. Me.CommandButton1.Cancel = True '按esc 就可以退出
8. Me.CommandButton1.Default = True '按 enter時 就可以執行
9. Me.Tag = 100 '臨時存放的值，可以當作一個標識。比如說100，就可以通過me.tag 給取出來
10. For Each X In Me.Controls '可以在窗體上的所有控件間循環
11. '一個按鈕可以執行多個程序，方法：用caption來if判斷 然后跟不同的代碼

Label 常用屬性+方法記錄：

1. Me.Label1.AutoSize = True '自動調整大小適應文字數量
2. Me.Label1.BackStyle = fmBackStyleOpaque '背景透明
3. Me.Label1.TextAlign = fmTextAlignCenter '文字的對齊方式，居中對齊
4. Me.Label1.WordWrap = True '可以自動換行

TextBox 常用屬性+方法記錄：

1. Me.TextBox1.MultiLine = True '文本框多選顯示
2. Me.TextBox1.TextAlign = fmTextAlignCenter '文本框的對齊方式
3. Me.TextBox1.PasswordChar = "*" '設置文本框顯示，顯示特殊字符替換原字符
4. Me.TextBox1.ScrollBars = fmScrollBarsBoth '設置文本框的滾動條，這個表現水平和垂直都有
5. Me.TextBox1.EnterKeyBehavior = True '為真時能強制換行，按回車就可以轉到下一行， _
6. 只有在 multiline為true時才能用
7. '若在代碼中時，可以用chr(10)代替 enter
8. Me.TextBox1.MaxLength = 5 '當你輸入到5個字符時，自動跳轉到下一個控件(按TAB順序)
9. Me.TextBox1.Locked = True '鎖定，顯示正常，可以選擇，但不能編輯
10. Me.TextBox1.DragBehavior = fmDragBehaviorDisabled '設置文本框里的文本是否可以拖動復制粘貼
11. Me.TextBox1.LineCount '獲得文本框的行數
12. Me.TextBox1.SelLength '獲得文本框選取的文本的長度
13. Me.TextBox1.SelText '鋒利文本框中選擇的文本
14. Me.TextBox1.SetFocus '當窗體出現時，將光標自動落到文本框中

Private Sub TextBox1_AfterUpdate()
'離開文本框時，且文本發生了改變，才運行這個程序
End Sub

Private Sub TextBox1_Enter()
'光標進入文本框時觸發
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'光標離開文本框時觸發
If Me.TextBox1.Text = "" Then
    Cancel = True
    MsgBox "你沒有輸入內容，不能跳過"
End If
End Sub

Private Sub UserForm_Initialize()
'窗體初始化
End Sub

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'KeyCode 鍵盤上的按鍵代碼,唯一的
'Shift 表示 的有三個鍵 ctrl shift alt
If KeyCode = 65 And Shift = 2 Then MsgBox "你同時按下了ctrl+A"
End Sub

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'UserForm_KeyPress 這個不能捕獲上下左右鍵。用的很少，一般用key down
End Sub

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Button 鼠標左鍵是1，有鍵是2，中鍵是4
'Shift shift:1,ctrl:2,ctrl+shith :3,alt :4,alt+shift :4,alt+ctrl:6,alt+ctrl+shift :7
'鼠標在窗體上的位置，模坐標是X，縱坐標是Y
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'關閉前事件
'cancel 為>0的數時，禁止太瘋癲動作發生，
'CloseMode為關閉模式，0表示點關閉按鈕，1表示使用unload關閉
End Sub