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

我不知道呀

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

冠军欧洲2010

1. Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2. Dim X
   
3. X = Me.Height
   
4. If KeyCode = 27 Then
   
5. Unload Me
   
6. ElseIf KeyCode = 90 And Shift = 2 Then
   
7. Me.Height = X + 10
   
8. ElseIf KeyCode = 88 And Shift = 2 Then
   
9. Me.Height = X - 10
   
10. End If
    
11. ' MsgBox KeyCode
    
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

复制代码

冠军欧洲2010

w2001pf 发表于 2012-5-30 14:29
作业在哪里啊？

http://www.excelpx.com/thread-245811-1-1.html
这是作业的链接。

ls

'插入一个空白窗体，
'Print 要求:
'1 按ESC键可以关闭窗体
'2按CTRL+Z 窗体的高度在原来的高度上+10（窗体的高度越来越高）
'3按CTRL+X 窗体的高度在原来的基础上-10
'4按ctrl+shift键的同时左键单击窗体，可以把窗体关闭
'
'注: 上传答案时
'1 测试正确无误
'2 代码一定要贴出来可以不传附件
'3 在班里的指定作业贴处上交作业

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

dsjohn

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

水上漂123

第16讲作业.rar (10.11 KB, 下载次数: 2)

2012-6-2 08:18 上传

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

chenzhi_juan

[code]
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
  Me.Hide
  Else
If KeyCode = vbKeyZ And Shift = 2 Then
   Me.Height = Me.Height + 10
   Else
If KeyCode = vbKeyX And Shift = 2 Then
   Me.Height = Me.Height - 10
  End If
  End If
  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
     Me.Hide
   End If
End Sub
[\:code]
H19:chenzhi_juan

1982zyh

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then

Unload UserForm1
End If

If KeyCode = 90 And Shift = 2 Then

UserForm1.Height = UserForm1.Height + 10

ElseIf KeyCode = 88 And Shift = 2 Then

UserForm1.Height = UserForm1.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 UserForm1
End If
End Sub

sunjing-zxl

E学委:sunjing-zxl   交作业
代码中的"sunjing"是窗体名字

1. 'esc=27,z=90,x=88
   
2. 'shift 是按下shift(值为1) or ctrl(值为2)或alt(值为3)
   
3. Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
4.     If KeyCode = 27 Then
   
5.         Unload sunjing
   
6.     ElseIf Shift = 2 Then
   
7.         If KeyCode = 90 Then
   
8.             sunjing.Height = sunjing.Height + 10
   
9.         ElseIf KeyCode = 88 Then
   
10.             sunjing.Height = sunjing.Height - 10
    
11.         End If
    
12.     End If
    
13. End Sub
    
14. ' button 值按左键返回1,按右键返回2,按中键返回4
    
15. ' shift 按Shift返回1,按ctrl返回2,shift+ctrl返回3,Atl按回4
    
16. ' X,Y 是指点击的位置
    
17. Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
18.     If Button = 1 And Shift = 3 Then
    
19.         Unload sunjing
    
20.     End If
    
21. End Sub
    

复制代码

libenwen2011

16组:libenwen2011 (UID: 514207)

Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)   If KeyCode = 27 Then 'ESC键关闭窗体
     Unload Me
  End If
     
  If KeyCode = 90 Then 'ctrl+Z窗体高度+10
     X = Me.Height
     Me.Height = X + 10
  End If

  If KeyCode = 88 Then 'ctrl+x窗体高度-10
     X = Me.Height
     Me.Height = X - 10
  End If
End Sub

'按下shift+ctrl组合键并且按鼠标左键,关闭窗体
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