| Вопрос: TextBox непонятные проблемы. | Добавлено: 05.03.06 01:01 |
Автор вопроса:  piratik
|
|
С целью сделать текст нечитаемым и при попытке выполнить такой вот код, получаю странную задержку при выполнении.
При некоторых значениях j, оператор textbox.Text = num может выполняться от 10 до 40 сек. Это выполнялось в ворд 2003. Dim num() As Byte --------------------------------- Private Sub cb2_Click() Randomize j = Int(255 * Rnd + 1) num = textbox.Text For i = 0 To UBound(num) Step 2 num(i + 1) = j Next textbox.Text = num End Sub Кроме того в VB6 это вообще не работает как надо, потому что при попытке раскодировать текст и выполнении оператора num = textbox.Text всегда получается как если бы старший байт юникода всегда был равен 0, независимо от того что туда заносилось реально. Это касается только VB6 и я вообще не понимаю почему так. Private Sub cb1_Click() num = textbox.Text For i = 0 To UBound(num) Step 2 num(i + 1) = 0 Next textbox.Text = num End Sub Отсюда 2 вопроса: 1. Как избежать задержки при записи с TextBox строки с случайными значениями в страшнем байте юникода? 2. Как заставить VB6 потом прочитать записаное в него значение и почему у него такое ненормальное поведение? Спасибо. |
| Ответы | Всего ответов: 0 |
Страница: