Обьеденить 18 текстовых полей в одном

28.11.2011, 00:19. **Показов** 952. **Ответов** 1

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

Всем привет.
Я в программировании новичек,поэтому стартовых знаний...эмм..проще говоря мне очень далеко до совершенства на языке VB.
Держу сайт,и решил написать программу для облегчения своей работы.

Цель: в созданной форме разместить все необходимые поля для работы (их 18),и результате при нажатии кнопки выводило 1 текстовое поле с обьедененными 18 полями в одном.

Зачем так делаю: потому что в каждое поле будет подставлен свой код оформления,каким оно должно быть на сайте.
Начал располагать все обьекты на форме,создал доп.форму,но не получается вывести в результате все 18 полей в одном...(выдает ошибку: Argument not optional)

начальный код программы:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim N , G , M1 , M2 , M3 , S , K , A1 , A2 , A3 , DS , DM , DL , FS , FM , FL , HS , HM , HL , J As Variant
 
Private Sub Command1_Click()
Form2.Show
Me.Hide
[COLOR="Red"]Form2.text1.Text = "[color=red]The model:[b]" + text1 & "[/b][/color]" & "[c][img]" + text2 & "[/img]"[/COLOR]
End Sub
 
Private Sub Command2_Click()
Form3.Show
Me.Hide
End Sub
 
Private Sub R_Change()
R.Text = J
End Sub

Столько переменный потому,что сначала думал каждому текстовому полю обьявить свою букву и в конце просто вывести эти буквы.

И еще один пункт:
Хотел еще сделать так,что бы при получении результата была кнопка,для сразу через форму вб размещения сообщения на сайте.
Много читал про WebBrawser в VB6 и понял,что для выполнения действий надо ответы искать в коде страницы,наверное это то что мне понадобится?

Авторизация на сайте:

HTML5
1
2
3
4
<td width="100" align="right">E-mail:</td><td><input type="text" name="user" size="20" style="width:150px" maxlength="50"></td></tr><tr><td align="right">Пароль:</td><td><input type="password" name="password" style="width:150px;" maxlength="15" size="20"></td></tr>
<tr><td id="eMessage" align="right"></td><td>
<table border="0" cellpadding="0" cellspacing="0" onmousedown="this.className='downBtn'" onmouseover="this.className='overBtn'" onmouseout="this.className='outBtn'">
<tr>

Создание новой темы:

HTML5
1
<td class="switchActive" align="center">1</td></tr></table></td><td align="right" class="frmBtns"><div id="frmButns83"><a href="http://sexymod.ru/forum/2-0-0-1-1"><img alt="" style="margin:0;padding:0;border:0;" title="Новая тема" src="http://s44.ucoz.net/img/fr/bt/4/t_new.gif" /></a>

Отправка сообщения:

HTML5
1
<script type="text/javascript">function emoticon(code,nm){if (code != ""){var txtarea=document.getElementById(nm);code = ' ' + code + ' ';if (document.selection) {txtarea.focus();var txtContent = txtarea.value;var str = document.selection.createRange();if (str.text == ""){str.text = code;} else if (txtContent.indexOf(str.text) != -1){str.text = code + str.text;} else {txtarea.value = txtContent + code;}}else{txtarea.value = txtarea.value + code;}}}</script>

Всегда,всем приходится с чего нибудь начинать) поэтому простите,я не вундеркинд,что бы все схватывать на лету в интернете)

@Linoge · 28.11.2011, 10:50

Для начала создать массив текстовых полей, Text1 - 18 штук.
В первом текстовом поле параметр Index поставить 0, а дальше копировать его.
Text2 - вывод результата, параметр MultiLine поставить True.

Visual Basic
1
2
3
4
5
6
7
Private Sub Command1_Click()
separator = " " 'разделитель полей
Text2 = ""
For i = 0 To Text1.UBound
    Text2 = Text2 & separator & Text1(i)
Next
End Sub

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .