Login  
Search All Forums
Dart Home | PowerTCP Emulation for ActiveX | Custom Development Reply | PowerTCP Emulation / Telnet for ActiveX Topics | Forums   
AuthorForum: PowerTCP Emulation / Telnet for ActiveX
Topic: Common Function Key Mappings
K M Drake



From: Utica, NY USA
Posts: 3406
Member Since: 07/14/00
posted June 14, 2004 11:34 AM

Select Case KeyCode
  Case 112 '112 is F1
   Telnet1.Send Chr(27) + "[31~" 'Send new sequence
   KeyCode = 0 'Prevent KeyPress event from firing
  Case 113 '113 is F2
   Telnet1.Send Chr(27) + "[32~" 'Send new sequence
   KeyCode = 0 'Prevent KeyPress event from firing
  Case 114 '114 is F3
   Telnet1.Send Chr(27) + "[33~" 'Send new sequence
   KeyCode = 0 'Prevent KeyPress event from firing
  Case 115 '115 is F4
   Telnet1.Send Chr(27) + "[34~" 'Send new sequence
   KeyCode = 0 'Prevent KeyPress event from firing
  Case 116 '116 is F5
   Telnet1.Send Chr(27) + "OP" 'Send new sequence
   KeyCode = 0 'Prevent KeyPress event from firing
  Case 117 '117 is F6
   Telnet1.Send Chr(27) + "OQ" 'Send new sequence
   KeyCode = 0 'Prevent KeyPress event from firing
  Case 118 '118 is F7
   Telnet1.Send Chr(27) + "OR" 'Send new sequence
   KeyCode = 0 'Prevent KeyPress event from firing
  Case 119 '119 is F8
   Telnet1.Send Chr(27) + "OS" 'Send new sequence
   KeyCode = 0 'Prevent KeyPress event from firing
  Case 123 '123 is F12
   Telnet1.Send Chr(27) + "[19~" 'Send new sequence
   KeyCode = 0 'Prevent KeyPress event from firing
 End Select
Reply | PowerTCP Emulation / Telnet for ActiveX Topics | Forums   
This site is powered by PowerTCP WebServer Tool PowerTCP WebServer for ActiveX