vb.net update語(yǔ)法

其他的沒(méi)法看，不過(guò)下面這句是肯定有問(wèn)題的，應(yīng)該連編譯都過(guò)不了：

成都創(chuàng)新互聯(lián)公司成立于2013年，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命，1280元工布江達(dá)做網(wǎng)站,已為上家服務(wù),為工布江達(dá)各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:18982081108

Dim querystring As String = "update 班級(jí)信息表 set 班級(jí)名稱="TextBox1.Text",班級(jí)編號(hào)="TextBox2.Text""

改稱這樣試試：

Dim querystring As String

querystring = "update 班級(jí)信息表 set 班級(jí)名稱=" chr(39) TextBox1.Text chr(39) ", 班級(jí)編號(hào)=" chr(39) TextBox2.Text chr(39)

VB.NET goto語(yǔ)法

你這個(gè)問(wèn)題是這樣的呀：

因?yàn)槟爿斎肓?0+10以后你為了結(jié)束是不是又打了個(gè)回車？那就是\n了，

但是這個(gè)\n現(xiàn)在被存在stdin的緩沖區(qū)里沒(méi)有被取走，所以當(dāng)你要輸入Y或者N的時(shí)候，again將stdin的\n取走了，而沒(méi)有給你輸入的機(jī)會(huì)。

所以你應(yīng)該是

printf("Please enter Y or N\n");

scanf("%c", again); //取走\(yùn)n

scanf("%c",again); //記錄Y或者N

這樣就可以了。

VB.net與VB的語(yǔ)法是不是相同的？

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

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

例如

sMyString = Mid(sMyString,3,4)

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

sMyString = sMyString.substring(3,4)

如何使用VB.NET中可選參數(shù)調(diào)用方法

VB.NET可選參數(shù)的默認(rèn)值必須是一個(gè)常數(shù)表達(dá)式。

過(guò)程定義中跟在可選參數(shù)后的每個(gè)參數(shù)也都必須是可選的。

下面的語(yǔ)法顯示帶VB.NET可選參數(shù)的過(guò)程聲明：

Sub sub name（ByVal parameter 1 As data type 1,

Optional ByVal parameter 2 As data type 2 = default value）

調(diào)用帶VB.NET可選參數(shù)的過(guò)程

過(guò)程在運(yùn)行時(shí)無(wú)法檢測(cè)到給定的參數(shù)是否已被省略，或者調(diào)用代碼是否已顯式提供默認(rèn)值。如果需要弄清楚這一點(diǎn)，可以設(shè)置一個(gè)不可能的值作為默認(rèn)值。下面的過(guò)程定義了可選參數(shù) office,并測(cè)試其默認(rèn)值 QJZ 以查看它在調(diào)用中是否已被省略：

Visual Basic

Sub notify（ByVal company As String, Optional ByVal office As String = "QJZ"）

If office = "QJZ" Then

Debug.WriteLine（"office not supplied -- using Headquarters"）

office = "Headquarters" End If

' Insert code to notify headquarters or specified office.

End Sub

如果可選參數(shù)是像 String 這樣的引用類型，只要它不是該變量所預(yù)期的值，就可以使用 Nothing 作為默認(rèn)值。

VB.NET可選參數(shù)和重載

定義帶可選參數(shù)的過(guò)程的另一種方法是使用重載。如果有一個(gè)可選參數(shù)，可以定義過(guò)程的兩個(gè)重載版本，一個(gè)接受此參數(shù)，另一個(gè)則不帶參數(shù)。此方法隨可選參數(shù)數(shù)目的增加而變得更復(fù)雜。然而，這樣做的優(yōu)點(diǎn)是可以完全確定調(diào)用程序是否提供了每個(gè)VB.NET可選參數(shù)。

VB.net 中，#if 是什么語(yǔ)法？

#If...Then...#Else 指令

根據(jù)條件編譯選定的 Visual Basic 代碼塊,需要有#Const 配對(duì)，一般要先用#Const 定義條件編譯器常量

'以下是例子

Module Module1

#Const i = 60

Sub Main()

#If i 30 Then

Console.WriteLine("???") '如果用#Const定義了i，該句語(yǔ)句才會(huì)執(zhí)行，假如用的是private i as integer=60定義，該語(yǔ)句不會(huì)被執(zhí)行

#End If

End Sub

End Module

vb.net中如何用事件和委托，會(huì)C#中的事件和委托，但不知VB.net中的語(yǔ)法，望給個(gè)簡(jiǎn)單的例子熟悉語(yǔ)法。

一委托：此示例演示如何將方法與委托關(guān)聯(lián)然后通過(guò)委托調(diào)用該方法。

創(chuàng)建委托和匹配過(guò)程

創(chuàng)建一個(gè)名為 MySubDelegate 的委托。

Delegate Sub MySubDelegate(ByVal x As Integer)

聲明一個(gè)類，該類包含與該委托具有相同簽名的方法。

Class class1

Sub Sub1(ByVal x As Integer)

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

End Sub

End Class

定義一個(gè)方法，該方法創(chuàng)建該委托的實(shí)例并通過(guò)調(diào)用內(nèi)置的 Invoke 方法調(diào)用與該委托關(guān)聯(lián)的方法。

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

二、事件

下面的示例程序闡釋如何在一個(gè)類中引發(fā)一個(gè)事件，然后在另一個(gè)類中處理該事件。AlarmClock 類定義公共事件 Alarm，并提供引發(fā)該事件的方法。AlarmEventArgs 類派生自 EventArgs，并定義 Alarm 事件特定的數(shù)據(jù)。WakeMeUp 類定義處理 Alarm 事件的 AlarmRang 方法。AlarmDriver 類一起使用類，將使用 WakeMeUp 的 AlarmRang 方法設(shè)置為處理 AlarmClock 的 Alarm 事件。

該示例程序使用事件和委托和引發(fā)事件中詳細(xì)說(shuō)明的概念。

示例

' 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

當(dāng)前名稱：vb.net語(yǔ)法文庫(kù) VB基本語(yǔ)法
本文來(lái)源：http://chinadenli.net/article26/hppijg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供虛擬主機(jī)、網(wǎng)站制作、移動(dòng)網(wǎng)站建設(shè)、網(wǎng)站營(yíng)銷、定制網(wǎng)站、網(wǎng)站策劃

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)