Visual Basic

Public Class myLookupClass
    Private iID As Integer
    Private sValue As String

    Public Sub New(ByVal DisplayValue As String, ByVal ID As Integer)
        iID = ID
        sValue = DisplayValue
    End Sub

    Public Property GetLookup() As Integer
        Get
            Return iID
        End Get
        Set(ByVal value As Integer)
            sValue = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        'Return MyBase.ToString()
        Return sValue
    End Function
End Class

While datareader.Read()
                    ContactNameField.Items.Add( _
                    New myLookupClass((datareader.Item("cDisplayName")), _
                    (datareader.Item("idPeople"))))
                End While

For Each Control As System.Windows.Forms.Control In Me.Controls
            If TypeOf Control Is TextBox Then
                If Control.Tag = "1" Then
                    Control.Visible = False
                End If
            End If
        Next

Dim input As String = "4247288"

Dim characterLookup As Dictionary(Of Char, Char()) = New Dictionary(Of Char, Char())

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.FillCharacterLookup()
End Sub

Private Sub FillCharacterLookup()
    characterLookup.Add("2"c, New Char() {"A"c, "B"c, "C"c})
    characterLookup.Add("3"c, New Char() {"D"c, "E"c, "F"c})
    characterLookup.Add("4"c, New Char() {"G"c, "H"c, "I"c})
    characterLookup.Add("5"c, New Char() {"J"c, "K"c, "L"c})
    characterLookup.Add("6"c, New Char() {"M"c, "N"c, "O"c})
    characterLookup.Add("7"c, New Char() {"P"c, "Q"c, "R"c, "S"c})
    characterLookup.Add("8"c, New Char() {"T"c, "U"c, "V"c})
    characterLookup.Add("9"c, New Char() {"W"c, "X"c, "Y"c, "Z"c})
End Sub

Private Sub OutputResult()
    Dim outArray(7) As Char
    For index As Integer = 0 To input.Length - 1
        outArray(index) = characterLookup(input(index))(0)
    Next
    Me.txtResult.Text = Convert.ToString(outArray)
End Sub

Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
    Me.OutputResult()
End Sub

rbjanaki wrote:

thank very much, but I have to display 2187 combinations in a list box after user enter the phone number in textbox

Henry Minute wrote:

I will have to think about it

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.