| 网站首页 | 技术文章 | 下载频道 | 博客 | 编程论坛 |
 
| 技术教程首页 | 开发语言 | WEB开发 | .NET技术 | 数据库 | 操作系统 | 网页制作 |
 
 
您现在的位置: 编程中国 >> 技术教程 >> 开发语言 >> VB >> 编程实例 >> 正文
  ►  [蜘蛛网程序]供初学者看看
[蜘蛛网程序]供初学者看看
作者:三断笛    阅读人次:……    文章来源:本站原创    发布时间:2007/10/22    网友评论()条
 

原帖及讨论:http://bbs.bccn.net/thread-179091-1-1.html

*/ --------------------------------------------------------------------------------------
*/ 出自: 编程中国  http://www.bccn.net
*/ 作者: 三断笛        
*/ 时间: 2007-10-19  编程论坛首发
*/ 声明: 尊重作者劳动,转载请保留本段文字
*/ --------------------------------------------------------------------------------------


源代码:
Private Sub Form_Load()
Me.ScaleWidth = Screen.Width
Me.ScaleHeight = Screen.Height
Me.ScaleMode = 3
Me.ScaleTop = 0
Me.ScaleLeft = 0
Me.BorderStyle = 0
Me.Scale (0, 0)-(Me.Width, Me.Height)
Me.WindowState = 2
Me.BackColor = RGB(0, 0, 0)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static LastX As Double
Static LastY As Double
If Button = 2 Then End
Line (0, 0)-(LastX, LastY), Me.BackColor
Line (0, Me.ScaleHeight)-(LastX, LastY), Me.BackColor
Line (Me.ScaleWidth, 0)-(LastX, LastY), Me.BackColor
Line (Me.ScaleWidth, Me.ScaleHeight)-(LastX, LastY), Me.BackColor
Line (Me.ScaleWidth / 2, 0)-(LastX, LastY), Me.BackColor
Line (Me.ScaleWidth / 2, Me.ScaleHeight)-(LastX, LastY), Me.BackColor
Line (0, Me.ScaleHeight / 2)-(LastX, LastY), Me.BackColor
Line (Me.ScaleWidth, Me.ScaleHeight / 2)-(LastX, LastY), Me.BackColor
Line (0, 0)-(X, Y)
Line (0, Me.ScaleHeight)-(X, Y), RGB(255, 0, 0)
Line (Me.ScaleWidth, 0)-(X, Y), RGB(0, 255, 0)
Line (Me.ScaleWidth, Me.ScaleHeight)-(X, Y), RGB(0, 0, 255)
Line (Me.ScaleWidth / 2, 0)-(X, Y), RGB(255, 255, 0)
Line (Me.ScaleWidth / 2, Me.ScaleHeight)-(X, Y), RGB(255, 0, 255)
Line (0, Me.ScaleHeight / 2)-(X, Y), RGB(0, 255, 255)
Line (Me.ScaleWidth, Me.ScaleHeight / 2)-(X, Y), RGB(255, 255, 255)
LastX = X
LastY = Y
End Sub

点击下载该文件

 

 
文章录入:编辑01    责任编辑:编辑01 
  • 上一篇文章:

  • 下一篇文章:

  •  
    相关文章
    原创地带
    24小时热门帖子