[RESOLVED] Numpad

[potatocake]

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

[MartinLiss]

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

[MartinLiss]

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

[potatocake]

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:

textbox is not multiline

How do i make it multiline?

[MartinLiss]

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

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

[MartinLiss]

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

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

[MartinLiss]

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

{*}

....

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

[wiz126]

How do i make it multiline?

change its property to ture

[potatocake]

Thanks Martin,

Works like a charm

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.

BTW you should always use Option Explicit

I will keep tat advice in mind

[potatocake]

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

[MartinLiss]

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

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

[wiz126]

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

[potatocake]

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.

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

[MartinLiss]

Project|References menu item

[potatocake]

ooo...Thanks again