vb點(diǎn)虐 多屏?xí)r控制窗體顯示在哪個(gè)顯示器上

'''?summary多屏顯示屏幕設(shè)置/summary

成都創(chuàng)新互聯(lián)專(zhuān)注為客戶(hù)提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站建設(shè)、做網(wǎng)站、凌云網(wǎng)絡(luò)推廣、微信小程序開(kāi)發(fā)、凌云網(wǎng)絡(luò)營(yíng)銷(xiāo)、凌云企業(yè)策劃、凌云品牌公關(guān)、搜索引擎seo、人物專(zhuān)訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等，從售前售中售后，我們都將竭誠(chéng)為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；成都創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供凌云建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18982081108，官方網(wǎng)址：www.cdcxhl.com

'''?param?name="obj"目標(biāo)窗體/param

'''?param?name="scrIndex"由0開(kāi)始的屏幕索引,0為主屏幕/param

Private?Sub?ShowScreens(obj?As?Form,?scrIndex?As?Integer)

Dim?arr?As?Screen()?=?Screen.AllScreens

If?scrIndex??arr.Length?Then

obj.Left?+=?arr(scrIndex).Bounds.X

Else

Dim?mess?As?String?=?"當(dāng)前屏幕索引超出范圍,是否要顯示在最后一個(gè)屏幕?"

Dim?result?As?DialogResult?=?_

MessageBox.Show(mess,?"信息提示",?_

MessageBoxButtons.YesNo,?MessageBoxIcon.Warning)

If?result?=?Windows.Forms.DialogResult.Yes?Then?_

obj.Left?+=?arr(arr.Length?-?1).Bounds.X

End?Sub

多屏幕的顯示，屏幕的寬度相當(dāng)?shù)扔贜屏幕的寬度之和，更改窗體的X坐標(biāo)就能控制窗體顯示在哪個(gè)屏幕上。

vb點(diǎn)虐 中怎么可以讓窗體全屏顯示？

Me.Height = My.Computer.Screen.Bounds.Height

Me.Width = My.Computer.Screen.Bounds.Width

這是設(shè)置窗體的長(zhǎng)寬和屏幕的分辨率一樣大小，相當(dāng)于全屏。

如果Me.WindowState=FormWindowState.Maximized的話，只是單純的將窗體最大化，但恢復(fù)窗口大小后窗體的大小實(shí)際上還和原來(lái)一樣大。

VB.NET的特點(diǎn)

1.真正成為面向?qū)ο笠约爸С掷^承性的語(yǔ)言。

2.窗體設(shè)計(jì)器支持可視化繼承，并且包含了許多新的特性，比如自動(dòng)改變窗體大小、資源本地化支持、數(shù)據(jù)類(lèi)工具內(nèi)在支持XML數(shù)據(jù)。

3.直接建立在.NET的框架結(jié)構(gòu)上，因此開(kāi)發(fā)人員可以充分利用所有.NET平臺(tái)特性，也可以與其他的.NET語(yǔ)言交互。

4.為Windows應(yīng)用程序提供了XCOPY部署，開(kāi)發(fā)者不再需要為DLL的版本問(wèn)題擔(dān)憂。

用VB.NET輕松制作特效窗體

體是Windows應(yīng)用程序的基礎(chǔ) 新一代的開(kāi)發(fā)工具Visual Basic Net為設(shè)計(jì)制作窗體提供了更多簡(jiǎn)單而豐富的方法 無(wú)需再求助于復(fù)雜而易錯(cuò)的API函數(shù) 我們就可以輕松制作多種特效窗體 輕松制作透明窗體VB NET可以輕松制作出任一透明度的窗體 我們只要在窗體的 屬性 窗口中 將 Opacity 屬性設(shè)置為一個(gè)介于 （完全透明）與 （完全不透明）之間的值就可以了 Dim frm As FrmTrans = New FrmTrans()frm Opacity = frm ShowDialog() 輕松制作始終位于最上層的窗體在VB 中 要制作一個(gè)始終位于最上層的窗體我們只能求助于令人頭痛的API函數(shù) 然而在 NET 中 我們只要簡(jiǎn)單設(shè)置窗體的 TopMost 屬性就可實(shí)現(xiàn)同樣效果了！例如 Dim frm As frmTopMost = New frmTopMost()frm TopMost = Truefrm Show() 輕松制作不可見(jiàn)的窗體如果要編寫(xiě)一個(gè)不讓別人發(fā)現(xiàn)的隱藏程序 制作不可見(jiàn)的窗體就是必須實(shí)現(xiàn)的第一步 窗體的可見(jiàn)性通常由 Visible 屬性控制 但是 如果希望 Windows 應(yīng)用程序的主窗體在應(yīng)用程序啟動(dòng)時(shí)不可見(jiàn) 您將會(huì)發(fā)現(xiàn)將它的 Visible 屬性設(shè)置為 False 的方法無(wú)效 窗體總會(huì)自己顯示出來(lái)（這是因?yàn)?啟動(dòng)窗體的生存期決定了應(yīng)用程序的生存期） 雖然如此 我們還是可以通過(guò)簡(jiǎn)單將應(yīng)用程序的啟動(dòng)設(shè)置為一個(gè)模塊 從而從窗體的生存期分出應(yīng)用程序的生存期 輕松實(shí)現(xiàn)不可見(jiàn)的窗體 在下面這個(gè)例子中 窗體在特定的時(shí)間內(nèi)自動(dòng)隱藏 （ ）在 Visual Basic 中 右擊項(xiàng)目并選擇 添加模塊 以將模塊添加到 Windows 應(yīng)用程序 （ ）在已添加的模塊（或類(lèi)）內(nèi) 創(chuàng)建可作為項(xiàng)目啟動(dòng)對(duì)象的 Main 函數(shù) Sub main()Dim f As New Form ()f Visible = FalseWhile Hour(Date Now) 如果當(dāng)前時(shí)間早于 點(diǎn) 窗體自動(dòng)隱藏Application DoEvents()End Whilef ShowDialog()End Sub 輕松編寫(xiě)托盤(pán)程序托盤(pán)程序作為一類(lèi)特殊的窗體 其快捷圖標(biāo)顯示在系統(tǒng)托盤(pán)中 窗體本身則隱藏不可見(jiàn) 在 NET之前版本的VB中編寫(xiě)托盤(pán)程序是十分困難的 但是VB NET提供的新的NotifyIcon組件卻使VB初學(xué)者也能輕松編寫(xiě)一個(gè)這樣的程序 新建 Windows應(yīng)用程序 設(shè)置主窗體Opacity屬性為 FormBorderStyle屬性為None ShowInTaskbar屬性為False 這樣窗體將在啟動(dòng)后隱藏 在窗體上放置一個(gè)NotifyIcon組件NotifyIcon 一個(gè)ContextMenu（彈出菜單）組件ContextMenu 并根據(jù)需要為ContextMenu 添加菜單項(xiàng) 設(shè)置NotifyIcon 的ICON屬性 這個(gè)圖標(biāo)就是應(yīng)用程序出現(xiàn)在系統(tǒng)托盤(pán)中的快捷圖標(biāo) 設(shè)置NotifyIcon 的Text屬性為 VB NET托盤(pán)程序 這就是鼠標(biāo)移動(dòng)到托盤(pán)圖標(biāo)時(shí)彈出的文字說(shuō)明 設(shè)置NotifyIcon 的ContextMenu屬性為ContextMenu 也就是右鍵單擊快捷圖標(biāo)時(shí)的彈出菜單為ContextMenu OK 按F 運(yùn)行！幾乎不用編寫(xiě)代碼 一個(gè)托盤(pán)程序就這樣輕松實(shí)現(xiàn)了 lishixinzhi/Article/program/net/201311/13831

VB點(diǎn)虐 可以多線程控制同一個(gè)窗體及其控件嗎

不可以，但是能夠在主線程的基礎(chǔ)上調(diào)用委托（Invoke）。（主線程會(huì)被占用）

例子：

Dim thr As Threading.Thread

Public Delegate Sub VoidDelegate()

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

thr = New Threading.Thread(AddressOf Where)

thr.Start()

End Sub

Public Sub Where()

Me.BeginInvoke(New VoidDelegate(AddressOf WhereThr))

End Sub

Public Sub WhereThr()

Me.TextBox.text="0123456789"

End Sub

(Invoke)這種情況下，主線程被占用，所有由主線程執(zhí)行程序，都將被（wherethr函數(shù)執(zhí)行結(jié)束）后執(zhí)行。