VB编程的一些心得

熙熙10991

熙熙10991

2016-02-19 13:17

下面图老师小编要跟大家分享VB编程的一些心得,简单的过程中其实暗藏玄机,还是要细心学习,喜欢还请记得收藏哦!
在大学作毕业设计的课题是编制一个教学软件,所以很自然地和VB这种易学、易懂、界面友好漂亮的语言打上了交道。在编写的过程中当然遇到了许多的问题,这里将一些简单的小程序写下来与喜爱编程的朋友们分享。
  一、封面
  封面的设计是这样的,先出现一窗体,上面为你喜欢的图案。然后出现一艘从左向右行驶着的船。屏幕上方从两侧分别移动出“欢迎”两个字。
  具体的制作方法是:把预先选好的背景图案装入封面窗体中,窗体命名为CAI。再分别在三个图像控件(image)中装入预先制作好的位图“欢”、“迎”和船型图案。然后把三个image放置在初始位置(即图案刚在窗体出现时的位置),并把它们的可视属性都设置为“false”。程序如下:
  SubForm_load()
  cai.Show'显示封面窗体
  DimI'定义变量
  image3.visible=True'船型图像控件出现
  a1:Ifimage3.Left6120Then
  '6120为船移动到屏幕右边的坐标,此值可以随需要选取
  image3.Moveimage3.Left+50
  '移动此图像控件如嫌移动慢,可改变移动值
  Gotoa1
  EndIf
  image1.visible=True'“欢”字出现
  a2:Ifimage1.Left2120Then
  '2120为“欢”字移动到屏幕中间的位置
  image1.Moveimage1.Lefe+50'移动此图像控件
  Gotoa2
  EndIf
  image2.visible=True'“迎”字出现
  a3:Ifimage2.Left5420Then
  '5420为“迎”字移动到屏幕中间的位置
  image2.Moveimage2.Left-50'移动此图像控件
  Gotoa3
  EndIf
  ForI=1To10000
  '使窗体暂停一段时间时间长短可通过改变循环次数实现
  NextI
  menul.Show'显示程序主窗体
  Unloadcai'卸载封面窗体
  EndSub
  二、简单的“动画”
  点击一3D按钮后,屏幕表现光线平行进入一玻璃管,在管中有一散射中心,有的光线射到此中心后反射到管的初始端。程序如下:
  SubCommand3Dl_Click()
  DimI,j,k,m,n'定义变量
  ForI=2080To5520
  '显示出三条线,直到图像中的散射中心处,颜色为黑色
  Line(2080,2760)-(I,2760),RGB(0,0,0)
  Line(2080,2860)-(I,2860),RGB(0,0,0)
  Line(2080,2660)-(I,2660),RGB(0,0,0)
  NextI
  Forj=5520To4800Step-1'反射光线第一次射到管壁上
  Line(5520,2760)-(j,2760-(5520-j)*.33333333),RGB
  (255,0,0)'反射光线,颜色为红色
  Line(5520,2660)-(5520+(5520-j),2660),RGB(0,0,0)
  Line(5520,2860)-(5520+(5520-j),2860),RGB(0,0,0)
  '没有遇到散射中心的两条光线,为黑色,继续前进
  Nextj
  Fork=4800To3360Step-1'反射光线第二次射到管壁上
  Line(4800,2520)-(k,2520+(4800-k)*.33333333),
  RGB(255,0,0)'反射光线,颜色为红色
  Line(6240,2660)-(6240+(4800-k),2660),RGB(0,0,0)
  Line(6240,2860)-(6240+(4800-k),2860),RGB(0,0,0)
  '没有遇到散射中心的两条光线,颜色为黑色
  Nextk
  Form=3360To2080Step-1'反射光线第三次射到管壁上
  Line(3360,3000)-(m,3000-(3360-m)*.33333333),
  RGB(255,0,0)'反射光线,颜色为红色
  Nextm
  EndSub
  三、封底
  封底的设计是:先出现全黑的屏幕,然后从上至下逐渐拉出白底红字的“再见”的字样。先按要求在画板中做一个BMP图,上面写着“再见”。然后在一名为BYE的窗体中加入一个全屏大的Picturel,将BMP图装入。程序如下:
  SubForm_Load()
  DimI'定义变量
  bye.Show'封底出现
  Unloadmenu1'卸载主菜单
  al:Ifpicture1.Height7130Then'7130为图的高度
  picturel.Height=picture1.Height+50'下拉屏幕
  GoToal
  EndIf
  ForI=1To20000'使窗体暂停一段时间
  NextI
  End'结束所有操作
  EndSub->

展开更多 50%)
分享

猜你喜欢

VB编程的一些心得

编程语言 网络编程
VB编程的一些心得

编程中的一些共同的问题

编程语言 网络编程
编程中的一些共同的问题

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

ToStringBuilder类的一些心得

编程语言 网络编程
ToStringBuilder类的一些心得

css学习的一些心得

Web开发
css学习的一些心得

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

关于As2.0 编程的一些规则

flash教程
关于As2.0 编程的一些规则

PPT色彩搭配的一些心得

电脑入门
PPT色彩搭配的一些心得

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Jquery ajax不能解析json对象报Invalid JSON错误的原因和解决

Jquery ajax不能解析json对象报Invalid JSON错误的原因和解决

锋利的jQuery 要点归纳(二) jQuery中的DOM操作(下)

锋利的jQuery 要点归纳(二) jQuery中的DOM操作(下)
下拉加载更多内容 ↓