从品牌网站建设到网络营销策划,从策略到执行的一站式服务
Select Case 语句
创新互联服务项目包括双流网站建设、双流网站制作、双流网页制作以及双流网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,双流网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到双流省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
根据表达式的值,来决定执行几组语句中的其中之一。
Select Case 语句示例
本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case
子句包含了变量值,故只有此区块内的语句会被完成到。
Dim Number
Number = 8 ' 设置变量初值。
Select Case Number ' 判断 Number 的值。
Case 1 To 5 ' Number 的值在 1 到 5 之间,包含1 和 5 。
Debug.Print "Between 1 and 5"
' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
Case 6, 7, 8 ' Number 的值在 6 到 8 之间。
Debug.Print "Between 6 and 8"
Case 9 To 10 ' Number 的值为 9 或 10。
Debug.Print "Greater than 8"
Case Else ' 其他数值。
Debug.Print "Not between 1 and 10"
End Select
VB.net 的写法:
Me.DataGridView1.Rows(i).Select=true
i 是Integer 在这里可以用 DataGridView1.CurrentCell.RowIndex 来替代也就是:
Me.DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Select=true
选单元格:
DataGridView1(i,j).Selected=True
Try
'你想要写的程序
catch
'捕获你想写的程序里面所有发生的异常
finally
'无论发生还是不发生异常,你都想执行的代码
End Try
'例如:
Try
A语句
Catch ex As Exception
debug.print ex.Message
End Try
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图