For i As Integer=0 To Tables("qrymyf").rows.count-1 Dim txt As WinForm.PictureBox txt = e.Form.CreateControl("Pic_" & i, ControlTypeEnum.PictureBox) txt.BackColor = Color.Black txt.SizeMode = ImageSizeMode.Zoom txt.BorderStyle = BorderStyle.Fixed3D txt.Width = 200 txt.Height = 250 txt.Left = 220*i + 50 txt.Top = 35 e.Form.Controls("Panel1").AddControl(txt) txt.image = GetImage(ProjectPath & "attachments/" & Tables("qrymyf").rows(i)("ltsu")) Next
|