[RESOLVED] Numpad

Hi,
Im currently creating a numpad. Have used the sendkeys function, but it doesnt allow me to use multiply, divide, and plus. Enter as well as numlocks not working either. Could someone help me? I have enclosed an attachment with what Im working on right now.

Thanks heaps

That looks really nice! Use
SendKeys "{*}"
SendKeys "{/}"
SendKeys "{+}"

I think that Enter only appears not to work because your textbox is not multiline, however is supicuis that numlock isn't working.

Hi,
Thanks for the reply so quickly, the divide as well as plus is working fine now. But with multiply when clicked it deletes the stuff in the textbox and shows:

{*}


As for:

Quote:

---

textbox is not multiline

---

How do i make it multiline?

Here is your code, modified. I added some code that I found at CodeGuru. BTW you should always use Option Explicit

VB Code:

Option Explicit
Private Declare Sub keybd_event Lib "user32" _
  (ByVal bVk As Byte, ByVal bScan As Byte, _
  ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Declare Function MapVirtualKey Lib "user32" _
   Alias "MapVirtualKeyA" _
  (ByVal wCode As Long, ByVal wMapType As Long) As Long
 
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Sub SetKeyState(ByVal Key As Long, ByVal State As Boolean)
 
  Call keybd_event(Key, MapVirtualKey(Key, 0), _
     KEYEVENTF_EXTENDEDKEY Or 0, 0)
 
    Call keybd_event(Key, MapVirtualKey(Key, 0), _
     KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
 
End Sub
 
Private Property Get CapsLock() As Boolean
 
  CapsLock = GetKeyState(KeyCodeConstants.vbKeyCapital) = 1
 
End Property
 
Private Property Let CapsLock(ByVal Value As Boolean)
 
  Call SetKeyState(KeyCodeConstants.vbKeyCapital, Value)
 
End Property
 
Private Property Get NumLock() As Boolean
 
  NumLock = GetKeyState(KeyCodeConstants.vbKeyNumlock) = 1
 
End Property
 
Private Property Let NumLock(ByVal Value As Boolean)
 
  Call SetKeyState(KeyCodeConstants.vbKeyNumlock, Value)
 
End Property
 
Private Property Get ScrollLock() As Boolean
 
  ScrollLock = GetKeyState(KeyCodeConstants.vbKeyScrollLock) = 1
 
End Property
 
Private Property Let ScrollLock(ByVal Value As Boolean)
 
  Call SetKeyState(KeyCodeConstants.vbKeyScrollLock, Value)
 
End Property
 
 
Private Sub Command3_Click()
'Text1.SetFocus
'SendKeys "{CAPSLOCK}"
CapsLock = Not CapsLock
End Sub
 
Private Sub lblKey0_Click()
Text1.SetFocus
SendKeys "0"
End Sub
 
Private Sub lblKey1_Click()
Text1.SetFocus
SendKeys "1"
End Sub
 
Private Sub lblKey2_Click()
Text1.SetFocus
SendKeys "2"
End Sub
 
Private Sub lblKey3_Click()
Text1.SetFocus
SendKeys "3"
End Sub
 
Private Sub lblKey4_Click()
Text1.SetFocus
SendKeys "4"
End Sub
 
Private Sub lblKey5_Click()
Text1.SetFocus
SendKeys "5"
End Sub
 
Private Sub lblKey6_Click()
Text1.SetFocus
SendKeys "6"
End Sub
 
Private Sub lblKey7_Click()
Text1.SetFocus
SendKeys "7"
End Sub
 
Private Sub lblKey8_Click()
Text1.SetFocus
SendKeys "8"
End Sub
 
Private Sub lblKey9_Click()
Text1.SetFocus
SendKeys "9"
End Sub
 
Private Sub lblKeyBksp_Click()
Text1.SetFocus
SendKeys "{BACKSPACE}"
End Sub
 
 
 
Private Sub lblKeyDecimal_Click()
Text1.SetFocus
SendKeys "."
End Sub
 
Private Sub lblKeyDivide_Click()
Text1.SetFocus
SendKeys "{/}"
End Sub
 
Private Sub lblKeyEnter_Click()
Text1.SetFocus
SendKeys "{ENTER}"
End Sub
 
Private Sub lblKeyMultiply_Click()
 'Text1.SetFocus
 SendKeys "{*}"
End Sub
 
Private Sub lblKeyNumLock_Click()
'SendKeys "{NUMLOCK}"
NumLock = Not NumLock
End Sub
 
Private Sub lblKeyPlus_Click()
Text1.SetFocus
SendKeys "{+}"
End Sub

Quote:

---

Originally Posted by potatocake

Hi,
...How do i make it multiline?

---

In the IDE set the MultiLine property for the Textbox to True.

Quote:

---

Originally Posted by potatocake

.. But with multiply when clicked it deletes the stuff in the textbox and shows:

{*}

....

---

It doesn't do that for (or to) me.

Quote:

---

Originally Posted by potatocake

How do i make it multiline?

---

change its property to ture

Thanks Martin,

Works like a charm :D

Thats only leaving the enter button, how do i make it multiline? Do program it the same way you've done with numlock/capslock? Sorry this is my first time with the sendkeys function.

Quote:

---

BTW you should always use Option Explicit

---

I will keep tat advice in mind :D

oops sorry didnt see ur post before i posted. thanks a bunch :D

Both wiz and I showed you how to make it multipline but you may not want to in any case. I say that because I don't think that that would be consistant with a calculator.

In any case have you thought about how you are going to solve the equations? One way to do that is to add a reference in your app to the Microsoft Script Control 1.0 and then do this

VB Code:

Private Sub lblKeyEnter_Click()
'Text1.SetFocus
Dim oSC As New ScriptControl
    
    oSC.Language = "VBScript"
    Text1.Text = Text1.Text & " = " & oSC.eval(Text1.Text)
 
 
SendKeys "{ENTER}"
End Sub

i don't understand, what are you having problem with?

Quote:

---

In any case have you thought about how you are going to solve the equations?

---

Hrrm I haven't really thought about doing the calculations wanted more of an touchscreen numpad which may or may not do calculations but, thats a really good idea to have it jus in case.

Quote:

---

One way to do that is to add a reference in your app to the Microsoft Script Control 1.0

---

how do i add this reference? Tried checking the Add Ins Manager but cant find it. Sorry if im a little thick headed this morning...hehe

Project|References menu item

ooo...Thanks again :D