Создание N текстбоксов

@nitromiha · Регистрация: 24.01.2011

Студворк — интернет-сервис помощи студентам

как создать n одинаковых по размеру текстбоксов (n вводится в ходе программы) и чтобы их имена состояли из имени и индекса с порядковым номером?

@Апострофф · 18.10.2011, 20:21

Visual Basic
1
2
3
4
5
6
7
8
9
Option Explicit
'На форме Text1. Задай в свойствах индекс 0.
Private Sub Form_Load()
Dim I%
For I = 1 To 9 'загружаем еще 9 Text1
  Load Text1(I)
  'здесь же задаем положение, размеры и др. св-ва нового объекта
Next I
End Sub

@nitromiha · 18.10.2011, 20:23 **[ТС]**

Сообщение от Апострофф

Dim I%

А зачем ставить символ процентов после обьявления переменной?

@Апострофф · 18.10.2011, 20:28

Лень писать Dim I as integer

Читай справку про типы переменных.

@Ципихович Эндрю · 18.10.2011, 20:41

Сообщение от nitromiha

А зачем ставить символ процентов после обьявления переменной?

правильно в этом случае As Byte хватит за глаза, и море памяти съэкономили

@Апострофф · 18.10.2011, 20:49

Сэкономили 1 байт в Exeшнике (и то оочень сомневаюсь)
и потеряли 8 байт в исходнике

@Ципихович Эндрю · 19.10.2011, 18:22

если такая математика, зачем нужно всё кроме Longa???
И детям останется
Например
Количество копий на печать - Long, а как без него

))

@nitromiha · 19.10.2011, 19:17 **[ТС]**

а как создать новый текстбокс програмно если его нужно создать на другой форме да и еще внутри пикчербокса (чтобы координаты расположения текстбокса регулировались относительно заданного пикчербокса)?

SoftIce · 19.10.2011, 20:10

Сообщение от Апострофф

Лень писать Dim I as integer Читай справку про типы переменных.

Тогда уж Currency хотя я уже забыл, как это пишется. Извиняюсь за оффтоп.

@Апострофф · 19.10.2011, 21:00

nitromiha Новый вопрос - новая тема! Читаем правило 2.4

Добавлено через 1 минуту

Сообщение от SoftIce.net

Тогда уж Currency

А это вы про что?

Добавлено через 6 минут

Сообщение от Ципихович Эндрю

зачем нужно всё кроме Longa???

Хороший вопрос!
Но обсуждение его лучше вынести в соответствующую тему.
И, возможно, в другую ветку форума!

SoftIce · 19.10.2011, 21:09

Сообщение от Апострофф

А это вы про что?

Тип переменных такой.

Блин, компы сейчас мощные, а вы экономите на переменных. Этот курренси занимает 6 байт.
Проекты то небольшие.

@gaw · 19.10.2011, 21:19

Сообщение от SoftIce.net

Этот курренси

8 байт , да и при чем тут деньги

Добавлено через 1 минуту

Сообщение от SoftIce.net

Проекты то небольшие

с этим 100% согласен

SoftIce · 19.10.2011, 21:21

Щас Памирыч нам п_ды даст.

@gaw · 19.10.2011, 21:24

мы же как бы кругозор разширяем, чем шире расплескалась тема, тем лучше (наверное)

Памирыч · 19.10.2011, 21:25

Оптимизация - не последнее дело, сам читаю

@Апострофф · 19.10.2011, 21:33

Сообщение от SoftIce.net

Тип переменных такой.

Да Вы что! О_о
Представтье себе - я в курсе.
Только вопрос изначально состоял в том, как лучше писать-

Visual Basic
1
Dim I% '(as Integer т.е.) -не утруждать себя, любимого, лишней писаниной, да и размер исходника уменьшить

или

Visual Basic
1
Dim I as Byte ' Сэкономить целый байт в памяти (чушь полная, переменные в памяти всё равно выравниваются по четным адресам - из Паскаля с его ключами помню)

А скорость выполнения кода с целочисленными переменными разных типов - это ...(лучше промолчуО_о)
Ну и причем здесь Currency? Для этого типа вроде нет абревиатуры?

@Апострофф · 19.10.2011, 23:06

Сообщение от nitromiha

а как создать новый текстбокс програмно если его нужно создать на другой форме да и еще внутри пикчербокса (чтобы координаты расположения текстбокса регулировались относительно заданного пикчербокса)?

Посмотри вложение. Хотя не представляю, для чего это может пригодиться?

@nitromiha · 19.10.2011, 23:15 **[ТС]**

Спасибо! Но я уже придумал и сделал немножко не так:
Создал на второй фолме внутри пикчербокса текстбокс с индексом 0 а в кнопке на форме 1 создал цикл с нужным кол-вом повторений в котором была команда Load Form2.Text1(n) и в координаты добавлял координаты предыдущего и включал видимость - все заработало)))

А нужно это для того чтобы запросить в модальном окне (форма 2) нужное количество данных, которое вводится в поле программы (но их больше 1). по этому не могу заранее расставить в ручную (может быть 2 значения, а может быть и 100))))
Вот так)

@gaw · 20.10.2011, 00:19

оригинальный подход

интересно взглянуть на форму с 100 текстбоксами

@nitromiha · 20.10.2011, 00:31 **[ТС]**

Вы чтото про теодолитный ход стышали?)))
Вот это жесть его рассчитать в бейсике, еще и с неопределенным количеством пунктов!!!!))))

Вот там может и 100 быть!))))

P.S. Если бы не скролбар - ваще повеситься можно было бы!)))))

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в конфигурации КА2. Данные берутся из регистра сведений, по. . .

@nitromiha 84 / 12 / 1 Регистрация: 24.01.2011 Сообщений: 309

	Создание N текстбоксов 18.10.2011, 20:07. Показов 1940. Ответов 19 Метки нет (Все метки) как создать n одинаковых по размеру текстбоксов (n вводится в ходе программы) и чтобы их имена состояли из имени и индекса с порядковым номером? 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,906
	18.10.2011, 20:28
	Лень писать Dim I as integer Читай справку про типы переменных. 2

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,906
	18.10.2011, 20:49
	Сэкономили 1 байт в Exeшнике (и то оочень сомневаюсь) и потеряли 8 байт в исходнике 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,328
	19.10.2011, 18:22
	если такая математика, зачем нужно всё кроме Longa??? И детям останется Например Количество копий на печать - Long, а как без него )) 1

@nitromiha 84 / 12 / 1 Регистрация: 24.01.2011 Сообщений: 309
	19.10.2011, 19:17 [ТС]
	а как создать новый текстбокс програмно если его нужно создать на другой форме да и еще внутри пикчербокса (чтобы координаты расположения текстбокса регулировались относительно заданного пикчербокса)? 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	19.10.2011, 21:21
	Щас Памирыч нам п_ды даст. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	19.10.2011, 21:24
	мы же как бы кругозор разширяем, чем шире расплескалась тема, тем лучше (наверное) 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	19.10.2011, 21:25
	Оптимизация - не последнее дело, сам читаю 1

@nitromiha 84 / 12 / 1 Регистрация: 24.01.2011 Сообщений: 309
	19.10.2011, 23:15 [ТС]
	Спасибо! Но я уже придумал и сделал немножко не так: Создал на второй фолме внутри пикчербокса текстбокс с индексом 0 а в кнопке на форме 1 создал цикл с нужным кол-вом повторений в котором была команда Load Form2.Text1(n) и в координаты добавлял координаты предыдущего и включал видимость - все заработало))) А нужно это для того чтобы запросить в модальном окне (форма 2) нужное количество данных, которое вводится в поле программы (но их больше 1). по этому не могу заранее расставить в ручную (может быть 2 значения, а может быть и 100)))) Вот так) 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	20.10.2011, 00:19
	оригинальный подход интересно взглянуть на форму с 100 текстбоксами 1

@nitromiha 84 / 12 / 1 Регистрация: 24.01.2011 Сообщений: 309
	20.10.2011, 00:31 [ТС]
	Вы чтото про теодолитный ход стышали?))) Вот это жесть его рассчитать в бейсике, еще и с неопределенным количеством пунктов!!!!)))) Вот там может и 100 быть!)))) P.S. Если бы не скролбар - ваще повеситься можно было бы!))))) 0