统计VBA学习小组正式组的积分帖之作业上交贴（第20周）

zjyxp

1. Private Sub UserForm_Click()
   
2. Unload Me
   
3. End Sub
   
4. 
   
5. Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
6. Dim X As Integer
   
7. X = Me.Height
   
8. If KeyCode = 27 Then
   
9. Call UserForm_Click
   
10. End If
    
11. If KeyCode = 88 And Shift = 2 Then
    
12. X = X + 10
    
13. Me.Height = X
    
14. End If
    
15. If KeyCode = 90 And Shift = 2 Then
    
16. X = X - 10
    
17. Me.Height = X
    
18. End If
    
19. End Sub
    
20. 
    
21. Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
22. If Button = 1 And Shift = 3 Then
    
23. Call UserForm_Click
    
24. End If
    
25. End Sub
    

复制代码

作业20周.rar (14.65 KB, 下载次数: 2)

2012-6-4 23:29 上传

点击文件名下载附件
d09：zjyxp上交作业， 请老师指点，谢谢！

想飞的鸟

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Dim X As Integer
If KeyCode = 27 Then
Unload Me
End If
MsgBox KeyCode
If KeyCode = 65 And Shift = 2 Then
X = Me.Height + 10
Me.Height = X
End If
If KeyCode = 88 And Shift = 2 Then
X = Me.Height - 10
Me.Height = X
End If
MsgBox Me.Height

End Sub
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 And Shift = 3 Then
Unload Me
End If
End Sub

mfksypss

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  
    If KeyCode = 27 Then
        Unload Me
    ElseIf KeyCode = 90 And Shift = 2 Then
        Me.Height = Me.Height + 10
    ElseIf KeyCode = 88 And Shift = 2 Then
        Me.Height = Me.Height - 10
    End If
End Sub
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 And Shift = 3 Then
        Unload Me
    End If
End Sub

w2001pf

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
    Unload Me
End If
If KeyCode = 90 And Shift = 2 Then
    Me.Height = Me.Height + 10
End If
If KeyCode = 88 And Shift = 2 Then
     Me.Height = Me.Height - 10
End If
If KeyCode = 16 And Shift = 2 Then
     Me.Height = Me.Height - 10
End If
End Sub
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   If Button = 1 And Shift = 3 Then
     Unload Me
   End If
End Sub