KeyPress example

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

KeyPress example

Logged in as: Guest

arrSession:exec spGetSession 2,16,59572

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> KeyPress example
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

KeyPress example - 4/28/2008 1:18:24 AM

djredmar

Posts: 27
Score: 0
Joined: 12/11/2006
From: Europe, The Netherlands
Status: offline

I needed something like this for work,

I hope the code is explaining enough :-)

<table border="1">
<tr>
 <td id="c1r1">&nbsp;</td>
 <td id="c2r1">&nbsp;</td>
 <td id="c3r1">&nbsp;</td>
</tr>
<tr>
 <td id="c1r2">&nbsp;</td>
 <td id="c2r2">&nbsp;</td>
 <td id="c3r2">&nbsp;</td>
</tr>
<tr>
 <td id="c1r3">&nbsp;</td>
 <td id="c2r3">&nbsp;</td>
 <td id="c3r3">&nbsp;</td>
</tr>
</table>
<i>Just use your cursor keys!</i>
<script language="vbscript">
'keycodes for the arrow keys
Const KEY_UP = 38
Const KEY_DOWN = 40
Const KEY_LEFT = 37
Const KEY_RIGHT = 39
Dim Position_x
Dim Position_y
'default positioning
Position_x = 2
Position_y = 2
Sub Document_onKeyDown 'check for keypress
'uncomment next line to find the keycodes!
'msgbox  "key code : " & window.event.keycode
'Check for the key pressed, modify the correct variables
If window.event.keycode = KEY_UP Then
 Position_y = Position_y - 1
 ClearAll
End If
If window.event.keycode = KEY_DOWN Then
 Position_y = Position_y + 1
 ClearAll  
End If 
If window.event.keycode = KEY_LEFT Then
 Position_x = Position_x - 1
 ClearAll  
End If
If window.event.keycode = KEY_RIGHT Then
 ClearAll  
 Position_x = Position_x + 1
End If
'check for range
If Position_x > 3 Then
 Position_x = 3
End If
If Position_x < 1 Then
 Position_x = 1
End If
If Position_y > 3 Then
 Position_y = 3
End If
If Position_y < 1 Then
 Position_y = 1
End If
'Calculate which cell has to got an 'x'
If Position_y = 1 Then
 If Position_x = 1 Then
  c1r1.InnerHTML = "X"
 End If
 If Position_x = 2 Then
  c2r1.InnerHTML = "X"
 End If
 If Position_x = 3 Then
  c3r1.InnerHTML = "X"
 End If
End If
If Position_y = 2 Then
 If Position_x = 1 Then
  c1r2.InnerHTML = "X"
 End If
 If Position_x = 2 Then
  c2r2.InnerHTML = "X"
 End If
 If Position_x = 3 Then
  c3r2.InnerHTML = "X"
 End If
End If
If Position_y = 3 Then
 If Position_x = 1 Then
  c1r3.InnerHTML = "X"
 End If
 If Position_x = 2 Then
  c2r3.InnerHTML = "X"
 End If
 If Position_x = 3 Then
  c3r3.InnerHTML = "X"
 End If
End If
 
End Sub
'Make all cells clean
Sub ClearAll
c1r1.InnerHTML = "&nbsp;"
c2r1.InnerHTML = "&nbsp;"
c3r1.InnerHTML = "&nbsp;"
c1r2.InnerHTML = "&nbsp;"
c2r2.InnerHTML = "&nbsp;"
c3r2.InnerHTML = "&nbsp;"
c1r3.InnerHTML = "&nbsp;"
c2r3.InnerHTML = "&nbsp;"
c3r3.InnerHTML = "&nbsp;"
End Sub
Sub FillCell(Cell)
msgbox Cell
End Sub
Sub Window_Onload
c2r2.InnerHTML = "X"
End Sub
</script>
<style type="text/css">
td {
height: 40px;
width: 40px;
text-align: Center;
}
</style>

Please don't burn me down for not using the w3c tags or hta parameters that needs to be specified in the header.
I know that for good coding it's neccesary but i'd like to stick with the simplicity of this code :-)

_____________________________

blah?

Revisions: 1 | Post #: 1

RE: KeyPress example - 5/4/2008 7:47:18 AM

Fredledingue

Posts: 297
Score: 0
Joined: 5/9/2005
From:
Status: offline

Nice little demo! Very nice (I didn't know how to use sparrows).

Here is another one:
The key "Enter" is calling the subscript Go
The key "Esc" close the window
The key "?" call ShowHelp

_____________________________

Fred

(in reply to djredmar)

Post #: 2

RE: KeyPress example - 5/4/2008 6:39:06 PM

djredmar

Posts: 27
Score: 0
Joined: 12/11/2006
From: Europe, The Netherlands
Status: offline

thanks for your comment!

Currently developing a form of snake in an HTA, but i hang on creating a large table field, it's slow loading, an alternative is to load the text file, and display the text file (.html)

Stay tuned! :)

_____________________________

blah?

(in reply to Fredledingue)

Post #: 3

RE: KeyPress example - 5/6/2008 7:24:02 AM

Fredledingue

Posts: 297
Score: 0
Joined: 5/9/2005
From:
Status: offline

Why don't you hard-code the html code in the hta?
If you need to build it up through a variable process, do it in memory using a variable or an array.
Then add the code when it's completed in the memory all at once.

_____________________________

Fred

(in reply to djredmar)

Post #: 4

RE: KeyPress example - 5/6/2008 2:23:43 PM

djredmar

Posts: 27
Score: 0
Joined: 12/11/2006
From: Europe, The Netherlands
Status: offline

well,

i could do that.

But the point is, al table cells (50 cols, 50 rows) have their own id

This is because this keeps the code clean, and to code it all hard in hta is 'a lot of work'

(in reply to Fredledingue)

Post #: 5

RE: KeyPress example - 5/7/2008 9:18:42 AM

Fredledingue

Posts: 297
Score: 0
Joined: 5/9/2005
From:
Status: offline

Then you could do something that looks like this:

not sure if you want to use "span", but you get the idea.

_____________________________

Fred

(in reply to djredmar)

Post #: 6

RE: KeyPress example - 5/7/2008 2:24:56 PM

djredmar

Posts: 27
Score: 0
Joined: 12/11/2006
From: Europe, The Netherlands
Status: offline

Yeah,

I tried that, but than the starting of the hta in win2000 is very slow :) thats the reason for making tekst file :)

But thanks for your suggestion!

_____________________________

blah?

(in reply to Fredledingue)

Post #: 7

RE: KeyPress example - 5/9/2008 7:27:10 AM

Fredledingue

Posts: 297
Score: 0
Joined: 5/9/2005
From:
Status: offline

So create a script to write the final table code to a file, then copy-paste it into your hta for hard-coding once for all.

Thought I'm still surprised that t's "very slow"...

_____________________________

Fred

(in reply to djredmar)