兩個(gè)顯示器顯示有兩種模式,一種是
創(chuàng)新互聯(lián)專注于企業(yè)成都全網(wǎng)營銷推廣、網(wǎng)站重做改版、吐魯番網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5高端網(wǎng)站建設(shè)、成都做商城網(wǎng)站、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計(jì)等建站業(yè)務(wù),價(jià)格優(yōu)惠性價(jià)比高,為吐魯番等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
雙屏
復(fù)制,另一種是擴(kuò)展。
你這個(gè)只能用第二種方式。你需要把要在另一個(gè)顯示器上顯示的窗體的Location設(shè)置在主顯示器全屏?xí)r的右邊就可以了.其實(shí)就是桌面的向右延伸。
在主顯示上拖一下窗體就明白了!
Imports System.Threading
Public Class Form1
Dim t1, t2 As Thread
Dim tt1
Private Delegate Sub voiddelegate(ByVal i As Integer)
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Form2.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
t1 = New Thread(AddressOf test)
tt1 = 1
t1.Start()
tt1 = 2
t2 = New Thread(AddressOf test)
t2.Start()
' Timer1.Start()
End Sub
Private Sub updateui(ByVal i As Integer)
Form2.Label1.Text = i.ToString
Form2.Label2.Text = i.ToString
End Sub
'把循環(huán)放到線程中運(yùn)行會(huì)好一些,其實(shí)主要事務(wù)是對(duì)窗體控件的操作時(shí)多線程意義不大,因?yàn)樵L問窗體的代碼依然要在窗體線程中運(yùn)行。
Private Sub test()
Dim d As voiddelegate = AddressOf updateui
For i = 0 To 9000
Me.Invoke(d, i)
Next
End Sub
'如果放在計(jì)時(shí)器中運(yùn)行效果好的多
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static i As Integer = 0
i += 1
If i 9000 Then Timer1.Stop() : i = 0
Form2.Label1.Text = i.ToString
Form2.Label2.Text = i.ToString
End Sub
End Class
'如果在另一線程中用Application.run 打開窗體確實(shí)能行,不過窗體間相互操作不起作用,這個(gè)尚待研究中。
首先要添加兩個(gè)窗體,假設(shè)第一個(gè)窗體名為Form1,第二個(gè)窗體名為Form2。在Form1窗體中添加個(gè)按鈕Command1。按鈕單擊事件的代碼為:
Private Sub Command1_Click()
Form2.Show '用show方法加載并且顯示名為Form2的窗體
End Sub
show 方法后面省略了兩個(gè)參數(shù)即Form2.Show 0或Form2.Show 1此參數(shù)可缺省??勺孕羞\(yùn)行驗(yàn)證
給你個(gè)例子
新建兩個(gè)窗體Form1,F(xiàn)orm2,每個(gè)窗體上放置一個(gè)按鈕Button1,在Form1上放置ListBox1控件
Form1的Button1的代碼如下
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?c?As?Control
For?Each?c?In?Controls
If?c.Name.Equals("ListBox1")?Then
c.Parent?=?Form2
Form2.Show()
End?If
Next
End?Sub
Form2的Button1的代碼如下
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?c?As?Control
For?Each?c?In?Controls
If?c.Name.Equals("ListBox1")?Then
c.Parent?=?Form1
Form1.Show()
End?If
Next
End?Sub
運(yùn)行界面如下
點(diǎn)擊Button1,ListBox1控件,會(huì)在兩個(gè)窗體間移動(dòng)
在項(xiàng)目中右鍵點(diǎn)擊添加窗體。在代碼中需要顯示該窗體的地方寫入如下代碼:“form2.show()”form2是你窗體的name屬性……
如果是VB.NET
那么可以直接從一個(gè)父窗體類繼承,例如
Dim
NewFrm
as
New
Form1
NewFrm.Show
這樣可以為一個(gè)窗體創(chuàng)建N個(gè)相同的子類,并且通過類的方法覆蓋,可以與父類有所不同