Visual Basic 6.0 - Hажатая/отжатая кнопка

Сколько раз ты сможешь нажать такую кнопку? Максимум - один. ;)


* Origin: 1134 (2:5045/44.13)




Hello, Terekhin!
You wrote in conference fido7.ru.visual.basic to "All"

(UTC):



[Sorry, skipped]

GetAsyncKeyState


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--

* Origin: Talk.Mail.Ru (2:5020/400)




Прошу прощения за оффтопик. И даже знаю, что, скорее всего, буду отключен
от этой эхи. Тем не менее считаю должным, чтобы все знали: Alexander
Asyabrik - подонок и свинья. Когда я намекнул ему на не совсем корректное
поведение в эхе, он в ответ подписал меня на несколько списков рассылки. В
частности, парочку порнушных. Только вот он еще оказался и идиотом, потому что
1) Все уважающие себя рассылки шлют confirmation на тот email, который был
подписан. Пока ты не ответишь на confirmation, кликнув по специально
сгенерированному линку, никакой подписки не будет.
2) В confirmation указывается IP-адрес, с которого произведена подписка.
Примерно так:



[skip]





194.226.120.190 - это тот самый IP, который стоит в хедерах писем от
Alexander Asyabrik, полученных мной мылом. Так что сейчас об этом узнает и
Белпак, и БелМИС.

--
Best regards
(M)ike
При ответе на e-mail убрать из адреса NOS

* Origin: Best antimagic/antiUFO cure: http://skeptik.net (2:5020/400)





Если есть возможность определить общее количество элементов в массиве, а
также текущий элемент,
который сейчас сортируется (грубо говоря), то проблем с самим прогресс баром
быть не должно.

Имхо, определить количество элементов не проблема, есть фукнция Ubound (а
также Lbound), остается только
в тело цикла сортировки воткнуть соответствующее изменение прогресса. Тут
правда есть вопрос о методах сортировки.
Hо это другой разговор.

Про время. Если имеется в виду, что нужно узнать "Ожидаемое время", то это
краней сложно. Все зависит от
компьютера и сисетмы на которой ваше приложение будет выполнятся. Другими
словами - это практически
не прогнозируемый процесс. Другой разговор, если нужно определить время
сортировки, так это просто:
вначале сортировки читаем текущее время (Через API это можно сделать более
точно), присваиваем переменной,
после окончания - снова читаем и присваиваем другой переменной, разница
переменных и будет время выполнения.
Если хочется выводить время от нуля до конца процесса выполнения, так это
тоже можно делать точно также, так как
разница во времени, между стартом и текущем элементом и будет результатом
времени, который можно выводить в лабель
в момент обновления состояния прогресс бара.

Может я чего не понял, но в принципе все это достаточно легко осуществимо.

Макс



сообщил/сообщила в новостях следующее:
news:1084830691 [@] p33.f2192.n5020.z2.ftn...



(упоpядочивание








* Origin: VoronezhSvyazInform ISP News Server (2:5020/400)




Доброго времени суток, Roman!
Thu, 13 May 2004 21:16:52 +0400 Вы писали to Terekhin Alexandr:






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)


Command1.Enabled = Not (Command1.Enabled)
End If
End If
End Sub

А теперь? Знаю, что через )(, но ведь работает же ;)
___________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru


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


Привет , All!

Киньте пару примерчиков по сабжу. Заранее спасибо.

Всего наилучшего , All!

* Origin: Death is out there ... (2:5022/177.91)




Hello, Mike!
You wrote in conference fido7.ru.visual.basic to "All"





Hу так закажи рассылку на 500 000 адресов, с текстом "Alexander Asyabrik -
подонок и свинья", чтоб весь интернет знал ;-)
Если серьёзно, то какое подписчикам дело до ваших личных отношений? Если
тебя собака на улице укусит, ты об этом тоже сюда напишешь?


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--

* Origin: Talk.Mail.Ru (2:5020/400)


Мы где-то виделись, A.?











[+] - оффтопик.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Мы где-то виделись, Mike?





[...]

Да. Будешь.

[!] - письмо не по теме конференции
- оскорбление подписчика
- _сознательное_ нарушение правил

2All: Поскольку оффтопичность этого письма не вызывает сомнений, то
плюсоваться будут все письма по данной теме. _Все_, а не только те, что
отправлены после сего модераториала.

Всего хорошего!
Дмитрий Козырев aka Master

P.S. Если я не пишу в конференцию, это не значит, что я ее не просматриваю.

* Origin: Дорогу осилит идущий. (2:5023/11.148)




Hello, Aleksandr!
You wrote in conference fido7.ru.visual.basic to "All"



Поскольку ты не сказал, какой именно код нужен, даю пример кода Морзе.
=========Beginning of the citation==============
Public Function Morse(ByVal Data As String) As String
Dim chr As Byte, Result As String
Data = UCase(Data)

chr = Asc(Data): Data = Mid$(Data, 2)
Result = Result & Choose(chr - 32, "--..--", ".-..-.", "", "", "", "",
".----.", "-.--.-", "-.--.-", "", "", ".-.-.-", "-....-", ".....", "-..-.",
"-----", ".----", "..---", "...--", "....-", ".....", "-....", "--...",
"---..", "----.", _
"---...", "-.-.-", "", "-...-", "",
"..--..", ".--.-.", ".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....",
"..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.", "--.-", ".-.",
"...", "-", "..-", "...-", ".--", "-..-", "-.--", "--..") & " "
Wend
Morse = Result
End Function

=========The end of the citation================
Hехватает только русских букв.
Пример файлового ввода-вывода нужен?


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--

* Origin: Talk.Mail.Ru (2:5020/400)