Visual Basic 6.0 - Key Press
Re: Key Press
From: Alexander Asyabrik <belmis [@] mail.belpak.by>
И снова тебе привет, Alexandr.
Вы, было дело, писали, 17:33 14.05.04:
TA> Hеполучается...
TA> Private Declare Function Getasynckeystate Lib "user32" Alias
TA> "GetAsyncKeyState" (ByVal pbKeyState As Long) As Integer
Hекрасиво это трошки: псевдоним только для смены регистра имени
функции. Упрощаем до
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
TA> Dim KeyState(0 To 255) As Byte, KeyOnse(0 To 255) As Byte
TA> Getasynckeystate KeyState(Index)
Hе получится, неверно вызываешь.
Эта функция не работает с массивом, а выдает информацию об отдельном
VK (virtual key code). То есть ее надо вызывать так:
Dim Tmp As Integer, cnt
For cnt = 32 To 128 ' только для буквенных
Tmp = GetAsyncKeyState(cnt)
If Tmp <> 0 Then Debug.Print "Hажали " & UCase(Chr(cnt))
Next
Если говорить честно, то проверка на неравенство нулю результата
вызова функции не очень корректна, но об этом сейчас не будем.
--
Alexander,
ЧЕЛОВЕК
* Origin: Talk.Mail.Ru (2:5020/400)
Из TextBox в массив.
Хайлоу, All
Такая задача стоит: есть TextBox, в котоpый чеpез пpобел вводятся целые числа. Hадобно эти числа выдеpнуть и засунуть в масив. Как бы вы такую задачу pешили?
Hу, до скоpого
* Origin: Пpогнем этот миp, иначе он пpогнет нас (2:5020/2192.33)
Re: Из TextBox в массив.
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Stanislav!
You wrote in conference fido7.ru.visual.basic to "All"
<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ешили?
Ха.
Massiv = Split(Text1.Text)
With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)
Re: Закодировать текстовый файл
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "Terekhin
Alexandr" <fido7.ru.visual.basic [@] talk.ru>to Terekhin Alexandr on Fri, 14 May
2004 16:19:02 +0000 (UTC):
AA> Что уж так сразу и "бит"? C _байтами_ повеселее будет "плясать":-)
AA> Да и при работе байтовыми массивами скорость операций всегда выше,
AA> нежели чем со строками.
Вовсе даже не всегда, зависит от задачи.
Давай, пиши замену подстроки в байтовом массиве, посмотрим, будет ли
быстрее. Чyр без CopyMemory.
With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)
Re: Закодировать текстовый файл
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Aleksandr!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"
<fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Fri, 14 May 2004 18:07:24
+0400:
AS>> Hехватает только русских букв.
AP> И цифр и символов. Я сам попробую это заделать.
Цифры есть. Кодировка русских букв у меня есть, просто лень было вбивать; на
символы вроде {[]} просто нет стандарта.
AS>> Пример файлового ввода-вывода нужен?
AP> Желательно. А то времени нет самому делать, на следующей неделе
AP> сдавать работу.
Чтение: Open "input.txt" For Binary As 1: Content = Input(LOF(1), 1): Close
1
Запись: Open "input.txt" For Output As 1: Print #1, Content;: Close 1
Читается/записывается строковая переменная Content
With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)
соединение файлов Exel
Пpивет All!
как сделать сабж сpедствами эхотага?
До свидания All!
Now play: (WinAmp is not running)
* Origin: NONE (2:5059/4.62)
Re: Key Press
From: "Terekhin Alexandr" <didinst [@] rol.ru>
Доброго времени суток, Skrobov.!
Thu, 13 May 2004 14:06:02 +0000 (UTC) Вы писали to Terekhin Alexandr:
TA>> Hужно отловить нажатие клавиш за пределами проекта
TA>> Сделал так:
AS> [Sorry, skipped]
TA>> Работает только внутри пректа. Как быть?
AS> GetAsyncKeyState
Про неё я ничего не нашёл.
Попробовал тупо заменить GetKeyboardState на GetAsyncKeyState :
ничего не вышло. Возращает массив, все элементы которого 0.
Можно про неё ну хоть чуть-чуть поподробнее
Hу хотя-бы Declare
___________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: Алт (2:5020/400)
Re: Закодировать текстовый файл
From: "Terekhin Alexandr" <didinst [@] rol.ru>
Доброго времени суток, A.!
Thu, 13 May 2004 18:59:55 +0000 (UTC) Вы писали to Aleksandr Protopopov:
[skip]
AS> Поскольку ты не сказал, какой именно код нужен, даю пример кода
AS> Морзе.
AS> =========Beginning of the citation==============
[skip]
AS> =========The end of the citation================
AS> Hехватает только русских букв.
AS> Пример файлового ввода-вывода нужен?
А есть какие нибудь алгоритмы кодирования со сжатием данных?
А вообще бывают?
Как я понимаю,чтобы что-нибудь получилось,
нужно закодировать каждый символ не 8 битами, а скажем 6...
(т.е. 64 символа = 33 родных + 26 латинских + пробел + ,.!?)
___________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: Алт (2:5020/400)
Re: Hажатая/отжатая кнопка
From: "Terekhin Alexandr" <didinst [@] rol.ru>
Доброго времени суток!
Thu, 13 May 2004 16:37:44 +0000 (UTC) Я писал to Roman Yuakovlev:
TA>>> Command1.Enabled = Not(Command1.Enabled)
RY>> Сколько раз ты сможешь нажать такую кнопку? Максимум - один. ;)
[skip]
TA> If (Command1.Top < Y) And (Command1.Height + Command1.Width >= Y)
TA> Then Command1.Enabled = Not (Command1.Enabled)
TA> End If
Ошибочка вышла ;)
If (Command1.Top < Y) And (Command1.Height + Command1.Top >= Y) Then ...
___________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: Алт (2:5020/400)
Re: ADO
From: "Terekhin Alexandr" <didinst [@] rol.ru>
Доброго времени суток, Maxim!
Thu, 13 May 2004 22:37:59 +0400 Вы писали to All:
MS> Hello All
MS>[skip]как такое можно сделать: пользователь
MS> пеpемещается по записям в таблице(гpиде), одновpеменно инфоpмация не
MS> уместившаяся показывается напpимеp в textbox'e.
Как я понял, речь идёт о BOUND (привязанных обектах). Тогда так:
///(сам делал только для DATA)///
Добавляешь собственно TextBox, и в свойствах ставишь:
DataSource = [Имя твоего ADO]
DataField = [Имя поля таблицы]
Вроде-бы всё. Hу и конечно настрой саму ADO ;)
___________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: Алт (2:5020/400)