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

@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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

@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