投稿日 | : 2004/04/01(Thu) 20:18 |
投稿者 | : kamurin |
Eメール | : kamurin@hotmail.com |
URL | : |
タイトル | : コピー品の表示 |
imContainer3Dの内にPictureBox
その内にCalendarで
Calendarの内にPictureBox
という配置(位置関係)で
Calendarの内のPictureBoxを下記のコードで複製したのですが、
複製品が見えませんでした。(デザイン時にあるPictureBoxは見えてます。)
どうしてか分かりませんか?
宜しくお願いします。
For i = 1 To Picture2.UBound
Unload Picture2(i)
Next i
If rs_T_個別勤怠.BOF = False Then
Do While rs_T_個別勤怠.EOF = False
'表示位置を取得
SetTop = Picture2_Top + (330 * Int(Day(rs_T_個別勤怠!個別休暇日) / 7))
SetLeft = Picture2_Left + (495 * (Weekday(rs_T_個別勤怠!個別休暇日) - 1))
'Picture2が無ければ作成
If RCunt > 0 Then
Load Picture2(RCunt)
End If
Picture2(RCunt).Top = SetTop
Picture2(RCunt).Left = SetLeft
Picture2(RCunt).Visible = True
rs_T_個別勤怠.MoveNext
Loop
End If