类模块求助：如何实现在窗体指定的区域内添加的标签控件与区域外的标签控件有各自不

foshan

上传的文档是我借鉴 清风 老师 的类作品制成而成，实现的目的是窗体上左边和右边的5个标签控件在加载窗体、按下(释放)鼠标按键时，同一区域的控件表面的颜色变化是一致。但是代码的通用性不强，在不修改代码的情况下，如果修改标签控件的名称(不采用默认的名称)后程序出错、任意添加或删除标签控件，也出错。

有两个问题想请教大家：

1、上传文档的代码如何再精简一下。

2、如何在类模块中实现：在不修改代码的情况下，在窗体的左边或右边的区域任意添加或删除标签控件、修改标签控件的名称，所添加(或修改名称后)的标签控件颜色变化的功能均与该区域其它的标签控件一样？

vpXaz7JL.rar (35.5 KB, 下载次数: 19)

2005-8-16 09:22 上传

点击文件名下载附件
类模块求助：如何实现在窗体指定的区域内添加的标签控件与区域外的标签控件有各自不同的属性值？

[此贴子已经被作者于2005-8-16 9:22:50编辑过]

asdf1001

Option Explicit Dim Mylbl() As New LblClass

Private Sub UserForm_Initialize() Dim i As Integer Dim n As Integer Dim mycon As MSForms.Control For Each mycon In Me.Controls If TypeName(mycon) = "Label" Then If IsEmpty(Mylbl) Then ReDim Mylbl(0) Else ReDim Preserve Mylbl(UBound(Mylbl) + 1) If mycon.Left < Me.Width / 2 Then Mylbl(UBound(Mylbl)).Attach1 mycon mycon.Picture = Me.Image11.Picture Else Mylbl(UBound(Mylbl)).Attach2 mycon mycon.Picture = Me.Image14.Picture End If mycon.PicturePosition = fmPicturePositionCenter End If Next

end sub

[此贴子已经被作者于2005-8-16 10:01:45编辑过]

foshan

asdf1001 兄的代码很好，但是如果我修改标签控件的名称后(如改成a或aa)，UserForm_MouseMove的代码就出现问题了，再修改一下UserForm_MouseMove事件中的代码，请大家再测试一下，还有哪此地方需要改进的，通用性是否够强，谢谢!

另外还想请教：类模块中的左、右两边的标签控件的MouseDown、MouseMove、MouseUp事件中的代码能分别合并简化吗？如果不能简化合并代码，如果要求在窗体上有六组标签控件，每组标签控件的颜色各不相同，哪岂不是要写六组MouseDown、MouseMove、MouseUp事件的代码。

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If ActLabel1 <> "" Then Me.Controls(ActLabel1).Picture = Me.Image11.Picture If ActLabel2 <> "" Then Me.Controls(ActLabel2).Picture = Me.Image14.Picture End Sub

BBfYP5o7.rar (20.71 KB, 下载次数: 21)

2005-8-16 10:40 上传

点击文件名下载附件
类模块求助：如何实现在窗体指定的区域内添加的标签控件与区域外的标签控件有各自不同的属性值？

[此贴子已经被作者于2005-8-16 10:52:50编辑过]

asdf1001

cX791dLK.rar (35.3 KB, 下载次数: 73)

2005-8-16 10:49 上传

点击文件名下载附件
类模块求助：如何实现在窗体指定的区域内添加的标签控件与区域外的标签控件有各自不同的属性值？

foshan

非常感谢 asdf1001 兄倾力相助，代码很好用!