vb.net例子 vbnet lib

VB.net实例

1 生成txt文件。

DimSaveFileDialog1AsNewSaveFileDialog() '创建一个保存对话框

SaveFileDialog1.Filter ="txt files (*.txt)|*.txt" '设置扩展名

IfSaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OKThen '如果确定保存

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False) '保存文本,False表示不追加文本，直接覆盖其内容

EndIf

原文链接：

相关问答

Q1: 有没有人能详细的说明vb.net 的特点，优缺点及应用领域？最好也举个运用VB.NET的例子啊！

Visual Basic .NET Visual Basic.NET是基于微软.NET Framework之上的面向对象的中间解释性语言，可以看作是Visual Basic在.Net Framework平台上的升级版本,增强了对面向对象的支持。但由于改动太大，导致VB.net对VB的向后兼容性不好，在业界引起不小的争议。 大多的VB.Net程序员使用Visual Studio .Net作为IDE（integrated development environment). SharpDevelop是另一种可用的开源的IDE。VB.Net需要在.Net Framework平台上才能执行。 VB.NET的主页 1 目前版本 2005年9月以来，存在三种不同版本的Visual Basic .NET. 1 Visual Basic .NET:是随vc#和ASP.NET一起在2002年发布的最初始的VB.net版本。C#被大力宣传为微软对付JAVA的王牌，受到媒体极力关注。然而VB.NET(有时被称为VB7)影响面不广，这导致VB社区之外很少人关注它。那些试用过此版VB.NET的人在层层幕布下发现一个强大却艰深的语言，而且还有不少弱点，比如它比VB6来有一个大了十倍的进行时(RunTime)，内存footprint也大大增加。 2 Visual Basic .NET 2003:是和.NET Framework 1.1一起发布的。新功能包括对.NET Compact Framework的支持和更好的VB升迁向导。并改进了运行状况，IDE稳定性(尤其是后台编译器)，以及运行时RunTime稳定性。另外，VB.NET 2003还有一个学院版Visual Studio .NET 2003 Academic Edition (VS03AE)，它是分发给各国某些学者免费使用的版本。 3 Visual Basic 2005:VB2005是VB.Net的重大转变，微软决意在其软件名称中去掉了.NET部份。在VB2005中，微软增加了许多新功能，以引用VB对于初学者来说的一些优点： A, Edit and Continue - 也许是从VB那里丢掉的最大的功能，允许代码的编辑和执行立即的执行恢复。 B, Design-time expression evaluation C, My伪命名空间，提供了访问.NET Framework特定域的不需大量编码的简单方式；还能动态产生类(显然的是My.Forms)；提供了改进的VB到VB.NET转换向导；Using 语法，简化了需要部署pattern to free resources的对象的使用；My编码，可隐藏由VB.NET IDE写的模板代码；数据源绑定，简化了数据库C/S开发 上述功能(尤其是My)增强了VB.Net成为快速开发应用平台的可能，并与C#进一步区别开来。参见： 使用My开发 通过My命名空间访问.NET Framework 和项目 Visual Basic 2005 通过增加新功能而填补了和其它所谓更强大的.NET语言的差距。 A, 增加了.NET 2.0语言功能包括：generics和Partial类(在一个文件里定义一个类的某部份然后再添加更多的定义，这个方法在整合用户编码和系统自动生成编码时尤其有用)。 B, XML注释，可以被NDoc等工具处理而自动生成文档 C, operator overloading D, 支持在其它语言中已经广泛使用的unsigned integer数据类型。 E, 支持在许多C衍生编程语言已提供的复合操作符如："+=", "-=" 4, IsNot专利：If Not X Is Y表达式被转换成If X IsNot Y。当微软为IsNot申请专利时招致了恶名(尤其来自Real公司)。 5, Visual Basic 2005 Express：作为VS产品线上的一部份,VB2005 Express是专为业余爱好者和新手定制的免费的VS Express系列的一员。Express版本目的定位在帮助人们学习一种语言，所以他们有和标准版一致的用户界面，只是少了一些高级功能。另外，VS 查看更多答案

记得采纳啊

Q2: 谁能分享一下vb.net多线程的简单例子，证明线程之间互不干扰，加上注释最好。

Imports System

Imports System.Threading

Public Class Form1

    Dim TestThread1, TestThread2 As Thread

    Public Sub TestMethod1()

        Dim i As Integer

        i = 0

        While (i  1000)

            Label1.Text = i

            i += 1

        End While

    End Sub

    Public Sub TestMethod2()

        Dim i As Integer

        i = 0

        While (i  1000)

            Label2.Text = i

            i += 1

        End While

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Control.CheckForIllegalCrossThreadCalls = False

        TestThread1 = New Thread(New ThreadStart(AddressOf TestMethod1))

        TestThread1.Start()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Control.CheckForIllegalCrossThreadCalls = False

        TestThread2 = New Thread(New ThreadStart(AddressOf TestMethod2))

        TestThread2.Start()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Control.CheckForIllegalCrossThreadCalls = False

        TestThread1 = New Thread(New ThreadStart(AddressOf TestMethod1))

        TestThread2 = New Thread(New ThreadStart(AddressOf TestMethod2))

        TestThread1.Start()

        TestThread2.Start()

    End Sub

End Class

Q3: vb.net多线程如何返回参数，举个例子，谢谢

Public Class Form1

    Public Class SquareClass '把多线程调用的函数封装到类中，通过类事件返回

        Public Value As Double

        Public Square As Double

        Public Event ThreadComplete(ByVal Square As Double)

        Public Sub CalcSquare()

            Square = Value * Value

            RaiseEvent ThreadComplete(Square)

        End Sub

    End Class

    Dim WithEvents oSquare As SquareClass

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '多线程返回值测试，当线程运行完成激发事件

        oSquare = New SquareClass()

        Dim t As New Threading.Thread(AddressOf oSquare.CalcSquare)

        oSquare.Value = 30

        t.Start()

    End Sub

    Sub SquareEventHandler(ByVal Square As Double) Handles oSquare.ThreadComplete '响应事件函数

        MsgBox("The square is "  Square)

    End Sub

End Class

vb.net例子的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet lib、vb.net例子的信息别忘了在本站进行查找喔。