|
Their are several ways to do this
1)
Use the Tag Property of the controls let's suppose Put "1" in controls where your case is 1
and put the following code
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
2).
You can also use the GroupBox Control and can set its visibility to true and False if your controls are in one order/Sequence rather then doing whole controls
Best Of Regards,
SOFTDEV
Sad like books with torn pages, sad like unfinished stories ...
|
|
|
|
|
A better way would be to group the controls in different panels and toggle the visibility of panel according to the selection.
|
|
|
|
|
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.I changed as much code I have yesterday but it is not generating words can anyone help me
[code]
Partial Class Form1
Inherits System.Windows.Forms.Form
Public Numbers(7, 3) As String
Public Phonenumber As Integer
Public output As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Numbers(0, 0) = "A"
Numbers(0, 1) = "B" '2
Numbers(0, 2) = "C" '2
Numbers(1, 0) = "D" '3
Numbers(1, 1) = "E" '3
Numbers(1, 2) = "F" '3
Numbers(2, 0) = "G" '4
Numbers(2, 1) = "H" '4
Numbers(2, 2) = "I" '4
Numbers(3, 0) = "J" '5
Numbers(3, 1) = "K" '5
Numbers(3, 2) = "L" '5
Numbers(4, 0) = "M" '6
Numbers(4, 1) = "N" '6
Numbers(4, 2) = "O" '6
Numbers(5, 0) = "P" '7
Numbers(5, 1) = "R" '7
Numbers(5, 2) = "S" '7
Numbers(6, 0) = "T" '8
Numbers(6, 1) = "U" '8
Numbers(6, 2) = "V" '8
Numbers(7, 0) = "W" '9
Numbers(7, 1) = "X" '9
Numbers(7, 2) = "Y" '9
End Sub
Private Sub GenerateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GenerateButton.Click
Dim phoneNumber As String = GetNumber()
'check if the number contains 0 or 1
While phoneNumber.Contains("0") Or phoneNumber.Contains("1")
phoneNumber = GetNumber()
End While
'create a hashtable to hold the digits
Dim arrayL As New Hashtable
Dim x As Integer = 1
For i As Integer = 65 To 90 Step 3
arrayL.Add(x, New Char() {Chr(i), Chr(i + 1), Chr(i + 2)})
x += 1
Next
Dim word As String = ""
'creates only 3 words out of the phonenumber
For i As Integer = 0 To 2
For Each s As String In phoneNumber
word = word & DirectCast(arrayL.Item(CInt(s)), Char())(i).ToString
Next
Next
output = PhoneNumberWordsListBox.Text
End Sub
Private Sub PhoneNumberTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhoneNumberTextBox.TextChanged
Phonenumber = PhoneNumberTextBox.Text
End Sub
Private Function GetNumber() As String
Return PhoneNumberTextBox.Text()
End Function
End Class
[/code]
|
|
|
|
|
Please confirm that what you want to do is:
User types "123" into textbox (but 7 digits not 3)
Clicks button
Output is "one two three"
Is that correct?
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.”
|
|
|
|
|
I have to generate a telephone number word not to spell the number
ex: 4247288 = HAIRCUT
|
|
|
|
|
That was not clear in any of your posts about this. If you had given that example you might have got some help.
BTW when posting code surround it with <pre>your code goes here</pre> tags, we don't use [code][/code] on CP. 
Now that your problem is clear, I will have to think about it. If I get any ideas I will post back to you. In the mean time others might have suggestions.
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.”
|
|
|
|
|
Sorry about that. Thanks for your help. I think my for loop is not working and the words had to be generate in listbox
|
|
|
|
|
To try to understand what you want obtain, I need to know:
In this piece of your code:
Numbers(0, 0) = "A"
Numbers(0, 1) = "B" '2
Numbers(0, 2) = "C" '2
Numbers(1, 0) = "D" '3
Numbers(1, 1) = "E" '3
Numbers(1, 2) = "F" '3
Numbers(2, 0) = "G" '4
Numbers(2, 1) = "H" '4
Numbers(2, 2) = "I" '4
Numbers(3, 0) = "J" '5
Numbers(3, 1) = "K" '5
Numbers(3, 2) = "L" '5
Numbers(4, 0) = "M" '6
Numbers(4, 1) = "N" '6
Numbers(4, 2) = "O" '6
Numbers(5, 0) = "P" '7
Numbers(5, 1) = "R" '7
Numbers(5, 2) = "S" '7
Numbers(6, 0) = "T" '8
Numbers(6, 1) = "U" '8
Numbers(6, 2) = "V" '8
Numbers(7, 0) = "W" '9
Numbers(7, 1) = "X" '9
Numbers(7, 2) = "Y" '9
Do you forgotten the comment "'2" in the first line?
And do you forgotten the letter "Q" in the list?
Words must be without letter "Q"?
modified on Sunday, September 6, 2009 6:39 PM
|
|
|
|
|
there is no Q in the list my problem does't have a letter Q assign to any number and yes I did not comment in the first line I don't think it is a problem.
Thank you
|
|
|
|
|
Here are a few ideas to give you a start.
It is just a form with a TextBox (txtResult) and a Button (btnGenerate). I am using a TextBox because I am only doing 1 possibility (you wouldn't want me to deprive you of the fun of doing it yourself, now, would you?  ), but you are right ListBox is the way to go. In fact you might want to consider using 3 (or 4 if you allow for the possibility that some keys have 4 possibilities) ListBoxes.
Any way here is what I thought you might use.
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
If you put this code on a form, as described above, run it and click the Generate button you should get "GAGPATT" which is defined as the output from a Cow at an S & M party.
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.”
|
|
|
|
|
thank very much, but I have to display 2187 combinations in a list box after user enter the phone number in textbox
|
|
|
|
|
rbjanaki wrote: thank very much, but I have to display 2187 combinations in a list box after user enter the phone number in textbox
I know that. This means that you are not allowing 'Q' or 'Z', otherwise there would be more than that.
The sample code I gave you was just to demonstrate a method of obtaining the characters for the keys entered. What you have to do is to figure out a way to obtain all the possible combinations (729 for each of the possible start letters, in your example "4247288", that is 729 words starting with 'G', 729 for 'H' and 729 for 'I')
Putting them in a ListBox is trivial instead of Me.txtResult.Text = Convert.ToString(outArray) use Me.lboxResult.Items.Add(Convert.ToString(outArray)).
As I said in my previous post "you don't really want me to deprive you of the fun of working out how to do it, do you?", besides, I doubt that you could afford my rates. 
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.”
|
|
|
|
|
Henry Minute wrote: I will have to think about it
Yeah, I don't know where to get a haircut on a Sunday evening either.
|
|
|
|
|
Luc Pattyn wrote: Yeah, I don't know where to get a haircut on a Sunday evening either.
What a backward place you must live in.
I have a choice from 2,187 possibilities.
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.”
|
|
|
|
|
Henry Minute wrote: I have a choice from 2,187 possibilities
Too bad, as I know how hard it is for you to make even simple decisions...
|
|
|
|
|
Luc Pattyn wrote: Too bad, as I know how hard it is for you to make even simple decisions...
True!
It gets worse, I have just realized that there could be more options than that. I forgot that some keys have 4 characters!
BTW I forgot to 5 your previous post. Putting it right now.
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.”
|
|
|
|
|
Henry Minute wrote: I forgot to 5 your previous post.
I bet you also forgot to take your pills. Again.
|
|
|
|
|
Stop it, I'll fall off! 
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.”
|
|
|
|
|
Hi all,
I need that application I'm developing can consider the same (=), 3 strings for example like these:
String A = "This, is, a, sample, 12345"
String B = "this, is,a, Sample ,12345"
String C = "This,is,a,sample,12345"
Someone know if there is a simple way (may be a single instruction?) to do that?
I know how to do that, but it is not a simple way.
Thanks
Ignazio
modified on Saturday, September 12, 2009 2:09 PM
|
|
|
|
|
your question is unclear. IF what you want is a way to compare two strings ignoring white space, ignoring comma's and ignoring case, then the solution is two write a function MyStringCompare(ByVal string1 as String, ByVal string2 as String) as Integer wherein you first remove white space and comma's, and then use the built-in string compare function, telling it to ignore case.
If that is unclear to you, I strongly advice you to buy and study a book on the programming language of your choice.
|
|
|
|
|
Hi,
Yes, I need a way to compare 2 strings, ignoring spaces and case.
In the end of my question, I written that I know how to do that, but I was hoping that someone know a simpler way, or may be an already built-in instruction in V.B. to do this work.
Thanks for help and for "advice"
Ignazio
|
|
|
|
|
can you explain it little more what is your point if i am not wrong do you want that you have same string but in different cases and spaces and you want it to be consider as same
is this your question or what ????
Best Of Regards,
SOFTDEV
Sad like books with torn pages, sad like unfinished stories ...
|
|
|
|
|
|
You can do a case insensitive comparison easy enough. I don't know there's a way to ignore spaces without actually removing them.
String.Compare takes a bool to say if it's case sensitive.
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.
|
|
|
|
|
That for me has prioritary importance, is the problem of spaces.
The case insensitive comparation is a secondary requirement.
It seems that I can't avoid the work to delete spaces.......
Ignazio
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
![Badger | [badger,badger,badger,badger...]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/badger.gif)
![Jig | [Dance]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/jig.gif)
![Badger | [badger,badger,badger,badger...]](https://www.codeproject.com/script/Forums/Images/badger.gif)
![Jig | [Dance]](https://www.codeproject.com/script/Forums/Images/jig.gif)
