十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
VB.NET
网站建设公司,为您提供网站建设,网站制作,网页设计及定制网站建设服务,专注于企业网站设计,高端网页制作,对成都集装箱等多个行业拥有丰富的网站建设经验的网站建设公司。专业网站设计,网站优化推广哪家好,专业成都网站营销优化,H5建站,响应式网站。
2005,已经实现了continue语法,具体是这样操作:
如果
Continue
语句在
Do...Loop
循环中,请将该语句更改为
Continue
Do。
如果
Continue
语句在
For...Next
循环中,请将该语句更改为
Continue
For。
如果
Continue
语句在
While...End
While
循环中,请将该语句更改为
Continue
While。
否则,请移除
Continue
语句。
用法:
For
i
As
Integer
=
To
100
'
If
i
=
50
跳过
Console.Writeline
statement
If
i
=
50
Then
Continue
For
Console.WriteLine(i.ToString)
Next
'
Do
While
using
Continue
statement.
Dim
ii
As
Integer
=
1
Do
While
ii
100
ii
+=
1
'
If
ii
=
50
跳过
Console.Writeline
statement
If
ii
=
50
Then
Continue
Do
Console.WriteLine(ii.ToString)
Loop
'
While
using
Continue
statement.
Dim
iii
As
Integer
=
1
While
iii
100
iii
+=
1
'
If
iii
=
50
跳过
Console.Writeline
statement
If
iii
=
50
Then
Continue
While
Console.WriteLine(iii.ToString)
End
While
1. F12:转到定义;Shift+F12:转到引用
2. F5:启动;Ctrl+F5:开始执行(不调试);Shift+F5:停止调试
3. F7:查看代码;Shift+F7:查看视图设计器
4. Ctrl+Alt+L:解决方案资源管理器
5. Ctrl+Alt+J:对象浏览器
6. F4:显示属性窗口
7. Ctrl+Alt+X:工具箱
8. Ctrl+Alt+C类视图
9. Alt+Enter:查看属性
10.F10:逐过程调试
11.F11:逐语句调试
12.Ctrl+B:新断点
13.Ctrl+Shift+F9:清除所有断点
14.Ctrl+Shift+B生成解决方案
15.Shift+Alt+Enter:全屏
16.大纲显示:Ctrl+M, Ctrl+M:切换大纲显示展开;Ctrl+M, Ctrl+L:切换所有大纲显示;Ctrl+M,Crtl+P停止大纲显示;Ctrl+M, Ctrl+O:折叠到定义
17.智能感知:Ctrl+J:列出成员;Ctrl+Shift+空格:参数信息; Ctrl+K,Ctrl+I:快速信息;Alt+右箭头键:完成单词
Private Function XXX As Integer
if a2 and also a1 then return 30
if a3 and also a2 then return 50
return nothing
这是用函数方法,如果都不是就返回空值
或者用变量储存,比如把return换成 Varible = 30 。。。
Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String
'启动一次具体的数据采集工作,返回采集到的HTML内容:要求必须输入带://的全地址数据
On Error Resume Next
Dim Str_WebContent As String = "请输入查找网站地址."
Dim wb As WebClient = New WebClient() '//创建一个WebClient实例
If mWebsiteUrl.IndexOf("://") 0 Then
'//获取或设置用于对向 Internet 资源的请求进行身份验证的网络凭据。(可有可无)
wb.Credentials = CredentialCache.DefaultCredentials
'//从资源下载数据并返回字节数组。(加@是因为网址中间有"/"符号)
Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)
'//转换字符
If mWebsiteType Then
Str_WebContent = Encoding.Default.GetString(pagedata)
Else
Str_WebContent = Encoding.UTF8.GetString(pagedata)
End If
End If
Return Str_WebContent '提取出来新闻内容,删除Body前后的多余内容,同时补充上该 Body标记,形成完整的内容 Str_WebContent '
End Function
不能完全控制,那个不是叫全局变量。应该叫类成员变量。执行顺序肯定是先定义数据,再到构造函数,在到Form_load。
在VB环境中执行源代码,本身就是调试模式
按F8即可逐语句运行
点击语句左端空白处,将其背景色变为深红,就是添加断点,运行到该语句会停下来
可以在变量、对象等语句上点击右键,选择“添加监视”即可