vb.net打印分辨率 vb分辨率适配

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb.net屏幕分辨率的单位是什么？

默认单位是像素

96是系统的一种设定，每英寸的点数，是系统界面用小字体时的设置

用像素数除以DPI没有意义

相关问答

Q1: vb.net 怎样将窗体和所有控件根据电脑分辨率固定？

使用SplitContainer1控件不就行了，SplitContainer1控件的Fixedpanel属性设置为Panel1\x0d\x0aSplitContainer1的Panel2里面再放置一个SplitContainer2\x0d\x0aSplitContainer2控件的Fixedpanel属性设置为Panel2\x0d\x0a二个SplitContainer设置为水平折为器方向\x0d\x0a至于播放器控件就放在SplitContainer2控件Panel1里面\x0d\x0a播放器控件DOCK设置为FILL\x0d\x0a\x0d\x0a这样不管放大缩小界面，播放器控件总是自适应窗体大小而菜单按钮总是在最边缘

Q2: vb.net保存图片时如何调整其分辨率

保存前加一句 myImage2.SetResolution(300, 300) 你设置的bMape不是保存的主画布所以无效，设置分辨率就是 SetResolution（X,Y）

Q3: VB中用什么代码打印文件啊,语句怎么写啊,

VB中的几种打印方法

1. 采用Visual Basic 提供的简单打印函数PrintForm 方法。应用程序窗体的PrintForm 方法时，Visual Basic 把窗体的位图送到当前打印机。该方法的优点在于它几乎不需要任何编程，但也有很大缺陷。最为突出的是当低分辨率图形在高分辨率打印机上打印时，其结果令人无法满意，会产生锯齿。下面代码将在打印机上打印窗体。

Private Sub Command1_Click() ' 用PrintForm 打印

Me.PrintForm ' 打印窗体的可见区域

End Sub

2. 用Printer 对象进行高分辨率输出。但要想产生复杂的打印输出，编程较为烦琐。Printer 对象代表系统缺省的打印机，Printer 对象支持许多由窗体和图形框所支持的属性和方法，三种对象都有画线和画方框。应用程序可用以下代码在Printer 对象上画出一平方英寸的方框。它离左上角二英寸。注意：打印机以twips 来测量距离。每英寸有1440 个twips。

Printer.Line(2 ＊1440,2 ＊1440) －Step(1440,1440), ,B

打印机、从窗体和图形框都有Circle、PaintPicture、Print、Pset、TextHeight、TextWidth 方法。使用这些方法，应用程序可以为打印机生成高分辨率输出。

打印文本直接用Print 方法，见下列代码：

Printer.Print "Hello,China ComputerWorld!" ' 打印字符串

Printer 对象还有一些窗体和图形框都没有方法：

NewPage 告诉打印机，程序对当前输出页的发送已经结束，Printer 对象应开始新的一页。

EndDoc 告诉VB，程序创建文档结束，VB 应将它发送到物理打印机上打印。

KillDoc 取消当前打印作业。应用程序应该终止由EndDoc 和KillDoc 所设定的每个打印作业。

Zoom 属性用于定义打印输出的缩放因子。

Copies 属性用于定义打印的副本数目。

3. 采用直接将数据传送打印机的方法进行打印输出。有两种方法将数据送往打印机。第一种是用Print ＃方法，就像将数据写入一个文件一样。另一种方法写端口，但不是送文本，而是送特定的PCL 语言，PCL 表示打印控制语言，它是一种特殊语言，用转义代码来控制打印机的具体动作。因为此方法太烦琐，本文不做太多介绍。

4. 如果你在编程时用到了RichTextBox 控制，那么你可以使用该控件的SelPrint 方法来打印，使用非常简单。下面一段代码即用RichTextBox 控件的SelPrint 方法来完成打印。

Private Sub Command3_Click() 'SelPrint 方法

CommonDialog1.Flags=cdlPDReturnDC ＋cdlPDNoPageNums

If RTF1.SelLength = 0 Then

'RTF1 为窗体的RichTextBox 控制

CommonDialog1.Flags = CommonDialog1.Flags

＋cdlPDAllPages

Else

CommonDialog1.Flags = CommonDialog1.Flags ＋

cdlPDSelection

End If

CommonDialog1.CancelError = True

On Error Resume Next

CommonDialog1.ShowPrinter

If Err.Number = cdlCancel Then Exit Sub

If Err.Number 0 Then

Beep

MsgBox "Error printing file."

＆vbCrLf ＋Err.Description, vbOKOnly ＋vbExclamation,

“Printing Error!"

Exit Sub

End If

Printer.Print ""

RTF1.SelPrint CommonDialog1.hDC

' 打印RTF1 控件的可见区域

End Sub

上面代码先进行打进设置，再进行打印。如果不需要设置，采用下面代码更为简单:

RTF1.SelPrint Printer.hDC

' 打印RTF1 控件的可见区域

5. 可以在VB 中调用Word 97 提供的OLE 自动化服务，利用Word 97 强大的打印功能来完成VB 打印，笔者认为这是最令人满意的方法。下面代码说明VB 如何与Word 集成。

Private Sub Command4_Click() ' 调用Word 打印

Dim objWord As Object

Const CLASSOBJECT = "Word.Application"

On Error GoTo objError

Set objWord = CreateObject(CLASSOBJECT)

objWord.Visible = True

objWord.Documents.Add

With objWord

.ActiveDocument.Paragraphs.Last.Range.Bold = False

.ActiveDocument.Paragraphs.Last.Range.Font.Size =20

.ActiveDocument.Paragraphs.Last.Range.Font.Name =

"黑体"

.ActiveDocument.Paragraphs.Last.Range.Font.ColorIndex==4

.ActiveDocument.Paragraphs.Last.Range.Text =

"我是计算机世界读者!"

End With

Clipboard.Clear

Clipboard.SetText

"通过剪切板向WORD 传送数据!"

objWord.Selection.Paste

objWord.PrintPreview = True ' 预览方式

'objWord.PrintOut' 执行打印

'objWord.Quit' 退出Word

Exit Sub

objError:

If Err 429 Then

MsgBox Str ＄(Err) ＆Error ＄

Set objWord = Nothing

' 不能创建Word 对象则退出

Exit Sub

Else

Resume Next

End If

End Sub

6. 用VC 编制DLL 模块完成打印。在VB 中调用该模块，用混合编程方法进行打印输出。因涉及VC 编程比较烦琐，这里不再讨论。

Q4: VB.NET设置屏幕分辨率、颜色位数、刷新率实例代码

这篇文章介绍了VB.NET设置屏幕分辨率、颜色位数、刷新率

实例代码，有需要的朋友可以参考一下

复制代码

代码如下:

Private

Declare

Function

GetDeviceCaps

Lib

"gdi32"

(ByVal

hdc

Long,

ByVal

nIndex

Long)

Long

Private

Declare

Function

ChangeDisplaySettings

Lib

"user32"

Alias

"ChangeDisplaySettingsA"

(lpDevMode

Any,

ByVal

dwflags

Long)

Long

Private

Const

CCDEVICENAME

Long

Private

Const

CCFORMNAME

Long

Private

Const

DM_BITSPERPEL

Long

H40000

Private

Const

DM_PELSWIDTH

Long

H80000

Private

Const

DM_PELSHEIGHT

Long

H100000

Private

Const

DM_DISPLAYFLAGS

Long

H200000

Private

Const

DM_DISPLAYFREQUENCY

H400000

Private

Const

CDS_FORCE

Long

H80000000

Private

Const

BITSPIXEL

Long

Private

Const

HORZRES

Long

Private

Const

VERTRES

Long

Private

Const

VREFRESH

116

Private

Type

DEVMODE

dmDeviceName

String

CCDEVICENAME

dmSpecVersion

Integer

dmDriverVersion

Integer

dmSize

Integer

dmDriverExtra

Integer

dmFields

Long

dmOrientation

Integer

dmPaperSize

Integer

dmPaperLength

Integer

dmPaperWidth

Integer

dmScale

Integer

dmCopies

Integer

dmDefaultSource

Integer

dmPrintQuality

Integer

dmColor

Integer

dmDuplex

Integer

dmYResolution

Integer

dmTTOption

Integer

dmCollate

Integer

dmFormName

String

CCFORMNAME

dmUnusedPadding

Integer

dmBitsPerPel

Integer

dmPelsWidth

Long

dmPelsHeight

Long

dmDisplayFlags

Long

dmDisplayFrequency

Long

End

Type

Private

Sub

cmdChangeDesktopMode_Click()

Dim

DEVMODE

With

.dmPelsWidth

CInt(txtNewWidth.Text)

.dmPelsHeight

CInt(txtNewHeight.Text)

.dmBitsPerPel

CInt(txtNewColor.Text)

.dmDisplayFrequency

CInt(txtNewFreq.Text)

.dmFields

DM_PELSWIDTH

DM_PELSHEIGHT

DM_BITSPERPEL

DM_DISPLAYFREQUENCY

.dmSize

LenB(DM)

End

With

ChangeDisplaySettings(DM,

CDS_FORCE)

Then

MsgBox

"错误!不支持此模式！"

End

Sub

Private

Sub

Form_Load()

txtOldWidth.Text

GetDeviceCaps(Me.hdc,

HORZRES)

txtOldHeight.Text

GetDeviceCaps(Me.hdc,

VERTRES)

txtOldColor.Text

GetDeviceCaps(Me.hdc,

BITSPIXEL)

txtOldFreq.Text

GetDeviceCaps(Me.hdc,

VREFRESH)

End

Sub

Q5: 用VB.Net 编程时如何获得打印机的物理边距

网络上找到这个比较全面，你试一下，我记得以前也是这么设置的。

int GetDeviceCaps( HDC hdc, int nIndex);

其中，hdc用来指定设备环境句柄，nIndex用来指定要获取的参量索引，对于打印机而言，它常常需要下列的预定义值：

LOGPIXELSX 打印机水平分辨率

LOGPIXELSY 打印机垂直分辨率

PHYSICALWIDTH 打印纸的实际宽度

PHYSICALHEIGHT 打印纸的实际高度

PHYSICALOFFSETX 实际可打印区域的物理左边距

PHYSICALOFFSETY 实际可打印区域的物理上边距

下面的函数代码就是用来设置页边距，并且还计算页面的物理边距：

void CEx_Prn1View::SetPageMargin(CDC *pDC, CPrintInfo *pInfo, int l, int t, int r, int b)

// l, t, r, b分别表示左上右下边距, 单位为0.1mm

{

int nOldMode = pDC- GetMapMode();

pDC- SetMapMode(MM_LOMETRIC);

// 计算一个设备单位等于多少0.1mm

double scaleX = 254.0 / (double)GetDeviceCaps(

pDC- m_hAttribDC, LOGPIXELSX);

double scaleY = 254.0 / (double)GetDeviceCaps(

pDC- m_hAttribDC, LOGPIXELSY);

int x = GetDeviceCaps(pDC- m_hAttribDC,

PHYSICALOFFSETX);

int y = GetDeviceCaps(pDC- m_hAttribDC,

PHYSICALOFFSETY);

int w = GetDeviceCaps(pDC- m_hAttribDC,

PHYSICALWIDTH);

int h = GetDeviceCaps(pDC- m_hAttribDC,

PHYSICALHEIGHT);

int nPageWidth = (int)((double)w*scaleX + 0.5);

// 纸宽，单位0.1mm

int nPageHeight = (int)((double)h*scaleY + 0.5);

// 纸高，单位0.1mm

m_nPhyLeft = (int)((double)x*scaleX + 0.5);

// 物理左边距，单位0.1mm

m_nPhyTop = (int)((double)y*scaleY + 0.5);

// 物理上边距，单位0.1mm

pDC- DPtoLP(pInfo- m_rectDraw);

CRect rcTemp = pInfo- m_rectDraw;

rcTemp.NormalizeRect();

m_nPhyRight = nPageWidth - rcTemp.Width() -

m_nPhyLeft; // 物理右边距，单位0.1mm

m_nPhyBottom = nPageHeight - rcTemp.Height() -

m_nPhyTop; // 物理下边距，单位0.1mm

// 若边距小于物理边距，则调整它们

if (l m_nPhyLeft) l = m_nPhyLeft;

if (t m_nPhyTop) t = m_nPhyTop;

if (r m_nPhyRight) r = m_nPhyRight;

if (b m_nPhyBottom) b = m_nPhyBottom;

// 计算并调整pInfo- m_rectDraw的大小

pInfo- m_rectDraw.left = l - m_nPhyLeft;

pInfo- m_rectDraw.top = - t + m_nPhyTop;

pInfo- m_rectDraw.right -= r - m_nPhyRight;

pInfo- m_rectDraw.bottom += b - m_nPhyBottom;

pDC- LPtoDP(pInfo- m_rectDraw);

pDC- SetMapMode(nOldMode);

// 恢复原来的映射模式

}

vb.net打印分辨率的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb分辨率适配、vb.net打印分辨率的信息别忘了在本站进行查找喔。

正文

vb.net屏幕分辨率的单位是什么？

相关问答

相关阅读

安卓手机女生必备下载软件，适合女生用的安卓手机

go语言itoa，go语言适合做什么

redis适合业务功能，redis项目中哪些用到

go语言_，go语言适合做什么

nosql适合什么场景，nosql适合用在什么环境

适合新手学习的c语言app，适合初学者的c语言编程软件

适合安卓4.4.4的游戏，安卓44支持的游戏

大学城创意商业模式设计，大学城适合创业的项目

目录[+]