帖子: 57
主題: 25
精華: 0
積分: 87
點名: 0
作業系統: xp2
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-16
最後登錄: 2023-11-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-5-24 14:11 | 只看該作者

[發問] 請教各位先進多個Label設定的問題

如圖,48個色碼個別自放在不同Label裡,滑鼠移至Label上時,TextBox1就會變色
用 OptionButton 控制文字及底色 ,Label1 如下
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If UserForm1.OptionButton1 = True Then
UserForm1.TextBox1.BackColor = Sheets("sheet2").Range("a" & 1).Value
Else
UserForm1.TextBox1.ForeColor = Sheets("sheet2").Range("a" & 1).Value
End If
End Sub
請教各位先拜如何一次設定48個Label呢, 謝謝指教

底圖文字.gif (23.18 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-5-24 15:45 | 只看該作者

本帖最後由 GBKEE 於 2013-5-24 15:47 編輯

回復 1# pinklee
使用[物件類別模組] 一次設定48個Label
表單模組程式碼

'TextBox1就會變色改成為 Label控制項命名為Label49
Option Explicit
Dim Form_Lable(1 To 48) As New Class1 'Class1為[物件類別模組]
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim i
For i = 1 To 48 '48個色碼個別自放在不同 Label1-> Label48
Set Form_Lable(i).La = Controls("Label" & i) '指定到物件類別模組的 La變數中
Next
Label49.Caption = "文字及底色預覽"
End Sub

複製代碼

物件類別模組 Class1 程式碼

Option Explicit
Public WithEvents La As MSForms.Label
Private Sub La_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With UserForm1
If .OptionButton1 Then
.Label49.BackColor = La.BackColor
ElseIf .OptionButton2 Then
.Label49.ForeColor = La.BackColor
End If
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

pinklee

中學生 Rank: 2

帖子: 57
主題: 25
精華: 0
積分: 87
點名: 0
作業系統: xp2
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-16
最後登錄: 2023-11-29

3^#

發表於 2013-5-24 16:23 | 只看該作者

回復 2# GBKEE

感謝 GBKEE 已經可行

TOP

borshun88

中學生 Rank: 2

帖子: 15
主題: 5
精華: 0
積分: 62
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 女
來自: taipai
註冊時間: 2012-4-1
最後登錄: 2017-4-22

4^#

發表於 2013-5-26 10:46 | 只看該作者

本帖最後由 borshun88 於 2013-5-26 10:48 編輯

回復 2# GBKEE

感謝 GBKEE 大大
可以在請問一個問題？
因特殊需求使用La_Click/La_Dblclick 事件程序後仍有功能想要加上系統程式上,因此想增一個使用滑鼠右鍵來執行程式
例如 " La_RightClick() " 使用滑鼠右鍵來執行程式
但因系統預設沒有滑鼠右鍵click功能,請問是否有辦法將這個功能加上去?
感恩

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2013-5-26 13:58 | 只看該作者

回復 4# borshun88

Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Shift :組合鍵 SHIFT,ALT,CTRL 的數值
'X 滑鼠X軸數值
'Y 滑鼠Y軸數值
Dim S As String
Select Case Button
Case 1
S = "[左鍵]"
Case 2
S = "[右鍵]"
End Select
MsgBox "你按了 " & S
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Application.DisplayStatusBar = True
Application.StatusBar = "滑鼠 X 軸數值 : " & X & vbLf & " 滑鼠 Y 軸數值 : " & Y
'顯示在狀態列
End Sub