[操作疑難] VB MouseEnter/MouseLeave 問題

我有張 Form1(下圖), 用 Opacity 整到它半透明。


我想當 Mouse 進入張 From 範圍時令到張 Form 變返做不透明,Mouse 離開後回復半透明。於是如下加入 MouseEnter 和 MouseLeave。
  1.     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  2.         TrackBar1.Value = 100
  3.         Me.Opacity = 1
  4.     End Sub

  5.     Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
  6.         Me.Opacity = 1
  7.     End Sub

  8.     Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
  9.         Me.Opacity = TrackBar1.Value / 100
  10.     End Sub
複製代碼
為方講解,我整到張 Form 每個 Control 用不同底色。我發現當 Mouse 進入 Form1,只有在灰色位置才會變不透明,一進入任何一個 Control(例如 Textbox) 範圍內又會變返做透明。

雖然,我可以在每個 Control 都好似下面 Textbox 一樣加入 MouseEnter,但由灰色位置進入 Textbox 時張 Form 仍然會閃一閃,但我都勉強可接受。
  1.     Private Sub TextBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.MouseEnter
  2.         Me.Opacity = 1
  3.     End Sub
複製代碼
但可否做到當隻 Mouse 進入張 From 的 Caption 及左/右/底框(即是粉藍色位置)時就已經 Trigger 到個 Event?
附件: 您需要登錄才可以下載或查看附件。沒有帳號?註冊

做唔到
因為個框屬於OS, 唔屬於你個program
要做就請整個無框application, 然後自己add翻label / button扮翻個框出黎

TOP

做唔到
因為個框屬於OS, 唔屬於你個program
要做就請整個無框application, 然後自己add翻label / button扮 ...
KinChungE 發表於 2017/4/6 17:17


噢…原來個框不屬於個 Program。
Thanks~~~

其實,不知係我個 Win7 用得耐"神神地"或者 Firefox 問題,長時間開住個 FF 的話(平時習慣 Hibernate 電腦代替關機,個 Windows 同用開的 S/W 閒閒地一開就成個月未熄過),FF 會失驚無神打不到中文(輸入法 Icon 係"中"字,但打出來係英文碼),這問題已出現好耐,換過不同 FF 版本都一樣,每次出事都要關閉 FF 再重開先至可以正常打到中文字,但係有時係在 FF 打開一大段字,差小小打完就出事,費事 Copy 成段段打好的字去記事本再重開 FF 又 Copy 返過去,就開記事本打埋餘下的字再 Copy 入 FF。

昨日又再次用用下 FF 打不到中文,把鬼火諗到不如自己寫個有 Textbox 的 Program 仔,FF 出事時開我個 Program 仔暫時頂檔,Overlay 我個 Program 仔上去 FF 的 Textbox 上面,在我個 Program 仔打完字按 Enter 就自動 Cut & Paste 段字過去 FF。

TOP

相關文章