Visual Basic

Dim numberToWord As New Dictionary(Of Integer, string)

numberToWord.Add(0, "Zero")
numberToWord.Add(1, "One")
numberToWord.Add(2, "Two")
numberToWord.Add(3, "Three")
numberToWord.Add(4, "Four")
........
........

Dim numberToWord As New Dictionary(Of Char, string)

numberToWord.Add("0"C, "Zero")
numberToWord.Add("1"C, "One")
numberToWord.Add("2"C, "Two")
numberToWord.Add("3"C, "Three")
numberToWord.Add("4"C, "Four")
........
........

<br />
Partial Class Form1<br />
    Inherits System.Windows.Forms.Form<br />
<br />
    Public Numbers(7, 3) As String<br />
    Public Phonenumber As Integer<br />
    Public output As String<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
        Numbers(0, 0) = "A" 	<br />
        Numbers(0, 1) = "B" '2    <br />
        Numbers(0, 2) = "C" '2    <br />
        Numbers(1, 0) = "D" '3    <br />
        Numbers(1, 1) = "E" '3    <br />
        Numbers(1, 2) = "F" '3    <br />
        Numbers(2, 0) = "G" '4    <br />
        Numbers(2, 1) = "H" '4   <br />
        Numbers(2, 2) = "I" '4    <br />
        Numbers(3, 0) = "J" '5    <br />
        Numbers(3, 1) = "K" '5   <br />
        Numbers(3, 2) = "L" '5    <br />
        Numbers(4, 0) = "M" '6    <br />
        Numbers(4, 1) = "N" '6    <br />
        Numbers(4, 2) = "O" '6    <br />
        Numbers(5, 0) = "P" '7    <br />
        Numbers(5, 1) = "R" '7    <br />
        Numbers(5, 2) = "S" '7    <br />
        Numbers(6, 0) = "T" '8    <br />
        Numbers(6, 1) = "U" '8    <br />
        Numbers(6, 2) = "V" '8    <br />
        Numbers(7, 0) = "W" '9    <br />
        Numbers(7, 1) = "X" '9    <br />
        Numbers(7, 2) = "Y" '9<br />
<br />
<br />
    End Sub<br />
    Private Sub GenerateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GenerateButton.Click<br />
<br />
<br />
        Dim phoneNumber As String = GetNumber()<br />
<br />
        'check if the number contains 0 or 1<br />
        While phoneNumber.Contains("0") Or phoneNumber.Contains("1")<br />
            phoneNumber = GetNumber()<br />
        End While<br />
<br />
        'create a hashtable to hold the digits<br />
        Dim arrayL As New Hashtable<br />
        Dim x As Integer = 1<br />
        For i As Integer = 65 To 90 Step 3<br />
            arrayL.Add(x, New Char() {Chr(i), Chr(i + 1), Chr(i + 2)})<br />
            x += 1<br />
        Next<br />
<br />
        Dim word As String = ""<br />
<br />
        'creates only 3 words out of the phonenumber<br />
        For i As Integer = 0 To 2<br />
<br />
            For Each s As String In phoneNumber<br />
                word = word & DirectCast(arrayL.Item(CInt(s)), Char())(i).ToString<br />
            Next<br />
        Next<br />
<br />
        output = PhoneNumberWordsListBox.Text<br />
<br />
<br />
    End Sub<br />
<br />
    <br />
<br />
    Private Sub PhoneNumberTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhoneNumberTextBox.TextChanged<br />
        Phonenumber = PhoneNumberTextBox.Text<br />
<br />
    End Sub<br />
    Private Function GetNumber() As String<br />
<br />
        Return PhoneNumberTextBox.Text()<br />
    End Function<br />
End Class<br />
<br />
<br />

shaynoy wrote:

Is your activex support those important issues?

Paramu1973 wrote:

Dim Save_3 As String = "Delete from gnlmst where gnl_code is null"

Dim Save_3 As String = "Delete from gnlmst where @gnl_code is NULL"<br />
DAD.DeleteCommand = New SqlCommand(Save_3, con)<br />
<br />
With DAD.DeleteCommand.Parameters<br />
 Add("@gnl_code", SqlDbType.VarChar, 50).Value = "gnl_code"<br />
End With

Dim QueryText As String<br />
dim fieldName as string ="Field1"<br />
Dim command As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand()<br />
QueryText ="delete from table where @field is NULL" <br />
command.CommandText = QueryText<br />
command.Parameters.Add("@field", SqlDbType.Varchar, fieldName.length).Value = fieldName 

Private Sub CollectFrames(ByVal bgw As BackgroundWorker, ByVal Handler As ShowProgressDelegate)

    StartMeasuring()
    FramesCollected = My.Settings.MAXFRAMES
    If FramesCollected > Me.DPXList.Count Then FramesCollected = Me.DPXList.Count
    ' create the array class for the frames
    Frames = New clsFrames(FramesCollected)

    Dim ExecutionTime As Integer = 0
    For i As Integer = 0 To Me.FramesCollected - 1
        Frames.Add(Me.DPXList.Item(i))
        If i = 0 Then BGWFileRead.ReportProgress(1)

        Dim thisFrame As clsDPX = Frames.getFrame(i)
        ExecutionTime = GetCurrentMillisecondCount - GetPreviousMillisecondCount
        If Handler IsNot Nothing Then
            Dim ProcessMessage As String = (String.Format("Processing File {0} ({1} of {2})", thisFrame.FileToRead.Name, i.ToString, FramesCollected.ToString))
            Handler.Invoke(CLng(FramesCollected), CLng(i), thisFrame.FileToRead.Name, ProcessMessage, ExecutionTime)
        End If
    Next
End Sub

Private Sub BGWFileRead_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BGWFileRead.DoWork
    CollectFrames(BGWFileRead, AddressOf ShowProgress)
End Sub

o.ResumeLayout(false);
o.PerformLayout();