可有最全的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

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

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

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