خوب دوست عزیز
میتونی از کد زیر استفاده کنی .مثلا اگر تو به تعداد رکوردهای یک جدول به imageboxنیاز داشته باشی ابتدا یک image boxروی فرم قرار بده و شماره indexاونو بذار صفر.بعد از کد زیر استفاده کن:
If Not Adodc1.Recordset.RecordCount = 0 Then
Adodc1.Recordset.MoveFirst
End If
i = 0
While Not Adodc1.Recordset.EOF
If i = 0 Then
Image1(0).Picture = Adodc1.Recordset.Fields("aks")
Top = Image1(0).Height
Else
Load Image1(i)
Image1(i).Visible = True
Image1(i).Picture = Adodc1.Recordset.Fields("aks")
If h > 6000 Then
Image1(i).Top = Top
Image1(i).Left = Image1(0).Left - 3000
End If
End If
Wend
End If
البته در قسمتی که heightرو چک کردم باید خودت با توجه به اندازه فرمت عدد بدی.در ضمن من فرض کردم که در فیلد aksاز این رکورد آدرس عکس هر رکورد هست.
اگر کمک خواستی بگو بیشتر توضیح بدم. :wink:
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول