Article View: fj.lang.basic
Article #243[Q]$B#V#B$N%=%1%C%HA`:n(J[Winsock]$B$K$*$1$k<ALd(J
From: Eitarou Taniai
Date: Mon, 17 Mar 1997 00:00
Date: Mon, 17 Mar 1997 00:00
52 lines
1953 bytes
1953 bytes
$B$3$s$K$A$O!##J#R#S$NC+9g$H?=$7$^$9!#(J $B#V#B#4$G(Jwinsock$B$r;HMQ$7$?%/%i%$%"%s%H%W%m%0%i%`$r:n$C$F$$$^$9!#(J $B%N%s%V%m%C%-%s%07?$G:n$C$F$$$k$N$G!"(JWSAAsynSelect$BJ8$r;HMQ$7$F$$$^$9$,!"(J $B%5!<%P$X$N@\B3$N:]$K!"%N%s%V%m%C%-%s%07?$G$9$N$G!"(J X = WSAAsynSelect(SocketNumber,TextBox1.hwnd,&h100,FD_CONNECT%) $B$H$$$&Iw$J46$8$G!"%F%-%9%H%\%C%/%9$K(JKeyDown$B%$%Y%s%H$r5/$3$5$;$F$$$^$9!#(J $B$=$3$G!"%F%-%9%H%\%C%/%9(J"TextBox1#$B$N(JKeyDown$B%$%Y%s%H$O0J2<$N$h$&$K$7$^$7$?!#(J Function TextBox1_KeyDown(KeyCode as Integer,Shift as integer) .... debug.print "KeyCode is " & KeyCode & "/ " & "Shift is " & Shift .... End Function $B$9$k$H!"%5!<%P$,(JListen$B$7$F$$$J$$;~$K%3%M%/%H$7$K9T$/$H$-$K!"%G%P%C%0%&%$%s(J $B%I%&$K(J KeyCode is 48/Shift is 4 $B$HI=<($5$l$^$9!#$=$7$F%5!<%P$,(JListen$B$7$F$$$k;~$O!"(J KeyCode is 48/Shift is 0 $B$HI=<($5$l$^$9!#(J $B<ALd-!$3$N7k2L$+$i!"(JShift$B$,(J"$B#0(J#$B$N;~$O!"%3%M%/%H40N;$G!"(JShift$B$,(J"$B#4(J#$B$N;~$O%3(J $B%M%/%H<:GT(J $B!!!!!!!!$H$$$&$3$H$G!":FEY%3%M%/%H$7$K$$$1$P$h$$$HH=CG$9$l$P$$$$$N$G$7$g$&(J $B$+!)(J $B<ALd-"$^$?!"$3$N$H$-$N(JKeyCode$B$O;~$K$h$C$F$^$A$^$A$^$N$G$9$,!"$I$&$$$&0UL#$J(J $B$N$G(J $B!!!!!!!!$7$g$&$+!)(J $B$b$7!"$H$s$A$s$+$s$J<ALd$r$7$F$$$?$i!"$9$_$^$;$s!#(J -- $B#J#R%7%9%F%`(J($B3t(J) $B!!C+9g!!1QB@O:(J <eitarou_taniai@jrs.co.jp> -- $B#J#R%7%9%F%`(J($B3t(J) $B!!C+9g!!1QB@O:(J <eitarou_taniai@jrs.co.jp>
Technical Details
Message-ID:
<5givoc$j2o@jrsystem.jrs.co.jp>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS X-Google-Thread: f5300,29d482cc13168641,start X-Google-Attributes: gidf5300,public From: "Eitarou Taniai" <Eitarou_Taniai@jrs.co.jp> Subject: [Q]$B#V#B$N%=%1%C%HA`:n(J[Winsock]$B$K$*$1$k<ALd(J Date: 1997/03/17 Message-ID: <5givoc$j2o@jrsystem.jrs.co.jp> X-Deja-AN: 226152973 Organization: Railway Information Systems Co., Ltd. Japan Newsgroups: fj.lang.basic