已知3点的坐标如何能在picturebox里绘制坐标图,左下角为坐标原点
解决方案 »
- 运行时错误'-2147220906(80040256)'Automation错误
- 急救!VC DLL返回字符串包含Unicode的处理问题
- 请问怎样可以防止用户使用事件探查器获取SQL语句?
- 如何遍历form中的所有控件??
- 请问如何将一张bmp位图文件转换成avi格式或者是asf格式?
- ActiveReport中如何求出每页打印的行数?
- 关于MSComm控件数据接收问题
- 如何知道ADODB.COMMAND的execute是否成功
- 在sql语句中:.....where 收费表.收费日期=#2003-5# 这样写对吗?
- com到底在程序中起到什么作用,举一个简单的例子好吗
- 如何让本进程窗体跟随另一进程的窗体移动
- vb连接vfp数据库(dbc)问题
Picture1.AutoRedraw = True
Picture1.ForeColor = vbRed
Picture1.DrawWidth = 2
Picture1.Line (300, 0)-(300, Picture1.Height), vbRed
Picture1.Line (0, Picture1.Height - 300)-(Picture1.Width, Picture1.Height - 300), vbRed
For K = 1 To 10
a = (Picture1.Height - 300) / 10
Picture1.Line (350, K * a)-(300, K * a), vbRed
Picture1.CurrentX = Picture1.CurrentX - 300
Picture1.Print 10 - K
Next K
For K = 1 To 10
a = (Picture1.Width - 300) / 10
Picture1.Line (K * a, Picture1.Height - 300)-(K * a, Picture1.Height - 350), vbRed
Picture1.CurrentY = Picture1.Height - 300
Picture1.Print K
Next K
End Sub
Dim K,a As Long