VBA常用技巧代码解析

ayu330602 · 发表于 2009-5-6 00:04

很不好意思,还要麻烦老师,不好意思了,请教:
1、ListView1控制运行后的列宽调整是哪个属性控制的?
2、能否实现，第一列不能调整，其它都能调整？
3、使第一例不能编辑？
万分感谢！

[ 本帖最后由 ayu330602 于 2009-5-6 00:14 编辑 ]

yuanzhuping · 发表于 2009-5-6 07:18

原帖由 ayu330602 于 2009-5-6 00:04 发表
很不好意思,还要麻烦老师,不好意思了,请教:
1、ListView1控制运行后的列宽调整是哪个属性控制的?
2、能否实现，第一列不能调整，其它都能调整？
3、使第一例不能编辑？
万分感谢！

ListView控件的列宽调整用Width属性，如第一列：ListView1.ColumnHeaders(1).Width = 100
将ListView控件的LabelEdit属性设置为lvwManual，标签不能编辑。

yuanzhuping · 发表于 2009-5-6 07:29

技巧138 屏蔽窗体标题栏的关闭按钮
使用API函数可以屏蔽窗体标题栏的关闭按钮，如下面的代码所示。

#001 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#002 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long) As Long
#003 Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#004 Private Declare Function DrawMenuBar Lib "user32" (ByVal Hwnd As Long) As Long
#005 Private Const GWL_STYLE = (-16)
#006 Private Const WS_SYSMENU = &H80000
#007 Private Hwnd As Long
#008 Private Sub UserForm_Initialize()
#009 Dim Istype As Long
#010 Hwnd = FindWindow("ThunderDFrame", Me.Caption)
#011 Istype = GetWindowLong(Hwnd, GWL_STYLE)
#012 Istype = Istype And Not WS_SYSMENU
#013 SetWindowLong Hwnd, GWL_STYLE, Istype
#014 DrawMenuBar Hwnd
#015 End Sub

复制代码

代码解析：
   第1行到第7行代码是API函数声明。
   第8行到第15行代码是窗体的Initialize事件，当窗体显示时屏蔽窗体标题栏的关闭按钮。
   窗体运行后，屏蔽窗体上的关闭按钮，只能使用按钮关闭窗体，如图所示。

yuanzhuping · 发表于 2009-5-6 07:47

技巧139 无标题栏和边框的窗体
如果希望制作无标题栏和边框的窗体，那么可以使用API函数。
在VBE窗口中单击菜单“插入”→“用户窗体”，双击窗体，在其代码窗口中输入下面的代码：

#001 Private Declare Function DrawMenuBar Lib "user32" (ByVal Hwnd As Long) As Long
#002 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long) As Long
#003 Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#004 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#005 Private Const GWL_STYLE As Long = (-16)
#006 Private Const GWL_EXSTYLE = (-20)
#007 Private Const WS_CAPTION As Long = &HC00000
#008 Private Const WS_EX_DLGMODALFRAME = &H1&
#009 Private Sub UserForm_Initialize()
#010 Dim IStyle As Long
#011 Dim Hwnd As Long
#012 If Val(Application.Version) < 9 Then
#013 Hwnd = FindWindow("ThunderXFrame", Me.Caption)
#014 Else
#015 Hwnd = FindWindow("ThunderDFrame", Me.Caption)
#016 End If
#017 IStyle = GetWindowLong(Hwnd, GWL_STYLE)
#018 IStyle = IStyle And Not WS_CAPTION
#019 SetWindowLong Hwnd, GWL_STYLE, IStyle
#020 DrawMenuBar Hwnd
#021 IStyle = GetWindowLong(Hwnd, GWL_EXSTYLE) And Not WS_EX_DLGMODALFRAME
#022 SetWindowLong Hwnd, GWL_EXSTYLE, IStyle
#023 End Sub
#024 Private Sub UserForm_Click()
#025 Unload Me
#026 End Sub

复制代码

代码解析：
   窗体初始化时使用API函数去除其标题栏和边框。
   第1行到第8行代码，API函数的声明。
   第12行到第16行代码，获取窗口句柄。
   第17行到第20行代码，去除窗体标题栏。
   第21、22行代码，去除窗体边框。
   第24行到第26行代码，窗体的单击事件，单击窗体后关闭该窗体。
   窗体运行后如图所示，单击后关闭该窗体。

LXPBGP · 发表于 2009-5-6 08:07

感谢了。受益匪浅

yuanzhuping · 发表于 2009-5-6 08:11

技巧140 制作年月选择窗体
   在工作表中需要输入日期时，可以使用日期时间控件（Microsoft Date and Time Picker Control 6.0，简称DTP控件），请参阅技巧116 。但有时只需要输入年份和月份，使用DTP控件选择月份并不方便，此时可以使用文本框结合微调框做一个年月选择窗体供用户输入年份和月份。
   步骤1，在VBE窗口中单击菜单“插入”→“用户窗体”，将窗体的Caption属性设置为“请选择年月”。
   步骤2，在窗体上添加一个框架控件和两个命令按纽控件。在框架控件中添加两个文本框控件和两个SpinButton控件，并把命令按纽的Caption属性分别设置为“确定”和“取消”。
   步骤3，调整好控件位置，双击窗体写入下面的代码。

#001 Private Sub UserForm_Initialize()
#002 SpinButton1.Value = Year(Date)
#003 SpinButton2.Value = Month(Date)
#004 TextBox1.Text = Year(Date) & "年"
#005 TextBox2.Text = Month(Date) & "月份"
#006 End Sub
#007 Private Sub SpinButton1_Change()
#008 TextBox1.Text = SpinButton1.Value & "年"
#009 End Sub
#010 Private Sub SpinButton2_Change()
#011 With SpinButton2
#012 Select Case .Value
#013 Case 1 To 12
#014 TextBox2.Text = .Value & "月份"
#015 Case Is > 12
#016 TextBox1.Text = Left(TextBox1.Text, 4) + 1 & "年"
#017 .Value = 1
#018 Case Is < 1
#019 TextBox1.Text = Left(TextBox1.Text, 4) - 1 & "年"
#020 .Value = 12
#021 End Select
#022 End With
#023 End Sub
#024 Private Sub CommandButton1_Click()
#025 Sheet1.Range("A65536").End(xlUp).Offset(1) = TextBox1.Text & TextBox2.Text
#026 End Sub
#027 Private Sub CommandButton2_Click()
#028 Unload Me
#029 End Sub

复制代码

代码解析：
   第1行到第6行代码，窗体的初始化事件，在窗体加载时设置文本框和微调框的初始值。
   第2行代码，设置微调框1的初始值为当前年份。Year函数返回年份的整数，语法如下：
   Year(date)
   参数date是必需的，可以是任何能够表示日期的Variant、数值表达式、字符串表达式或它们的组合。
   第3行代码，设置微调框2的初始值为当前月份。Mont函数返回值为1到12之间的整数，表示一年中的某月，语法如下：
   Month(date)
   参数date与Year函数的参数date相同。
   第4行代码，设置文本框1显示的文本为当前年份。
   第5行代码，设置文本框2显示的文本为当前月份。
   第7行到第9行代码，微调框1的Change事件过程。当单击微调框1数值调节钮的向上键或向下键调节年份时，文本框1显示的年份等于调节后的年份。
   第10行到第23行代码，微调框2的Change事件过程。当单击微调框2数值调节钮的向上键或向下键调节月份时，文本框2显示的月份等于调节后的月份。如果是一年以内的调节，只调节文本框2显示的月份，否则还需要调节文本框1显示的年份。
   第25行代码，“确定”按钮的单击过程，将选择好的年月写入工作表中。
   第28行代码，使用Unload 语句卸载窗体。
   运行窗体后效果如图所示。

yuanzhuping · 发表于 2009-5-6 08:24

技巧141 自定义窗体中的鼠标指针类型
使用对象的MousePointer属性可以自定义鼠标掠过窗体控件时的指针类型，如下面的代码所示。

#001 Private Sub UserForm_Initialize()
#002 With Me.TextBox1
#003 .MousePointer = 99
#004 .MouseIcon = LoadPicture(ThisWorkbook.Path & "\myMouse.ico")
#005 End With
#006 End Sub

复制代码

代码解析：
   当用户把鼠标放到窗体的文本框上时，所显示的鼠标指针的类型为自定义图标。
   第3行代码设置文本框的MousePointer属性。MousePointer属性指定当用户把鼠标放到特定对象上时，所显示鼠标指针的类型，语法如下：
   object.MousePointer [= fmMousePointer]
   参数object是必需的，一个有效对象。
      参数fmMousePointer是可选的，所需鼠标指针的形状。fmMousePointer的设置值如表格所示。

   第3行代码将文本框的MousePointer属性设置为99，使用由MouseIcon属性指定的自定义图标。MouseIcon属性为对象指定一个自定义的图标，语法如下：
   object.MouseIcon = LoadPicture( pathname )
   参数object是必需的，一个有效的对象。
   参数pathname是必需的，指定包含自定义图标的文件的路径和文件名。
   设置后的鼠标指针的形状如图所示。

ykx042907 · 发表于 2009-5-6 10:53

非常感谢袁版主！

roc.jame · 发表于 2009-5-6 11:29

要是打包就好了。

wangyong0528 · 发表于 2009-5-6 16:26

版主之利害，
强，顶！

		自动登录	找回密码
密码			免费注册

VBA常用技巧代码解析

求教

第8部分控件与用户窗体

第8部分控件与用户窗体

谢谢版主倾情奉献

第8部分控件与用户窗体

第8部分控件与用户窗体

感谢

VBA常用技巧代码解析

求教

第8部分 控件与用户窗体

第8部分 控件与用户窗体

谢谢版主倾情奉献

第8部分 控件与用户窗体

第8部分 控件与用户窗体

感谢

第8部分控件与用户窗体

第8部分控件与用户窗体

第8部分控件与用户窗体

第8部分控件与用户窗体