[VB] 螢幕保護程式支援多螢幕


上篇:

[VB] 開發螢幕保護程式

我在開發時,因為使用 15″ LED 的 NB ,也就是單螢幕,所以最近開始在公司電腦安裝後,就有人反應螢幕保護程式只有一個螢幕有,其他螢幕只有底色。

對不起喔,我只是個單螢幕的使用者…

需求來了就得更新,由於預覽模式只有單螢幕,所以要把實際執行跟預覽再切開。

預覽螢幕保護程式
預覽螢幕保護程式

前篇說過,我的開發環境是 .Net framework 4.0 ,所以直接用 .Net 的物件。

 Dim ibs, ubs As Integer
 Dim arrScreens() As Screen = Screen.AllScreens
 ubs = UBound(arrScreens)
 [略]
 Select Case .CommandLineFlag
 [略]
 Case CommandLineOptions.Start
     Dim arrMains(ubs) As frmMain
     For ibs = 0 To ubs
         arrMains(ibs) = New frmMain
         With arrMains(ibs)
             .Show()
             .Left = arrScreens(ibs).Bounds.Left
             .Top = arrScreens(ibs).Bounds.Top
             .WindowState = FormWindowState.Maximized
         End With
     Next
     Application.Run(arrMains(0))
 [略]

用 Screen.AllScreens 取得所有螢幕,在每一個螢幕上丟上螢幕保護的畫面,由於每個畫面座標不同,所以至少左上角要在新螢幕裡,然後在最大化。

剛好我先前輪播圖片的時候,是呼叫統一的 PlayNext ,所以多螢幕化的時候,每個螢幕呼叫 PlayNext 都會將圖片播放下一張,可以讓每個螢幕都播放不同照片,也完成了多螢幕的支援。

Categories: 工作點滴, 技術分享 | 標籤: | 1 則迴響

文章分頁導航

One thought on “[VB] 螢幕保護程式支援多螢幕

  1. 引用通告: [cmd] 從 Nas 上更新 system32 目錄檔案 | 鄭子璉

發表迴響

在下方填入你的資料或按右方圖示以社群網站登入:

WordPress.com 標誌

您的留言將使用 WordPress.com 帳號。 登出 /  變更 )

Google photo

您的留言將使用 Google 帳號。 登出 /  變更 )

Twitter picture

您的留言將使用 Twitter 帳號。 登出 /  變更 )

Facebook照片

您的留言將使用 Facebook 帳號。 登出 /  變更 )

連結到 %s

在WordPress.com寫網誌.

<span>%d</span> 位部落客按了讚: