| Вопрос: HELP!!! about: Load Frame1(i) | Добавлено: 13.12.06 17:35 |
Автор вопроса:  hikmetrza
|
|
U MENYA PROBLEMA S ZAQRUZKOY OBYEKTOV. KOD:
Public ObjCount As Integer Private Sub Command1_Click() ObjCount = ObjCount + 1 Load Frame1(ObjCount) Load Label1(ObjCount) Load Label2(ObjCount) Frame1(ObjCount).Left = 0 Frame1(ObjCount).Visible = True If ObjCount - 1 = 0 Then Frame1(ObjCount).Top = 0 Else Frame1(ObjCount).Top = Frame1(ObjCount - 1).Height + Frame1(ObjCount - 1).Top End If Frame1(ObjCount).Caption = ObjCount Label1(ObjCount).Caption = Now & " " & Date Label2(ObjCount).Caption = ObjCount & vbCrLf & "text..." End Sub Private Sub Form_Load() ObjCount = 0 End Sub VO VREMYA RUN ZAQRUJAETSYA FRAME1, LABEL1. LABEL2. OBYEKTI LABEL1, LABEL2 NAXODITSYA VO VNUTRI FRAME1. INDEX-SI VSEX OBYEKTOV RAVNO NULYU. NO POKAZIVAETSA TOLKO FRAME1. NE MOQU PONYAT SHTO PROISXODIT. NI KAKIX ERROR. POMOQITE POJALSTA. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 13.12.06 23:54 |
| тут геморрой... окна не могут динамически грузиться внутри контейнера отличного от формы. Тут можно юзать SetParent, но гораздо проще создать свой ActiveX контрол. | ||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 14.12.06 01:42 |
|
Private Sub Command1_Click()
Load Frame1(Frame1.Count) Frame1(Frame1.Count - 1).Top = 0 Frame1(Frame1.Count - 1).Left = 0 Frame1(Frame1.Count - 1).Caption = "Frame" & Frame1.Count Frame1(Frame1.Count - 1).ZOrder 0 Frame1(Frame1.Count - 1).Visible = True End Sub |
||
Страница: 1 |