关于vbnetgdi的信息

基于VBNET的GDI坐标系统如何设置坐标单位

123456789101112Dim picX, picY, x1, y1, x2, y2, a href=";tn=44039180_cprfenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1YLPhmknAcvPjNhnvRYPAF90ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHb3rjbkrjc3rHc4nHn1rj0vPs" target="_blank" class="baidu-highlight"gdi/aX, a href=";tn=44039180_cprfenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1YLPhmknAcvPjNhnvRYPAF90ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHb3rjbkrjc3rHc4nHn1rj0vPs" target="_blank" class="baidu-highlight"gdi/aYpicX = 0 '要转换的Picture1坐标XpicY = 0 '要转换的Picture1坐标Yx1 = Picture1.ScaleLefty1 = Picture1.ScaleTopx2 = Picture1.ScaleLeft + Picture1.ScaleWidthy2 = Picture1.ScaleTop + Picture1.ScaleHeight '记录原先的坐标系统Picture1.ScaleMode = 3 '坐标系统设为像素a href=";tn=44039180_cprfenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1YLPhmknAcvPjNhnvRYPAF90ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHb3rjbkrjc3rHc4nHn1rj0vPs" target="_blank" class="baidu-highlight"gdi/aX = Round((picX - x1) / (x2 - x1) * Picture1.ScaleWidth)gdiY = Round((picY - y1) / (y2 - y1) * Picture1.ScaleHeight)MsgBox "Picture1的坐标(" picX "," picY ")转为GDI坐标是(" gdiX "," gdiY ")"Picture1.Scale (x1, y1)-(x2, y2) '改回原先的坐标系统

相关问答

Q1: vb.net中使用GDI画图，然后平移，可是平移之前的图还在，怎么去掉平移之前的，保留平移之后的？

如果是简单的移动，先把图形绘制到大小和PictureBox的Bitmap上，然后再绘制到PictureBox就行。

不过在VB.NET中用GDI绘制最好用BufferedGraphics图形缓冲区，速度马马虎虎（VB就这样了），但是不闪烁，不存在背景擦除的问题。

Q2: vb.net GDI ,不是系统的字体,是工程目录下的字体文件

GDI绘图用字体必须安装才能使用

在客户机部署应用程序时，安装该字体就行

Q3: VB.NET怎么应用GDI画串口通讯数据的实时曲线

拖一个PictureBox1控件

创建一个Paint事件。在事件中加入

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

' Create pens.

Dim redPen As New Pen(Color.Red, 3)

Dim greenPen As New Pen(Color.Green, 3)

' Create points that define curve.

Dim point1 As New Point(50, 50)

Dim point2 As New Point(100, 25)

Dim point3 As New Point(200, 5)

Dim point4 As New Point(250, 50)

Dim point5 As New Point(300, 100)

Dim point6 As New Point(350, 200)

Dim point7 As New Point(250, 250)

Dim curvePoints As Point() = {point1, point2, point3, point4, _

point5, point6, point7}

' Draw lines between original points to screen.

e.Graphics.DrawLines(redPen, curvePoints)

' Draw curve to screen.

e.Graphics.DrawCurve(greenPen, curvePoints)

End Sub

得到数据后vbnetgdi，改pointvbnetgdi的数据。然后PictureBox1.Refresh()就行vbnetgdi了

关于vbnetgdi和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。