Как осуществоить переход на новую строку - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.1 из 5
Похожие ответы