🚀 go-pugleaf

$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