'''?summary多屏顯示屏幕設置/summary
讓客戶滿意是我們工作的目標,不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴,公司提供的服務項目有:域名注冊、虛擬空間、營銷軟件、網(wǎng)站建設、巢湖網(wǎng)站維護、網(wǎng)站推廣。
'''?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
多屏幕的顯示,屏幕的寬度相當?shù)扔贜屏幕的寬度之和,更改窗體的X坐標就能控制窗體顯示在哪個屏幕上。
主要是對SerialPort控件的編程和數(shù)據(jù)庫的讀取,
在數(shù)據(jù)庫讀取方面可以用 DataSet ,BindingSource , TableAdapter 等數(shù)據(jù)綁定控件,
SerialPort控件的具體讀寫方法建議你看MSDN,大概是:
Private Sub 關(guān)閉和啟動串口()
Try
If 串口.IsOpen Then
串口.Close()
End If
串口.Open()
Catch ex As Exception
''''
End Try
End Sub
Private Sub 串口的讀與寫()
......
Dim 發(fā)送字節(jié)() As Byte, 返回字節(jié) As Byte
Try
'例如要發(fā)送字節(jié): 6D
發(fā)送字節(jié) = BitConverter.GetBytes(CByte("H6D"))
串口.Write(發(fā)送字節(jié), 0, 1)
......
'例如讀串口返回的字節(jié)
返回字節(jié) = 串口.ReadByte
Catch ex As Exception
''''
End Try
......
End Sub
'等等
Me.Height = My.Computer.Screen.Bounds.Height
Me.Width = My.Computer.Screen.Bounds.Width
這是設置窗體的長寬和屏幕的分辨率一樣大小,相當于全屏。
如果Me.WindowState=FormWindowState.Maximized的話,只是單純的將窗體最大化,但恢復窗口大小后窗體的大小實際上還和原來一樣大。
VB.NET的特點
1.真正成為面向?qū)ο笠约爸С掷^承性的語言。
2.窗體設計器支持可視化繼承,并且包含了許多新的特性,比如自動改變窗體大小、資源本地化支持、數(shù)據(jù)類工具內(nèi)在支持XML數(shù)據(jù)。
3.直接建立在.NET的框架結(jié)構(gòu)上,因此開發(fā)人員可以充分利用所有.NET平臺特性,也可以與其他的.NET語言交互。
4.為Windows應用程序提供了XCOPY部署,開發(fā)者不再需要為DLL的版本問題擔憂。