[リストへもどる]
一括表示

投稿時間: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

投稿時間:2004/04/01(Thu) 20:47
投稿者名:魔界の仮面弁士
Eメール:
URL :
タイトル:
Re: コピー品の表示
Loadステートメントで複製されるのは、そのコントロールだけです。
コンテナ内部にあるコントロールまでは複製されません。

コンテナ構成を復元したい場合は、
   Load 親コントロール(i)
   Load 子コントロール(j)
   Set 子コントロール(j).Container = 親コントロール(i)
   子コントロール(j).Move 〜
   親コントロール(i).Move 〜
   子コントロール(j).Visible = True
   親コントロール(i).Visible = True
という感じで処理する必要があります。

投稿時間:2004/04/01(Thu) 21:55
投稿者名:kamurin
Eメール:kamurin@hotmail.com
URL :
タイトル:
コピー品の表示(有難うございます)
有難うございます。

> コンテナ構成を復元したい場合は、
>    Load 親コントロール(i)
>    Load 子コントロール(j)
>    Set 子コントロール(j).Container = 親コントロール(i)
>    子コントロール(j).Move 〜
>    親コントロール(i).Move 〜
>    子コントロール(j).Visible = True
>    親コントロール(i).Visible = True

試してみたのですが、うまくいかなかったので、
FormにTextBoxを配置する位置関係でやってみました。
うまくいったので、こっちでいきたいと思います。