level 6
如标题,简单不收费,复杂的收点。或者完全免费的也行
2015年04月28日 05点04分
1
level 1
可以帮个忙吗?我有一个程序想加入单词翻译功能,但是一直没成功
2015年06月21日 04点06分
3
level 1
Public Class frmLine
Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
'从界面的文本框读取坐标点
Dim OriginalPoint As New Point
Dim LastPoint As New Point
OriginalPoint.X = Me.txbXCoor1.Text
OriginalPoint.Y = Me.txbYcoor1.Text
LastPoint.X = Me.txbXcoor2.Text
LastPoint.Y = Me.txbYcoor2.Text
'进行坐标变换
Dim NewPoint1 As New Point
Dim NewPoint2 As New Point
NewPoint1 = frmMain.CoordinateTransformFromEngineeringToGDI(OriginalPoint)
NewPoint2 = frmMain.CoordinateTransformFromEngineeringToGDI(LastPoint)
'创建画笔
Dim myColor As Color = Color.White
Dim mypen As New System.Drawing.Pen(System.Drawing.Color.White)
frmMain.g.DrawLine(mypen, NewPoint1, NewPoint2)
'更新PictureBox控件的Image
frmMain.PictureBox1.Image = frmMain.MyBitMap
End Sub
End Class
2015年10月24日 13点10分
6
level 6
感觉有点怪怪的你似乎没在画板上画呀,什么版本俺明天上机看下。感觉好怪
2015年10月24日 14点10分
7