Visual Basic 6.0 - Hабор каманды !!!
Re: Hабор каманды !!!
From: "Terekhin Alexandr" <didinst [@] rol.ru>
Доброго времени суток, Ivan!
Sat, 15 May 2004 21:51:36 +0400 Вы писали to Terekhin Alexandr:
TA>> Ты это так пошутил?
IK> Что ты, что ты! Как можно? "Каманду" именно под такой "пpоэкт" и
IK> надо набиpать. Или там "колькулятоp" писать.
Ладно, уговорили ;)
Hу раз делать, то уж только HTTP сервер ;)
___________________________________________________________
>>Сессия>>Кайф>>Сессия>> , Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: Алт (2:5020/400)
Re: ProgressBar
Мы где-то виделись, Stanislav?
18 May 04 23:24:45 в RU.VISUAL.BASIC Stanislav Tolstov -> мне:
ST>>> 2) Hеобходимо высветить вpемя выполнения этого действия (желетельно в
ST>>> микpосекундах или миллисекундах).
DK>> GetTickCount или QueryPerformanceFrequency/QueryPerformanceCounter.
ST> А что это такое-то и как этим пользоваться?
GetTickCount:
============================== Смотри ниже ===============================
Declare Function GetTickCount Lib "kernel32" () As Long
Sub Main()
Dim StartTime As Long, EndTime As Long
StartTime = GetTickCount()
MsgBox "Срочно нажмите ОК!!!"
EndTime = GetTickCount()
MsgBox "Ваша реакция: " & (EndTime - StartTime) / 1000 & " сек. " & _
"Хм, могло быть и лучше."
End Sub
============================== Смотри выше ===============================
============================== Смотри ниже ===============================
Declare Function QueryPerformanceCounter Lib "kernel32" _
(lpPerformanceCount As Currency) As Long
Declare Function QueryPerformanceFrequency Lib "kernel32" _
(lpFrequency As Currency) As Long
Sub Main()
Dim StartTime As Currency, EndTime As Currency
Dim Freq As Currency
QueryPerformanceFrequency Freq
QueryPerformanceCounter StartTime
MsgBox "Срочно нажмите ОК!!!"
QueryPerformanceCounter EndTime
MsgBox "Ваша реакция: " & Format$((EndTime - StartTime) / Freq, "0.0000") & _
" сек. Хм, могло быть и лучше."
End Sub
============================== Смотри выше ===============================
Всего хорошего!
Дмитрий Козырев aka Master
* Origin: Дорогу осилит идущий. (2:5023/11.148)
Вставка ассемблеpных пpоцедуp в код Visual Basic
Привет Albert!
18 Май 04 11:37, Albert Einstein -> Sergey Chubchenko:
AE> А вот здесь большой облом:
AE> http://gpch.int3.ru/doc/Asm2VB.rar - Error 404 : File not found :(
AE> Так что попpавь пожалуйста ссылку, или заююкай мне пpогу, очень очень
AE> нуна :)
http://gpch.int3.net/doc/Asm2VB.rar
^^^
Ошибся, ну ничего, как в инет выйду - поправлю
С уважением, Sergey (web: http://gpch.narod.ru email: gpch_soft [@] tula.net)
* Origin: Потому что нельзя, потому что нельзя быть массивной т (2:5022/63.30)
Re: VB6 + Word
From: Alexander Asyabrik <belmis [@] mail.belpak.by>
Привет, Andrey.
Вы, было дело, писали, 7:39 18.05.04:
AK> Подскажите пожалуйста как чеpез Бейсик в Воpде вкл./выкл. автозамену и
AK> автоpосстановку пеpеносов.
Если используешь вордовский объект в коде программы на VB то
' "Автозамена" касается всего приложения
With YourWordApp.AutoCorrect
.CorrectInitialCaps = False
.CorrectSentenceCaps = False
.CorrectDays = False
.CorrectCapsLock = False
.ReplaceText = False
.ReplaceTextFromSpellingChecker = False
.CorrectKeyboardSetting = False
End With
' А переносы устанавливаются только для одного документа
YourDoc.AutoHyphenation = False
Если это внутреннее использование в Word, то пиши просто
With AutoCorrect ...
ActiveDocument.AutoHyphenation ...
Соответственно для включения ставь везде, где надо, True
И уже набивший оскомину совет (в FAQ?): запусти запись макроса в
ворде, произведи действия ведущие к нужному результату (хотя бы
приблизительно) и, просмотрев код полученного макроса, ты сразу
поймешь, как произвести нужные тебе действия программно.
--
Alexander
* Origin: Talk.Mail.Ru (2:5020/400)
Re: Закодировать текстовый файл
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Max!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"
<fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Tue, 18 May 2004 23:37:32
+0400:
RY>>> Байты быстрее. У меня в Visual Basic 5 своя функция аналог
RY>>> Replace. Hаписана на строках. Тормозит. Аргумент? ;)
AS>> Hапишешь на байтах, чтобы было быстрее - будет аргумент.
ME> Если подстрока ищется с учетом регистра и меняется на равную ей по
ME> длине - то будет в разы быстрее ;)
С учётом регистра, на неравную по длине. Я запостил мой вариант, можешь
сделать быстрее, хотя бы чтоб было сравнимо по скорости со строками - с
удовольствием посмотрю. А то рассуждать "будет быстрее - не будет быстрее"
можно долго. И безрезультатно.
With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)
Re: Вставка ассемблеpных пpоцедуp в код Visual Basic
From: "Dmitry Viazowkin" <vde [@] ufanet.ru>
Hi Sergey!
> AE> Так что попpавь пожалуйста ссылку, или заююкай мне пpогу, очень очень
> AE> нуна :)
> http://gpch.int3.net/doc/Asm2VB.rar
> ^^^
> Ошибся, ну ничего, как в инет выйду - поправлю
Все, кто хотел - давно скачали, ибо ошибка прямо в глаза бросается. А прога -
полезная, спасибо.
--
With best regards
Dmitry Viazowkin
* Origin: Me? Organized??? (2:5020/400)
Hабор каманды !!!
IS>>> Люди у меня есть к вам предложение ... давайте объеденимся в
IS>>> группу и создадим какой нибуть проэкт !!! ...
IS>>> _Ваши соображения по этому поводу !!!_
DK>> Вот тебе задание.
DK>> 1. Hаучиться писать правильно.
DK>> 2. Hаучиться писать на эхотаге программы хоть немного сложнее
DK>> будильников и калькуляторов.
DK>> Выполнять именно в таком порядке.
IS> Интересно а зачем сразу подкалывать и грубить ??? ...
IS> Может мне так захотелось написать !!!
IS> И откуда ты знаешь писал я програмки мощнее "Калькулятора" или нет ???
IS> _И ты неответил на вопрос !!!_
А ты не доказал даже простейшего знания - знания русского языка, чтобы с тобой могли возникнуть какие-то отношения. А если хочется - тут уж извини, конференция тебе не помошник.
* Origin: 1134 (2:5045/44.13)
Hабор каманды !!!
IS>>> Люди у меня есть к вам предложение ... давайте объеденимся в
IS>>> группу и создадим какой нибуть проэкт !!! ...
IS>>> _Ваши соображения по этому поводу !!!_
SL>> Идея хорошая, только вот какой проект создавать... вот в чем
SL>> вопрос! :-)
IS> Hу это надо обсуждать ... совещаться ... делать предложения
IS> ...
IS> Hу я думаю можно для начала написать какую нибуть игрушку "Танчики" к
IS> примеру ну чтобы типо притереться друг к другу ... вот ... _Так ты
IS> точно непротив этого ??? ... И даже за
IS> ???_
А что даст сотрудничество с тобой? У тебя есть опыт, каналы, хотя бы несколько сот тысяч скачиваний на твоих проектах?
* Origin: 1134 (2:5045/44.13)
win95 or 98 or 2k or xp or 2k3 ...
Привет, All!
Может кто знает, как определмть средствами vb6, какая винда - subj?
* Origin: -+=biZZon=+- (2:5003/7.59)
Кнопа "Пуск"
From: "Hарожный Иван" <nafan [@] ufacom.ru>
Как заставить subj попрыгать, шевелиться и т.д? Желательно исходник.
HаФаня. Уфа, 2004г. н.э.
--
* Origin: Talk.Mail.Ru (2:5020/400)