Visual Basic

<br />
    '---------------------------------------------------------------------------<br />
    '<br />
    '  Function:	ToHex()<br />
    '  Input:	x<br />
    '  Return:	out<br />
    '  Purpose:	Converts Integer to Hex<br />
    '		<br />
    '---------------------------------------------------------------------------<br />
    Public Shared Function ToHex(ByVal x) As String<br />
        Dim out As String = Hex(x)<br />
<br />
        If (out.Length < 2) Then<br />
            out = "0" & out<br />
        End If<br />
<br />
        Return out<br />
    End Function<br />

Dim myObj As New MyComClass

Private Delegate Sub TestDelegate(ByVal str As String)

Private Function CreateDelegateList() As List(Of TestDelegate)
    Dim d As New List(Of TestDelegate)
    d.Add(New TestDelegate(AddressOf TestMethod1))
    d.Add(New TestDelegate(AddressOf TestMethod2))
    d.Add(New TestDelegate(AddressOf TestMethod3))
    Return d
End Function

Private Sub TestMethod1(ByVal paramValue As String)
    ' Do something useful...
End Sub

Private Sub TestMethod2(ByVal paramValue As String)
    ' Do something useful...
End Sub

Private Sub TestMethod3(ByVal paramValue As String)
    ' Do something useful...
End Sub

wuzzywezzer wrote:

so if i use something like createdelegatelist(1) then il be calling testmethod1?

wuzzywezzer wrote:

or i use d.item(index)?

Dim dl As List(Of TestDelegate) = CreateDelegateList()
dl(0).Invoke("This is a test string being passed to the TestMethod.")

nitin3 wrote:

pls tll me what is the diff between these two declarations

dim i ,j as integer

//and

dim i,j as integerer

nitin3 wrote:

dim i ,j as integer

//and

dim i as integer
dim j as integer

MohammadAmiry wrote:

..i As Variant and...