Visual Basic

tharshini wrote:

I face problem in VB.net 2003,could you tell how we insert the progress bar in the status bar?

demasoft wrote:

I have tried everything

demasoft wrote:

no manage to get working

Sub Main()
    Dim sb() As String
    Dim s As String
    sb = sa()
    For Each s In sb
        Console.WriteLine(s)
    Next
    Console.ReadLine()
End Sub

Function sa() As String()
    Dim saa() As String = New String() {"0", "1", "2"}
    Return saa
End Function

Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
 
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class Service1
    Inherits System.Web.Services.WebService
 
    <WebMethod()> _
    Public Function GetArrayOfStrings() As String()
        Dim strings As String() = {"Some text 1", "Some text 2", "Some text 3"}
 
        return strings
    End Function
 
    <WebMethod()> _
    Public Function GetArrayOfStrings2() As String()
        Dim strings(3) As String
 
        strings(0) = "Some text 1"
        strings(1) = "Some text 2"
        strings(2) = "Some text 3"
 
        return strings
    End Function
 
    <WebMethod()> _
    Public Function GetArrayListOfStrings() As ArrayList
        Dim list As New ArrayList
        list.AddRange(New String() {"Some text 1", "Some text 2", "Some text 3"})
 
        return list
    End Function
 
    <WebMethod()> _
    Public Function GetListOfStrings() As List(Of String)
        Dim list As New List(Of String)
        list.AddRange(New String() {"Some text 1", "Some text 2", "Some text 3"})
 
        return list
    End Function
End Class