モジュールを作成するには？ (ID:78557)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ちょっとコードがながいんで、 勝手に変えますが、たとえば List1というListBoxが存在するのが前提です。 (Form1.frm) Option Explicit Dim isAsc As Boolean Private sub AddData() if isAsc=False then List1.Additem "a" Else List1.Additem "b" End if end sub private sub command1_click() call AddData() end sub というプログラムのがあったとします。 これを分割するとしたら (Form1.frm) Option Explicit Dim isAsc As Boolean private sub command1_click() call AddData(List1,isAsc) '引数が追加される end sub (Module1.bas) Public Function AddData(ByRef ocxList As Listbox,isAsc As Boolean) '外から呼べるようにPublic宣言である '引数としてオブジェクトと、ここで必要な変数を宣言 if isAsc=False then ocxList.Additem "a" Else ocxList.Additem "b" End if end Function ////////////////////////// こんなかんじです。 まず、lvwListがなんなのかわかりませんが、 そのコントロールの型に合う引数、 外で宣言されているのに中で使っている変数(isAscがそうですね)を Public Function SortNum(ByRef ocxList As ????, ByRef isAsc As Boolean) というように宣言してやります(????には、正しい型を入れてください。 As Controlとかでもいけますけど、しっかり指定したほうが良いでしょう。) あとは、SortNum内の lvwListをocxListと置換してあげれば いけると思います。 基本的には引数としてコントロールを、参照渡しするだけです。