回复 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
请问 这个你的理解是,不是很懂