dim a,b as integer a=val(inputbox ("請(qǐng)輸入三角形的底邊長(zhǎng)!")) b=val(inputbox ("請(qǐng)輸入三角形的高!"))) msgbox "三角形的面積為" a*b/2
創(chuàng)新互聯(lián)建站專注于孫吳企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè)公司,商城網(wǎng)站制作。孫吳網(wǎng)站建設(shè)公司,為孫吳等地區(qū)提供建站服務(wù)。全流程按需定制設(shè)計(jì),專業(yè)設(shè)計(jì),全程項(xiàng)目跟蹤,創(chuàng)新互聯(lián)建站專業(yè)和態(tài)度為您提供的服務(wù)
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ù)類工具內(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)憂。
.Top 和 .Left
.Top 是距離屏幕頂端的距離,也就是Y坐標(biāo)
.Left 是距離屏幕左邊的距離,也就是X坐標(biāo)
例如
Private?Sub?Form_Load()
With?Me
.Top?=?0
.Left?=?0
End?With
End?Sub
把自己的位置調(diào)到最左上角
主要是對(duì)SerialPort控件的編程和數(shù)據(jù)庫(kù)的讀取,
在數(shù)據(jù)庫(kù)讀取方面可以用 DataSet ,BindingSource , TableAdapter 等數(shù)據(jù)綁定控件,
SerialPort控件的具體讀寫方法建議你看MSDN,大概是:
Private Sub 關(guān)閉和啟動(dòng)串口()
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
'等等
兩個(gè)顯示器顯示有兩種模式,一種是雙屏復(fù)制,另一種是擴(kuò)展。
你這個(gè)只能用第二種方式。你需要把要在另一個(gè)顯示器上顯示的窗體的Location設(shè)置在主顯示器全屏?xí)r的右邊就可以了.其實(shí)就是桌面的向右延伸。
在主顯示上拖一下窗體就明白了!
'''?summary多屏顯示屏幕設(shè)置/summary
'''?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è)屏幕上。
文章標(biāo)題:vb.net屏幕控制 vb窗體全屏
文章分享:http://chinadenli.net/article2/dodehic.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站收錄、小程序開(kāi)發(fā)、App開(kāi)發(fā)、做網(wǎng)站、網(wǎng)站建設(shè)、電子商務(wù)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)