为何总有一个“出色”？

dongjuwen · 发表于 2019-9-30 10:12

wowo000 发表于 2019-9-30 06:34
dongjuwen兄，恳请你帮俺照你的意思弄个附件吧！俺的意思是劳烦你弄个类模块的附件，先谢谢！！

9楼附件可以用的呢！

wowo000 · 发表于 2019-9-30 12:22

dongjuwen兄，当点击“label9”会出现异常。还是劳烦用类模块弄个吧。“label9”设置透明。

dongjuwen · 发表于 2019-9-30 12:39

本帖最后由 dongjuwen 于 2019-9-30 12:40 编辑

wowo000 发表于 2019-9-30 06:34
dongjuwen兄，恳请你帮俺照你的意思弄个附件吧！俺的意思是劳烦你弄个类模块的附件，先谢谢！！

创建类模块。类模块代码：
Public WithEvents Lbl As MSForms.Label
Private Sub Lbl_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Lbl
      If X1 < 2 Or X1 > 50 Or Y1 < 2 Or Y1 > 15 Then
         .Font.Size = 12
         .ForeColor = &HFFFFFF
         .BackColor = RGB(0, 176, 80)
      Else
         .Font.Size = 12.5
         .ForeColor = RGB(255, 255, 0)
         .BackColor = &H4763FF
      End If
End With
End Sub
在ThisWorkbook_Open()
代码：
Private myLabel As New Collection
Private Sub Workbook_Open()
Dim objlabel As Object
Dim cmdlabel As New clsLabel
For Each objlabel In Sheet2.OLEObjects
      If objlabel.OLEType = 2 Then
         Set cmdlabel = New clsLabel
         Set cmdlabel.Lbl = objlabel.Object
         myLabel.Add cmdlabel
      End If
Next
Set cmdlabel = Nothing
End Sub
捕捉X和Y坐标比较迟钝，有时间我再研究一下。这个代码马马虎虎（能用，但反应度不够）

wowo000 · 发表于 2019-9-30 13:16

谢谢您，俺试试。

wowo000 · 发表于 2019-9-30 13:24

卡在：Dim cmdlabel As New clsLabel这里，未定义。恳请dongjuwen兄，弄个附件。

wowo000 · 发表于 2019-10-1 20:32

dongjuwen兄，是把类模块名称改为：clsLabel？，可是没反应。

wowo000 · 发表于 2020-5-3 15:16

很久了，还没解决，哪位老师帮俺理理？？？

wowo000 · 发表于 2020-5-3 20:14

可怜，看来要永远石沉大海了，不可解决了！！？？？

ggmmlol · 发表于 2020-5-3 23:01

本帖最后由 ggmmlol 于 2020-5-4 09:00 编辑

wowo000 发表于 2020-5-3 20:14
可怜，看来要永远石沉大海了，不可解决了！！？？？

不要灰心，你要等待那一个清晨

按钮.rar (36.75 KB, 下载次数: 20)

wowo000 · 发表于 2020-5-4 06:41

谢谢尊敬的ggmmlol老师！！！！俺打开是提示“obj”未定义，俺定义：Dim obj重新打开时，却又提示424错误要求对象错误 With obj
.Font.Size = 12………………（运行环境：WIN10+OFFICE2016），莫名！！
算了吧，要不你帮俺直接把"Label9"的单击事件禁止了吧，因为单击“Label9”时会遮住所有的“Label”控件。
只禁止“Label9”的单击事件，其它的不禁止。
谢谢！！！

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

[求助] 为何总有一个“出色”？

评分