> > ページを遷移するとドカンとメモリを食う(;´Д`) > > そのページは不特定でだいたい1200くらい遷移するとサーバが落ちる > > で実装担当社は逃亡 > ちょとコード張ってみてよ(;´Д‘) Private Sub PageSeni(Byval KaisiPage As Integer,Byval OwariPage As Integer) { Dim i As Integer For i = KaisiPage To OwariPage - 1 Then Me.Panel1.Add(GeneratePage(i)) Me.Panel1.Control(i).Visible = False If i = OwariPage -1 Then Me.Panel1.Control(i).Visible = True Then End If } 参考:2007/10/20(土)12時31分17秒