本节知识涉及案例
打字后需要能停下来
我们在每次考试中最最重要的是文件保存!文件保存不好,意味着将对自己的成果带来重大损失。在文件保存的时候,我们最为容易产生保存错误的是工程文件的保存。当项目进行移植以后,我们再次打开工程文件的时候,会发现没有与form窗体文件关联好,这是重大的保存失误。那么,如何检验工程文件是否保存成功?其实方法很简单,只要把VB软件关掉, 然后在项目中打开vbp工程文件,如果此时显示窗体正常才是正确的保存。
1.事件
在每一次软件开发过程,发现有大部分同学在制作软件的过程中,还是有很多同学对于学习过的事件还不是很好理解运用。
窗体启动事件最最基础和重要的:
form_load这个sub过程。
举例:
Private Sub Form_Load()
'这里通常写的是初始化的一些配置。
End Sub
2.符号
还有一个重要的符号,在开发过程中肯定多次运用到等于号这个重要的符号。
举例等于号在这里的作用:
Form1.Caption = "电视机"
作用:赋值。
赋值的过程:就是把值给一个变量。
写法:
变量=值
实际上就是把右侧的值赋给左侧的自定义变量。
程序运行过程中,我们可以对某个量重新赋值的就是变量。
3.控件
载入图片的控件,我们在进行项目移植以后,有的同学会发现自己的图片在界面中消失了。这是什么原因呢?我们该如何解决?image控件在载入图片之前,一定要先把图片复制到项目目录下面,否则,容易在将项目移植到另一台电脑的时候会发生图片失踪的情况。
4.重要属性
backstyle 设置背景风格。
transparent表示透明。
5.重要函数
字符串长度获取函数len函数。
使用格式:
len(字符串) 结果会返回字符串的长度。
6.重要的跳出
exit sub表示退出事件过程,执行完这条代码以后,这条代码后面的代码就不被执行,因为已经退出了sub
7.密码控件
如何设置密码?
使用textbox控件,设置属性passwordchar的值为"*"即可实现。
8.下拉控件
如何将下拉列表添加一项?
使用combobox控件的additem属性就可以添加一项。
qq登录界面题目部分源码:
Dim a As Integer Private Sub Command1_Click() Form2.Show End Sub Private Sub Form_Load() Combo1.AddItem "22887651" End Sub Private Sub Text1_Change() Text1.PasswordChar = "*" End Sub
自动打字案例,打完后需要停下来。
案例源码:
Dim s As String Dim a As Integer Private Sub Form_Load() Form1.Caption = "电视机" s = "我们全是宇宙的帅哥~!!!" a = 1 End Sub Private Sub Timer1_Timer() If a > Len(s) Then Timer1.Enabled = False Exit Sub End If Label1.Caption = Left(s, a) a = a + 1 Label2.Caption = a End Sub