个人笔记 VB6.0入门

港控/mmm° 2021-12-17 13:51 500阅读 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版本如下：

![1296594-20190618153706074-1418586072.png][]

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

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

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

### 7、运算符：   整除 ###

![1296594-20190618154710098-1758124590.png][]

### 8、两种连接符 ###

![1296594-20190618155040174-912640638.png][]

### 9、小智障又卡bug了 ###

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

![1296594-20190618161702869-1077822933.png][]

另外一种写法可以：

![1296594-20190618161850484-682128460.png][]

### 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里面不等于符号是`<>` ###

转载于:https://www.cnblogs.com/maxeysblog/p/11045252.html

[1296594-20190618153706074-1418586072.png]: /images/20211217/ef212c7ebd634d79b9864e800e6a3549.png
[1296594-20190618154710098-1758124590.png]: /images/20211217/9b413e500ceb40aca485bb85470ef67a.png
[1296594-20190618155040174-912640638.png]: /images/20211217/c0ce5f85983f4f5685d8014b05d57b57.png
[1296594-20190618161702869-1077822933.png]: /images/20211217/d98dfee08d5c4c84ad40f175aa5894d1.png
[1296594-20190618161850484-682128460.png]: /images/20211217/f09f5f75d37841e3b25fc729c373d874.png