множение TextBox

[Технократ]

Стоит такая задача: необходимо создать заранее неизвестное количество полей, т.е. я ввожу например "Кол-во ППМ = 7" и в форме создается семь полей для ввода данных!
Примного благодарен!

[EUGY]

поподробнеебыа? :shock:

[Технократ]

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

[Хакер]

Controls.Add
или
Load TextBoxArray(нужный индекс)
или
CreateWindow

[EUGY]

Private Sub Form_Load()
Dim x As Integer
Dim txtkolvo As Integer ' твоя переменная ...
txtkolvo = 10 - 1 ' TODO ....
For x = 1 To txtkolvo
Load Text1(x)
Text1(x).Left = Text1(x - 1).Left + Text1(x - 1).Width + 1
Text1(x).Visible = True
Next
End Sub

'можетподумаемосеточкеgrid
P.S. на форме уже должен лежать TEXT1 со свойством Index - 0

[Хакер]

txtkolvo

Вот за такое руки то надо вырывать.

[EUGY]

Кол-во ППМ

какой вопрос - такой ответ.

А 32 бита - это норма?

[Хакер]

Кол-во ППМ

какой вопрос - такой ответ.

А 32 бита - это норма?

А причём тут "Кол-во ППМ". И уж тем более причём тут 32 бита?

[Технократ]

А чегож можноиосеточке)

[EUGY]

Я вот тоже не уловил, за что здесь "руки варывать".

[Хакер]

за стиль именования переменных вырывать.

[Технократ]

да ладно вам, не о том реч, не тратьте попусту время)

[Технократ]

Мне еще так же нужно генерить переменные к каждому полю)
А вы тут о стилях..

[Технократ]

Да и вниз бы это все смещать хорошо бы, а не по строке)
(с меня магарыч )

[EUGY]

нужно генерить переменные

Все-таки без подробностей не обойтись, кол-во "полей" может превысить разумный предел, какой смысл плодить TextBox' ы на форме, когда на вывод данных способна любая сетка.

Касаемо стиля:
Не предполагал Вашего участия, уважаемый "Хакер", в обсуждении банального примера и позволил себе некоторые вольности, впредь постараюсь быть "политкорректнее".

[Технократ]

нужно генерить переменные

Все-таки без подробностей не обойтись, кол-во "полей" может превысить разумный предел, какой смысл плодить TextBox' ы на форме, когда на вывод данных способна любая сетка.

Касаемо стиля:
Не предполагал Вашего участия, уважаемый "Хакер", в обсуждении банального примера и позволил себе некоторые вольности, впредь постараюсь быть "политкорректнее".

Нет, конечно же их небудет скажем 500, думаю не более 15 (скажу руководству больше нельзя))

[burik]

Код: Выделить всё

Private Sub Command1_Click()

  Dim i As Integer         ' i - счетчик
  Dim Col As Integer     'количество TextBox'ов

  Col = 10 - 1 ' нумеруем с 0
  For i = 1 To Col
    Load txtText(i)
    txtText(i).Top = txtText(i - 1).Top + txtText(i - 1).Height + 1
    txtText(i).Visible = True
  Next i
End Sub

Мог бы и сам дописать..

[Хакер]

EUGY
А ты пишешь правильный код только на случай, что уважаемый "Хакер" его увидит и станет критиковать, а не потому что нужно писать правильный код?

[burik]

Кстати, есть функция CreateObject(class). Вот не знаю какому классу принадлежат TextBox, CommandButton и т. п.

Это вобще можно определить как-то или надо просто знать?

[Технократ]

Нужно вот что:

Имя ППМ S, км Z, км РСБН ОПРС АРП ОРЛ
Text Text Text ChkBox ChkBox ChkBox ChkBox
Text Text Text ChkBox ChkBox ChkBox ChkBox
..... ...... ...... ............ ........... ............ ..........
Text Text Text ChkBox ChkBox ChkBox ChkBox

количество этих строк берется из переменной (ограничу 15)

[Хакер]

burik
А вы знаете что есть функция Me.Controls.Add которая служит для создания визуальных объектов.

А вбшный-текст-бокс принадлежит классу VB.TextBox... Это если говорить о классе объекта формы. Если имеется ввиду окно, то там другой класс. Насколько я помню - ThunderRT6TextBox


Технократ

Имя ППМ S, км Z, км РСБН ОПРС АРП ОРЛ
Text Text Text ChkBox ChkBox ChkBox ChkBox
Text Text Text ChkBox ChkBox ChkBox ChkBox
..... ...... ...... ............ ........... ............ ..........
Text Text Text ChkBox ChkBox ChkBox ChkBox

Юзай GRID. Любой. Например MSFlexGrid.

[burik]

Сделай ActiveX контрол с полями, а потом создавать нужное количество таких контролов (так же как выше создавали TextBox'ы).

Хотя удобней использоать MSFlexGrid или MSHFlexGrid

[EUGY]

...станет критиковать, а не потому что нужно писать правильный код

"правильно", в данном контексте, то, что выполняет свою задачу.
Менее всего я озабочен критикой с Вашей стороны "уважаемый Хакер".

[Хакер]

ты бы прогулялся до RSDN. Хотя бы до этого:

Код должен быть легко читаем. Стив МакКоннелл (Steve McConnell) сказал в своём выступлении на SD West '04: код должен удобно читаться, а не удобно писаться.

Здесь следует отметить несколько факторов. Выбор хороших, говорящих сами за себя, имён – хорошее начало. Стремитесь к простым решениям, даже если они кажутся более многословными или неэффективными. Является ли эффективность проблемой, станет известно только впоследствии, при профилировании проекта в реальной ситуации использования продукта
Выбирайте стиль и соглашения о форматировании на ранней стадии проекта, и следуйте этим соглашениям.. Требуйте от других следования им же. Это будет легче сделать, если каждый внесёт свою лепту в такое соглашение. Всё это сделает ваш код единообразным и более лёгким в прочтении.

И избавляйтесь от дублирования кода во всех его проявлениях. Более подробно об этом – ниже.

Ваш код – отстой, если он непонятен
Этот пункт весьма близок к предыдущему. Код может быть читабельным, но, тем не менее, труднопонимаемым. Возможно, он читается хорошо, но вводит читающего в заблуждение. Представьте: вы потратили много времени, чтобы выбрать хорошее имя переменной, но способ её использования и её значение изменились в то время, как имя осталось прежним. Это ещё хуже, чем зашифрованное имя... по крайней мере, в последнем случае, читатель знал бы, что имя бессмысленно. Но если же имя не отражает сути, читатель будет иметь беспочвенные суждения о том, что происходит в коде, что в итоге приведёт к непониманию, и в конце концов – к багам.

[Технократ]

Приплыл к тому что нужно множить так же переменные, т.е. я создаю массив данных "Punkt" стринговых (для Имя ППМ), далее пытаюсь забить в массив значения из текст боксов

For i = 0 To InitData(KolPPM)
Punkt(i) = PPM(i)
Next

А он мне вот что: "Нижний индекс вне диапазона" Ошибка 9
предполагаю что в английской версии это как Out of range

[Andrey Fedorov]

Взять Grid... И полей будет...

[Viper]

Массив то как объявлен? Размер ему задан?

[Технократ]

размер не задан

[Viper]

Так задай

Код: Выделить всё

ReDim Punkt(0 To NeedSize - 1)

[Технократ]

Мне размер заранее не известен