| 投稿日 | ： 2006/11/03(Fri) 11:14 |
| 投稿者 | ： K.J.K. |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: フォーム起動時にパラメータを渡す方法について |
例えば、
FormB側では
Private mvData As Variant
Public Function LoadWithArgs(Optional ByVal Args As Variant) As Boolean
On Error Resume Next
mvData = Args
Call Load(Me)
If Err.Number Then
Call Err.Clear
Else
LoadWithArgs = True
End If
On Error GoTo 0
End Function
Private Sub Form_Load()
Me.Visible = True
End Sub
FormA側では
Private Sub ShowFormB
Dim wNewFormB As FormB
Set wNewFormB = New FormB
Call wNewFormB.LoadWithArgs("送りたいデータ")
End Sub
とでもするとか。