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

开心妙妙

• Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
•     If KeyCode = 90 And Shift = 2 Then
•         Me.Height = Me.Height + 10
•     ElseIf KeyCode = 88 And Shift = 2 Then
•         Me.Height = Me.Height - 10
•     ElseIf KeyCode = 27 Then
•         Unload Me
•     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
  

第16讲作业-窗体与控件-B08-开心妙妙.rar (14.58 KB, 下载次数: 2)

2012-6-4 09:54 上传

点击文件名下载附件

ykfexcel

1题解：
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
Unload Me
End If
End Sub

2题解：
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim x As Integer
x = UserForm1.Height
If KeyCode = 90 And Shift = 2 Then
UserForm1.Height = x + 10
End If
End Sub

3题解：
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim x As Integer
x = UserForm1.Height
If KeyCode = 88 And Shift = 2 Then
UserForm1.Height = x - 10
End If
End Sub

4题解：
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

ykfexcel

补充说明：
学习小组：G16
论坛ID： ykfexcel

szczm121

G17:SZCZM121交作业
Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim A As Long
        A = Me.Height
    If KeyCode = 27 Then
    Unload Me
    ElseIf KeyCode = 90 And Shift = 2 Then
        A = A + 10
        Me.Height = A
    ElseIf KeyCode = 88 And Shift = 2 Then
        A = A - 10
        Me.Height = A
    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 Sub
本想把“Me.Height = A”放在END IF之后，这样一句就够了，可在测试用ESC退出窗体时总提示自动化出错，也就只好放弃了。

yl_li

比想象中简单，不过课件也研究了不少时间。 窗体与控件2作业题.rar (14.02 KB, 下载次数: 2)

2012-6-3 15:44 上传

点击文件名下载附件
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Static i
    i = UserForm1.Height
    If KeyCode = 27 Then Unload Me
    If KeyCode = 90 And Shift = 2 Then Me.Height = i + 10
    If KeyCode = 88 And Shift = 2 Then Me.Height = i - 10
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 Sub

yijundanny

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 Sub

gaoshuichang1

窗体与控件2作业题.rar (8.38 KB, 下载次数: 2)

2012-6-3 17:02 上传

点击文件名下载附件

1. 
   
2. Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) '按下键时
   
3.     If KeyCode = 27 Then
   
4.         Unload Me
   
5.     End If
   
6.     If KeyCode = 90 And Shift = 2 Then
   
7.         UserForm1.Height = 190
   
8.     End If
   
9.     If KeyCode = 88 And Shift = 2 Then
   
10.         UserForm1.Height = 170
    
11.     End If
    
12. End Sub
    
13. 
    
14. Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
15.     If Button = 1 And Shift = 3 Then
    
16.         Unload Me
    
17.     End If
    
18. End Sub

复制代码

gaoshuichang1

窗体与控件2作业题.zip (10.98 KB, 下载次数: 2)

2012-6-3 17:07 上传

点击文件名下载附件

1. Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) '按下键时
   
2. Dim k As Integer
   
3.     If KeyCode = 27 Then
   
4.         Unload Me
   
5.     End If
   
6.     If KeyCode = 90 And Shift = 2 Then
   
7.         Do While MsgBox("你还需要继续按CTRL+Z吗？", vbYesNo + vbQuestion, "提示") = vbYes
   
8.             k = k + 1
   
9.             UserForm1.Height = 180 + 10 * k
   
10.         Loop
    
11.     End If
    
12.     If KeyCode = 88 And Shift = 2 Then
    
13.         Do While MsgBox("你还需要继续按CTRL+X吗？", vbYesNo + vbQuestion, "提示") = vbYes
    
14.             k = k + 1
    
15.             UserForm1.Height = 180 - 10 * k
    
16.         Loop
    
17.     End If
    
18. End Sub
    
19. 
    
20. Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
21.     If Button = 1 And Shift = 3 Then
    
22.         Unload Me
    
23.     End If
    
24. End Sub

复制代码

开心rabbit

1. 按ESC键可以关闭窗体
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 27 Then
        Unload Me
    End If
End Sub
2. 按CTRL+Z 窗体的高度在原来的高度上+10（窗体的高度越来越高）
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If Shift = 2 And KeyCode = 90 Then
        Me.Height = Me.Height + 10
    End If
End Sub
3. 按CTRL+X 窗体的高度在原来的基础上-10
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If Shift = 2 And KeyCode = 88 Then
        Me.Height = Me.Height - 10
    End If
End Sub
4. 按ctrl+shift键的同时左键单击窗体，可以把窗体关闭
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

byhdch

A09:byhdch

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)   
    If KeyCode = 27 Then Unload 查询系统   
    If KeyCode = 90 And Shift = 2 Then
        Height = Height + 10
    ElseIf KeyCode = 88 And Shift = 2 Then
        Height = 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 查询系统  
End Sub