Thread View: fj.lang.visualbasic
2 messages
2 total messages
Started by Takeshi Maruyama
Wed, 10 Dec 1997 00:00
DLLについて教えてください
Author: Takeshi Maruyama
Date: Wed, 10 Dec 1997 00:00
Date: Wed, 10 Dec 1997 00:00
62 lines
1946 bytes
1946 bytes
$B$O$8$a$^$7$F4];3$H?=$7$^$9!#(B
$B#V#B$H#V#C$N=i?4<T$G$9!#(B
VisualC$B$G:n$C$?#D#L#L$r(BVisualBasic$B$+$i8F$S=P$9$H$-$K!"(BVisualBasic$B$+$i0z(B
$B?t$H$7$F(B
$BG[Ns$NJQ?t$rEO$7$?$$$N$G$9$,$&$^$/$$$-$^$;$s!#(B
$B#V#B#5$N%W%m%0%i%`(B
Private Declare Function DllTestMsg Lib "Dllapp.DLL" (ByVal hWnd As
Integer, ByRef no() As Integer) As Integer
Private Sub Command1_Click()
Dim RetCode As Integer
ReDim no(10) As Integer
For i = 0 To 10
no(i) = i
Next
RetCode = DllTestMsg(hWnd, no)
End Sub
$B#V#C#5$N%W%m%0%i%`(B
#include <windows.h>
#include <stdlib.h>
HINSTANCE hlnst;
BOOL WINAPI DllMain(HINSTANCE hDLL,
DWORD dwReason,
LPVOID lpReserved)
{
hlnst = hDLL;
return TRUE;
}
BOOL WINAPI DllTestMsg(HWND hWnd, int *msg_no)
{
char szBuffer[256];
_itoa(msg_no[0],szBuffer,10);
MessageBox(hWnd,szBuffer,"message",MB_OK+MB_ICONSTOP);
return 0;
}
$B$3$N>l9g(Bmsg_no[0]$B$O(B0$B$K$J$k$H;W$$$^$9$,!"$^$C$?$/0c$&CM$N$J$C$F$$$^$9!#(B
$B#V#C#5$N%G%P%C%0%b!<%I$G(Bmsg_no$B$N$[$+$NG[Ns$NCf$b8+$F$_$^$7$?$,CM$,(B
$B$^$C$?$/0c$$$^$9!#(B
$BEv$?$jA0$G$9$,!"#V#B#5$N(Bno$B$rG[Ns$K$7$J$1$l$P@5$7$/CM$rEO$9$3$H$,$G$-$^$7(B
$B$?!#(B
(VC5$B$O(Bint msg_no$B$KJQ99$7$F!K(B
$B$4B8CN$NJ}$,$*$i$l$^$7$?$i$h$m$7$/$*4j$$$7$^$9!#(B
--
$B!!(B NTN$B3t<02q<R!!4];3!!Ip!!!!(B(Takeshi Maruyama)
$B!!!!!!(Bmail: takeshi.maruyama@osa.ntn.co.jp
Re: DLLについて教えてください
Author: norish
Date: Thu, 11 Dec 1997 00:00
Date: Thu, 11 Dec 1997 00:00
62 lines
2058 bytes
2058 bytes
Takeshi Maruyama wrote:
>
> $B$O$8$a$^$7$F4];3$H?=$7$^$9!#(B
>
> $B#V#B$H#V#C$N=i?4<T$G$9!#(B
> VisualC$B$G:n$C$?#D#L#L$r(BVisualBasic$B$+$i8F$S=P$9$H$-$K!"(BVisualBasic$B$+$i0z(B
> $B?t$H$7$F(B
> $BG[Ns$NJQ?t$rEO$7$?$$$N$G$9$,$&$^$/$$$-$^$;$s!#(B
>
> $B#V#B#5$N%W%m%0%i%`(B
>
> Private Declare Function DllTestMsg Lib "Dllapp.DLL" (ByVal hWnd As
> Integer, ByRef no() As Integer) As Integer
>
> $B#V#C#5$N%W%m%0%i%`(B
> #include <windows.h>
> #include <stdlib.h>
>
>
> BOOL WINAPI DllTestMsg(HWND hWnd, int *msg_no)
> {
> }
>
ByRef no() As Integer
$B$O!"#C%W%m%0%i%`$G8@$&$H$3$m$N@0?tG[Ns$X$N%]%$%s%?$N$h$&$J(B
$B0UL#$K$J$j$^$9!#!JC"$7$3$N@0?t$O#1#6%S%C%H!K(B
$B$3$&$7$?>l9g#C%$%s%?%U%'!<%9$O(B
BOOL WINAPI DllTestMsg(HWND hWnd, short **msg_no);
$B$H$J$k$3$H$,M=A[$5$l$^$9!#!JF0:n$OL$3NG'!K(B
$BDL>o$O#V#BB&$NDj5A$r(B
(ByVal hWnd As Long, ByRef no As Long)
$B#CB&$NDj5A$r(B
(HWND hWnd, LONG lpArray[])
#$B!!;d$OG[Ns$,EO$5$l$k>l9g$K$O(B *lpArray $B$h$j$b(B lpArray[] $B$N5-K!(B
#$B!!$r9%$s$G;H$$$^$9!#(B
$B$H$7!"#V#BB&$N8F$S=P$7$r(B
Dim no(10)
RetCode = DllTestMsg(hWnd, no(0))
$B$H$7$F!"G[Ns$NMWAG$N%"%I%l%9$rEO$7$^$9!#(B
$BO7GL?4$J$,$i!"#3#2%S%C%H4D6-$G$"$C$F$b#V#B$N(B Integer $B$O#1#6%S%C%H!"(B
$B#C$N(B int $B$O#3#2%S%C%H$H$J$j!"%5%$%:$,0[$J$j$^$9!#(B
$B#C$K$D$$$F$b=i?4<T$G$"$k$H$$$&;v$G$"$l$P%]%$%s%?$N%]%$%s%?$O$J$k$Y$/(B
$BHr$1$F!"#13,$N%]%$%s%?$G$G$-$k$h$&$K$7$?$[$&$,4V0c$$$,>/$J$$$G$7$g$&!#(B
$B$^$?!"#V#C#5B&$G$O#D#E#F%U%!%$%k$,I,?\$G$9!#(B
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