个人笔记 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不够大可能读不到任何东西（而且还不报错）
