Ввод массива hex-чисел

[Amed]

Сабж.
В окне программы надо ввести последовательность из 117 чисел в шестнадцатиричном виде. Желательно, чтобы получилось в стиле MaskedEdit. Собственно в MaskedExit нельзя маской задать допустимость цифр и [A-F]. Что посоветуете?
1) Таки заюзать MaskedEdit с ручной проверкой вводимого
2) Написать свою альтернативу. Как именно это проще сделать?
3) Заюзать неизвестный мне контрол?

[GSerg]

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
  Text1.MaxLength = 117
  Text1.Text = vbNullString
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
  Case vbKeyDelete, vbKeyBack, vbKey0 To vbKey9, vbKeyA To vbKeyF
  Case 97 To 102
    KeyAscii = KeyAscii - 32
  Case Else
    KeyAscii = 0
  End Select
End Sub

[Amed]

Ай-ай-ай. Каюсь, недоговорил.

Числа могут быть 0...255, то бишь 00...FF. Разделены должны быть пробелами.

[Zoomie]

В противном случае можно проверять каждый раз поле на допустимые символы, но это долго и не рационально!

[GSerg]

Шумит, правда...

Код: Выделить всё

Option Explicit

Private Const UNDERSCORE As Integer = 95
Private Const SPACE As Integer = 32

Private Sub Form_Load()
  Text1.Font.Name = "Courier New"
  Text1.MaxLength = 117 * (2 + 1)
  Text1.Text = Replace$(String$(117, vbNullChar), vbNullChar, Chr$(UNDERSCORE) & Chr$(UNDERSCORE) & Chr$(SPACE))
End Sub

Private Sub ReplaceChar(ByVal t As TextBox, ByVal pos As Long, ByVal asc As Integer)
  t.SelStart = pos
  t.SelLength = 1
  t.SelText = Chr$(asc)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Dim t As Long
 
  t = Text1.SelStart Mod 3
 
  Select Case t
  Case 0, 1
    Select Case KeyAscii
    Case vbKeyDelete
      ReplaceChar Text1, Text1.SelStart, UNDERSCORE
    Case vbKeyBack
      If t = 1 Then
        ReplaceChar Text1, Text1.SelStart - 1, UNDERSCORE
        Text1.SelStart = Text1.SelStart - 1
      End If
    Case vbKey0 To vbKey9, vbKeyA To vbKeyF
      ReplaceChar Text1, Text1.SelStart, KeyAscii
    Case 97 To 102
      ReplaceChar Text1, Text1.SelStart, KeyAscii - 32
    End Select
  Case 2
    Select Case KeyAscii
    Case vbKeyBack
      ReplaceChar Text1, Text1.SelStart - 1, UNDERSCORE
      Text1.SelStart = Text1.SelStart - 1
    Case vbKeySpace
      ReplaceChar Text1, Text1.SelStart, SPACE
    End Select
  End Select
 
  KeyAscii = 0
End Sub

[Amed]

Персональное блюдечко с голубой каемочкой?
Спасибо.

P.S. выгуглил еще кое-что, но этот вариант имхо лучше.

[Amed]

Да, и еще

Код: Выделить всё

Text1.MaxLength = 117 * (2 + 1) - 1

[GSerg]

Да, и еще

Код: Выделить всё

Text1.MaxLength = 117 * (2 + 1) - 1

Я думал об этом

Тогда измени обработку vbKeyDelete тоже

[Amed]

И еще

Код: Выделить всё

If t = 1 Then text1.SelStart = text1.SelStart + 1

для полного счастья

В кирпичи?

[GSerg]

Эту шумелку? Неа

[Amed]

ROFL. Я-то сижу, думаю, что значит "шумелка". Взял, решил наушники на пробу надеть и понял

Завтра (вернее, уже сегодня) перепишу на DrawText.

[GSerg]

У прынцыпе, если пожертвовать скоростью, можно и без DrawText - просто придётся работать с пропертью text, то есть перелопачивать её постоянно

[Amed]

Нет уж, сделаю на совесть.

[Andrey Fedorov]

Сабж.
В окне программы надо ввести последовательность из 117 чисел в шестнадцатиричном виде. Желательно, чтобы получилось в стиле MaskedEdit. Собственно в MaskedExit нельзя маской задать допустимость цифр и [A-F]. Что посоветуете?
1) Таки заюзать MaskedEdit с ручной проверкой вводимого
2) Написать свою альтернативу. Как именно это проще сделать?
3) Заюзать неизвестный мне контрол?

Э... Grid умеющий работать с массивом, со 117 колонками по 2 символа длиной, и отключенным заголовком. Будет выглядеть и работать так как тебе нужно. Допустимость ввода достаточно легко проверяется.

[Amed]

Всем спасибо. Шумелка превратилась во вкусный рулез с помощью всего пары изменений.

Form_Load:

Код: Выделить всё

txtHexStream.MaxLength = 117 * (2+1)

_KeyPress:

Код: Выделить всё

txtHexStream.Text = Left$(txtHexStream.Text, 117 * (2+1) - 1)
KeyAscii = 0

И еще пришлось чуть-чуть поправить код по нажатию delete'а.
Будет время, - выложу пример.

[tyomitch]

Всем спасибо. Шумелка превратилась во вкусный рулез с помощью всего пары изменений.

Ты когда-то давно обещал мой daemon_saver, также превращённый во вкусный рулез, выложить.
Не забыл?

[Amed]

tyomitch, помню прекрасно. Руки не доходят пока что. Адская круговерть.