На форме есть табы по верх табов, как обычно, идет фрейм на котором есть еще фрейм с нулевым индексом и так же с нулевым индексом пикчербокс и лебел. По записям в базе данных они плодятся. Фрейм в котором должен быть пикчербокс размещается все правильно а бикчербокс и лебел блин найти не могу. Или они под табами или фреймом плодятся но я пробовал ставить zOrder(0) - таже фигня ничего нет. Вот пример кода:
(Картинки размещаются по три в ряд)
- Код: Выделить всё
While Not .EOF
PersonID = .Fields(1).Value
ImgPath = "C:\Temp\Photo\" & Int(PersonID / 1000) & "000\" & PersonID & ".jpg"
If isfile("C:\Temp\Photo\" & Int(PersonID / 1000) & "000\" & PersonID & ".jpg") Then
ImgPath = "D:\VB\tickets\empty.jpg"
End If
FramePosition Form1.Frame2(n), Form1.Picture1(n), Form1.LbName(n)
Form1.Picture1(n).Visible = True
ResizePicture Form1.Picture1(n), Form1.Picture1(n).Height, Form1.Picture1(n).Width, ImgPath
resData2.ActiveConnection = cn
resData2.Open "SELECT * FROM Clients WHERE client_nr LIKE " & PersonID
Form1.LbName(n).Caption = RTrim(resData2.Fields(3).Value) & " " & RTrim(resData2.Fields(4).Value)
resData2.Close
n = n + 1
.MoveNext
Wend
Private Sub ResizePicture(sDestPict As PictureBox, sH As Long, sW As Long, ImgPath As String)
Dim sSrcPict As StdPicture
Set sSrcPict = LoadPicture(ImgPath)
sDestPict.Height = sH
sDestPict.Width = sW
sDestPict.AutoRedraw = True
sDestPict.Picture = LoadPicture()
sDestPict.PaintPicture sSrcPict, 0, 0, sW, sH
End Sub
Private Sub FramePosition(frame As frame, Pic As PictureBox, Name As Label)
Load frame: Load Pic: Load Name
frame.Visible = True: Pic.Visible = True: Name.Visible = True
frame.Height = FH: frame.Top = FT: frame.Left = FL: frame.Width = FW
Pic.Top = PT: Pic.Height = PH: Pic.Left = PL: Pic.Width = PW
Name.Height = LH: Name.Top = LT: Name.Left = LL: Name.Width = LW
FL = FL + 5040
counter = counter + 1
If counter = 4 Then
FT = FT + 4560: FL = 240: PT = PT + 4560: LT = LT + 4560: PL = 120: LL = 0
End If
End Sub
