文件名称:line(new)
- 所属分类：
- 其它资源
- 资源属性：
- [Windows] [Visual C] [Basic/ASP] [源码]
- 上传时间：
- 2008-10-13
- 文件大小：
- 5.45kb
- 下载次数：
- 0次
- 提 供 者：
- z*
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
直线扫描算法rivate AX1(100) As Integer, AY1(100) As Integer, AX2(100) As Integer, AY2(100) As IntegerPrivate CX1 As Integer, CY1 As Integer, CX2 As Integer, CY2 As Integer, N As IntegerPrivate Sub form_Load()Picture1.BackColor = RGB(255, 255, 255)N = 0End SubPrivate Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenCX1 = CInt(X): CX2 = CInt(X)CY1 = CInt(Y): CY2 = CInt(Y)End IfEnd Sub-linear scanning algorithm rivate AM1 (100) As Integer, AY1 (100) As Integer, AX2 (100) As Integer, AY2 (100) As IntegerPrivate CX1 As Integer, CY1 As Integer, CX2 As Integer, CY2 As Integer, N As IntegerPrivate Sub form_Load () Picture1.BackColor = RGB (255, 255, 255) N = 0End SubPrivate Sub picture1_MouseDown (Button As Integer, Shift As Integer, As Single X, Y As Single) If Button = = a ThenCX1 CInt (X) : CX2 = CInt (X) = CY1 CInt (Y) : CY2 = CInt (Y) End Sub IfEnd
(系统自动生成,下载前可以参看下载内容)
下载文件列表
压缩包 : 921528line(new).rar 列表 line(new) line(new)\工程1.vbw line(new)\MSSCCPRJ.SCC line(new)\Picture.txt line(new)\工程exe.exe line(new)\工程1.vbp