VBA常用技巧代码解析

ykx042907

袁版主：您好！
是复制的，十分感谢您！

killsoft

楼主，什么时候能够下载完整的文件啊？？

yuanzhuping

技巧147         窗体运行时调整控件大小
       用户窗体中的控件在运行时是不能调整大小的，而在某些情况下需要在窗体运行时调整控件的大小，此时可以利用控件的MouseMove事件。
       步骤1，在VBE窗口中单击菜单“插入”→“用户窗体”，在窗体中添加两个框架控件，在框架控件中间添加一个Image控件，如图所示。
      
       步骤2，Image控件是用来在窗体运行时拖动调整框架控件大小的，所以需要在Image控件的属性窗口将BackStyle属性设置为fmBackStyleTransparent，使控件的背景为透明；将BorderStyle属性设置为fmBorderStyleNone，使控件无可见的边框线；MousePointer属性设置为fmMousePointerSizeWE，当用户把鼠标放到Image控件上时，鼠标指针的类型为东西向的双箭头。关于控件的MousePointer属性请参阅技巧141。
       步骤3，在窗体中调整好控件的位置后双击Image控件写入下面的代码：

1. #001  Dim Abscissa As Single
   
2. #002  Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
   
3. #003      Abscissa = x
   
4. #004  End Sub
   
5. #005  Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
   
6. #006      If Button = 1 Then
   
7. #007          If Abscissa - x > Frame1.Width Or x > Frame2.Width Then Exit Sub
   
8. #008          Frame1.Width = Frame1.Width - Abscissa + x
   
9. #009          Image1.Left = Image1.Left - Abscissa + x
   
10. #010          Frame2.Left = Frame2.Left - Abscissa + x
    
11. #011          Frame2.Width = Frame2.Width + Abscissa - x
    
12. #012      End If
    
13. #013  End Sub

复制代码

代码解析：
       第2行到第4行代码，Image控件的MouseDown事件过程，用户按下鼠标按键时发生，语法如下：
Private Sub object_MouseDown( ByVal Button As fmButton, ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)
       其中参数x是可选的，控件位置的横坐标，以磅为单位，从左边开始测量。
       第3行代码将控件的横坐标赋给变量Abscissa。
       第5行到第12行代码，Image控件的MouseMove事件过程，用户移动鼠标时该事件发生，语法如下：
Private Sub object_MouseMove( ByVal Button As fmButton, ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)
       其中参数Button是必需的，标识鼠标按键状态的整数值，其设置值如表格所示。
      
       参数x是可选的，控件位置的水平坐标，以磅为单位，从左边开始测量。
       在MouseMove事件过程中，当用户在窗体上按下左键移动鼠标时，调整两个框架控件的Width属性和框架2的Left属性，使其达到窗体运行时可以进行拖动调整大小的效果。
       当鼠标指针在对象上移动时，MouseMove事件是连续发生的，只要鼠标位于对象的边界之内，对象就会不断的识别MouseMove事件，所以框架控件可以连续的进行拖动调整大小。
       运行窗体的，选择两个框架控件的中间位置，当鼠标指针变成东西向的双箭头时按下鼠标左键拖动可以进行拖动调整框架控件的大小，如图所示。
      

yuanzhuping

原帖由 killsoft 于 2009-5-8 10:56 发表
楼主，什么时候能够下载完整的文件啊？？

http://club.excelhome.net/viewth ... ;page=94#pid2774766 936楼

alay929

动态数据有效性设置中，如有3列呢？即选择A即确定B的取值，选择B后可以确定C的取值，这样该怎么实现啊？

ayu330602

原帖由 yuanzhuping 于 2009-5-8 09:51 发表

不清楚怎么会这样，上传附件看看。

谢谢版主
      我的程序已有2.2MB大了,传不上来了,也想请教一下全部完成估计有2.5MB大系统文件,加上以后还有用户数据表,在1G内存的电脑上能正常运行吗 ?
      我的问题不知会不会和您在973楼回答一位朋友的问题类似,因为我是直接从您的例上复制Listview控件和ImageList控件的,不是通过我VBA的控件箱中插入的?
非常 感谢 有问必答

[ 本帖最后由 ayu330602 于 2009-5-8 21:53 编辑 ]

panjian318

楼主辛苦了，谢谢。学习中......

NET2688

谢谢LZ耐心传授~ 3Q~~

pengeb

真的很详细,谢谢!

pengeb

谢谢楼主,真的太详细太好了.