Visual Basic 6.0 - Hабор каманды !!!

Доброго времени суток, Ivan!
Sat, 15 May 2004 21:51:36 +0400 Вы писали to Terekhin Alexandr:





Ладно, уговорили ;)
Hу раз делать, то уж только HTTP сервер ;)
___________________________________________________________


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


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








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)


Привет Albert!






http://gpch.int3.net/doc/Asm2VB.rar
^^^
Ошибся, ну ничего, как в инет выйду - поправлю

С уважением, Sergey (web: http://gpch.narod.ru email: gpch_soft [@] tula.net)

* Origin: Потому что нельзя, потому что нельзя быть массивной т (2:5022/63.30)




Привет, Andrey.

Вы, было дело, писали, 7:39 18.05.04:




Если используешь вордовский объект в коде программы на 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)




Hello, Max!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"

+0400:






С учётом регистра, на неравную по длине. Я запостил мой вариант, можешь
сделать быстрее, хотя бы чтоб было сравнимо по скорости со строками - с
удовольствием посмотрю. А то рассуждать "будет быстрее - не будет быстрее"
можно долго. И безрезультатно.


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

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




Hi Sergey!







Все, кто хотел - давно скачали, ибо ошибка прямо в глаза бросается. А прога -
полезная, спасибо.


--
With best regards
Dmitry Viazowkin


* Origin: Me? Organized??? (2:5020/400)















А ты не доказал даже простейшего знания - знания русского языка, чтобы с тобой могли возникнуть какие-то отношения. А если хочется - тут уж извини, конференция тебе не помошник.


* Origin: 1134 (2:5045/44.13)














А что даст сотрудничество с тобой? У тебя есть опыт, каналы, хотя бы несколько сот тысяч скачиваний на твоих проектах?


* Origin: 1134 (2:5045/44.13)


Привет, All!

Может кто знает, как определмть средствами vb6, какая винда - subj?
* Origin: -+=biZZon=+- (2:5003/7.59)




Как заставить subj попрыгать, шевелиться и т.д? Желательно исходник.

HаФаня. Уфа, 2004г. н.э.


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