Thread View: fj.lang.basic
2 messages
2 total messages
Started by Yuuji Hori
Wed, 25 Dec 1996 00:00
$B#V#B#4$N$3$H$G65$($F$/$@$5$$(J
Author: Yuuji Hori
Date: Wed, 25 Dec 1996 00:00
Date: Wed, 25 Dec 1996 00:00
14 lines
723 bytes
723 bytes
$B$3$s$K$A$O!"=i$a$FEj9F$7$^$9!#(J
$B#V#B#4$G%U%)!<%`$r>o$K!J%"%/%F%#%V$G$J$$;~$b!K(J
$BA0LL$KI=<($5$;$kJ}K!$O$J$$$N$G$7$g$&$+!)(J
$BCN$C$F$*$i$l$kJ}!"65$($F$/$@$5$$!#(J
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Yuuji Hori
E-mail : y_hori@ka2.so-net.or.jp
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Re: $B#V#B#4$N$3$H$G65$($F$/$@$5$$(J
Author: T-Fujii
Date: Mon, 30 Dec 1996 00:00
Date: Mon, 30 Dec 1996 00:00
30 lines
1510 bytes
1510 bytes
| $B#V#B#4$G%U%)!<%`$r>o$K!J%"%/%F%#%V$G$J$$;~$b!K(J
| $BA0LL$KI=<($5$;$kJ}K!$O$J$$$N$G$7$g$&$+!)(J
Windows API $B$N(J SetWindowPos $B$G=PMh$?$H;W$$$^$9(J!
Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Integer, ByVal
hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal
cx As Integer, ByVal cy As Integer, ByVal fuFlags As Integer)
' Windows API$BMxMQ$N@k8@(J
Global Const SWP_NOACTIVATE = &H10 '$B%&%#%s%I%&$r%"%/%F%#%V$K$7$J$$(J
Global Const SWP_SHOWWINDOW = &H40 '$B%&%#%s%I%&$rI=<($9$k(J
Global Const HWND_TOPMOST = -1 '$B:G>e0LI=<($rA*Br(J
Sub SET_TOP()
'$B%U%)!<%`$r:G>e0LI=<($K$9$k$,%"%/%F%#%V$K$O$7$J$$(J
SetWindowPos Form1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or
SWP_SHOWWINDOW
End Sub
Private Sub Form_Load()
SET_TOP '$B%U%)!<%`$r:G>e0LI=<($K$9$k(J
End Sub
$B0J>e;29M$K$J$l$P9,$$$G$9!#(J
--
Visual Basic$B$GM7$\$&(J TKSoftware T-FUJII
http://home.interlink.or.jp/~t-fujii/tfkan001.html
t-fujii@interlink.or.jp
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads