VB.net與VB的語法是不是相同的？

不一樣的，主要的關(guān)鍵字差不多，語法有一些有變化

臺安網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),臺安網(wǎng)站設(shè)計制作，有大型網(wǎng)站制作公司豐富經(jīng)驗。已為臺安上千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)公司要多少錢，請找那個售后服務(wù)好的臺安做網(wǎng)站的公司定做！

vb.net與vb語法的一個很大不同——oop設(shè)計

例如

sMyString = Mid(sMyString,3,4)

現(xiàn)在，它可以被替換為：

sMyString = sMyString.substring(3,4)

VB.NET編程語法

你這是vb.net的代碼,vb中不允許那么寫:

Dim

strdx()

As

String

=

{"0",

"0",

"0"}

'定義個數(shù)組,從后面的值能看的出最大下標(biāo)是2,也就是strdx(0),strdx(1)和strdx(2),3個的默認值都為0

Dim

calcount1

As

String

=

"0"

'定義個字符串變量

Dim

calcount2

As

String

=

"0"

Dim

strvalue

As

Boolean

=

False

'定義strvalue為bool值,改類型變量只有true和false

2種值

If

strdx(0)

=

"0"

Then

TextBox1.Text

=

strdx(0)

"."

這是字符串連接符號,和"+"的區(qū)別是,他把左右2邊的內(nèi)容直接連接的,而"+"可能會編程運算符,例如

2

3

=

"23"

而

2

+

3

=

5

ElseIf

strvalue

=

False

Then

strdx(0)

=

strdx(0)

"0"

TextBox1.Text

=

strdx(0)

"."

strvalue

=

True

Else

strdx(0)

=

strdx(0)

"0"

TextBox1.Text

=

strdx(0)

Select

Case

calcount1

'

這里開始是分支語句

Case

"+"

TextBox1.Text

=

Str(Val(strdx(1))

+

Val(strdx(0)))

完整的VB.NET的語法解析程序

　 比較長 不過支持全部的關(guān)鍵字 直接就可以用了 using System;using System Text;using System Text RegularExpressions;

namespace Com OSLeague Component{/// summary/// 語法分析器 將所有Code根據(jù)語法進行變色/// list type= VB 支持VB NET/list/// list type= CS 支持CS/list/// author掉掉/author/// date 年 月 日/date/// Memo/// 練習(xí)正則表達式/// /Memo/// /summarypublic class CodeAnalysis{

////定義HTML開始和結(jié)束的語句 用于語法變色//

const string TAG_FNTRED = @ font color= red ;const string TAG_FNTBLUE = @ font color= blue ;const string TAG_FNTGRN = @ font color= green ;const string TAG_FNTMRN = @ font color= maroon ;const string TAG_FNTBLACK = @ font color= black ;const string TAG_EFONT = @ /font ;const string TAG_SPNYELLOW = @ span style= background color: yellow; ;const string TAG_ESPAN = @ /span ;const string TAG_B = @ b ;const string TAG_EB = @ /b ;const string TAG_MENT = @ font colr=# ;const string TAG_EMENT = @ /font ;

//

public CodeAnalysis(){//// TODO: 在此處添加構(gòu)造函數(shù)邏輯//}

/// summary/// 處理VB NET代碼 彩色化 /// /summary/// param name= Code 傳入的Code/param/// returns處理過后的代碼/returnspublic string ParseVB(string Code){////定義VB NET中關(guān)鍵字 將其存為數(shù)組//

string[] VB_Keyword = new string[]{ AddHandler AddressOf AndAlso Alias And Ansi As Assembly Auto Boolean ByRef Byte ByVal Call Case Catch CBool CByte CChar CDate CDec CDbl Char CInt Class CLng CObj Const CShort CSng CStr CType Date Decimal Declare Default Delegate Dim DirectCast Do Double Each Else ElseIf End Enum Erase Error Event Exit False Finally For Friend Function Get GetType GoTo Handles If Implements Imports In Inherits Integer Interface Is Let Lib Like Long Loop Me Mod Module MustInherit MustOverride MyBase MyClass Namespace New Next Not Nothing NotInheritable NotOverridable Object On Option Optional Or OrElse Overloads Overridable Overrides ParamArray Preserve Private Property Protected Public RaiseEvent ReadOnly ReDim RemoveHandler Resume Return Select Set Shadows Shared Short Single Static Step Stop String Structure Sub SyncLock Then Throw To True Try TypeOf Unicode Until Variant When While With WithEvents WriteOnly Xor };

////設(shè)定轉(zhuǎn)換代碼顏色//

lishixinzhi/Article/program/net/201311/14615