Me.Height = My.Computer.Screen.Bounds.Height
網站制作、建網站找專業網站建設公司創新互聯:定制網站、模板網站、仿站、微信小程序開發、軟件開發、成都app開發等。做網站價格咨詢創新互聯:服務完善、十年建站、值得信賴!網站制作電話:028-86922220
Me.Width = My.Computer.Screen.Bounds.Width
這是設置窗體的長寬和屏幕的分辨率一樣大小,相當于全屏。
如果Me.WindowState=FormWindowState.Maximized的話,只是單純的將窗體最大化,但恢復窗口大小后窗體的大小實際上還和原來一樣大。
VB.NET的特點
1.真正成為面向對象以及支持繼承性的語言。
2.窗體設計器支持可視化繼承,并且包含了許多新的特性,比如自動改變窗體大小、資源本地化支持、數據類工具內在支持XML數據。
3.直接建立在.NET的框架結構上,因此開發人員可以充分利用所有.NET平臺特性,也可以與其他的.NET語言交互。
4.為Windows應用程序提供了XCOPY部署,開發者不再需要為DLL的版本問題擔憂。
Me.Height = My.Computer.Screen.Bounds.Height\x0d\x0aMe.Width = My.Computer.Screen.Bounds.Width\x0d\x0a這是設置窗體的長寬和屏幕的分辨率一樣大小,相當于全屏。\x0d\x0a如果Me.WindowState=FormWindowState.Maximized的話,只是單純的將窗體最大化,但恢復窗口大小后窗體的大小實際上還和原來一樣大。
'''?summary多屏顯示屏幕設置/summary
'''?param?name="obj"目標窗體/param
'''?param?name="scrIndex"由0開始的屏幕索引,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?=?"當前屏幕索引超出范圍,是否要顯示在最后一個屏幕?"
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
多屏幕的顯示,屏幕的寬度相當等于N屏幕的寬度之和,更改窗體的X坐標就能控制窗體顯示在哪個屏幕上。
回復 1# [ol][*]Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load[*]? ???Me.Height = My.Computer.Screen.WorkingArea.Height[*]? ???Me.Width = My.Computer.Screen.WorkingArea.Width[*]? ???Me.WindowState = FormWindowState.Maximized[*]? ???Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None[*]End Sub[/ol]
主要是對SerialPort控件的編程和數據庫的讀取,
在數據庫讀取方面可以用 DataSet ,BindingSource , TableAdapter 等數據綁定控件,
SerialPort控件的具體讀寫方法建議你看MSDN,大概是:
Private Sub 關閉和啟動串口()
Try
If 串口.IsOpen Then
串口.Close()
End If
串口.Open()
Catch ex As Exception
''''
End Try
End Sub
Private Sub 串口的讀與寫()
......
Dim 發送字節() As Byte, 返回字節 As Byte
Try
'例如要發送字節: 6D
發送字節 = BitConverter.GetBytes(CByte("H6D"))
串口.Write(發送字節, 0, 1)
......
'例如讀串口返回的字節
返回字節 = 串口.ReadByte
Catch ex As Exception
''''
End Try
......
End Sub
'等等
兩個顯示器顯示有兩種模式,一種是
雙屏
復制,另一種是擴展。
你這個只能用第二種方式。你需要把要在另一個顯示器上顯示的窗體的Location設置在主顯示器全屏時的右邊就可以了.其實就是桌面的向右延伸。
在主顯示上拖一下窗體就明白了!