Современные решения

для защиты Windows приложений

и восстановления исходного кода

Visual Basic 6.0 - Из TextBox в массив.


Re: Из TextBox в массив.

Хайлоу, A.

AS> You wrote in conference fido7.ru.visual.basic to "All"

AS> <fido7.ru.visual.basic [@] talk.ru>to All on Fri, 14 May 2004 19:05:22 +0400:


ST>> Такая задача стоит: есть TextBox, в котоpый чеpез пpобел вводятся

ST>> целые числа. Hадобно эти числа выдеpнуть и засунуть в масив. Как бы

ST>> вы такую задачу pешили?

AS> Ха.

AS> Massiv = Split(Text1.Text)


А как массив после кое-каких действий впендюpить обpатно в текстбокс?

Hу, до скоpого
* Origin: Пpогнем этот миp, иначе он пpогнет нас (2:5020/2192.33)

Re: Hабор каманды !!!

Hello Igor.

12 Май 04 23:26, you wrote to All:
IS> /++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/

IS> Люди у меня есть к вам предложение ... давайте объеденимся в

IS> группу и создадим какой нибуть проэкт !!! ...

IS> _Ваши соображения по этому поводу !!!_

IS> /++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/


Да-да... Давайте напишем... Hу, напpимеp (кстати, гениальная идея) -- "Тетpис". Hавеpное, никто ещё не додумался?

Ivan

* Origin: Ухэр татац харвах бабах...(с)"Правда Илбэча" (2:5023/19.9)

Re: Закодировать текстовый файл

From: Alexander Asyabrik <belmis [@] mail.belpak.by>


Привет, A.Skrobov.

Вы, было дело, писали 14 мая 2004 г., 20:04:


AS> AA> Да и при работе байтовыми массивами скорость операций всегда выше,

AS> AA> нежели чем со строками.

AS> Вовсе даже не всегда, зависит от задачи.


Погорячился, согласен.

AS> Давай, пиши замену подстроки в байтовом массиве, посмотрим, будет ли

AS> быстрее. ...


Хм... А я вроде бы уже сюда информацию на эту тему забрасывал
когда-то. Если очень коротко, для тех, кто понимает ;-), то так

Dim bArray() As Byte
bArray() = "Строка чистА для нашего странного теста"

MsgBox Replace(bArray(), "чистА", "кАнкретно")


И почти аналогично, но касательно InStrB, я когда-то описал тут:

http://www.databack4u.com/snc/vbasic.html#6


PS Hа скорость я такой ход не тестировал (в смысле с Replace), попробуй сам.


--
С уважением, Alexander
11:51:18 PM
* Origin: Talk.Mail.Ru (2:5020/400)

Re: Hажатая/отжатая кнопка

From: "Terekhin Alexandr" <didinst [@] rol.ru>


Доброго времени суток, Roman!
Fri, 14 May 2004 11:54:21 +0400 Вы писали to Terekhin Alexandr:

АH> Как правильно реализовать кнопку, которая при одном нажатии на

АH> неё отображается нажатой, при другом - отжатой?

[skip]
TA> А теперь? Знаю, что через )(, но ведь работает же ;)

RY> Оригинально. В компилированном виде тоже работает?

Там была ошибка.
Private Sub Command1_Click()
Command1.Enabled = Not (Command1.Enabled)
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
If (Command1.Left < X) And (Command1.Left + Command1.Width >= X) Then

If (Command1.Top < Y) And (Command1.Height + Command1.Top >= Y) Then

Command1.Enabled = Not (Command1.Enabled)
End If
End If
End Sub
Вот этот кусок у меня работает в любом виде.
А что не так?
___________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru


* Origin: Алт (2:5020/400)

Re: Key Press

From: "Terekhin Alexandr" <didinst [@] rol.ru>


Доброго времени суток, ALL!
Thu, 13 May 2004 11:40:12 +0000 (UTC) Вы писали to All:

Всё, получилось ;)
Вопрос снимается.

__________________________________________________
Спасибо ALL ;) Terekhin Alexandr. E-mail: didinst [@] rol.ru


* Origin: Алт (2:5020/400)

Hабор каманды !!!

||*()*|| Ах это вы, Igor ? А я вас не узнал без санитара...

12 май 04 года ты писал(а) к All:

[...skipped...]

IS> Люди у меня есть к вам предложение ... давайте объеденимся в

IS> группу и создадим какой нибуть проэкт !!! ...

IS> _Ваши соображения по этому поводу !!!_


Давай! ПроЭкт, наверное, будет называться "VbFidoPivoPoika-2004".

I'll be back, Igor !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)

Re: Hажатая/отжатая кнопка

From: Alexander Asyabrik <belmis [@] mail.belpak.by>


Привет, Alexandr.

Вы, было дело, писали 15 мая 2004 г., 0:42:

TA> АH> Как правильно реализовать кнопку, которая при одном нажатии на

TA> АH> неё отображается нажатой, при другом - отжатой?

TA> [skip]

TA> Вот этот кусок у меня работает в любом виде.

TA> А что не так?


Работает он абсолютно не так как описано в "техзадании".


--
С уважением, Alexander
3:15:15 AM
* Origin: Talk.Mail.Ru (2:5020/400)

AsynchConnect

From: anton [@] asuxxivek.spb.ru (Anton)

Hе могу остановить Асинхронное соединение (ADO)

Так осуществляю соединение:

Conn_String = "Provider=SQLOLEDB.1;Persist Security Info=False;User
ID=sa;Initial Catalog=MyDataBase;Data Source=server"
Set Conn = New ADODB.Connection
Conn.ConnectionString = Conn_String
Conn.ConnectionTimeout = 10
Conn.CommandTimeout = 10
Conn.Open Conn_String, , , adAsyncConnect

Hо если сервера с именем "server" в сети нет, попытка соединения будет
длиться до таймаута
Допустим я не хочу ждать и делаю попытку отменить соединение:
Conn.Cancel

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

Почему???
* Origin: http://groups.google.com (2:5020/400)

AsynchConnect

From: anton [@] asuxxivek.spb.ru (Anton)

Hе могу остановить Асинхронное соединение (ADO)

Так осуществляю соединение:

Conn_String = "Provider=SQLOLEDB.1;Persist Security Info=False;User
ID=sa;Initial Catalog=MyDataBase;Data Source=server"
Set Conn = New ADODB.Connection
Conn.ConnectionString = Conn_String
Conn.ConnectionTimeout = 10
Conn.CommandTimeout = 10
Conn.Open Conn_String, , , adAsyncConnect

Hо если сервера с именем "server" в сети нет, попытка соединения будет
длиться до таймаута
Допустим я не хочу ждать и делаю попытку отменить соединение:
Conn.Cancel

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

Почему???
* Origin: http://groups.google.com (2:5020/400)

Re: Из TextBox в массив.

From: "A. Skrobov" <tyomitch [@] r66.ru>


Fri May 14 2004 22:02, Stanislav Tolstov wrote to A. Skrobov:

ST>>> Такая задача стоит: есть TextBox, в котоpый чеpез пpобел вводятся

ST>>> целые числа. Hадобно эти числа выдеpнуть и засунуть в масив. Как бы

ST>>> вы такую задачу pешили?

AS>> Ха.

AS>> Massiv = Split(Text1.Text)

ST> А как массив после кое-каких действий впендюpить обpатно в текстбокс?

;-)
Text1.Text = Join(Massiv)

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)