江苏龙网

  1. 主页 > 生活百科 > >

vb编程实例讲解、告诉我一些简单的vb编程代码？( 七 )


Terminate
窗体第三次(解除初始化后)装入内存时发生的事件：
Initialize事件
Load事件
7．MouseDown、MOUSeUp和C1ick事件发生的次序
当用户在窗体或控件上按下鼠标按钮时MouseDown事件被触发，MouseDown事件肯定发生在MouseUp和C1ick事件之前 。但是，MouseUp和Click事件发生的次序与单击的对象有关 。
当用户在标签、文本框或窗体上作单击时，其顺序为：
(1)MouseDown
(2)MouseUp
(3)Click
当用户在命令按钮上作单击时，其顺序为：
(1)MouseDown
(2)Click
(3)MouseUp
当用户在标签或文本框上作双击时，其顺序为：
(1)MouseDown
(2)MOuseUp
(3)Click
(4)DblCUck
(5)MouseUp
七、文件常见错误和难点分析
1．文件系统的三个控件不能产生关联
也就是当驱动器改变时，目录列表框不能跟着相应改变；或者当目录列表框改变时，文件列表框不能跟着相应改变 。要三个控件产生关联，使用下面两个事件过程：
Private Sub Drivel_Change()
Dirl.Path=Drivel.Drive
End Sub
Private Sub Dirl_Change()
Filel.Path=Dirl.Path
End Sub
2．如何在目录列表框表示当前选定的目录
在程序运行时双击目录列表框的某目录项，则将该目录项改变为当前目录，其Diirl.Path的值作相应的改变 。而当单击选定该目录项时，Diirl.Path的值并没有改变 。有时为了对选定的目录项进行有关的操作，与ListBox控件中某列表项的选定相对应，表示如下：
Dirl.List(Dirl.Listlndex)
3．当使用文件系统控件对文件进行打开操作时，显示"文件未找到"出错信息 。
例如，如下语句：
Open Filel.Path+Filel.File Name For Input As#1
当选定的目录是根目录，上述语句执行正确，而当选定的目录为子目录，上述语句执行时显示"文件末找到"出错信息 。
其中：Filel.Path表示当前选定的路径，Filel.File Name表示当前选定的文件，合起来表示文件的标识符 。
当选定的文件在根目录下(假定驱动器为C)，Filel.Path的值为"C:\1"，假定选定的文件名为"t1.txt"，则Filel.Path+Filel.FileName的值为"C:\t1.txt"为合法的文件标识符 。
当选定的文件在子目录下(假定驱动器为C，子目录为my)，Filel.Path的值为"C:\my" Filel.Path+Filel.FileName的值为"C:\my tl.txt"，子目录与文件名之间少了一个"\"分隔符 。
为了保证程序正常运行，
Open Filel.Path+Filel.FileNameForlnput As #1改为：
Dun F$
If Right(Filel.Path，1)"\" Then' 表示选定的足根目录
F=Filel.Path+Filel.FileName
Else' 表示选定的是子目录,子目录与文件名之间加"\"
F=Filel.Path+"\"+Filel.FileName
End If
Open F For Input As # 1
4．Open语句中欲打开的名是常量也可以是字符串变量，但使用者概念不清，导致出现"文件未找到"出错信息
如在从盘上读入文件名为"C:\my\t1.txt"，
正确的常量书写如下：
Open"C:\my\t1.txt"For Input As#1' 错误的书写常量两边少双引号
或正确的变量书写如下：
Dim F$
F="C:\my\t1.txt"
Open F For Input As #1 ' 错误的书写变量F两边多了双引号
5．文件没有关闭又被打开，显示"文件已打开"的出错信息
如下语句：
Open"C:\my\t1.txt"For Input As #1
Print F
Open "C:\my\t1.txt"For Input As #1
Print "2"；F
执行到第二句Open语句时显示"文件已打开"的出错信息 。
6．如何读出随机文件中的所有记录，但又不知道记录号 。
不知道记录号而又要全部读出记录，则只要同顺序文件的读取相似，采用循环结构加无记录号的Get语句即可，程序段如下：
Do While Not EOF(1)
Get #1, , j
Print j；
Loop
随机文件读写时可不写记录号，表示读时自动读下一条记录，写时插入到当前记录后 。
Q3：谁能帮我写这个VB的简单实例
最后一条要用到数据库 。不然数据无法保存
Q4：VB编程实例
哦，你要多大的程序？？？
'初学vb的经典入门程序如下
'画三个文本框，text属性设为空
'画四command按钮，capition属性分别设为“+”“-”“*”“/”
'把以下代码复制到代码窗口，运行，为text1，text2输入数字，任意点击一个按钮看看
Private
Sub
Command1_Click()'这个叫click事件，用于鼠标单击时响应
Text3.Text
=
Val(Text1.Text)
+
Val(Text2.Text)
'command1("+")被点时运行这里
End
Sub
Private
Sub
Command2_Click()
Text3.Text供海垛剿艹济讹汐番搂


推荐阅读


上一篇：北京华素是上市公司吗 北京上市公司协会培训

下一篇：a1多大年龄能考.A1在word是多大？