ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

BlackCat 2005/08/01(ｿｽｿｽ) 19:19:35

ｿｽFｿｽｿｽｿｽこゑｿｽﾉゑｿｽｿｽﾍ。
ｿｽｿｽｿｽmｿｽbｿｽｿｽqｿｽﾘでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽKｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽｿｽVBｿｽﾌ構ｿｽｿｽｿｽﾌゑｿｽDelphiｿｽﾅ作成ｿｽｿｽｿｽｿｽDLLｿｽﾖ渡ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

VBｿｽF'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Type TRecData
    intX As Long
    intY As Long
    arrint(31) As Long
    strS As String 
End Type
Public Declare Function OpenDllForm Lib "arrDelTest.dll" (RecData As TRecData) As Boolean

Private Sub Command1_Click()
    Dim RecD As TRecData
    Dim i As Integer
    
    For i = 0 To 31
        RecD.intBui(i) = i
    Next
    RecD.intX = CLng(Text1.Text)
    RecD.intY = CLng(Text2.Text)
    RecD.strS = Text3.Text
    RecD.dDate = Date
   
    If OpenDllForm(RecD) = False Then
    
    End If
End Sub


DelphiｿｽF/////////////////////////////////////////////////////////////
type
   TRecData = record
   FIntX :Integer;
   FIntY :Integer;
   FarrInt :array [0..31] of Integer;
   FStrS :PChar;
end;
//===========(ｿｽｿｽ)
var
  frmArrDll: TfrmArrDll;

  function OpenDllForm(var RecData:TRecData):Boolean; stdcall;

implementation
var
   RecD :TRecData;

{$R *.dfm}

   function OpenDllForm(var RecData:TRecData):Boolean; stdcall;
   begin
      frmArrDll := TfrmArrDll.Create(Application);
      try
         RecD := RecData;
         if frmArrDll.ShowModal = mrOk then
         begin

         end;
      finally
         frmArrDll.Free;
      end;
   end;
end.

ｿｽﾈ擾ｿｽﾅ、VBｿｽﾌ構ｿｽｿｽｿｽﾌゑｿｽDelphiｿｽｿｽRecordｿｽ^ｿｽﾉ渡ｿｽｿｽｿｽｿｽｿｽﾜでは出ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽ動的ｿｽzｿｽｿｽﾅ渡ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

VBｿｽﾅは、ｿｽｿｽLｿｽﾌ構ｿｽｿｽｿｽﾌに対ゑｿｽｿｽｿｽ
Public Declare Function OpenArrayForm Lib "arrDelTest.dll" (arrData() As TRecData) As Boolean

Private Sub Command2_Click()
    Dim arrData() As TRecData    
    ReDim arrData(3)
ｿｽ@ｿｽ@ｿｽf(ｿｽｿｽ)
    If OpenArrayForm(arrData()) = True Then
    
    End If
End Sub

ｿｽﾅ、ｿｽnｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽB
Delphiｿｽｿｽｿｽﾅどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾏり判ｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾜる投ｿｽｿｽｿｽﾌようｿｽﾅ申ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽqｿｽｿｽｿｽgｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB

BlackCat 2005/08/01(ｿｽｿｽ) 19:21:17

ｿｽ齦費ｿｽﾔ違い
Private Sub Command1_Click()
    Dim RecD As TRecData
    Dim i As Integer
    
    For i = 0 To 31
        RecD.arrint(i) = i
    Next
    RecD.intX = CLng(Text1.Text)
    RecD.intY = CLng(Text2.Text)
    RecD.strS = Text3.Text
    RecD.dDate = Date
   
    If OpenDllForm(RecD) = False Then
    
    End If
End Sub
ｿｽﾅゑｿｽｿｽB

ｿｽuｿｽｿｽｿｽｿｽｿｽNｿｽEｿｽ[ｿｽｿｽ 2005/08/01(ｿｽｿｽ) 21:44:41

VBｿｽﾍチｿｽｿｽｿｽ[ｿｽgｿｽEｿｽVｿｽｿｽｿｽEｿｽﾈのでゑｿｽｿｽｿｽｿｽAOpenArrayForm(arrData())ｿｽﾌパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽﾍ、ｿｽzｿｽｿｽﾌ先頭ｿｽAｿｽhｿｽｿｽｿｽXｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅなゑｿｽｿｽｿｽﾎ配ｿｽｿｽﾌ先頭ｿｽAｿｽhｿｽｿｽｿｽXｿｽｿｽｿｽmｿｽiｿｽｿｽｿｽｿｽｿｽｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽjｿｽﾌ受け渡ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾎ間違いｿｽﾈゑｿｽｿｽ謔､ｿｽﾉ思ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

BlackCat 2005/08/02(ｿｽｿｽ) 08:17:08

ｿｽuｿｽｿｽｿｽｿｽｿｽNｿｽEｿｽ[ｿｽｿｽｿｽｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽLｿｽﾌ包ｿｽｿｽ@ｿｽﾍ間違いｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽzｿｽｿｽﾌ先頭ｿｽAｿｽhｿｽｿｽｿｽXｿｽｿｽｿｽmｿｽﾅゑｿｽｿｽﾋ。
ｿｽuｿｽzｿｽが格ｿｽ[ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驛ｿｽｿｽｿｽｿｽｿｽﾌ茨ｿｽﾌ先頭ｿｽAｿｽhｿｽｿｽｿｽXｿｽｿｽwｿｽ閧ｵｿｽﾈゑｿｽｿｽｿｽﾎなゑｿｽﾈゑｿｽｿｽv
ｿｽﾆゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Public Declare Function OpenArrayForm Lib "arrDelTest.dll" (arrData As TRecData) As Boolean

Private Sub Command2_Click()
    Dim arrData() As TRecData    
    ReDim arrData(3)
ｿｽ@ｿｽ@ｿｽf(ｿｽｿｽ)
    If OpenArrayForm(arrData(0)) = True Then
    
    End If
End Sub
ｿｽﾆゑｿｽｿｽﾄ、ｿｽzｿｽｿｽﾌ先頭ｿｽAｿｽhｿｽｿｽｿｽXｿｽｿｽnｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.