Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.144.10.130] |
|
Сообщ.
#1
,
|
|
|
Dim NewTxt As Integer
NewTxt = Text1.Count Load Text1(NewTxt) Продолжите дальше код. Я хочу что бы массив распологался с права от другого массива? |
Сообщ.
#2
,
|
|
|
Если я правильно понял, надо, чтобы новое поле располагалось правее предыдущего... Тогда так:
Text1(NewTxt).Left = Text1(NewTxt).Left + Text1(NewTxt).Width + Расстояние(120,например) |
Сообщ.
#3
,
|
|
|
Ага... почти... во глюк!!!! Так:
Text1(NewTxt).Left = Text1(NewTxt-1).Left + Text1(NewTxt-1).Width + Расстояние(120,например) Text1(NewTxt).Top = Text1(NewTxt-1).Top |
Сообщ.
#4
,
|
|
|
Очень благодарна! А ты случайно не знаешь как сделать что бы массив элимента появлялся в том месте на форме куда я кликну???
|
Сообщ.
#5
,
|
|
|
Забыла спросить! Как удалять такие массивы?
|
Сообщ.
#6
,
|
|
|
Дерррржи!!!
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1(NewTxt).Left = X Text1(NewTxt).Top = Y End Sub Выгружать - Unload Text1(Индекс) |