VB.NET中怎么實現(xiàn)雙屏顯示不同的窗體

兩個顯示器顯示有兩種模式，一種是

讓客戶滿意是我們工作的目標，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴，公司提供的服務項目有：主機域名、虛擬空間、營銷軟件、網(wǎng)站建設、安康網(wǎng)站維護、網(wǎng)站推廣。

雙屏

復制，另一種是擴展。

你這個只能用第二種方式。你需要把要在另一個顯示器上顯示的窗體的Location設置在主顯示器全屏時的右邊就可以了.其實就是桌面的向右延伸。

在主顯示上拖一下窗體就明白了！

vb.net 多線程 訪問界面控件

建議你使用BackGroundWorker控件。將代碼寫入控件的事件中，使用它的Start方法就可以開始工作了。是與主程序同時進行的。

如何實現(xiàn)VB.net中兩個窗口中控件相互之間控制

你要對什么控件達到什么樣的控制？？？

通常要在Form1控制Form2的控件，應該在控件名之前寫上窗體名，例如：

在Form1里要控制Form2的控件，可以；

Form2.控件名.屬性（或者方法）等。

vb.net如何調用窗體之間的控件

Public Class ks

Inherits System.Windows.Forms.Form

#Region " Windows 窗體設計器生成的代碼 "

Public Sub New()

MyBase.New()

'該調用是 Windows 窗體設計器所必需的。

InitializeComponent()

'在 InitializeComponent() 調用之后添加任何初始化

End Sub

'窗體重寫 dispose 以清理組件列表。

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

End If

MyBase.Dispose(disposing)

End Sub

'Windows 窗體設計器所必需的

Private components As System.ComponentModel.IContainer

'注意: 以下過程是 Windows 窗體設計器所必需的

'可以使用 Windows 窗體設計器修改此過程。

'不要使用代碼編輯器修改它。

Friend WithEvents tx As System.Windows.Forms.TextBox

Friend WithEvents ty As System.Windows.Forms.TextBox

Friend WithEvents tz As System.Windows.Forms.TextBox

Friend WithEvents ok As System.Windows.Forms.Button

Friend WithEvents l1 As System.Windows.Forms.Label

Friend WithEvents l2 As System.Windows.Forms.Label

Friend WithEvents l3 As System.Windows.Forms.Label

System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()

Me.l1 = New System.Windows.Forms.Label

Me.l2 = New System.Windows.Forms.Label

Me.l3 = New System.Windows.Forms.Label

Me.tx = New System.Windows.Forms.TextBox

Me.ty = New System.Windows.Forms.TextBox

Me.tz = New System.Windows.Forms.TextBox

Me.ok = New System.Windows.Forms.Button

Me.SuspendLayout()

'

'l1

'

Me.l1.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))

Me.l1.Location = New System.Drawing.Point(8, 8)

Me.l1.Name = "l1"

Me.l1.Size = New System.Drawing.Size(200, 16)

Me.l1.TabIndex = 0

'

'l2

'

Me.l2.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))

Me.l2.Location = New System.Drawing.Point(8, 32)

Me.l2.Name = "l2"

Me.l2.Size = New System.Drawing.Size(200, 16)

Me.l2.TabIndex = 1

'

'l3

'

Me.l3.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))

Me.l3.Location = New System.Drawing.Point(8, 56)

Me.l3.Name = "l3"

Me.l3.Size = New System.Drawing.Size(200, 16)

Me.l3.TabIndex = 2

'

'tx

'

Me.tx.Location = New System.Drawing.Point(8, 80)

Me.tx.Name = "tx"

Me.tx.Size = New System.Drawing.Size(200, 25)

Me.tx.TabIndex = 3

Me.tx.Text = "請輸入x"

'

'ty

'

Me.ty.Location = New System.Drawing.Point(8, 104)

Me.ty.Name = "ty"

Me.ty.Size = New System.Drawing.Size(200, 25)

Me.ty.TabIndex = 4

Me.ty.Text = "請輸入y"

'

'tz

'

Me.tz.Location = New System.Drawing.Point(8, 128)

Me.tz.Name = "tz"

Me.tz.Size = New System.Drawing.Size(200, 25)

Me.tz.TabIndex = 5

Me.tz.Text = "請輸入z"

'

'ok

'

Me.ok.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))

Me.ok.Location = New System.Drawing.Point(8, 160)

Me.ok.Name = "ok"

Me.ok.Size = New System.Drawing.Size(200, 64)

Me.ok.TabIndex = 6

Me.ok.Text = "ok"

'

'ks

'

Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)

Me.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(255, Byte))

Me.ClientSize = New System.Drawing.Size(216, 232)

Me.Controls.Add(Me.ok)

Me.Controls.Add(Me.tz)

Me.Controls.Add(Me.ty)

Me.Controls.Add(Me.tx)

Me.Controls.Add(Me.l3)

Me.Controls.Add(Me.l2)

Me.Controls.Add(Me.l1)

Me.Name = "ks"

Me.Text = "考試"

Me.ResumeLayout(False)

End Sub

#End Region

Dim x, y, z, a, b, c, d, aa, bb, cc As Single

Dim tts, alls As Single

Private Sub ks_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

x = Int(1 + 30 * Rnd())

y = Int(1 + 20 * Rnd())

z = Int(1 + 25 * Rnd())

a = Int(2 + 4 * Rnd())

b = Int(1 + a * 2 * Rnd())

c = Int(1 + b * 2 * Rnd())

d = Int(1 + c * 3 * Rnd())

aa = x + y + z

bb = a * x + b * y + c * z

cc = b * x + c * y + d * z

l1.Text = "x+y+z=" Str(aa)

l2.Text = Str(a) "x+" Str(b) "y+" Str(c) "z=" Str(bb)

l3.Text = Str(b) "x+" Str(c) "y+" Str(d) "z=" Str(cc)

End Sub

Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click

If Val(tx.Text) = x And Val(ty.Text) = y And Val(tz.Text) = z Then

tts = tts + 1

End If

alls = alls + 1

tx.Text = ""

ty.Text = ""

tz.Text = ""

x = Int(1 + (1000 ^ 0.5) * Rnd())

y = Int(1 + (10000 ^ 0.4) * Rnd())

z = Int(1 + (100000 ^ 0.3) * Rnd())

a = Int(2 + 4 * Rnd())

b = Int(1 + a * 2 * Rnd())

c = Int(1 + b * 2 * Rnd())

d = Int(1 + c * 3 * Rnd())

aa = x + y + z

bb = a * x + b * y + c * z

cc = b * x + c * y + d * z

l1.Text = "x+y+z=" Str(aa)

l2.Text = Str(a) "x+" Str(b) "y+" Str(c) "z=" Str(bb)

l3.Text = Str(b) "x+" Str(c) "y+" Str(d) "z=" Str(cc)

End Sub

Private Sub ks_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click

Dim lv As Single

If Not (alls = 0) Then

lv = Int(tts * 100000 / alls) / 1000

MsgBox(Str(lv) "%", , "正確率")

tx.Visible = False

ty.Visible = False

tz.Visible = False

ok.Visible = False

l1.Visible = False

l2.Visible = False

l3.Visible = False

Else

MsgBox("答題!", , "答題!")

End If

End Sub

End Class

網(wǎng)站題目：vb.net雙頁面控件,vb窗口具有雙線框架
本文來源：http://chinadenli.net/article16/dsgicgg.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供電子商務、自適應網(wǎng)站、品牌網(wǎng)站設計、定制開發(fā)、動態(tài)網(wǎng)站、云服務器

廣告

聲明：本網(wǎng)站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)