| Вопрос: Как динамически прописать родительскую-дочернюю... | Добавлено: 09.12.03 20:47 |
Автор вопроса:  Unica
|
|
Есть кусок кода на VB6: Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _ ByVal hWndNewParent As Long) As Long Private Sub SetContainer(c As TextBox, p As PictureBox) On Error Resume Next SetParent c.hWnd, p.hWnd Set c.Container = p c.Visible = True End Sub Как это должно выгладеть сейчас? На строчке c.Container = p мне сообщают, что свойство Container только для чтения. Да и с hWnd непонятно что делать... Помогите плиз |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  NeForm@t ICQ: 252999255 Вопросов: 36 Ответов: 247 |
Web-сайт: Профиль | | #1 | Добавлено: 09.12.03 23:38 |
|
SetParent Text1.hWnd, Picture1.hWnd Этот код работает, затруднение в том что надо переопределять координаты textbox. А так всё нормально, никакие контеёнеры не нужны, доступ кобъекту textbox осуществляется также, как если бы он был ребёнком формы(text1.text="VB-Cool"). Но все координаты будут относительно picbox! Govnuk |
||
|
Номер ответа: 2 Автор ответа: Unica Вопросов: 2 Ответов: 6 |
Профиль | | #2 | Добавлено: 10.12.03 08:00 |
|
А если он говорит, что hWnd для типа TextBox не найдем? Наверное я совсем тупая... |
||
Страница: 1 |