关于vb.net按坐标打印的信息

vb.net Document_PrintPage打印多行文本

比如:

创新互联建站坚持“要么做到,要么别承诺”的工作理念,服务领域包括:成都网站设计、网站建设、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的长泰网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!

Private Sub Document_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

e.Graphics.DrawString(str0, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)

e.Graphics.DrawString(A1, New Font("Arial", 10, FontStyle.Regular), Brushes.Black,50, 100)

e.Graphics.DrawString(A2, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 300,100)

e.Graphics.DrawString(A3, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 800,100)

也就是分次用不同坐标和不同的字体来打印各变量。画线用:

e.Graphics.DrawLine(BlackPen, x1, y1, x2, y2)。

具体坐标数值自己用尺量出,再换算。

vb.net 打印功能

可以把数据导出到EXCEL,然后使用EXCEL进一步处理后使用。

也可以做成vb报表(VB自带有)。

先设置报表格式,打印时向报表传递数据就可以了。

怎么用VB.NET编程实现在桌面随机坐标显示指定的某些图片(随机显示某张图片),望高手帮忙

1.首先建立一个基于Microsoft .NET Framework 2.0以上的VB.NET解决方案。

2.在窗体上面添加一个PictureBox控件,并绑定到父容器里面(绑定到父容器的操作可以不去实现)。

3.给PictureBox.Image指定路径,这里以“C:\Windows\Web\Wallpaper\Windows\img0.jpg”为例子,当然这张图片在Windows 7旗舰版下面会有的。

4.添加代码:

Public Class Form1

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

Randomize()

Dim xScn As UInteger = My.Computer.Screen.Bounds.Width

Dim yScn As UInteger = My.Computer.Screen.Bounds.Height

ReLine:

Dim xShow As Integer = Int((xScn + 1) * Rnd()) - Me.Width

Dim yShow As Integer = Int((yScn + 1) * Rnd()) - Me.Height

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

PictureBox1.Image = Image.FromFile("C:\Windows\Web\Wallpaper\Windows\img0.jpg")

PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

If xShow = 0 And yShow = 0 Then

Me.Location = New Point(xShow, yShow)

Else

GoTo ReLine

End If

Me.Show()

End Sub

End Class

5.我是使用 Visual Studio 2012 Ultimate 开发的,若有错误请参考请他方法进行修改

vb.net怎么自定义坐标系

scale(x1,y1)-(x2,y2)

你只要记住,这里的x1,y1是左上角的坐标,x2,y2是右下角的坐标,通过这两个点的坐标设定,就可以决定坐标原点的位置以及坐标轴的方向了,比如

Scale (-300,200)-(300,-200)

以上是把坐标原点设在窗体中心,x轴长600,方向从左到右,y轴长400,方向从下向上。

Scale (800,0)-(0,600)

以上是把坐标原点设在窗体右上角,x轴长800,方向从右到左,y轴长600,方向从上向下。

下面说坐标轴和原点的标示法:

假定自定义坐标设为:

Scale (-300, 200)-(300, -200)

Line (-300, 0)-(300, 0) '画x轴

Line (0, 200)-(0, -200) '画y轴

CurrentX = 290

CurrentY = -5

Print "x" '标示x轴

CurrentX = 5

CurrentY = 200

Print "y" '标示y轴

CurrentX = 5

CurrentY = -5

Print "0" '标示原点

vb的printer.scale 用来打印全屏或者当前控件显示内容,换成vb.net用什么方法能实现?

报表打印应该也能实现,但是我觉得你这个用文本打印更简单,将数据输出到txt文件,结果用RichTextBox显示,但是需要简单的排版,调用打印机打印RichTextBox即可的

排版用tab()、space()、vbcrlf或PrintLine(1)换行,代码类似如下样式

PrintLine(1, TAB(60), "准考证" )

PrintLine(1)

PrintLine(1, "姓名:" xingming Space(3) "准考证号:" cel(1) Space(3) cel(2) Space(3) cel(3))

但是TAB()排版比较规整


本文标题:关于vb.net按坐标打印的信息
当前链接:http://bzwzjz.com/article/dsigejc.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 重庆手机网站建设 营销网站建设 品牌网站建设 网站设计 成都网站建设 成都网站设计 网站设计 专业网站设计 成都网站设计 手机网站建设套餐 营销网站建设 响应式网站设计方案 移动网站建设 手机网站建设 成都企业网站建设 四川成都网站建设 成都网站设计 成都响应式网站建设 成都网站建设 四川成都网站制作 公司网站建设 成都网站建设