telephone number word generator - Visual Basic Discussion Boards

Yes.Make it as a Public Function in form1 and then call it from form2. Thumbs Up | :thumbsup:

hi,
was wondering if it is possible to code a program to "right click" / bring up context menu for a file.
so to be a little less vague;

i have heaps of templates (win word, excel...), you right click and select "New"
which opens the respective office app with the template loaded into a fresh doc.

how could i do this programatically, rather that simply opening the file through vb or doing it manually?

apologies if this has already been answered, i have searched for it

-N

Right click on what?

There is an article around with global keyboard and mouse hooks I saw recently.

Never underestimate the power of human stupidity
RAH

The template file

Yeah but you must be viewing the list of templates in something, explorer presumably!

Never underestimate the power of human stupidity
RAH

Hi, Friends

How I can Edit My Image In Databsae?
With Command Sql("Update Tabal Set ... ")

Thank You.

modified 3-Aug-12 18:22pm.

There are a number of good articles [^]in this lot.

Never underestimate the power of human stupidity
RAH

write a windows application that allows the user to enter a seven-digit number in a multiple line textbox when the user clicks the generate words button.

<br />
<br />
Public Class Form1<br />
    Dim digits As Integer() = New Integer(6) {}<br />
    Dim letters As String(,) = New String(,) {{" ", " ", " "}, _<br />
       {" ", " ", " "}, {"A", "B", "C"}, {"D", "E", "F"}, _<br />
       {"G", "H", "I"}, {"J", "K", "L"}, {"M", "N", "O"}, _<br />
       {"P", "R", "S"}, {"T", "U", "V"}, {"W", "X", "Y"}}<br />
<br />
    Dim phoneNumber As Integer<br />
    Dim Number As String<br />
    Dim OutPut As String<br />
<br />
<br />
    Private Sub GenerateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GenerateButton.Click<br />
<br />
        phoneNumber = Convert.ToInt32(Number)<br />
<br />
        For i As Integer = 6 To 0 Step -1<br />
            digits(i) = phoneNumber Mod 10<br />
            phoneNumber \= 10<br />
            '  MessageBox.Show("Number = " & Str(phoneNumber))<br />
<br />
            For loop1 As Integer = 0 To 2<br />
                For loop2 As Integer = 0 To 2<br />
                    For loop3 As Integer = 0 To 2<br />
                        For loop4 As Integer = 0 To 2<br />
                            For loop5 As Integer = 0 To 2<br />
                                For loop6 As Integer = 0 To 2<br />
                                    For loop7 As Integer = 0 To 2<br />
                                        OutPut &= String.Format("{0, -10}", _<br />
                                           letters(digits(0), loop1) & _<br />
                                           letters(digits(1), loop2) & _<br />
                                           letters(digits(2), loop3) & _<br />
                                           letters(digits(3), loop4) & _<br />
                                           letters(digits(4), loop5) & _<br />
                                           letters(digits(5), loop6) & _<br />
                                           letters(digits(6), loop7))<br />
                                    Next<br />
                                Next<br />
                            Next<br />
                        Next<br />
                    Next<br />
                Next<br />
            Next<br />
        Next<br />
<br />
    End Sub<br />
<br />
<br />
    Private Sub PhoneNumberTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhoneNumberTextBox.TextChanged<br />
        Number = PhoneNumberTextBox.Text<br />
    End Sub<br />
<br />
    Private Sub PhoneNumberWordsListBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhoneNumberWordsListBox.SelectedIndexChanged<br />
        OutPut = PhoneNumberWordsListBox.Text<br />
    End Sub<br />
End Class<br />

but I couldn't output the words can some one help me please.

thanks

This looks like a mess, I don't see how you expect it to work. You have nested loops, which means each inner loop will run completely for each iteration of an outer loop. That makes sense only if you're building a list of strings that way, not outputting as you go.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

I'll give you a clue, to get you started.

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")
........
........

or since the user enters the number as text you could do it as:

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")
........
........

Look up anything you don't understand on MSDN or Google it.

Henry Minute

Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”

<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 />

Please help me I can't print the words in listbox

how to print on second page in visual page 6.0

i have a designed usercontrol called "bar" and i have a menu strip called "add bar" and "add note"..
when user click add bar, it will create a new "bar".

when user click on add note, it will create a panel that is create at runtime. that panel is consist of labels. now assume, at runtime, i have click "add bar" twice so it will be two "bar" but at different place.

what i want is when user click either one of it, it will be the selected one, and when user click on "add note" it will create on the selected one "bar"

i have done that. but the problem is, when i click "add note", the panel will placed at x = 0 at the selected one, thats correct, but when i selected the other usercontrol, and click "add note" it will create panel at different place, not at x = 0. it should be at x = 0, because now the selected one is the other "bar",and there is no panel yet. some one please help me.

maybe how to detect control in a panel. if there is a control than, the x will not be 0. and if there is no control, x will be 0.

thanks.

when you add a Control to a Container (such as a Panel), it becomes an element in myContainer.Controls, so you could enumerate, identify or count the elements in each myPanel.Controls to determine the position of any new Control you want to add.

or you could keep track of the last position used for adding something, for each Panel individually (maybe store your extra information in the Panel's Tag property). Or use a dictionary to store the relationships between Panels and extra data.

Smile | :)

Luc Pattyn

Badger | [badger,badger,badger,badger...]

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.

Hello,

I am developping with vb.net 2005 (or 2008)

I am trying to create a small phone application and get all the phone calls that I am getting at home. I would like to be able to see who is calling and at what time and date.
I success to call my modem with a cellular phone and I got succesfully info on phone number , date and time. In addition when calling, I get RING message.

The problem is when I am answering to the call through the phone through my cellular (for example), I do not get any indication that the call was answered. The same thing if I am not answering the call, I do not get any indication that it was missed call. Is your activex support those important issues?
Any idea, thank your for help

Shay Noy

shaynoy wrote:
Is your activex support those important issues?

Who's ActiveX control?? What's it called??

The CodeProject does not supply any kind of controls. They are example projects written by individuals, so if you got a control from here, the best place to find any kind of support on it is the forum at the bottom of the article where you got the control.

Also, it would be up to the phones capabilities if this was going to work or not. You'd have to consult with the manfacturer of the phone to find out if this is even possible.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

I am working with Rs232 class (can be downloaded from lutliple place in the internet), there are a lot of examples how to use it. But all the examples I saw do not showing the prbolem I have.
See http://www.vbinsider.com/callerid.htm[^]

Thank you

Shay Noy

I already told you what you have to do. Communicating with the phone is not the problem. Whether or not it will support what you want to do is.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

I have a Dataadapter, by select query.
During datasave, getting problem with delete command.It's not working.
I need to delete the null values. So how to pass the parameters?

Dim Save_3 As String = "Delete from gnlmst where gnl_code is null"
DAD.DeleteCommand = New SqlCommand(Save_3, con)

With DAD.DeleteCommand.Parameters
.Add("@???????", SqlDbType.VarChar, 0, "gnl_code")
End With

Thanks Thumbs Up | :thumbsup:

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

whether you try like following

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

rup28aug@yahoo.co.in
Rupesh Kumar Swami
Software Developer,
Integrated Solution,
Bikaner (India)

My Company
Award: Best VB.NET article of June 2008: Create Column Charts Using OWC11

Thanks.

Tried. But It's Not Deleting.

try following

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

rup28aug@yahoo.co.in
Rupesh Kumar Swami
Software Developer,
Integrated Solution,
Bikaner (India)

My Company
Award: Best VB.NET article of June 2008: Create Column Charts Using OWC11

Hi,

I am using the avicap32.dll for showing images from web cam .The display rate from web cam is very slow how can it can increased do anybody have idea.

Thanks

I've never seen any kind of method in any library that changes the refresh reate of a web cam. But, that doesn't mean there isn't one in the SDK that should be provided by the manufacturer of the webcam that you're using.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

Hey everybody,

in a MDI window I have a status bar with a ToolStripStatusLabel and a ToolStripProgressbar which I want to use from different forms. For that I use a delegate which calls the ShowProgress function (located in a module).

Public Sub ShowProgress(ByVal Total As Long, ByVal SoFar As Long, ByVal file As String, ByVal Message As String, ByVal Timespan As Integer)
    Dim percent As Long = ((SoFar / Total) * 100)
    'MsgBox(MDIMain.ToolStripStatusLabel.Text)
    MDIMain.ToolStripProgressBar.Value = percent
    MDIMain.ToolStripStatusLabel.Text = percent.ToString & "%"
    MDIMain.ToolStripProgressBar.ProgressBar.Refresh()
End Sub

When I uncomment the MsgBox line I can see that the function is actually called and that the values are assigned. But neither the StatusLabel nor the ProgressBar show anything else than their initial status...

Can someone please tell me what I don't consider here?

Thank you
Mick