VBA 表單圖形為何無法至最上層 - Excel程式區

[發問] VBA 表單圖形為何無法至最上層

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

1^# 跳轉到 »

發表於 2015-9-17 06:29 | 顯示全部帖子

回復 6# lichang
試試看

#If VBA6 Then
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#Else
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 64 Bit Systems
#End If
Dim Msg As Boolean 'Boolean 初始值False
Private Sub CommandButton1_Click()
Msg = Not Msg '反轉:當True轉為False,當False轉為True
Image_ZOrder
End Sub
Private Sub Image_ZOrder()
Dim Ar(), i As Integer, t As Date
Ar = Array(Image1, Image2, Image3)
t = Time
Do While Msg 'Msg=True 執行這 Do Loop 的迴圈
DoEvents
'Sleep 1000
If t + #12:00:01 AM# <= Time Then '每秒一次,也可以不用 Sleep
Ar(i).ZOrder msoBringToFront
i = i + 1
If i > UBound(Ar) Then i = 0
t = Time
End If
Loop
End Sub

複製代碼

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

靜思自在 : 做好事不能少我一人，做壞事不能多我一人。