Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3637 / 9994

←次へ　｜　前へ→


	【9616】Re:配列変数の引き渡し方

hatena - 07/6/26(火) 2:30 -


	引用なし

	パスワード

YU-TANG さんから、クラスを使う方法が紹介されてますが、
この程度なら、クラスを使わなくても、
OnClickに、関数を設定する方法で同じ事を実現できます。
イベントの引数を利用したいときなどはクラスでないと無理ですが。

以前、似たような物を作ったことが有りますので、
そのときのコードの今回の仕様に合わせて変更したものを
出しておきます。参考にしてください。

フォームモジュール

Private Function Day_Click(D As Date)
　　Screen.ActiveControl.Value = D
End Function

Private Function SetCalendar(y As Integer, m As Integer)
' y年m月の3ヶ月前から2ヶ月後までのカレンダーの日付を設定
Dim i As Integer, j As Integer, FirstDay As Date, s As Integer

For j = -3 To 2
　　FirstDay = DateSerial(y, m + j, 1)
　　s = Weekday(FirstDay)
　　For i = 0 To Day(DateSerial(y, m + j + 1, -1))
　　　　With Me(Chr(Asc("E") + j) & i + s)
　　　　　　.Caption = Day(FirstDay + i)
　　　　　　.OnClick = "=Day_Click(#" & FirstDay + i & "#)"
　　　　End With
　　Next
Next

End Function

Private Sub Form_Load()
　　SetCalendar Year(Date), Month(Date)
End Sub

フォームの読み込みに、ラベルのクリック時プロパティにDay_Click関数を設定してます。
そのときに日付を引数として渡してます。

2,341 hits

▼

【9611】配列変数の引き渡し方 メイ子 07/6/25(月) 15:40