前面的五篇博文中，我一一的给大家讲解了webbrowser控件的一些属性、方法。本篇博文我将讲解webbrowser控件的另一个属性locationname，该属性主要用来返回当前所浏览网页的标题。语法格式为：
 
object.locationname
 
其中，参数object 表示网络浏览器控件名。
 
实现代码：
 
Private Sub Command1_Click()
 
WebBrowser1.Navigate (Text1.Text)
 
End Sub
 
Private Sub Command2_Click()
 
Label2.Caption = "当前网页的标题是：" & WebBrowser1.LocationName
 
End Sub
 
我们看一下执行的效果图：
 

 
源程序解读：
 
1，单击command1按键触发了click事件，调用navigate方法，访问到新浪官方网站；
 
2，单击command2按键触发了command2的click事件，为label2的caption属性赋值，调用webbrowser控件的locationname方法，获取当前网页的标题。
 
至此前六篇博文，一个VB开发编写的简单web浏览器就差不多写好了，当然，如果需要更强大的功能，还需要更深入的学习与了解VB，以及API，因为目前这个简单浏览器从真正意义上来说，并不是我们开发的。我们使用了webbrowser控件。

Visual Basic 16.0
 Visual Basic 16.0 侧重于向 .NET Core 提供 Visual Basic 运行时 (microsoft.visualbasic.dll) 的更多功能，这是 Visual Basic 侧重于 .NET Core 的第一个版本。 Visual Basic 运行时的许多部分都依赖于 WinForms，它们将添加到 Visual Basic 的更高版本中。
 允许在语句中的更多位置进行注释
 在 Visual Basic 15.8 及更早版本中，只允许在空行上、语句末尾或在语句中允许使用隐式行继续符的特定位置进行注释。 从 Visual Basic 16.0 开始，还允许在显式行继续符之后以及以空格开头后跟下划线的行上的语句中进行注释。
 
Public Sub Main()
    cmd.CommandText = ' Comment is allowed here without _
        "SELECT * FROM Titles JOIN Publishers " _ ' This is a comment
        & "ON Publishers.PubId = Titles.PubID " _
 _ ' This is a comment on a line without code
        & "WHERE Publishers.State = 'CA'"
End Sub

1.Visual Basic是什么
 　　
 　　Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言。
 　　
 　　“Visual” 指的是开发图形用户界面 (GUI) 的发方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 发
 　　
 　　“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，一种在计算技术发展历史上应用得最为广泛的语言。Visual Basic 在原有 BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是 Visual Basic 语言的子集，可嵌入HTML语言中，用于网页设计，如ASP(Active Server Page)文件。
 　　
 　　VB简单易学，通用性强，用途广泛。
 
2.VB的功能
 　　
 　　VB可以用于可以开发多媒体、数据库、网络、图形等方面的应用程序。
 　　　
 　　数据访问特性允许对包括 Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。
 　　　
 　　有了 ActiveX™ 技术就可使用其它应用程序提供的功能，例如 Microsoft Word 字处理器，Microsoft Excel 电子数据表及其它 Windows 应用程序。
 　　　
 　　Internet 能力强大，很容易在应用程序内通过 Internet 或 intranet访问文档和应用程序，或者创建 Internet 服务器应用程序。
 　　　
 　　已完成的应用程序是使用Visual Basic 虚拟机真正 .exe 文件，可以自由发布。
 
3.VB的发展
 　　
 　　VB是伴随Windows操作系统而发展的，在中国使用较广的版本有VB4.0、VB5.0、VB6.0。
 　　　　
 　　VB4.0是为配合WIN95的问世于1995年推出的，既可用于编写WIN3.X平台的16位应用程序也可编写WIN95平台的32位应用程序；VB5.0主要用于编写WIN95平台的32位应用程序，较之VB4.0主要扩展了数据库、ActiveX和Internet方面的功能；VB6.0是与WIN98配合于1998年推出的，进一步加强了数据库、Internet和创建控件方面的功能。
 
4.VB中的几个常用术语
 　　
 　　工程(Project)：是指用于创建一个应用程序的文件的集合。
 　　对象(object)：可控制的某个东西,VB中主要有两类对象:窗体和控件。
 　　窗体(form)：应用程序的用户界面，即windows。
 　　控件(control)：指的是各种按扭、标签、文本框等。
 　　属性(property)：是指对象的特性，如大小、标题或颜色。
 　　
 　　ActiveX:ActiveX是基于component object model(com)的可视化控件结构的商标名称.它是一种封装技术,提供封装COM组件并将其置入应用程序(如WEB浏览器)的一种方法.
 
Components Object Model (COM)： 是软件组件互相通讯的一种方式。它是一种二进制和网络标准，允许任意两个组件互相通讯，而不管它们是在什么计算机上运行(只要计算机是相连的)，不管各计算机运行的是什么操作系统(只要该操作系统支持 COM)，也不管该组件是用什么语言编写的。
 
5.VB的系统特性
 　　
 　　(1)工程限制
 　　 　
 　　1)代码限制：　　 　　　 　　
 　　可被加载到窗体、类或标准模块的代码总数限于 65,534 行。一行代码限于 1023 个字节。在一行中的实际文本之前最多只能有 256 个空格的前导，在一个逻辑行中最多只能有 25 个续行符 ( _)。
 　　　　
 　　2)过程、类型和变量　　　　　　　
 　　对每个模块的过程数没有限制。每个过程可包含至多 64K 的代码。如果过程或模块超过这一限制，Visual Basic 便产生编译时间错误。如果遇到这种错误，可将特别大的过程分割成若干个较小的过程，或将模块级声明移到另一模块，来避免此类错误发生。　　　　
 　　Visual Basic 用表来保存代码中的标识符名(变量、过程、常量等)。每个表限于 64K。
 　　　
 　　3)动态链接库声明表　　　　　
 　　每个窗体和代码模块使用一个描述动态链接库入口点的结构的表。每个结构约 40 个字节，表的大小限于 64K，形成每个模块大约有 1500 个声明。
 　　　
 　　4)工程名表　　　　　
 　　整个应用程序用一张包含所有名称的表。这些名称包括： 常量名 、 变量名 、 自定义的类型定义名、 模块名、 DLL 过程声明名。对工程名表总大小没有限制，但是区分大小写的条目不得超过 32K。如果超过了 32K 的限制，可以在不同的模块中重新使用 private 标识符以限制区分大小写的条目数到达 32K。
 　
 　　5)输入表　　　　　
 　　在不同的模块中每引用一个标识符，便在输入表中创建一个条目。每一个这样的入口最小是 24 字节，但限于 64K，这样每个模块大约可以有 2000 个引用。
 　　
 　　6)模块条目表　　　
 　　该表中每个模块最多达 125 个字节，但有 64K 的总限制，这样每个工程大约可以产生 400 个模块。VB 中的变量名不多于 255 个字符，而窗体、控件、模块和类名不多于 40 个字符。
 　　
 　　(2)工程文件格式
 　　
 　　VB 在创建和编译工程时要产生许多文件，分为：设计时文件、杂项开发文件和运行时文件。
 　　设计时文件是工程的建造块，例如基本模块 (.bas) 和窗体模块 (.frm)。
 　　杂项文件是由 Visual Basic 开发环境中的各种不同的进程和函数产生的，例如打包和展开向导从属文件 (.dep)。

目录
 
一，Visual Basic
 
二，控制台程序
 
三，可视化程序
 
1，IDE
 
2，实例——加法计算器
 

 
一，Visual Basic
 
Visual Basic是可视化的Basic，简称VB
 
VB是第一个可视化编程语言。
 
 
二，控制台程序
 
用visual studio可以创建VB的控制台工程，先填一个Hello world：
 
Module Module1

    Sub Main(args As String())
        Console.WriteLine("Hello, world!")
    End Sub

End Module
 
VB的控制台程序员也可以打断点、单步调试。
 
 
以atcoder的Contest 229的A - First Grid为例：
 
Problem Statement
 
We have a grid with 22 horizontal rows and 22 vertical columns.
 Each of the squares is black or white, and there are at least 22 black squares.
 The colors of the squares are given to you as strings S_1S1​ and S_2S2​, as follows.
 
If the j-th character of Si​ is #, the square at the i-th row from the top and j-th column from the left is black.
If the j-th character of Si​ is ., the square at the i-th row from the top and j-th column from the left is white.
You can travel between two different black squares if and only if they share a side.
 Determine whether it is possible to travel from every black square to every black square (directly or indirectly) by only passing black squares.
 
Constraints
 
Each of S1​ and S2​ is a string with two characters consisting of # and ..
S1​ and S2​ have two or more #s in total.

Input
 
Input is given from Standard Input in the following format:
 
S1​
S2​
 
Output
 
If it is possible to travel from every black square to every black square, print Yes; otherwise, print No.
 

Sample Input 1 
 
##
.#
 
Sample Output 1 
 
Yes
 
It is possible to directly travel between the top-left and top-right black squares and between top-right and bottom-right squares.
 These two moves enable us to travel from every black square to every black square, so the answer is Yes.
 

Sample Input 2 
 
.#
#.
 
Sample Output 2 
 
No
 
It is impossible to travel between the top-right and bottom-left black squares, so the answer is No.
 
首先用C++水一下：
 
#include <iostream>
#include <string>

using namespace std;

int main()
{
  string s1,s2;
  cin>>s1>>s2;
  if(s1=="#."&&s2==".#")cout<<"No";
  else if(s2=="#."&&s1==".#")cout<<"No";
  else cout<<"Yes";
  return 0;
}
 
然后用Visual Basic来写：
 
Imports System.IO

Module Module1

    Sub Main(args As String())
        Dim s1 As String
        Dim s2 As String
        s1 = Console.ReadLine()
        s2 = Console.ReadLine()
        If s1 = ("#.") And s2 = (".#") Then
            Console.WriteLine("No")
        ElseIf s2 = ("#.") And s1 = (".#") Then
            Console.WriteLine("No")
        Else
            Console.WriteLine("Yes")
        End If

    End Sub

End Module
 
这个代码可以AC
 
 
三，可视化程序
 
1，IDE
 
visual studio也可以做VB的可视化程序，但是我没看明白咋用。
 
我记得高中用的应该也是visual basic 6.0，所以在继续用这个IDE
 
 资源分享汇总
 
 
新建工程会有个默认窗口
 
左边是常用控件，如DirListBox，直接放一个在窗口里运行就可以访问本地文件，非常方便。
 
 
 
2，实例——加法计算器
 
首先放控件，3个文本框，1个按钮
 
 
 然后双击按钮，自动创建函数Check1_Click，填补函数
 
Option Explicit

Private Sub Check1_Click()
Text3.Text = CSng(Text1.Text) + CSng(Text2.Text)
End Sub
 
运行即可