Как осуществоить переход на новую строку

@An'ka · Регистрация: 25.12.2011

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

Всем привет!
Я программистка не очень, но на работе узнали, что изучала бэйсик, теперь засталяют мелочи писать

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Clear_Click()
Text.Text = ""
End Sub
Private Sub Label1_Click()
 
If store.Text = 1046 Or 1044 Then Label.Caption = h1
 
End Sub
 
Private Sub mac_Change()
mac.Text = Format((mac.Text), "##:##:##:##:##:##")
End Sub
 
Private Sub send_Click()
Clipboard.SetText Text.Text
End Sub
 
Private Sub Write_Click()
 
Text = store.Text & " | " & till.Text & " | " & mac.Text & " | " & ttill.Text & " | " & port.Text & " | " & sb.Text & " | " & monitor.Text + vbCrLf
 
End Sub

Собственно, что у меня не получается.
Вот здесь задать формат сетевого адреса:

Visual Basic
1
mac.Text = Format((mac.Text), "##:##:##:##:##:##")

Чтобы только 12 сиволом с двоеточиями.

Вот тут у меня ничего в лэйбле не появляется

Visual Basic
1
If store.Text = 1046 Or 1044 Then Label.Caption = h1

И перенос на новую строку не происходит

Visual Basic
1
+ vbCrLf

Мальчики, помогите, пожалуйста

@Linoge · 25.12.2011, 17:34

Для mac например так

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub mac_Click()
mac.Text = Replace(mac.Text, ":", "")
End Sub
Private Sub mac_KeyPress(KeyAscii As Integer)
If Len(mac) > 11 And Not KeyAscii = 8 Then KeyAscii = 0
End Sub
Private Sub mac_LostFocus()
mac.Text = Format((mac.Text), "##:##:##:##:##:##")
End Sub

h1 где ?
Не объявлен, вот в надпись ничего и не выводится.

А text - если это textbox нужно поставить MultiLine в true.
Не + vbCrLf а & vbCrLf
И наверно туда должно добавляться значения:

Visual Basic
1
2
3
4
5
Private Sub Write_Click()
Text = Text & store.Text & " | " & till.Text & " | " & mac.Text & _
" | " & ttill.Text & " | " & Port.Text & " | " & sb.Text & " | " & _
monitor.Text & vbCrLf
End Sub

@An'ka · 25.12.2011, 17:39 **[ТС]**

h1 - это текст, я завтра проверю, скажу, получилось или нет. Спасибо.

@Linoge · 25.12.2011, 17:46

Если текст то "h1"

@An'ka · 26.12.2011, 11:41 **[ТС]**

Все сложно

На это:

Visual Basic
1
Private Sub mac_KeyPress(KeyAscii As Integer)

выдает "Ошибка компиляции. Объеявление процедуры не соответствует описанию события или процедуры, имеющей то же самое значение".
Если оставить

Visual Basic
1
Private Sub mac_KeyPress()

то работает, но при вводе букв двоеточия не выставляет.

строчки переносит

Но в буфер копирует как-то через раз, а иногда вообще не копирует.

И еще пишу условие:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
store_change()
if store.text = 1 then
label1.caption = "e"
end if
if store.text = 2 then
label1.caption = "f"
else: 
label1.caption = "ля-ля"
end if
if store.text = 1 then
label2.caption = "ir"
end if
if store.text = 2 then
label2.caption = "c"
else: 
label2.caption = "ля-ля"
end if

Выставляет 2 последних значения, т.е. пропускает первое и второе if, высталвляет из третьего условия (там их 3 в первой группе и 2 во второй).
И еще реагирует только на ручной ввод, если список мышкой листать, то в лэйблах ничего не отражает.

Добавлено через 5 часов 5 минут
С буфером разабралась, if then else заменла на case. Красиво, но долго и муторно.

Остался вопрос по правильному формату мак адреса...

@Linoge · 26.12.2011, 12:37

vb какой?
6.0

а перед вставкой в буфер его надо очищать

Visual Basic
1
Clipboard.Clear

Сорри, с форматом тупанул.

Visual Basic
1
mac.Text = Format((mac.Text), "@@:@@:@@:@@:@@:@@")

Добавлено через 22 минуты
С проверкой вводимых значений.
На vb 6.0 точно должно работать.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub mac_Click()
mac = Replace(mac, ":", "")
End Sub
 
Private Sub mac_KeyPress(KeyAscii As Integer)
If Not (Len(mac) < 13 And (KeyAscii > 47 And KeyAscii < 58 _
Or KeyAscii > 96 And KeyAscii < 103) Or KeyAscii = 8) Then KeyAscii = 0
End Sub
 
Private Sub mac_LostFocus()
mac = String(12 - Len(mac), "0") & mac
mac = Format((mac.Text), "@@:@@:@@:@@:@@:@@")
End Sub

@An'ka · 29.12.2011, 06:39 **[ТС]**

Все отлично работает, если убрать строку

Visual Basic
1
mac = String(12 - Len(mac), "0") & mac

Добавлено через 27 минут
Я еще понаглею

Можно еще сделать запрос данных на веб-страницу?
Это html, внутренний ресурс и там два списка и чекбокс. Только надо не всю страницу вывести а табличку со строками, в которых есть слово... "бубен"?

Я понимаю, что html - это не отсюда, я другую тему сделаю на обработку импортируемых данных, мне бы сам код на вставку в окошко программы
P.S. VB 6.0.

Добавлено через 11 минут
Я так понимаю, можно:
1. скопировать все в буфер
2. вставить в невидимое поле
3. удалить все строки, в которых нет бубна
4. вставить в видимое текстовое поле
5. испытать щастье.

Тогда вопрос в том, как передать данные в два списка и чек-бокс из формы моей программы...
Т.е. я делаю условие
if список1 lostfocus and список2 lostfocus then пошел запрос else сижу, пью кофе.

Добавлено через 1 час 3 минуты
А еще лучше, если там будет созадваться кнопка 7 лейблов, кнопка и еще 2 лейюла. Данные будут соответствовать значениям ячеек таблицы.

@Linoge · 29.12.2011, 10:40

Visual Basic
1
mac = String(12 - Len(mac), "0") & mac

это, если введено менее 12 символов, догоняет строку до полного размера нулями.

Чуть доработал условие

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub mac_Click()
mac = Replace(mac, ":", "")
End Sub
 
Private Sub mac_KeyPress(KeyAscii As Integer)
If Not ((Len(mac) < 12 Or Not mac.SelText = Empty) And (KeyAscii > 47 And KeyAscii < 58 _
Or KeyAscii > 96 And KeyAscii < 103) Or KeyAscii = 8) Then KeyAscii = 0
End Sub
 
Private Sub mac_LostFocus()
mac = String(12 - Len(mac), "0") & mac
mac = Format((mac.Text), "@@:@@:@@:@@:@@:@@")
End Sub

@An'ka · 29.12.2011, 11:28 **[ТС]**

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

Visual Basic
1
mac = String(12 - Len(mac), "0") & mac

это, если введено менее 12 символов, догоняет строку до полного размера нулями.

А вот этого не надо, ибо ошибки дорого обходятся.

@Linoge · 29.12.2011, 11:43

тогда нужно сделать проверку на ввод именно 12 символов

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
 
Private Sub mac_Click()
mac = Replace(mac, ":", "")
End Sub
 
Private Sub mac_KeyPress(KeyAscii As Integer)
If Not ((Len(mac) < 12 Or Not mac.SelText = Empty) And (KeyAscii > 47 And KeyAscii < 58 _
Or KeyAscii > 96 And KeyAscii < 103) Or KeyAscii = 8) Then KeyAscii = 0
End Sub
 
Private Sub mac_LostFocus()
If Len(mac) = 12 Then
    mac = Format((mac.Text), "@@:@@:@@:@@:@@:@@")
Else
    MsgBox "Проверьте правильность ввода mac"
    Putfocus mac.hwnd
End If
End Sub

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@An'ka 1 / 1 / 0 Регистрация: 25.12.2011 Сообщений: 23
	25.12.2011, 17:39 [ТС]
	h1 - это текст, я завтра проверю, скажу, получилось или нет. Спасибо. 0

@Linoge 3205 / 1915 / 324 Регистрация: 25.10.2011 Сообщений: 5,564
	25.12.2011, 17:46
	Если текст то "h1" 0