个人笔记 VB6.0入门

个人笔记 VB6.0入门

1、 on error resume next 发生错误时继续执行

2、 option explicit 强制要求变量显示声明

未定义的变量赋值为0（默认）

3、变量类型符

dim m as integer, j as integer, x as single, s as string , k
'等效于
dim m%,j%,x!,s$,k

4、seltext 属性 记录选中的文本

5、setfocus出错

一个简单的练习如下：

Option Explicit

Private Sub Text1_LostFocus()
    If Not IsNumeric(Text1.Text) Then
        Text1.SetFocus
        Text1.Text = ""
    End If
End Sub
Private Sub Text2_LostFocus()
    If Not IsNumeric(Text2.Text) Then
        Text2.Text = ""
        Text2.SetFocus
    End If
End Sub

Private Sub Text3_GotFocus()
    Dim x!, y!
    x = Text1.Text
    y = Text2.Text
    Text3.Text = x + y
    
End Sub

程序的功能是计算前两个输入框的值，想要在用户输入结束失去焦点的时候进行判断

执行SetFocus时卡死，窗口不响应任何操作，只看见光标在下一个text一直闪烁（卡死了）

原因未知，笔者操作环境win10，VB版本如下：

在多个使用setfocus的程序里面出现类似情况。

5、isnumeric函数判断输入是不是数字，返回true，fasle

6、VB中布尔类型转化为数字类型，true是-1，false是0

7、运算符： 整除

8、两种连接符

9、小智障又卡bug了

例子谁是凶手中如下写法没有输出：

另外一种写法可以：

10、文件操作

put get 针对随机文件或者二进制文件读写

write、print、input、line input针对顺序文件的读写操作

open "文件路径" for input/append/output/binary as #1
input #1,s
write #1,s

模式为binary并且使用get的时候，get #1,,s如果s不够大可能读不到任何东西（而且还不报错）

11、vb里面不等于符号是<>