[VB论文1.docVIP

VB面向对象程序设计，从开始到现在，我学到了一个面向对象的思想，VB很不错的一个入门面向对象编程语言，下面开始说下我从开始学习到现在总结和积累的经验吧。。。 刚开始玩VB，感觉真好玩，只会一个show（）方法，想了一个捉弄人的好玩的东东，毕竟刚开始玩，要有自己的创新，直接看api函数，看不懂，所以先简单的做一个自己的小程序了，做了发给朋友玩玩，嘿嘿，好玩。。。 1：初学VB制作一个好玩的程序 说明：本程序是初级VB，刚玩的时候制作的，捉弄人玩的吧，因为我比较喜欢玩，所以这个捉弄人的小小程序就诞生了，思路是这样的，先初始设置4个窗体，在桌面四个角上，每个角都设置一个，启动出窗体设置第一个form1，然后关闭一个就显示其他的三个，这样他打开后显示一个窗体，只要关闭就会显示三个，关闭其中任何一个，就显示其他的三个窗体，因为要捉弄人吧，总不能被人家在任务管理器直接关闭了吧，所以要加上一句，App.TaskVisible = False，加上这句在任务管理器中就看不到应用程序啦，不过在进程中还是能看到的，想隐藏进程吗，就算VC也不可能吧，有一种方法可以插入进程，但是不是隐藏进程，因为是玩玩了，没必要搞的那么麻烦，而且是新手所以制作个这样简单好玩的东西哈。。。 代码部分： Private Sub Form_Load() App.TaskVisible = False ‘这里上面说了是隐藏任务管理器中应用程序显示的。 MsgBox 欢迎大家一起交流技术QQ：454690484 网站, , 网痴娱乐技术 ‘ 这里是打开的时候装入一个消息框用来显示内容效果如下： End Sub Private Sub Form_Unload(Cancel As Integer) ‘上面的那是窗体装入事件，这里的是窗体卸载事件， Form2.Show‘当窗体被卸载（关闭）的时候让form2，form3，form4三个窗体显示。。。 Form3.Show Form4.Show End Sub Private Sub Timer1_Timer() ‘这里需要提前画一个时间控件，因为喜欢玩嘛，所以做了个特效，要字体颜色不断变换哦，设定变换颜色可以设置时间控件的interval这个属性，来设定变换颜色间隔的时间，显示颜色，我用的是常量颜色，当然还可以用那个RGB函数，下面的常量vbRed代表红色，vbGreen代表蓝色，就是vb然后加上颜色英文，可以查下VB常量。。。 If Form1.BackColor = vbRed Then Form1.BackColor = vbGreen Else Form1.BackColor = vbRed End If ‘判断如果是红色则变成绿色，如果不是红色的话，变成红色，因为这里面的事件是在时间控件里面发生的，因interval这个属性来决定变换颜色的速度。。。 End Sub 其他三个窗体也都要这么设置，那么只要关闭一个就显示其他的三个了，刚开始玩，发给朋友，感觉真好玩，这是我的第一个VB程序。。。截个图看下效果 呵呵，在应用程序里面找不到，关不掉，不过在进程里面是可以找到的，关掉就可以了。。。 2：好玩的自作特效代码 说明：一次看到一个青年文摘网页，那文字是一个一个的出现，而且鼠标是十字形状的，以后自学网站才知道那个鼠标样式原来是通过CSS设置的，言归正传，人家用那个网页实现，是jsp实现的，我也想用VB实现，要实现肯定不是难事，关键是思路，要有思路，下面说下我的思路，对了，这个程序本以为有人发明出来了，公开可以百度查到呢，我查了一下，没有这个代码，至今这个代码虽然简单，不过是我自己原创哦，查到一个海天软件学院某人写的一个VBS脚本，后面分析那个程序，哼，海天软件学院未必会超越我们现代计算机学子，用技术来证明一切了。。。 下面说下我的思路，是在一个时间控件里面，先声明一个静态变量，因为要累计加嘛，显示一个字，就加一个，一直到全部显示完毕为止，思路就是这样的，下面分析代码部分。 代码部分： Private Sub Form_Load() Timer1.Interval = 1000 ‘在程序装入事件中设置时间控件的Interval属性，1000这里代表一秒。。。 End Sub Private Sub Timer1_Timer() Dim AnyString As String, MyStr As String ‘先声明两个变量 Static n As Long ‘声明一个静态变量用来累加 AnyString = 老师你好，这是本姑娘的程序设计，嘿嘿，希望亲爱的老师给个高分。 MyStr = Left$(AnyString, n) ‘