vb语法 - 编程论坛

#2

xiangyue05102016-05-19 16:26

入门教程+经常使用+百度

#3

vb学2016-05-19 16:27

回复 2楼 xiangyue0510

好的

#4

vb学2016-05-19 16:29

回复 3楼 vb学

Private Sub TextScopeXRange_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then '回车
        Dim temp As Single
        temp = ScopeXRange
        ScopeXRange = TextScopeXRange.Text
        error = CXUS.USPC_Write(0, CurrentChannel, 0, "scope_range", ScopeXRange, T1, T2, strValue, clip)
        If (error <> 0) Then
            MsgBox "示波器X轴范围写入出错"
            ScopeXRange = temp
            TextScopeXRange.Text = ScopeXRange
        End If
        If (clip <> 0) Then
            MsgBox "示波器X轴范围超出范围"
            ScopeXRange = temp
            TextScopeXRange.Text = ScopeXRange
        End If
    End If
End Sub

请问这个你的理解是，不是很懂

#5

xiangyue05102016-05-19 17:32

这段代码大概功能，就是在按下回车之后，检查示波器X轴范围是否出错（error = CXUS.USPC_Write(0…… 这句代码）
错误的话（error <> 0或者clip <> 0 都是报错），将ScopeXRange（利用控件默认属性，等同于ScopeXRange.text）恢复成原来的内容，原来内容用temp保存下来了
CXUS没接触过，无法给你解答

#6

csl5912016-05-23 11:00

vb语法可看VB的帮助文件。