vb.net保存圖片時(shí)如何調(diào)整其分辨率

保存前加一句 myImage2.SetResolution(300, 300) 你設(shè)置的bMape不是保存的主畫(huà)布 所以無(wú)效，設(shè)置分辨率就是 SetResolution（X,Y）

網(wǎng)站建設(shè)公司,為您提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)頁(yè)設(shè)計(jì)及定制網(wǎng)站建設(shè)服務(wù),專注于企業(yè)網(wǎng)站制作,高端網(wǎng)頁(yè)制作,對(duì)成都葡萄架等多個(gè)行業(yè)擁有豐富的網(wǎng)站建設(shè)經(jīng)驗(yàn)的網(wǎng)站建設(shè)公司。專業(yè)網(wǎng)站設(shè)計(jì),網(wǎng)站優(yōu)化推廣哪家好,專業(yè)營(yíng)銷推廣優(yōu)化,H5建站,響應(yīng)式網(wǎng)站。

vb.net 怎樣將窗體和所有控件根據(jù)電腦分辨率固定？

Public?Class?Form1

Dim 初始化控件自動(dòng)大小調(diào)整與窗口的寬度比例 As Integer

Dim 初始化控件自動(dòng)大小調(diào)整與窗口的高度比例 As Integer

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

初始化控件自動(dòng)大小調(diào)整與窗口的寬度比例 = Me.Width / 控件自動(dòng)大小調(diào)整.Width

初始化控件自動(dòng)大小調(diào)整與窗口的高度比例 = Me.Height / 控件自動(dòng)大小調(diào)整.Height

顯示控件的位置坐標(biāo)()

End?Sub

Private?Sub Form1_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd

' Form1_ResizeEnd? 這個(gè)事件是 窗口大小變化完成后 再進(jìn)行操作的

控件自動(dòng)大小調(diào)整.Location = New Point(控件自動(dòng)大小調(diào)整.Left, 控件自動(dòng)大小調(diào)整.Top)

'設(shè)置控件的初始左位置坐標(biāo)? 與? 上位置坐標(biāo)

控件自動(dòng)大小調(diào)整.Size = New Point(Int(Me.Width / 初始化控件自動(dòng)大小調(diào)整與窗口的寬度比例), Int(Me.Height / 初始化控件自動(dòng)大小調(diào)整與窗口的高度比例))

'更改控件的大小? 按第一次窗口的比例 進(jìn)行調(diào)整

顯示控件的位置坐標(biāo)()

End Sub

Private?Sub 顯示控件的位置坐標(biāo)()

Label1.Text = "控件的上邊距坐標(biāo)： " 控件自動(dòng)大小調(diào)整.Top

Label2.Text = "控件的左邊距坐標(biāo)： " 控件自動(dòng)大小調(diào)整.Left

Label3.Text = "控件的寬度大?。?" 控件自動(dòng)大小調(diào)整.Width

Label4.Text = "控件的高度大小： " 控件自動(dòng)大小調(diào)整.Height

End Sub

End?Class

VB.NET中設(shè)定窗體大小

窗體初始化時(shí)，設(shè)定Windowstate= maximized.

窗體分辨率仍然可以設(shè)成1920x1080。設(shè)計(jì)元素的時(shí)候拖拽，或者使用代碼初始化控件。

在VB.NET中通過(guò)那個(gè)函數(shù)可以獲取當(dāng)前屏幕的分辨率?

您可以用下面給出這一小段代碼檢測(cè)當(dāng)前屏幕分辨率，然后根據(jù)結(jié)果作出反應(yīng)──例如，重新調(diào)整窗體大小以適應(yīng)用程序戶分辨率。

Public Function CheckRez(pixelWidth As Long, pixelHeight As Long) As Boolean

'

Dim lngTwipsX As Long

Dim lngTwipsY As Long

'

' convert pixels to twips

lngTwipsX = pixelWidth * 15

lngTwipsY = pixelHeight * 15

'

' check against current settings

If lngTwipsX Screen.Width Then

CheckRez = False

Else

If lngTwipsY Screen.Height Then

CheckRez = False

Else

CheckRez = True

End If

End If

'

End Function

Next, run the following code at the start of the program:

If CheckRez(640, 480) = False Then

MsgBox "Incorrect screen size!"

Else

MsgBox "Screen Resolution Matches!"

End If