asked on
ASKER
Private supplier As New BookSupplier.WebService()
Public Sub GetBookCost(ByVal bookName As String)
AddHandler supplier.GetCostCompleted AddressOf supplier_GetCostCompleted
supplier.GetCostAsync(bookName)
End Sub
Private Sub supplier1_GetCostCompleted(sender As Object, e As BookSupplier.GetCostCompletedEventArgs)
If e.Error IsNot Nothing Then
Throw e.Error
End If
Dim cost As Decimal = TryCast(e.UserState, Decimal)
costLabel.Text = "Quote from Book Supplier: " & cost
End Sub
ASKER
ASKER
ASKER
Visual Basic .NET (VB.NET) is an object-oriented programming language implemented on the .NET framework, but also supported on other platforms such as Mono and Silverlight. Microsoft launched VB.NET as the successor to the Visual Basic language. Though it is similar in syntax to Visual Basic pre-2002, it is not the same technology,
TRUSTED BY