|
I have a calculator program and I would like to be able to use the key pad to enter the numbers and perform the calculations, such as adding, and having the enter key be the equals key. Would some point me in the direction of how to accomplish this? This is my current code:
Public Class calcFRM
Dim num, ans As Double
Dim oper1, oper2 As Integer
Dim oper3 As String
Private Sub num0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num0.Click
num = num & 0
display.Text = num
End Sub
Private Sub num1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num1.Click
num = num & 1
display.Text = num
End Sub
Private Sub num2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num2.Click
num = num & 2
display.Text = num
End Sub
Private Sub num3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num3.Click
num = num & 3
display.Text = num
End Sub
Private Sub num4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num4.Click
num = num & 4
display.Text = num
End Sub
Private Sub num5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num5.Click
num = num & 5
display.Text = num
End Sub
Private Sub num6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num6.Click
num = num & 6
display.Text = num
End Sub
Private Sub num7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num7.Click
num = num & 7
display.Text = num
End Sub
Private Sub num8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num8.Click
num = num & 8
display.Text = num
End Sub
Private Sub num9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num9.Click
num = num & 9
display.Text = num
End Sub
Private Sub dot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dot.Click
MsgBox(" not coded")
End Sub
Private Sub eql_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eql.Click
If oper3 = "+" Then
oper2 = Val(display.Text)
display.Text = oper1 + oper2
ElseIf oper3 = "-" Then
oper2 = Val(display.Text)
display.Text = oper1 - oper2
ElseIf oper3 = "*" Then
oper2 = Val(display.Text)
display.Text = oper1 * oper2
ElseIf oper3 = "/" Then
oper2 = Val(display.Text)
display.Text = oper1 / oper2
End If
End Sub
Private Sub div_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles div.Click
oper3 = "/"
oper1 = Val(display.Text)
display.Clear()
display.Text = ans
num = 0
End Sub
Private Sub multi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles multi.Click
oper3 = "*"
oper1 = Val(display.Text)
display.Clear()
display.Text = ans
num = 0
End Sub
Private Sub subt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subt.Click
oper3 = "-"
oper1 = Val(display.Text)
display.Clear()
display.Text = ans
num = 0
End Sub
Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click
oper3 = "+"
oper1 = Val(display.Text)
display.Clear()
display.Text = ans
num = 0
End Sub
Private Sub del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles del.Click
display.Clear()
ans = 0
num = 0
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
MsgBox("This button currently has no function")
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
MsgBox("This button currently has no function")
End Sub
End Class
Thank you
|
|
|
|
|
Handle the keypress event on the form and check the value of the key pressed, then call your events for the different buttons based on the key pressed.
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Hi to all,
I want to show the contents of a cell of datagridview when i click on
that cell to text box
How i can able to achive it????????
Please Help.
Thanks
|
|
|
|
|
use the cell click event to identify the cell and set the text property of the textbox to the cell value
TextBox1.text = sender.value
|
|
|
|
|
ppl,
am using a grid
at run time am getting 8 values in to the coloumn,
when i call the grid i need to edit only one column value from the grid and finally am saving all data in to my table,
could you explain me how to edit a particular (only one )column value....
self confidence+hard work=SUCCESS
|
|
|
|
|
Write your editing template so it shows the values for the other columns, and not a control to allow editing.
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
i could not get editing template mean?
self confidence+hard work=SUCCESS
|
|
|
|
|
Hi all,
In my application i am generating a word document after that,as per my requirement i need to open a popup window contains file upload control.
Actually what happens is Word document is generating fine after clicking Save button behind popup window containing file upload control is closing.
Can any body help me from this?
thanks in advance,
eswar.
|
|
|
|
|
Try popping the upload form from the save event!
|
|
|
|
|
Hello iahve a problem with my vb 6 application ,in application i got the data from a machine to the text file then read this file and transfer that data to the data base,its works fine on first and thier is timer which chech the file for update but when timer generate event it did not work and not read from file,ithink the release of the memory is the problem please give me some sugesstion for memeory release in vb 6
thanks
|
|
|
|
|
I doubt very much that memory release is the problem. It sounds like you're very confused. Why are you still using VB6 ?
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
i think when i opena it remains open thats why its not updating it,and i am using vb 6 beacuse application that i am using is devloped in vb6 and now i am changing it for new requirments.
Dim fso As FileSystemObject
Dim target_folder As File
Set fso = New FileSystemObject
Set target_folder = fso.GetFile(filename)
Dim value As String
Dim datemodified As String
value = Now
value = Left(value, Len(value) - 6)
datemodified = target_folder.DateLastModified
is their anay wway to close the file and drp the links between application and a file,like "close fso" but it is not working
|
|
|
|
|
Ah - so it's not memory, it's the file itself. I don't know. I've never used VB6, it's a nightmare. However, any file class, in any language, should offer a close method, as in target_folder.Close() or fso.Close()
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
thanks for reply but there is no close function
|
|
|
|
|
http://www.thescripts.com/forum/thread351659.html[^] I found this with google. Looks like when you open a file, the object that opens the file should have a close function.
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
I am creating a program that generates random numbers, in an attempt to simulate dice. i used to know how to do random numbers, but i forgot and i lost the project that i made with randoms. i have tried looking everywhere for an answer to my problem, but i always come up with an answer for c++, but i use VB.
i have decent VB programming skills (for a 15 year old that is learning VB in high school from an incompetent boob who thinks he knows VB better then me, yet he doesnt know the difference between a function procedure and a sub procedure) and i have made many programs, none of which are very useful, except for killing time and helpin gme with simple math. lol
plz help me wiht my random numbers problem!
|
|
|
|
|
Dim rnd as new Random()
dim n as int = rnd.Next(5)
Assuming this is VB.NET, and if it's not, why not ?
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
|
OK, then I'd suggest you spend some time learning how to build a google search:
http://www.google.com.au/search?sourceid=navclient&ie=UTF-8&rlz=1T4ADBS_enAU225AU226&q=vb%2enet+random[^]
But, what I said is roughly right ( syntax may be off, I don't use VB ). Create a random object and call Next to get numbers within the range you specify
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
google turns up way too much crap that i dont want.
thanks anyway!
|
|
|
|
|
philphan55 wrote: google turns up way too much crap that i dont want.
Again, only because you've not worked out how to use it 
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Would be a great subject for an artile: "So you're goin' to... use Google." 
"I love deadlines. I like the whooshing sound they make as they fly by." (DNA)
|
|
|
|
|
Hi!
I am able to create a word document. However I want to embed it in my form instead of lunching the MS word application. I don't know how to do that. Any help will be appreciated.
Thanks.
Juneyt 
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
Hello Juneyt,
You may use a web browser control; load the document into the browser. The link below explains how:
http://support.microsoft.com/?scid=kb;EN-US;304643
Regards,
Dave
Dave Traister
Software Engineer
ComponentOne LLC
www.ComponentOne.com
|
|
|
|
|
I have a frmLogin to my application that after authentication, users get to frmMain. There are 2 buttons - button1 and button2 that I want to be only accessible to Administrations. How do I code this so that when I non administrator clicks on these buttons they get a message saying "access denied" or gray out these buttons and not allow clicks?
TIA
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
