弄个有偿答题估计也不错
vb2008吧
全部回复
仅看楼主
level 6
oshi001 楼主
如标题,简单不收费,复杂的收点。或者完全免费的也行
2015年04月28日 05点04分 1
level 1
可以帮个忙吗?
2015年05月02日 04点05分 2
你好,什么事看能帮的到不
2015年05月02日 04点05分
level 1
可以帮个忙吗?我有一个程序想加入单词翻译功能,但是一直没成功
2015年06月21日 04点06分 3
level 6
oshi001 楼主
好的
2015年06月21日 04点06分 4
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
oshi001 楼主
感觉有点怪怪的你似乎没在画板上画呀,什么版本俺明天上机看下。感觉好怪
2015年10月24日 14点10分 7
level 3
求和体
2016年05月11日 12点05分 8
level 1
可以可以教一下挂机锁
2017年03月21日 18点03分 9
什么样的功能细节
2017年03月21日 20点03分
1