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

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

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

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


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

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

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

TA> Может что-нибудь наподобие

TA> Command1.Enabled = Not(Command1.Enabled)

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


* Origin: 1134 (2:5045/44.13)

Re: Key Press

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


Hello, Terekhin!
You wrote in conference fido7.ru.visual.basic to "All"
<fido7.ru.visual.basic [@] talk.ru>to All on Thu, 13 May 2004 11:40:12 +0000

(UTC):

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

TA> Сделал так:

[Sorry, skipped]
TA> Работает только внутри пректа. Как быть?

GetAsyncKeyState


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

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

Alexander Asyabrik - belmis [@] mail.belpak.by - свинья

From: Mike <mikeNOS [@] skeptik.net>


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

> The response will finalise your subscription to our

> mail list - 'Sex Library Pornletter'. Thank you.

[skip]
> To UN-Subscribe, return to:

> http://www.path.to/unsubscribeform-ifNotThis.htm

> Report Time: 13/05/2004 - 10:40

> subscriber route: 194.226.120.190


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)

Re: ProgressBar

From: "Gribkov M.N." <gribkov [@] ramon.vsi.ru>



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

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

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

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

Макс


"Stanislav Tolstov" <Stanislav.Tolstov [@] p33.f2192.n5020.z2.fidonet.org>

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

> Очеpедная задача.

> 1) Hужно, чтобы сабж отмечал выполнение некотоpого действия

(упоpядочивание
> массива).

> 2) Hеобходимо высветить вpемя выполнения этого действия (желетельно в

> микpосекундах или миллисекундах).

> Кто знает, как это осуществить, напишите, plz

>

> Hу, до скоpого



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

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

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


Доброго времени суток, Roman!
Thu, 13 May 2004 21:16:52 +0400 Вы писали to Terekhin Alexandr:
АH>>> Как правильно реализовать кнопку, которая при одном нажатии на неё

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

TA>> Может что-нибудь наподобие

TA>> Command1.Enabled = Not(Command1.Enabled)

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.Width >= Y) Then

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)

Re: Alexander Asyabrik - belmis [@] mail.belpak.by - свинья

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


Hello, Mike!
You wrote in conference fido7.ru.visual.basic to "All"
<fido7.ru.visual.basic [@] talk.ru> on Thu, 13 May 2004 14:57:56 +0000 (UTC):


M> Прошу прощения за оффтопик. И даже знаю, что, скорее всего, буду

M> отключен от этой эхи. Тем не менее считаю должным, чтобы все знали:

M> Alexander Asyabrik - подонок и свинья.

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


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

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

[+] Re: Alexander Asyabrik - belmis [@] mail.belpak.by - свинья

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

13 May 04 21:06:12 в RU.VISUAL.BASIC A. Skrobov -> Mike:


M>> Прошу прощения за оффтопик. И даже знаю, что, скорее всего, буду

M>> отключен от этой эхи. Тем не менее считаю должным, чтобы все знали:

M>> Alexander Asyabrik - подонок и свинья.

AS> Hу так закажи рассылку на 500 000 адресов, с текстом "Alexander Asyabrik -

AS> подонок и свинья", чтоб весь интернет знал ;-)

AS> Если серьёзно, то какое подписчикам дело до ваших личных отношений? Если

AS> тебя собака на улице укусит, ты об этом тоже сюда напишешь?


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

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

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

[!] Re: Alexander Asyabrik - belmis [@] mail.belpak.by - свинья

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

13 May 04 18:57:56 в RU.VISUAL.BASIC Mike -> All:


M> Прошу прощения за оффтопик. И даже знаю, что, скорее всего, буду отключен

M> от этой эхи.

[...]

Да. Будешь.

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

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

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

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

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

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

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


Hello, Aleksandr!
You wrote in conference fido7.ru.visual.basic to "All"
<fido7.ru.visual.basic [@] talk.ru>to All on Thu, 13 May 2004 19:58:00 +0400:


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

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

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)