VB教程网    www.bianceng/VBjc/Vb.HTM
表格制作excel手机版下载
 
Oicq头像自己作
VB与Flash联合打造你的魅力程序
跟我学做记事本
编制自已的电话录音小程序
一个实用的VB屏幕程序
VB设计能自动存盘的记事本
VB设计动画时钟
VB利用高级音频函数编写多媒体播放器
VB多媒体程序设计
VB实现在PC上通过手机发短消息（一）
VB实现在PC上通过手机发短消息（二）
vb开发通信软件
编写网络寻呼机
播放MP3文件
利用Visual Basic设计多媒体应用程序
用Socket和MSHTML对象模型创建自己的浏览器
设计简单的屏幕保护程序
一个小巧精致的CPU监视器
带有历史记录功能的菜单
VB托盘程序详解一
VB托盘程序详解二
VB托盘程序详解三
VB托盘程序详解四
VB托盘程序详解五
在VB中利用UDP协议编写聊天程序
Visual Basic设计图形浏览器示例
制作带有动画和声音的屏幕保护程序
制作自己的网络搜索软件
做个“网络助手”程序
Vb 5.0制作多媒体动画漫谈
VB6.0中实现字体闪烁效果
VB实现按钮浮动效果
一个用VB5.0 实现的鼠标绘图程序
在VB中制作可滚动的图像显示
VB中播放三维动画编程一例
VB游戏写作技巧（1）秀图篇
VB游戏写作技巧（2）网络篇
端口扫描器
应用VB实现工业控制的实时曲线和历史曲线
用EXCEL来打印报表并生成折线图
用EXCEL组件简化VB编程的一种方法
用Internet Transfer编写FTP程序
设计Chat程序
设计E-mail程序
用VB开发IE
趣味撞球
利用VB设计聊天室
一个图像滤光处理程序
设计Browser及FTP程序
Cool 3D 浮动按钮的仿真作法
RGB调板
VB中利用OpenGL绘制三维地质构造图一
VB中利用OpenGL绘制三维地质构造图二
VB中利用OpenGL绘制三维地质构造图三
一个自动更换墙纸的小软件
用MCI指令进行多媒体编程
用OLE实现文件拖放
用Sockets发送
用VB创建Windows快捷方式
用VB收集键盘和鼠标信息
用VB设计多功能计时器
用VB5直接控制Excel97
用VB制作文字上卷效果
用VB6.0编写电脑抽奖程序
用VB6.0编写自己的MP3播放器
用VB6.0开发通信软件的技巧
用VB6.0快速实现图象加柔效果
用VB6.0制作画图板
用VB6.0中文版进行DHTML程序开发
用VB6的双通道技术获得影碟片断
用VB6建立带光栅的超级开始菜单
用VB6轻松实现图片旋转
用VB6设计有趣的动画场景
用VB编程绘制网格图像
用VB编程检测当前电池使用情况
用VB编写DirectX7.0游戏（上）
用VB编写DirectX7.0游戏（下）
用VB编写FLASH动画播放器
用VB编写Flash图像浏览器
用VB编写定时关闭计算机的程序
用VB编写键盘拦截程序
用VB编写接近实际的抽奖程序
用VB编写小型的网络系统
用VB操作注册表一
用VB操作注册表二
用VB操作注册表三
用VB操作注册表四
用VB操作注册表五
用VB操作注册表六
用VB设计VCD播放器
用VB操作注册表七
用VB创建自己的通信程序
用VB构建Internet的应用
用VB函数轻松访问系统注册表
用VB绘制抛物线动画曲线
用VB绘制正弦动画曲线
用VB获取正在系统中运行的窗口标题
用VB将命令行软件Windows化
用VB开发标准CGI程序
用VB开发多通道仪表数据采集程序
用VB设计VCD播放器 1
用VB设计聚焦框程序
用VB设计控制上网时间程序
用VB设计一个定时闹钟程序
用VB实现ICQ式的启动欢迎画面
用VB实现百叶窗的图形特效
用VB实现窗口图标最小化到通知栏（一）
用VB实现窗口图标最小化到通知栏（二）
用VB实现队列播放MP3
实现客户——服务器（TCP-IP）编程实例
用VB实现类电子表格的数据录入
用VB实现聊天讨论室和点对点会话
用VB实现屏幕滚屏保护效果
用VB实现拖放功能
用VB实现托盘动画图标
用VB实现网络蚂蚁的拖放窗口
用VB实现网页下载跟踪程序
用VB实现应用程序在局域网络上自动更新
用VB写高效的图像处理程序
用VB写一个定时PING某IP的程序
用VB制作RM压缩软件
用VB制作屏幕保护程序
用VB制作文件下载程序
用VB制作下雪的特技景象
用VB制作浏览器
用VB自制屏幕保护程序
用Visual Basic设计E-mail程序(MAPI)
用VB定制BMP文件
用Vb6.0编写客户服务器程序
用Visual Basic的Move方法实现动画效果
用Visual Basic设计窗体背景花纹
用Visual Basic实现多画面播放功能
在Visual Basic 6.0中实现自动播放VCD
雨滴式的显示图片
在VB中模拟实现邮件传输
自动记录应用软件工作时间
在图片上平滑移动文字
制作TopMost窗口
制作图形的Mask图
制作渐变的窗口背景
字体闪烁
自己的IE——用VB制作浏览器
邮件检查程序（一）
邮件检查程序（二）
VB6编程中如何获取硬盘分区信息
VB编写异步多线程下载程序
如何实现霓虹灯效果
显示动画光标实例
递归过程在VB中的应用实例（一）
递归过程在VB中的应用实例（二）
编写趣味撞球小游戏
文章来源： 沐风经典 文章作者： 佚名
  Visual Basic是一个功能强大的工具，它有一大特点就是易学易用，下面我们就通过写一个“趣味撞球” 的程序来初步体会一下。
  首先启动VB5，新建一个标准的EXE工程。此时可以看到，工程包括一个Form1框体。在Form1边框的右下角按住鼠标左键不放，拖动鼠标把Form1的面积改为适当大小，比如6930×4320。再在属性框中把Form1的ScaleMode 属性改为3－Pixel，表明我们将以像素为我们的坐标计算单位，把Form1的StartUpPosition 属性设为2－CenterScreen，使运行时窗体出现在屏幕正中。
  现在，在控件面板上选取CommandButton（命令按钮）控件，为Form1添加Command1和Command2两个按钮控件，把它们的大小设为121×25，再在属性框中把Command1的Caption填为“＆GO”，把Command2的Caption填为“＆QUIT”，并把Command1放到框体的右上角，把Command2放到框体的右下角。
  然后，在控件面板上选取Timer（时钟）控件，为Form1添加一个Timer1时钟控件。再在属性框中把它的Enabled属性改为False，Interval属性改为50，前一个值表示该时钟控件是否激活，后一个值决定该时钟控件产生Timer事件的间隔时间，我们将用它来控制小球的移动频率。
  到此为止，我们已经完成了全部的界面设计工作。接下来要做的全部工作就是填入程序代码了。
Dim BallX As Integer
Dim BallY As Integer
Dim AddX As Integer
Dim AddY As Integer
Dim HitX As Integer
Dim W As Integer
Dim H As Integer
Private Sub Command1_Click()
BallX=Int(Rnd(1)＊Form1.ScaleWidth/10)＊5＋25
BallY=Int((Form1.ScaleHeight)/10)＊5
AddX=－5
AddY=－5
Form_Paint
Timer1.Enabled=True
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
X=X－50
If X<15 Then X=15
If X>W－105 Then X=W－105
HitX=X
If Timer1.Enabled=True Then
Line(16,H－5)－(W－6,H),＆HC0C0C0,BF
Line(HitX,H)－(HitX＋100,H－5),0,BF
End If
End Sub
Private Sub Form_Paint()
Cls
W=Int((ScaleWidth－140)/5)＊5
H=Int((ScaleHeight－10)/5)＊5
BackColor=＆HC0C0C0
Line(10,10)－(15,H),0,BF
Line(W－5,10)－(W,H),0,BF
Line(10,10)－(W,15),0,BF
End Sub
Private Sub Timer1_Timer()
Form1.Circle(BallX,BallY),4,＆HC0C0C0
BallX=BallX＋AddX
BallY=BallY＋AddY
Form1.Circle(BallX,BallY),4,0
If BallX<=20 Then AddX=－AddX
If BallY<=20 Then AddY=－AddY
If BallX>=W－10 Then AddX=－AddX
If BallY>=H－10 Then

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。