Консультация № 179205
23.06.2010, 00:31
0.00 руб.
0 5 0
Подскажите как програмно на фрейме в документе на место текст бокса в случае надобности добавить Комбобокс

Обсуждение

Неизвестный
23.06.2010, 20:30
общий
Ципихович Эндрю:
Можно сделать так: на форму наложить друг на друга ComboBox и TextBox и менять их zOrder
Неизвестный
23.06.2010, 21:07
общий
Измалков Эдуард Леонидович:
Подскажите как, скрипт
Но не форма, а в Ворде контрол фрейм, на нём тект бокс
Затем в зависимости от количества файлов в папке, например D\1
Если один файл тогда оставляем тест бокс но надо его сделать под размер имени файла, если его имя папарарарарарар, тогда чтобы всё влезло, в то же время если имя у, чтобы не было лишнего и самое главное запретить ввод в этот текст бокс, пытаются ввести - звук Бип
А если много файлов, тогда просчитать файл имеющий самое большое имя и также если его имя папарарарарарар, тогда чтобы всё влезло, в то же время если имя у, чтобы не было лишнего
Неизвестный
23.06.2010, 21:07
общий
Измалков Эдуард Леонидович:
Подскажите как, скрипт
Но не форма, а в Ворде контрол фрейм, на нём текст бокс
Затем в зависимости от количества файлов в папке, например D\1
Если один файл тогда оставляем тест бокс но надо его сделать под размер имени файла, если его имя папарарарарарар, тогда чтобы всё влезло, в то же время если имя у, чтобы не было лишнего и самое главное запретить ввод в этот текст бокс, пытаются ввести - звук Бип
А если много файлов, тогда просчитать файл имеющий самое большое имя и также если его имя папарарарарарар, тогда чтобы всё влезло, в то же время если имя у, чтобы не было лишнего
Неизвестный
25.06.2010, 08:58
общий
Измалков Эдуард Леонидович:
Из того, что было опубликовано 23.06.2010, 21:07 если Вы всё не знаете как реализовать, напишите хоть часть плиз..
Неизвестный
25.06.2010, 14:07
общий
Ципихович Эндрю:
Код:
If количествофайлов = 1 Then
Frame1.Controls("TextBox1").Visible = True
Frame1.Controls("ComboBox1").Visible = False
Else
Frame1.Controls("TextBox1").Visible = False
Frame1.Controls("ComboBox1").Visible = True
End If

Форма ответа