Как осуществоить переход на новую строку - VB
Формулировка задачи:
Всем привет!
Я программистка не очень, но на работе узнали, что изучала бэйсик, теперь засталяют мелочи писать
Собственно, что у меня не получается.
Вот здесь задать формат сетевого адреса:
Чтобы только 12 сиволом с двоеточиями.
Вот тут у меня ничего в лэйбле не появляется
И перенос на новую строку не происходит
Мальчики, помогите, пожалуйста
Решение задачи: «Как осуществоить переход на новую строку»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д