C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: Listboxコントロールの参照渡しについて

分類:[Microsoft Office 全般]　

【環境】
Excel2000 VBA
Windows XP

いつもお世話になっております。

目的：フォームモジュールで使用しているリストボックスについて、
　　　クラスモジュール内で編集を行いたいと思っております

現象：その際、参照渡しを利用したいと思っているのですが
　　　「型が一致しない」というエラーが出力されてしまいます

質問：リストボックスを参照渡しすることは可能か、
　　　またコードに間違いがないか指導していただければと思います

【フォームモジュール】
Private Sub cbnSearch_Click()

　　'lstReslt（リストボックスです）
'クラスへ参照渡し
Call m_clsSearch.SearchType(lstResult)

End Sub

【クラスモジュール】
Public Sub SearchType(ByRef ref_lstRelust As ListBox)

　　'リストに文字列を追加
Call ref_lstRelust.AddItem("文字列", 0)

End Sub

以上、宜しくお願い致します。

■No21888 (dai さん) に返信
> Public Sub SearchType(ByRef ref_lstRelust As ListBox)

Public Sub SearchType(ByVal ref_lstRelust As MSForms.ListBox)
としてください。
ListBoxのみだとVB6のruntimeを見に行っているようです。

> 質問：リストボックスを参照渡しすることは可能か、

参照型を参照渡しで渡す必要性は非常に限定的ですので(そういう仕様で無い限り)
ByValにしてください。

「値型と参照型」「値渡しと参照渡し」
Sub xxx1(ByVal p As Integer)
p = 789
End Sub
Sub xxx2(ByRef p As Integer)
p = 789
End Sub
Sub yyy1(ByVal p As MyCustomClass)
p.Property1 = 789
End Sub
Sub yyy2(ByRef p As MyCustomClass)
p.Property1 = 789
End Sub
Sub yyy3(ByVal p As MyCustomClass)
p = New MyCustomClass
End Sub
Sub yyy4(ByRef p As MyCustomClass)
p = New MyCustomClass
End Sub

Sub Test()

Dim x As Integer

x = 1
Call xxx1(x)

x = 1
Call xxx2(x)

Dim y As MyCustomClass

y = New MyCustomClass
y.Property1 = 1
Call yyy1(y)

y = New MyCustomClass
y.Property1 = 1
Call yyy2(y)

y = New MyCustomClass
y.Property1 = 1
Call yyy3(y)

y = New MyCustomClass
y.Property1 = 1
Call yyy4(y)

End Sub

各Subの中で受け取った引数に変更を与えると、Test内の x と y がどうなるかということです。

回答ありがとうございます。

MSForms.ListBoxを記載してみたのですが、
やはりエラーが出力されてしまいました。
VBAだからなのか？？

結論として、参照渡しはむかないということで
値渡しを利用して対応するとにしました。
（フォームモジュールにコード記載したくないので、クラスで処理しようと思っただけなので）

遅くなりましたが、ありがとうございました。

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: Listboxコントロールの参照渡しについて

過去ログには書き込み不可