🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

2 total messages Started by Shinichi Shimizu Tue, 06 May 1997 00:00
How to use DLL in VB
#96
Author: Shinichi Shimizu
Date: Tue, 06 May 1997 00:00
54 lines
1377 bytes
$B$O$8$a$^$7$F(J $B@6?e$H?=$7$^$9!#(J

$B=iJbE*$J<ALd$G$9$,!"8f65<x$*4j$$$7$^$9!#(J

$B#V#B#4!%#0$+$i<+:n$N#D#L#L$r%3!<%k$7$?$$$N$G$9$,$&$^$/9T$-$^$;$s!#(J
$B$I$J$?$+65$($F$/$@$5$$!#(J

$B!{8=>](J

$B<!$N4JC1$J#D#L#L$r:n@.!##C%W%m%0%i%`$+$i$O%3!<%k$G$-$k$3$H$r3NG'!#(J

long dlltest( long xxx);

long dlltest( long xxx)
{
	return xxx;
}

*$B%b%8%e!<%kDj5A%U%!%$%k(J

LIBBARY TlistDll
EXPORTS
	dlltest	@1



$B<!$N$h$&$K(JVB$B$r:n@.(J

*Module$B%3!<%I(J

Declare Function dlltest Lib "TlistDll" (ByVal xxx As Long) As Long


*Form Load

Private Sub Form_Load()
	Dim tnum	 As Long
	Dim Ret As Long

	tnum = 1
	Ret = dlltest( tnum )


$B<B9T$9$k$H!"(J
	$B<B9T;~%(%i!<(J '49':
	DLL$B$,$?$@$7$/8F$S=P$;$^$;$s!#(J
$B$H$J$j$^$9!#(J

-- 
------------------------------
$B@6?e(J $B??0l(J   $B2#2OEE5!!J3t!K(J
shimshin@facmp.yokogawa.co.jp
------------------------------
Re: How to use DLL in VB
#97
Author: TAMAKI Masahiko
Date: Wed, 07 May 1997 00:00
40 lines
1677 bytes
$B$3$s$K$A$O!#6L>k$G$9!#(J

Shinichi Shimizu <shimshin@facmp.yokogawa.co.jp> wrote in article
<336EF721.2D6C@facmp.yokogawa.co.jp>...
> $B$O$8$a$^$7$F(J $B@6?e$H?=$7$^$9!#(J
> 
> $B=iJbE*$J<ALd$G$9$,!"8f65<x$*4j$$$7$^$9!#(J
> 
> $B#V#B#4!%#0$+$i<+:n$N#D#L#L$r%3!<%k$7$?$$$N$G$9$,$&$^$/9T$-$^$;$s!#(J
> $B$I$J$?$+65$($F$/$@$5$$!#(J

$B$3$N%U%)%m!<$O!"$b$O$d(J fj.lang.basic $B$KE,$7$?$b$N$G$O$"$j$^$;$s$M!#(J
Windows$B%W%m%0%i%_%s%0$K4X$9$kOCBj(J($BFC$K!"(JC/C++$B$b4X$o$k$J$i(J)$B$O(J
fj.os.ms-windows.programming $B$KEj9F$7$?J}$,%U%)%m!<$r<u$10W$$$G$9!#(J


> $B!{8=>](J
> 
> $B<!$N4JC1$J#D#L#L$r:n@.!##C%W%m%0%i%`$+$i$O%3!<%k$G$-$k$3$H$r3NG'!#(J
> 
> long dlltest( long xxx);
> 
> long dlltest( long xxx)
> {
> 	return xxx;
> }

extern "C" __declspec( dllexport ) long __stdcall dlltest(long xxx);

__declspec( dllexport ) long __stdcall dlltest(long xxx)
{

}

$B$G$O$I$&$G$7$g$&$+(J?

_/_/_/ $B6L>k??I'(J tamaki@tinet-i.ne.jp
_/_/_/ Visual Basic$BA}6/:n@o(J http://www.vector.co.jp/authors/VA010786/
_/_/_/ $B%a!<%k%"%I%l%9$,(J or.jp $B$+$i(J ne.jp $B$X$HJQ99$K$J$j$^$7$?!#(J
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