| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1711 人关注过本帖
标题:vb语法
只看楼主 加入收藏
vb学
Rank: 2
等 级:论坛游民
帖 子:13
专家分:10
注 册:2016-5-16
结帖率:100%
收藏
已结贴  问题点数:15 回复次数:5 
vb语法
可有最全的vb语法和相关方法???那种自己总结出来的,常用的在项目的,好学好理解的
搜索更多相关主题的帖子: 项目 
2016-05-19 10:27
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:0 
入门教程+经常使用+百度
2016-05-19 16:26
vb学
Rank: 2
等 级:论坛游民
帖 子:13
专家分:10
注 册:2016-5-16
收藏
得分:0 
回复 2楼 xiangyue0510
好的

我贼拉拉的爱谁???我也不知道
2016-05-19 16:27
vb学
Rank: 2
等 级:论坛游民
帖 子:13
专家分:10
注 册:2016-5-16
收藏
得分:0 
回复 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

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

我贼拉拉的爱谁???我也不知道
2016-05-19 16:29
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:15 
这段代码大概功能,就是在按下回车之后,检查示波器X轴范围是否出错(error = CXUS.USPC_Write(0……   这句代码)
错误的话(error <> 0或者clip <> 0 都是报错),将ScopeXRange(利用控件默认属性,等同于ScopeXRange.text)恢复成原来的内容, 原来内容用temp保存下来了
CXUS没接触过,无法给你解答
2016-05-19 17:32
csl591
Rank: 4
等 级:贵宾
威 望:10
帖 子:78
专家分:92
注 册:2009-2-5
收藏
得分:0 
vb语法可看VB的帮助文件。
2016-05-23 11:00
快速回复:vb语法
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033970 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved