VB.NET精彩实例教程的简单介绍

我要学VB。

VB编程工具

成都创新互联长期为千余家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为德宏州企业提供专业的成都做网站、网站制作，德宏州网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。

Visual Basic 6.0简体中文版 Visual Basic 6.0绿色精简版 MSDN VB6精简版

VB入门教程

VB程序设计系列教程 VB 趣味例程 VB6实例教程

中文VB6傻瓜书 VB最简单入门教程 VB 6.0中文版范例入门与提高

VB初哥教学 VB编程标准 看实例学VB 6.0

VB.NET学习教程 VB.NET控件时尚编程百例 VB 中文版实用培训教程

VB经典编程 VB6循序渐进教程 VB 6.0 中文版教程

VB_NET实例解析与应用编程 VB.NET中高级篇 VB精彩编程200例

VB超级教程 VB API函数大全 Visual Basic 6.0实例教程

VB 6.0数据库开发学习教程 VB.NET数据库编程从入门到精通 VB6.0入门提高

21天学通Visual Basic.NET Visual Basic.NET实用全书 Visual Basic.NET学习范本

Visual Basic.NET培训教程 Visual Basic实用编程标准 VB学习教程

VB的控件的学习

VB编程开发技术

COM+与VB6分布式应用程序设计 Visual Basic 插件开发人员指南 VB.NET高级开发指南

VB.Net高级编程 VB.NET 面向对象可重用组件开发 Visual Basic精彩编程200例

VB.Net多媒体编程 VB.NET高级程序员指南 Visual Basic.NET GDI+技术教程

VB.Net控件应用编程实例教程 VB.NET XML Web开发人员指南 VB和SQL Server编程指南

用VB.NET开始Asp.NET1.1的开发 VB 游戏编程学习系统 Visual Basic.NET 编码技术

VB.NET面向对象CLASS的实现 VB.NET应用集锦例程 VB.NET实例解析应用编程

Visual Basic.Net与动态网页技术 VB6开发宝典 VB系统资源

VB 例程序讲解 VB.NET数据库开发实例 VB.NET与数据库开发教程

VB语言程序设计 VB.NET面向对象的实现 Visual Basic 6.0应用编程150例

Visual Basic.NET项目开发实践 Visual Basic 6.0 开发宝典 Visual Basic 6.0网络编程

Visual Basic6.0企业级应用程序开发 Visual Basic6.0数据库程序设计 Visual Basic .NET程序设计基础

Visual Basic.NET数据库开发教程 Visual Basic 6 循序渐进教程 VB游戏编程21天自学通

Visual Basic.NET进销存程序设计 Visual Basic程序设计导学 Visual Basic.NET技术内幕

VB.NET和SOL Server 2000高级编程 利用VB设计打印复杂报表 Visual Basic.NET编程基础

Visual Basic6.0元件程序开发指南 VB.Net网络数据库整合应用 Visual Basic或C#创建WS

Visual Basic.NET程序设计与应用

VB开发手册与指南

VB.Net与ASP.Net代码手册 VB 6.0中文版语言参考手册 VB编程经验手册

VB API 函数使用手册 VBA高级开发手册 VB速查手册之技巧篇

VB.NET Remoting 技术手册 VB.Net调试技术手册 Visual Basic 6.0 组件工具指南

VB.Net字符串和正则表达式参考手册 VBScript语言参考 VB6程序设计参考手册

VB技巧问答10000例 VB5 开发WEB数据库指南 VBscript英文帮助手册

VB6控件参考手册 VB6语言参考手册 VB6程序员指南

VB5开发WEB数据库指南 VBA 高级开发指南 VB中文版实用参考手册

VB编程经验手册 VB6组件工具指南 Visual Basic API函数参考手册

Visual Basic 6.0实用参考手册 Vsual Basic 6.0 控件参考手册 Visual Basic.NET类设计手册

Visual Basic.NET 语言参考手册 Visual Basic点虐 反射参考手册 Visual Basic点虐 线程参考手册

Visual Basic编程经验手册 Visual Basic.Net专家指南 Visuai Basic.NET编程培训教程

VB速查手册之技巧篇 VBscript英文帮助手册

VB其它相关资源

VBSCRIPT函数方法速查 Visual Basic 第三方控件大全 Visual Basic 语言参考-函数速查

Access 2003 VBA 程序员参考书 VB、C快速进阶 V3.0 VB系统资源

VB Script语言参考 VB编程技巧集 VBScript 教程及语言参考

VBScript与JScript实例教程 VB精华文摘 Visual Basic 术语解释

VB常用函数 VBScript学习 VB学习一点通

VB Script基础 VBScript 帮助手册 Visual Basic 常用数值算法集

VB视频相关

VB编程与应用(电大)29讲 编程经典Visual Basic 用多媒体学Visual Basic

电子科大--- VB程序设计 VB点虐 多媒体教学

VB点虐 中类的实例化

1.不正确

Dim abc As myClass，定义一个可以引用myClass类型对象的变量abc。这个abc变量存在于栈上。

abc=New myClass。New myClass创建myClass实例对象，这个对象存在于托管堆上。然后（同时）让abc引用（指向）这个对象。

abc变量在栈上，而对象在托管堆上。

abc储存的是对象的地址，而不是对象本身。

看下面的代码

Dim a As myClass,b As myClass,c As myClass

a=New myClass

b=a

c=a

整个过程中只创建了一个myClass对象，位于托管堆上。

三个myClass类型的变量a、b、c位于栈上，都指向了这一个myClass对象

2.类的成员分 实例成员 和 静态成员

实例成员 必须在实例对象上调用

静态成员 可以直接调用，不需要实例对象。

vb点虐 中如何用事件和委托，会C#中的事件和委托，但不知VB点虐 中的语法，望给个简单的例子熟悉语法。

一委托：此示例演示如何将方法与委托关联然后通过委托调用该方法。

创建委托和匹配过程

创建一个名为 MySubDelegate 的委托。

Delegate Sub MySubDelegate(ByVal x As Integer)

声明一个类，该类包含与该委托具有相同签名的方法。

Class class1

Sub Sub1(ByVal x As Integer)

MsgBox("The value of x is: " CStr(x))

End Sub

End Class

定义一个方法，该方法创建该委托的实例并通过调用内置的 Invoke 方法调用与该委托关联的方法。

Protected Sub DelegateTest()

Dim c1 As New class1

' Create an instance of the delegate.

Dim msd As MySubDelegate = AddressOf c1.Sub1

' Call the method.

msd.Invoke(10)

End Sub

二、事件

下面的示例程序阐释如何在一个类中引发一个事件，然后在另一个类中处理该事件。AlarmClock 类定义公共事件 Alarm，并提供引发该事件的方法。AlarmEventArgs 类派生自 EventArgs，并定义 Alarm 事件特定的数据。WakeMeUp 类定义处理 Alarm 事件的 AlarmRang 方法。AlarmDriver 类一起使用类，将使用 WakeMeUp 的 AlarmRang 方法设置为处理 AlarmClock 的 Alarm 事件。

该示例程序使用事件和委托和引发事件中详细说明的概念。

示例

' EventSample.vb.

'

Option Explicit

Option Strict

Imports System

Imports System.ComponentModel

Imports Microsoft.VisualBasic

Namespace EventSample

' Class that contains the data for

' the alarm event. Derives from System.EventArgs.

'

Public Class AlarmEventArgs

Inherits EventArgs

Private _snoozePressed As Boolean

Private nrings As Integer

'Constructor.

'

Public Sub New(snoozePressed As Boolean, nrings As Integer)

Me._snoozePressed = snoozePressed

Me.nrings = nrings

End Sub

' The NumRings property returns the number of rings

' that the alarm clock has sounded when the alarm event

' is generated.

'

Public ReadOnly Property NumRings() As Integer

Get

Return nrings

End Get

End Property

' The SnoozePressed property indicates whether the snooze

' button is pressed on the alarm when the alarm event is generated.

'

Public ReadOnly Property SnoozePressed() As Boolean

Get

Return _snoozePressed

End Get

End Property

' The AlarmText property that contains the wake-up message.

'

Public ReadOnly Property AlarmText() As String

Get

If _snoozePressed Then

Return "Wake Up!!! Snooze time is over."

Else

Return "Wake Up!"

End If

End Get

End Property

End Class

' Delegate declaration.

'

Public Delegate Sub AlarmEventHandler(sender As Object, _

e As AlarmEventArgs)

' The Alarm class that raises the alarm event.

'

Public Class AlarmClock

Private _snoozePressed As Boolean = False

Private nrings As Integer = 0

Private stopFlag As Boolean = False

' The Stop property indicates whether the

' alarm should be turned off.

'

Public Property [Stop]() As Boolean

Get

Return stopFlag

End Get

Set

stopFlag = value

End Set

End Property

' The SnoozePressed property indicates whether the snooze

' button is pressed on the alarm when the alarm event is generated.

'

Public Property SnoozePressed() As Boolean

Get

Return _snoozePressed

End Get

Set

_snoozePressed = value

End Set

End Property

' The event member that is of type AlarmEventHandler.

'

Public Event Alarm As AlarmEventHandler

' The protected OnAlarm method raises the event by invoking

' the delegates. The sender is always this, the current instance

' of the class.

'

Protected Overridable Sub OnAlarm(e As AlarmEventArgs)

RaiseEvent Alarm(Me, e)

End Sub

' This alarm clock does not have

' a user interface.

' To simulate the alarm mechanism it has a loop

' that raises the alarm event at every iteration

' with a time delay of 300 milliseconds,

' if snooze is not pressed. If snooze is pressed,

' the time delay is 1000 milliseconds.

'

Public Sub Start()

Do

nrings += 1

If stopFlag Then

Exit Do

Else

If _snoozePressed Then

System.Threading.Thread.Sleep(1000)

If (True) Then

Dim e As New AlarmEventArgs(_snoozePressed, nrings)

OnAlarm(e)

End If

Else

System.Threading.Thread.Sleep(300)

Dim e As New AlarmEventArgs(_snoozePressed, nrings)

OnAlarm(e)

End If

End If

Loop

End Sub

End Class

' The WakeMeUp class has a method AlarmRang that handles the

' alarm event.

'

Public Class WakeMeUp

Public Sub AlarmRang(sender As Object, e As AlarmEventArgs)

Console.WriteLine((e.AlarmText + ControlChars.Cr))

If Not e.SnoozePressed Then

If e.NumRings Mod 10 = 0 Then

Console.WriteLine(" Let alarm ring? Enter Y")

Console.WriteLine(" Press Snooze? Enter N")

Console.WriteLine(" Stop Alarm? Enter Q")

Dim input As String = Console.ReadLine()

If input.Equals("Y") Or input.Equals("y") Then

Return

Else

If input.Equals("N") Or input.Equals("n") Then

CType(sender, AlarmClock).SnoozePressed = True

Return

Else

CType(sender, AlarmClock).Stop = True

Return

End If

End If

End If

Else

Console.WriteLine(" Let alarm ring? Enter Y")

Console.WriteLine(" Stop Alarm? Enter Q")

Dim input As String = Console.ReadLine()

If input.Equals("Y") Or input.Equals("y") Then

Return

Else

CType(sender, AlarmClock).Stop = True

Return

End If

End If

End Sub

End Class

' The driver class that hooks up the event handling method of

' WakeMeUp to the alarm event of an Alarm object using a delegate.

' In a forms-based application, the driver class is the

' form.

'

Public Class AlarmDriver

Public Shared Sub Main()

' Instantiates the event receiver.

Dim w As New WakeMeUp()

' Instantiates the event source.

Dim clock As New AlarmClock()

' Wires the AlarmRang method to the Alarm event.

AddHandler clock.Alarm, AddressOf w.AlarmRang

clock.Start()

End Sub

End Class

End Namespace