VB6.0和VB.Net的函数等对照表

VB.Net 函数示例讲解,vb.net函数示例

VB6.0和VB.Net的对照表

VB6.0和VB.Net的对照表

走近VB。Net(四) 关于数据类型与示例

在前面几章谈得最多的是Variant(vb6)到Object(vb.net)的转换,Object被称为通用的数据类型。另外是32位的long(vb6)被integer(vb.net)所取代,在vb.net中long储存64位的带符号整数。而short存储16位的数字取代vb6的integer的位置。而我们在下面要谈的是Decimal数据类型。

在初学vb6的时候,可能所有的人都做过同一个入门程序“计算器”,你可能看到在计算大一点的数字的时候,结果以指数形式出现,如:xxxxE+yyyy。这往往会让使用这个计算器的人莫名其妙,有些人甚至不理解是什么意思。有一些经验的可能会使用format使他用实际的数字出现,可是问题又有了,formatr的小数位是固定的,如果你定为5位小数,那么只有一位小数,他也会在后面出现4个零。当然你很快会用字符处理的方法清除后面的零,这对于你轻而易举。可是你会发现他的计算结果被限定于一定的位,后面全部是零,而不管他实际是什么,就是完全的不精确,甚至于不可靠。而VB6中提供了Currency类型,一般称为货币类型。提供精确的定点运算,不过他只有四位小数,也就是说,哪怕你实际需要的是八位,他也只能有四位。而且在超出了有限的范围时,你必须捕获这个错误,并把他安全地转换到浮点运算。

而在VB.Net中为你提供了Decimal的数据类型取代原有的Currency,Decimal存储带有符号的96位整数,以及28位小数,而且他能动地支配小数的位数,当你的数字表现为很大的整数时,他会根据数据的大小减少小数位数而获取最大的准确度。也就是说,我们可以做出一个比windows自带的计算器更精确的计算器了,想到这么容易,应该可以坚定你继续学习VB.Net的信心。

新建一个工程,添加一个welcome窗体

一定要弄一幅很cool的图片作welcome的背景图片
    添加timer1

VB 。 Net (四) 关于数据类型与示例
在前面几章谈得最多的是 Variant(vb6)到
Object(vb.net)的转换,Object被称为通用的数据类型。另外是…

    该代码是通过 wuyazhe 的文章< C# 串口操作系列(1) —
入门篇,一个标准的,简陋的串口例子。>将C# 转换成VB.net
而来。因为代码只是语法上的改动,整体框架依几乎并未改动,所以
代码讲解部分 就直接照搬了~供起步学习vb的朋友参考。

VB.Net 函数示例讲解

过程是一组调用时一起执行任务的语句。执行该过程之后,控制返回到调用过程的语句。
VB.Net有两种类型的程序:

Functions

Sub procedures or Subs

函数返回一个值,而Subs不返回值。

VB6.0

VB6.0

相关文章

相关搜索:

今天看啥

搜索技术库

返回首页

  • 【从头到尾,从头到尾忘记了谁
  • WPF学习(四) -
    附加属性,wpf学习附加属性
  • Sizeof的计算看内存分配,sizeof内存分配
  • 第四篇:白话tornado源码之褪去模板外衣的前
  • 了解动态链接(四)——
    延迟绑定,动态绑
  • Android
    Studio开发第四篇版本管理Git(下),

相关频道:
Java编程  C#教程  C语言  C++教程  VC教程  Delphi教程  VB教程  工具软件  

    这里我使用的是vs2010开发环境。

定义函数

函数语句用于声明函数的名称,参数和主体。 函数语句的语法是:

[Modifiers] Function FunctionName [(ParameterList)] As ReturnType
    [Statements]
End Function

Modifiers?修饰符?:指定函数的访问级别;可能的值有:公共,私有,保护,朋友,关于保护超载,重载,共享和阴影朋友和信息。

FunctionName:表示该函数的名称

ParameterList?参数列表?:指定参数的列表

ReturnType?返回类型?:指定变量的函数返回的数据类型

VB.NET

VB.NET

 
  为了使刚入门的朋友,能够理解,对进行串口通讯时的一些必要参数进行简单的讲解:

示例

以下代码片段显示了一个函数FindMax,它接受两个整数值,并返回两个较大者。

Function FindMax(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
   ' local variable declaration */
   Dim result As Integer
   If (num1 > num2) Then
       result = num1
   Else
       result = num2
   End If
   FindMax = result
End Function

AddItem Object名.AddItem

AddItem Object名.AddItem

    串口属性主要包括

函数返回值

在VB.Net中,函数可以通过两种方式向调用代码返回一个值:

通过使用return语句

通过将值分配给函数名

下面的例子演示了如何使用FindMax函数:

Module myfunctions
   Function FindMax(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
      ' local variable declaration */
      Dim result As Integer
      If (num1 > num2) Then
          result = num1
      Else
          result = num2
      End If
      FindMax = result
   End Function
   Sub Main()
      Dim a As Integer = 100
      Dim b As Integer = 200
      Dim res As Integer
      res = FindMax(a, b)
      Console.WriteLine("Max value is : {0}", res)
      Console.ReadLine()
   End Sub
End Module

当上述代码被编译和执行时,它产生了以下结果:

Max value is : 200

Object名.Items.Add ListBox1.Items.Add
ComboBox1.Items.Add

Object名.Items.Add ListBox1.Items.Add
ComboBox1.Items.Add

  .PortName 串口名称,COM1,
COM2等。

递归函数

一个函数可以调用自身。 这被称为递归。
以下是使用递归函数计算给定数字的阶乘的示例:

Module myfunctions
   Function factorial(ByVal num As Integer) As Integer
      ' local variable declaration */
      Dim result As Integer
      If (num = 1) Then
          Return 1
      Else
          result = factorial(num - 1) * num
          Return result
      End If
   End Function
   Sub Main()
      'calling the factorial method
      Console.WriteLine("Factorial of 6 is : {0}", factorial(6))
      Console.WriteLine("Factorial of 7 is : {0}", factorial(7))
      Console.WriteLine("Factorial of 8 is : {0}", factorial(8))
      Console.ReadLine()
   End Sub
End Module

当上述代码被编译和执行时,它产生了以下结果:

Factorial of 6 is: 720
Factorial of 7 is: 5040
Factorial of 8 is: 40320

Abs 函数

Abs 函数

  .BaudRate
波特率,也就是串口通讯的速度,进行串口通讯的双方其波特率需要相同,如果用PC连接其他非PC系统,一般地,波特率由非PC系统决定。

参数数组

有时,在声明函数或子过程时,您不确定作为参数传递的参数的数量。 VB.Net
param数组(或参数数组)在这些时候来帮助。

以下示例演示了这一点:

Module myparamfunc
   Function AddElements(ParamArray arr As Integer()) As Integer
      Dim sum As Integer = 0
      Dim i As Integer = 0
      For Each i In arr
          sum += i
      Next i
      Return sum
   End Function
   Sub Main()
      Dim sum As Integer
      sum = AddElements(512, 720, 250, 567, 889)
      Console.WriteLine("The sum is: {0}", sum)
      Console.ReadLine()
   End Sub
End Module

当上述代码被编译和执行时,它产生了以下结果:

The sum is: 2938

System.Math.Abs 方法

System.Math.Abs 方法

  .Parity
奇偶校验。可以选取枚举Parity中的值

传递数组作为函数参数

您可以在VB.Net中将数组作为函数参数传递。 以下示例演示了这一点:

Module arrayParameter
   Function getAverage(ByVal arr As Integer(), ByVal size As Integer) As Double
      'local variables
       Dim i As Integer
       Dim avg As Double
       Dim sum As Integer = 0
       For i = 0 To size - 1
           sum += arr(i)
       Next i
       avg = sum / size
       Return avg
    End Function
    Sub Main()
        ' an int array with 5 elements '
        Dim balance As Integer() = {1000, 2, 3, 17, 50}
        Dim avg As Double
        'pass pointer to the array as an argument 
        avg = getAverage(balance, 5)
        ' output the returned value '
        Console.WriteLine("Average value is: {0} ", avg)
        Console.ReadLine()
    End Sub
End Module

当上述代码被编译和执行时,它产生了以下结果:

Average value is: 214.4

函数示例讲解,vb.net函数示例 VB.Net
函数示例讲解
过程是一组调用时一起执行任务的语句。执行该过程之后,控制返回到调用过程的语…

API 函数关系

API 函数关系

  .DataBits 数据位

Microsoft Win32和Microsoft .NET
Framework API的对应

Microsoft Win32和Microsoft .NET
Framework API的对应

  .StopBits
停止位,可以选取枚举StopBits中的值

App.Path 等

App.Path 等

  .Handshake
握手方式,也就是数据流控制方式,可以选取枚举Handshake中的值

1.
System.Reflection.Assembly.GetExecutingAssembly.Location 2.
Application.StartupPath 3. Application.ExecutablePath 4.
System.AppDomain.CurrentDomain.BaseDirectory

1.
System.Reflection.Assembly.GetExecutingAssembly.Location 2.
Application.StartupPath 3. Application.ExecutablePath 4.
System.AppDomain.CurrentDomain.BaseDirectory

 以上参数,通过设置SerialPort
类的属性来进行。

App.PrevInstance

App.PrevInstance

程序简单界面如下:

Process.GetProcessesByName.GetUpperBound
> 0

Process.GetProcessesByName(pn).GetUpperBound(0)
> 0

图片 1

As Any 关键词

As Any 关键词

 

Visual Basic .NET
不提供支持。参考方法(SendMessage)

Visual Basic .NET
不提供支持。参考方法(SendMessage)

代码中已经几乎完整的写了注释:

AscB 函数

AscB 函数

Imports System.IO.Ports
Imports System.Text.RegularExpressions
Imports System.Text

Public Class Form1

    Private comm As New SerialPort()
    Private builder As New StringBuilder()  '避免在事件处理方法中反复的创建,定义到外面。
    Private received_count As Long = 0      '接收计数
    Private send_count As Long = 0          '发送计数

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        '初始化下拉串口名称列表框
        Dim ports As String() = SerialPort.GetPortNames()
        Array.Sort(ports)
        comboPortName.Items.AddRange(ports)
        comboPortName.SelectedIndex = If(comboPortName.Items.Count > 0, 0, -1)
        comboBaudrate.SelectedIndex = comboBaudrate.Items.IndexOf("9600")

        '初始化SerialPort对象
        comm.NewLine = vbCr & vbLf
        comm.RtsEnable = True           '根据实际情况吧。

        '添加事件注册
        AddHandler comm.DataReceived, AddressOf comm_DataReceived

    End Sub

    Private Sub comm_DataReceived(sender As Object, e As SerialDataReceivedEventArgs)
        Dim n As Integer = comm.BytesToRead     '先记录下来,避免某种原因,人为的原因,操作几次之间时间长,缓存不一致
        Dim buf(n) As Byte                      '声明一个临时数组存储当前来的串口数据
        received_count += n                     '增加接收计数
        comm.Read(buf, 0, n)                    '读取缓冲数据
        builder.Clear()                         '清除字符串构造器的内容

        '因为要访问ui资源,所以需要使用invoke方式同步ui。
        Invoke(Sub()
                   '判断是否是显示为16禁止
                   If checkBoxHexView.Checked Then
                       '依次的拼接出16进制字符串
                       For Each b As Byte In buf
                           builder.Append(b.ToString("X2") & " ")
                       Next
                   Else
                       '直接按ASCII规则转换成字符串
                       builder.Append(Encoding.ASCII.GetString(buf))
                   End If
                   '追加的形式添加到文本框末端,并滚动到最后。
                   Me.txGet.AppendText(builder.ToString())
                   '修改接收计数
                   labelGetCount.Text = "Get:" & received_count.ToString()
               End Sub)
    End Sub

    Private Sub buttonOpenClose_Click(sender As Object, e As EventArgs) Handles buttonOpenClose.Click
        '根据当前串口对象,来判断操作
        If comm.IsOpen Then
            '打开时点击,则关闭串口
            comm.Close()
        Else
            '关闭时点击,则设置好端口,波特率后打开
            comm.PortName = comboPortName.Text
            comm.BaudRate = Integer.Parse(comboBaudrate.Text)
            Try
                comm.Open()
            Catch ex As Exception
                '捕获到异常信息,创建一个新的comm对象,之前的不能用了。
                comm = New SerialPort()
                '现实异常信息给客户。
                MessageBox.Show(ex.Message)
            End Try
        End If
        '设置按钮的状态
        buttonOpenClose.Text = If(comm.IsOpen, "Close", "Open")
        buttonSend.Enabled = comm.IsOpen
    End Sub

    '动态的修改获取文本框是否支持自动换行。
    Private Sub checkBoxNewlineGet_CheckedChanged(sender As Object, e As EventArgs)
        txGet.WordWrap = checkBoxNewlineGet.Checked
    End Sub

    Private Sub buttonSend_Click(sender As Object, e As EventArgs) Handles buttonSend.Click
        '定义一个变量,记录发送了几个字节
        Dim n As Integer = 0
        '16进制发送
        If checkBoxHexSend.Checked Then
            '我们不管规则了。如果写错了一些,我们允许的,只用正则得到有效的十六进制数
            Dim mc As MatchCollection = Regex.Matches(txSend.Text, "(?i)[\da-f]{2}")
            Dim buf As New List(Of Byte)()              '填充到这个临时列表中
            '依次添加到列表中
            For Each m As Match In mc
                buf.Add(Byte.Parse(m.Value, System.Globalization.NumberStyles.HexNumber))
            Next
            '转换列表为数组后发送
            comm.Write(buf.ToArray(), 0, buf.Count)
            n = buf.Count                                       '记录发送的字节数
        Else
            'ascii编码直接发送
            '包含换行符
            If checkBoxNewlineSend.Checked Then
                comm.WriteLine(txSend.Text)
                n = txSend.Text.Length + 2
            Else
                '不包含换行符
                comm.Write(txSend.Text)
                n = txSend.Text.Length
            End If
        End If
        send_count += n                                         '累加发送字节数
        labelSendCount.Text = "Send:" & send_count.ToString()   '更新界面

    End Sub

    Private Sub buttonReset_Click(sender As Object, e As EventArgs) Handles buttonReset.Click
        '复位接受和发送的字节数计数器并更新界面。
        send_count = 0
        received_count = 0
        labelGetCount.Text = "Get:0"
        labelSendCount.Text = "Send:0"
    End Sub
End Class

Microsoft.VisualBasic.Strings.Asc
函数

Microsoft.VisualBasic.Strings.Asc
函数

 

Atn 函数

Atn 函数

以上。 该实例源码工程下载地址:(VS2010)

System.Math.Atan 方法

System.Math.Atan 方法

AutoRedraw 属性

AutoRedraw 属性

 

没有相同项目。

没有相同项目。

本人博客园:

Beep

Beep

原文C#讲解的很详细,附上地址:

Microsoft.VisualBasic.Beep()

Microsoft.VisualBasic.Beep()

Caption 属性

Caption 属性

Text 属性

Text 属性

CBool 函数

CBool 函数

CBool 函数

CBool 函数

CByte 函数

CByte 函数

CByte 函数

CByte 函数

CDate 函数

CDate 函数

CDate 函数

CDate 函数

CDbl 函数

CDbl 函数

CDbl 函数

CDbl 函数

CDec 函数

CDec 函数

CDec 函数

CDec 函数

ChDir 语句

ChDir 语句

Microsoft.VisualBasic.FileSystem.ChDir
函数 System.IO.Directory.SetCurrentDirectory 方法

Microsoft.VisualBasic.FileSystem.ChDir
函数 System.IO.Directory.SetCurrentDirectory 方法

ChDrive 语句

ChDrive 语句

Microsoft.VisualBasic.FileSystem.ChDrive
函数

Microsoft.VisualBasic.FileSystem.ChDrive
函数

Chr$ 函数、ChrB 函数

Chr$ 函数、ChrB 函数

Microsoft.VisualBasic.Strings.Chr
函数

Microsoft.VisualBasic.Strings.Chr
函数

CInt 函数

CInt 函数

CInt 函数

CInt 函数

Circle 方法

Circle 方法

System.Drawing.Graphics.DrawEllipse
方法

System.Drawing.Graphics.DrawEllipse
方法

CLong 函数

CLong 函数

CLong 函数

CLong 函数

Close 语句

Close 语句

Microsoft.VisualBasic.FileSystem.FileClose 函数
System.IO.StreamReader.Close 方法

Microsoft.VisualBasic.FileSystem.FileClose 函数
System.IO.StreamReader.Close 方法  

Clipboard 对象

Clipboard 对象

System.Windows.Forms.Clipboard
命名空间

System.Windows.Forms.Clipboard
命名空间

ClipControls 属性

ClipControls 属性

没有相同项目。

没有相同项目。

Cls 方法

Cls 方法

System.Drawing.Graphics.Clear 方法

System.Drawing.Graphics.Clear 方法

Color QBColor vbBlack RGB()

Color QBColor vbBlack RGB()

System.Drawing.Color.Black

System.Drawing.Color.Black

Command

Command

System.Environment.GetCommandLineArgs

System.Environment.GetCommandLineArgs

Combo1.AddItem

Combo1.AddItem

ComboBox1.Items.Add

ComboBox1.Items.Add

Cos 函数

Cos 函数

System.Math.Cos 方法

System.Math.Cos 方法

CSng 函数

CSng 函数

CSng 函数

CSng 函数

CStr 函数

CStr 函数

CStr 函数

CStr 函数

CurDir 函数

CurDir 函数

System.IO.Directory.GetCurrentDirectory()
方法

System.IO.Directory.GetCurrentDirectory()
方法

Currency 类型

Currency 类型

Decimal 类型

Decimal 类型

CurrentX 属性

CurrentX 属性

各种图形相关方法的 x
参数。比如、DrawRectangle(pen, x, y, width, height)

各种图形相关方法的 x
参数。比如、DrawRectangle(pen, x, y, width, height)

CurrentY 属性

CurrentY 属性

各种图形相关方法的 y
参数。比如、DrawRectangle(pen, x, y, width, height)

各种图形相关方法的 y
参数。比如、DrawRectangle(pen, x, y, width, height)

Date 函数、Date 语句

Date 函数、Date 语句

System.DateTime.Now
System.DateTime.Today.ToString

System.DateTime.Now
System.DateTime.Today.ToString

Date$ 函数

Date$ 函数

Microsoft.VisualBasic.DateAndTime.DateString

Microsoft.VisualBasic.DateAndTime.DateString

DateAdd 函数

DateAdd 函数

System.DateTime.AddYears 方法 AddMonths
AddDays

System.DateTime.AddYears 方法 AddMonths
AddDays

DateDiff 函数

DateDiff 函数

Microsoft.VisualBasic.DateDiff
函数

Microsoft.VisualBasic.DateDiff
函数

DateValue 函数

DateValue 函数

System.DateTime.Parse 方法 CDate
函数

System.DateTime.Parse 方法   CDate
函数

DatePart 函数

DatePart 函数

Microsoft.VisualBasic.DatePart
函数

Microsoft.VisualBasic.DatePart
函数

Day 函数

Day 函数

System.DateTime.Day 属性

System.DateTime.Day 属性  

Debug.Print

Debug.Print

Debug.WriteLine

Debug.WriteLine

DeleteSetting 语句

DeleteSetting 语句

Microsoft.VisualBasic.Interaction.DeleteSetting

Microsoft.VisualBasic.Interaction.DeleteSetting

DoEvents 函数

DoEvents 函数

System.Windows.Forms.Application.DoEvents
方法

System.Windows.Forms.Application.DoEvents
方法

DrawMode 属性

DrawMode 属性

System.Drawing.Pen.Color 属性

System.Drawing.Pen.Color 属性

DrawStyle 属性

DrawStyle 属性

System.Drawing.Pen.PenType 属性

System.Drawing.Pen.PenType 属性

DrawWidth 属性

DrawWidth 属性

System.Drawing.Pen.Width 属性

System.Drawing.Pen.Width 属性

Environ

Environ

Microsoft.VisualBasic.Interaction.Environ
System.Environment.GetFolderPath

Microsoft.VisualBasic.Interaction.Environ
System.Environment.GetFolderPath

Exp 函数

Exp 函数

System.Math.Exp 方法

System.Math.Exp 方法

FillColor 属性

FillColor 属性

System.Drawing.SolidBrush.Color
属性

System.Drawing.SolidBrush.Color
属性

FileCopy 语句

FileCopy 语句

Microsoft.VisualBasic.FileSystem.FileCopy
函数 System.IO.File.Copy 方法

Microsoft.VisualBasic.FileSystem.FileCopy
函数 System.IO.File.Copy 方法

FileLen 函数

FileLen 函数

System.IO.FileInfo.Length 属性
Microsoft.VisualBasic.FileSystem.FileLen

System.IO.FileInfo.Length 属性
Microsoft.VisualBasic.FileSystem.FileLen

FillStyle 属性

FillStyle 属性

System.Drawing.Pen.Brush 属性

System.Drawing.Pen.Brush 属性

Get 语句

Get 语句

Microsoft.VisualBasic.FileSystem.FileGet
函数

Microsoft.VisualBasic.FileSystem.FileGet
函数

GetAttr

GetAttr

System.IO.File.GetAttributes

System.IO.File.GetAttributes

GotFocus 事件

GotFocus 事件

Enter 事件

Enter 事件

GetSetting 语句

GetSetting 语句

Microsoft.VisualBasic.Interaction.GetSetting

Microsoft.VisualBasic.Interaction.GetSetting

FileDateTime 函数

FileDateTime 函数

System.IO.File.GetCreationTime
方法

System.IO.File.GetCreationTime
方法

HasDC 属性

HasDC 属性

没有相同项目。

没有相同项目。

HDC 属性

HDC 属性

没有相同项目。

没有相同项目。

Height 属性

Height 属性

Control.Size 属性

Control.Size 属性

Hour 函数

Hour 函数

System.DateTime.Hour 属性

System.DateTime.Hour 属性

hwnd Form1.hwnd

hwnd Form1.hwnd

Form1.Handle 定义处也是 ByVal hWnd As
IntPtr

Form1.Handle 定义处也是 ByVal hWnd As
IntPtr

Image 属性

Image 属性

Image 属性

Image 属性

Input # 语句

Input # 语句

Microsoft.VisualBasic.FileSystem.Input
函数

Microsoft.VisualBasic.FileSystem.Input
函数

InStr 函数

InStr 函数

System.String.IndexOf
Microsoft.VisualBasic.Strings.InStr 函数

System.String.IndexOf
Microsoft.VisualBasic.Strings.InStr 函数

InStrB 函数

InStrB 函数

Microsoft.VisualBasic.Strings.InStr
函数

Microsoft.VisualBasic.Strings.InStr
函数

InStrRev 函数

InStrRev 函数

System.String.LastIndexOf 方法
Microsoft.VisualBasic.Strings.InStrRev 函数

System.String.LastIndexOf 方法
Microsoft.VisualBasic.Strings.InStrRev 函数

Int 函数

Int 函数

System.Math.Floor 方法
System.Math.Ceiling 方法 Microsoft.VisualBasic.Int 函数

System.Math.Floor 方法       
System.Math.Ceiling 方法 Microsoft.VisualBasic.Int 函数  

Integer 类型 Long 类型

Integer 类型 Long 类型

Dim y As Integer 改为 Dim x As Short Dim
y As Long 改为 Dim y As Integer

Dim y As Integer 改为 Dim x As Short Dim
y As Long 改为 Dim y As Integer

IsEmpty 函数

IsEmpty 函数

Microsoft.VisualBasic.Information.IsNothing
函数

Microsoft.VisualBasic.Information.IsNothing
函数

IsDate 函数

IsDate 函数

Microsoft.VisualBasic.IsDate 函数

Microsoft.VisualBasic.IsDate 函数

IsNull 函数

IsNull 函数

Microsoft.VisualBasic.Information.IsDBNull
函数

Microsoft.VisualBasic.Information.IsDBNull
函数

IsObject 函数

IsObject 函数

Microsoft.VisualBasic.Information.IsReference
函数

Microsoft.VisualBasic.Information.IsReference
函数

Join 函数

Join 函数

System.String.Join 方法

System.String.Join 方法

KeyAscii

KeyAscii

e.KeyChar 属性

e.KeyChar 属性

Kill 语句

Kill 语句

Microsoft.VisualBasic.FileSystem.Kill
函数 System.IO 命名空间 FileInfo.Delete 方法

Microsoft.VisualBasic.FileSystem.Kill
函数 System.IO 命名空间 FileInfo.Delete 方法

LBound UBound

LBound UBound

System.Array.GetLowerBound
System.Array.GetUpperBound

System.Array.GetLowerBound
System.Array.GetUpperBound

LCase$ 函数

LCase$ 函数

String.ToLower 方法
Microsoft.VisualBasic.Strings.LCase 函数

String.ToLower 方法
Microsoft.VisualBasic.Strings.LCase 函数

Left 属性

Left 属性

Control.Location 属性

Control.Location 属性

Left$、LeftB、LeftB$

Left$、LeftB、LeftB$

System.String.SubString
Microsoft.VisualBasic.Strings.Left 函数

System.String.SubString
Microsoft.VisualBasic.Strings.Left 函数

Len

Len

System.String.Length
Microsoft.VisualBasic.Strings.Len

System.String.Length
Microsoft.VisualBasic.Strings.Len

LenB

LenB

System.Text.Encoding.GetEncoding.GetByteCount
System.Text.Encoding.Unicode.GetByteCount ‘结果 12
System.Text.Encoding.Default.GetByteCount ‘结果 9

System.Text.Encoding.GetEncoding(“gb2312”).GetByteCount(str1)
System.Text.Encoding.Unicode.GetByteCount(“123大小大”) ‘结果 12
System.Text.Encoding.Default.GetByteCount(“123大小大”) ‘结果 9

Line 方法

Line 方法

System.Drawing.Graphics.DrawLine
方法

System.Drawing.Graphics.DrawLine
方法

Line Input # 语句

Line Input # 语句

Microsoft.VisualBasic.FileSystem.LineInput
函数

Microsoft.VisualBasic.FileSystem.LineInput
函数

List1.AddItem

List1.AddItem

ListBox1.Items.Add

ListBox1.Items.Add

LoadPicture 函数

LoadPicture 函数

System.Drawing.Image.FromFile(“….test.bmp”)

System.Drawing.Image.FromFile(“….test.bmp”)

Lock 语句

Lock 语句

Microsoft.VisualBasic.FileSystem.Lock
函数

Microsoft.VisualBasic.FileSystem.Lock
函数

Log 函数

Log 函数

system.Math.Log 方法

system.Math.Log 方法

Long 类型 Integer 类型

Long 类型 Integer 类型

Dim y As Integer 改为 Dim x As Short Dim
y As Long 改为 Dim y As Integer

Dim y As Integer 改为 Dim x As Short Dim
y As Long 改为 Dim y As Integer

LostFocus 事件

LostFocus 事件

Leave 事件

Leave 事件

LTrim$ 函数

LTrim$ 函数

System.String.TrimStart
Microsoft.VisualBasic.Strings.LTrim 函数

System.String.TrimStart
Microsoft.VisualBasic.Strings.LTrim 函数

Mid 函数

Mid 函数

System.String.SubString
Microsoft.VisualBasic.Strings.Mid 函数

System.String.SubString
Microsoft.VisualBasic.Strings.Mid 函数

MidB 函数

MidB 函数

Microsoft.VisualBasic.Strings.Mid
函数

Microsoft.VisualBasic.Strings.Mid
函数

Minute 函数

Minute 函数

System.DateTime.Minute 属性

System.DateTime.Minute 属性

MkDir 语句

MkDir 语句

Microsoft.VisualBasic.FileSystem.MkDir
函数 System.IO.Directory.CreateDirectory 方法

Microsoft.VisualBasic.FileSystem.MkDir
函数 System.IO.Directory.CreateDirectory 方法

MousePointer=11
Screen.MousePointer

MousePointer=11
Screen.MousePointer

System.Windows.Forms.Cursors.WaitCursor()
System.Windows.Forms.Cursor.Current = Cursors.WaitCursor

System.Windows.Forms.Cursors.WaitCursor()
System.Windows.Forms.Cursor.Current = Cursors.WaitCursor

Mod 运算符

Mod 运算符

Math.IEEERemainder 方法
Debug.WriteLine(Math.IEEERemainder ‘结果 1 System.Math.DivRem(10, 3,
intResult) ‘结果 3 Debug.WriteLine(intResult) ‘结果 1

Math.IEEERemainder 方法
Debug.WriteLine(Math.IEEERemainder(10, 3)) ‘结果 1
System.Math.DivRem(10, 3, intResult)    ‘结果   3 (10 3)
Debug.WriteLine(intResult)              ‘结果   1 (10 Mod 3)

Month 函数

Month 函数

System.DateTime.Month 属性

System.DateTime.Month 属性

MsgBox

MsgBox

System.Windows.Forms.MessageBox.Show(“Hello,
world!”) Microsoft.VisualBasic.MsgBox

System.Windows.Forms.MessageBox.Show(“Hello,
world!”) Microsoft.VisualBasic.MsgBox

Name 语句

Name 语句

Microsoft.VisualBasic.FileSystem.Rename
函数

Microsoft.VisualBasic.FileSystem.Rename
函数

Now 函数

Now 函数

System.DateTime.Now
Microsoft.VisualBasic.Now

System.DateTime.Now
Microsoft.VisualBasic.Now

Open 语句

Open 语句

Microsoft.VisualBasic.FileSystem.FileOpen
函数

Microsoft.VisualBasic.FileSystem.FileOpen
函数

Option Base 语句

Option Base 语句

Visual Basic .NET没有提供支持。

Visual Basic .NET没有提供支持。

Option Private

Option Private

Visual Basic .NET没有提供支持。

Visual Basic .NET没有提供支持。

PaintPicture 方法

PaintPicture 方法

System.Drawing.Graphics.DrawImage
方法

System.Drawing.Graphics.DrawImage
方法

Point 方法

Point 方法

不存在相同的Form和控件。
使用Bitmap时用System.Drawing.Bitmap.GetPixel 方法

不存在相同的Form和控件。
使用Bitmap时用System.Drawing.Bitmap.GetPixel 方法

Print 方法

Print 方法

System.Drawing.Graphics.DrawString
方法

System.Drawing.Graphics.DrawString
方法

PrintForm

PrintForm

Visual Basic .NET没有提供支持。

Visual Basic .NET没有提供支持。

Print# 语句

Print# 语句

Microsoft.VisualBasic.FileSystem.Print
函数

Microsoft.VisualBasic.FileSystem.Print
函数

Private 语句 Public 语句

Private 语句 Public 语句

Private Public Friend Protected Protected
Friend

Private Public Friend Protected Protected
Friend

Pset 方法

Pset 方法

不存在相同的Form和控件。
使用Bitmap时用System.Drawing.Bitmap.SetPixel 方法

不存在相同的Form和控件。
使用Bitmap时用System.Drawing.Bitmap.SetPixel 方法

Put 语句

Put 语句

Microsoft.VisualBasic.FileSystem.FilePut
函数

Microsoft.VisualBasic.FileSystem.FilePut
函数

Replace 函数

Replace 函数

Microsoft.VisualBasic.Strings.Replace
函数

Microsoft.VisualBasic.Strings.Replace
函数

Right$ 函数、RightB 函数

Right$ 函数、RightB 函数

System.String.SubString
Microsoft.VisualBasic.Strings.Right 函数

System.String.SubString
Microsoft.VisualBasic.Strings.Right 函数

ReDim 语句

ReDim 语句

ReDim MyArray ReDim Preserve MyArray
语句

ReDim MyArray(5)      ReDim Preserve
MyArray(15)   语句

RmDir 语句

RmDir 语句

Microsoft.VisualBasic.FileSystem.RmDir
函数 System.IO.Directory.Delete() 方法

Microsoft.VisualBasic.FileSystem.RmDir
函数 System.IO.Directory.Delete() 方法

Round 函数

Round 函数

System.Math.Round 方法

System.Math.Round 方法

RTrim$ 函数

RTrim$ 函数

System.String.TrimEnd
Microsoft.VisualBasic.Strings.RTrim

System.String.TrimEnd
Microsoft.VisualBasic.Strings.RTrim

SaveSetting 语句

SaveSetting 语句

Microsoft.VisualBasic.Interaction.SaveSetting
函数

Microsoft.VisualBasic.Interaction.SaveSetting
函数

Scale 方法

Scale 方法

Visual Basic .NET没有提供支持。

Visual Basic .NET没有提供支持。

Screen.ActiveControl Screen.ActiveForm
Screen.Fonts Screen.Height Screen.MousePointer Screen.Width 其他 Screen
对象

Screen.ActiveControl Screen.ActiveForm
Screen.Fonts Screen.Height Screen.MousePointer Screen.Width 其他 Screen
对象

System.Windows.Forms.Application.ActiveForm.ActiveControl
System.Windows.Forms.Application.ActiveForm System.Drawing.FontFamilies
System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
System.Drawing.Cursor.Current
System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width 其他

System.Windows.Forms.Application.ActiveForm.ActiveControl
System.Windows.Forms.Application.ActiveForm System.Drawing.FontFamilies
System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
System.Drawing.Cursor.Current
System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width 其他

Second 函数

Second 函数

System.DateTime.Second 属性

System.DateTime.Second 属性

SendKeys 语句

SendKeys 语句

System.Windows.Forms.SendKeys.Send

System.Windows.Forms.SendKeys.Send(“^C”)

SetAttr

SetAttr

System.IO.File.SetAttributes

System.IO.File.SetAttributes

Sgn 函数

Sgn 函数

System.Math.Sign 函数

System.Math.Sign 函数

Shell

Shell

Microsoft.VisualBasic.Shell

Microsoft.VisualBasic.Shell

Sin 函数

Sin 函数

System.Math.Sin 函数

System.Math.Sin 函数

Space 函数

Space 函数

Microsoft.VisualBasic.Strings.Space
函数

Microsoft.VisualBasic.Strings.Space
函数

Sqr 函数

Sqr 函数

System.Math.Sqrt 函数

System.Math.Sqrt 函数

StrComp 函数

StrComp 函数

Microsoft.VisualBasic.Strings.StrComp
函数

Microsoft.VisualBasic.Strings.StrComp
函数

StrConv 函数

StrConv 函数

Microsoft.VisualBasic.Strings.StrConv
函数

Microsoft.VisualBasic.Strings.StrConv
函数

String$(256, Chr

String$(256, Chr(0))

buf = New String(CChar, 256)
Microsoft.VisualBasic.Strings.StrDup 函数

buf = New String(CChar(” “), 256)
Microsoft.VisualBasic.Strings.StrDup 函数

StrReverse 函数

StrReverse 函数

Microsoft.VisualBasic.Strings.StrReverse
函数

Microsoft.VisualBasic.Strings.StrReverse
函数

Tan 函数

Tan 函数

System.Math.Tan 方法

System.Math.Tan 方法

TextHeight 属性

TextHeight 属性

System.Drawing.Font.Height 属性

System.Drawing.Font.Height 属性

TextWidth 属性

TextWidth 属性

System.Drawing.Graphics.MeasureString
方法

System.Drawing.Graphics.MeasureString
方法

Time$ 函数

Time$ 函数

Microsoft.VisualBasic.DateAndTime.Timer
属性 System.DateTime.Now.TimeOfDay

Microsoft.VisualBasic.DateAndTime.Timer
属性 System.DateTime.Now.TimeOfDay

TimeValue 函数

TimeValue 函数

System.DateTime.Parse 方法 CDate
函数

System.DateTime.Parse 方法   CDate
函数

Top 属性

Top 属性

Control.Location 属性

Control.Location 属性

Trim$ 函数

Trim$ 函数

Microsoft.VisualBasic.Strings.Trim 函数
System.String.Trim

Microsoft.VisualBasic.Strings.Trim 函数
System.String.Trim

Type 语句

Type 语句

Structure 语句

Structure 语句

UCase$ 函数

UCase$ 函数

String.ToUpper 方法
Microsoft.VisualBasic.Strings.UCase 函数

String.ToUpper 方法
Microsoft.VisualBasic.Strings.UCase 函数

Unlock 语句

Unlock 语句

Microsoft.VisualBasic.FileSystem.Unlock
函数

Microsoft.VisualBasic.FileSystem.Unlock
函数

Unload 事件

Unload 事件

Closed 事件 Me.Close()

Closed 事件 Me.Close()

Variant 型

Variant 型

Dim x As Variant 改为 Dim x As
Object

Dim x As Variant 改为 Dim x As
Object

VarPtr、StrPtr、ObjPtr

VarPtr、StrPtr、ObjPtr

Dim MyGCHandle As GCHandle =
GCHandle.Alloc(o,GCHandleType.Pinned) Dim Address As Integer =
CInt(MyGCHandle.AddrOfPinnedObject MyGCHandle.Free() ‘
允许对象实例再移动。

Dim MyGCHandle As GCHandle =
GCHandle.Alloc(o,GCHandleType.Pinned) Dim Address As Integer =
CInt(MyGCHandle.AddrOfPinnedObject()) MyGCHandle.Free() ‘
允许对象实例再移动。

vbCrLf

vbCrLf

Microsoft.VisualBasic.Constants.vbCrLf
Microsoft.VisualBasic.vbCrLf

Microsoft.VisualBasic.Constants.vbCrLf
Microsoft.VisualBasic.vbCrLf

Weekday

Weekday

Microsoft.VisualBasic.Weekday
System.DateTime.DayOfWeek

Microsoft.VisualBasic.Weekday
System.DateTime.DayOfWeek

WeekdayName

WeekdayName

Microsoft.VisualBasic.WeekdayName
(System.DateTime 构造体中没有相同项目)

Microsoft.VisualBasic.WeekdayName
(System.DateTime 构造体中没有相同项目)

Width 属性

Width 属性

Control.Size 属性

Control.Size 属性

Write # 语句

Write # 语句

Microsoft.VisualBasic.FileSystem.Write
函数

Microsoft.VisualBasic.FileSystem.Write
函数

Year 函数

Year 函数

System.DateTime.Year 属性

System.DateTime.Year 属性

相关文章