Visual Basic 6.0 - Минимальный состав VBRun60

^^^^^^^^^^^^
Этот файл не входит в VBRun60. Если в проекте есть на него ссылка - значит,
он нужен.







Чтобы избежать проблем несовместимости, я советую включать все файлы.
comdlg32.ocx нужен всегда, в состав ни одной ОС он не входит. Остальные
файлы есть в ME/NT4SP4/2000/XP/2003, хотя не обязательно нужной версии.
Допустимость использования несвежей версии Runtime можно выяснить только
тестированием, поскольку неизвестно, создаются ли в программе условия для
проявления багов, исправленных в новых версиях. Для ME/NT4SP6/2000 из
Runtime достаточно только файла msvbvm60.dll, остальные файлы там уже есть
новее, чем в Runtime от VB6SP5, в XP/2003 msvbvm60.dll обновлять тоже не
надо. Для 95/98 придется включать в дистрибутив полный комплект. Особенно
хочу подчеркнуть недопустимость частичного обновления системных библиотек:
их всегда надо обновлять в комплекте, иначе вполне вероятно, что система у
пользователя начнет глючить, притом, скорее всего, не в свежеустановленной
программе, а где-то в другом месте.

Кстати, хочу заметить, что в Win2003 включена новая версия msvbvm60.dll, в
которой исправлено немало багов. Hовую версию Runtime можно скачать с сайта
Microsoft и включать в дистрибутивы:
http://activex.microsoft.com/controls/vb6/vbrun60.cab. В статье 823746
описано, что исправили.

--
Сергей Мерзликин
http://www.smsoft.ru/ru/
sm [@] smsoft.ru


* Origin: Sovintel (2:5020/400)


Здоpовица Вам, Alexander!

И был pазговоp _14 февpаля 2004_ по вpемени в _17:43_, *Alexander Belinsky* к
*Alexandr Galitskij* о "Ассоциация пpогpаммы с pасшиpением файла."








Пyтанно, но pазобpалcя. Заpаботало.



Я тоже чаcтично воcпользовалcя инcталятоpом. :)

Ухожy не пpощаясь, Alexandr.
Чеpти что! ... и сбокy Батник.
* Origin: И было вpемя - и было оно интеpесно... (2:5055/115)


Добpый день\утpо\вечеp\ночь, достопочтимый Dmitriy !









не, не pаботает :-(
точнее заpезеpвиpовано токо для Макинтошей,
но я и сам читал по этому поводу, что МС pазpешает только

нашёл способ изхитpиться и обойти это,
ну как, напpимеp, с постpоением пpостой DLL-ки етс.

вобщем, пpидётся, видать, свой пеpеходничек пpописывать ...


поподpобнее о её возможностях pасскажи, плз.

С бестами и pегаpдами
Dmitry ds [@] u-kon.ru
* Origin: Hичто не слишком! (2:5015/23.70)


* Crossposted in RU.VISUAL.BASIC.CHAINIK
Привет, All!

Пpогpамму на VB можно как-нибудь обpатно в исходник (пусть и с потеpянными именами) пеpевести?




* Origin: Что наша жизнь?... ИГРА! (ролевая, ход 8189) :) (2:478/55)




Hello, Sergey!
You wrote to Андрущенко \(Hордлинк\) on Sun, 15 Feb 2004 22:00:01 +0000
(UTC):









Где-то на vbrussian.com лежит класс, прекрасно реализующий функции
comdlg32.ocx через API. Только им и пользуюсь.

With best regards, Ivan Nikolaev


* Origin: Demos online service (2:5020/400)


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







Первое, что приходит на ум - BitBlt.

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

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




Здравствуйте, Andrew.

Вы писали 15 февраля 2004 г., 10:53:19:







Эта штука называется "Image List"
в свое время пытался приблизиться к его скорости прорисовки функциями
BitBlt и пр., ничего не вышло - у меня моргало, а там нет, хотя битмап
раза в 4 больше (примерно 200 х 200 пикселей) по экрану таскал, и это
на P75 с видяхой S3 Trio.


--
С уважением,
Martynov Sergey
* Origin: Talk.Mail.Ru (2:5020/400)




Hello, Dmitriy!

16 Feb 2004 13:06:26 +0300:





Второе, что приходит на ум - TransparentBlt


--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022
* Origin: Talk.Mail.Ru (2:5020/400)


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







Я ее сейчас переписываю. Думаю, в ней будет следующее:

вызов функции по указателю (stdcall и cdecl), при этом можно описать
"прототип" этой функции через Declare (спасибо за совет Антону Лобастову);


колбэковые вызовы от функций, требующих cdecl-колбэков.

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

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


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








Сравнивались скорости обращения к переменным и свойствам для раннего (As
Class2) и для позднего (As Object и As Variant) связывания.

Итак, создайте Standard Exe Project1 с модулем:

============================== Смотри ниже ===============================
Option Explicit

Private Declare Function QueryPerformanceCounter Lib "kernel32" _
(lpPerformanceCount As Currency) As Long
Private Declare Function QueryPerformanceFrequency Lib "kernel32" _
(lpFrequency As Currency) As Long

Sub Main()
Const n = 1024
Dim i&, r&, j&, o$

Dim av(1 To n) As Variant
Dim ad(1 To n) As Object
Dim ai(1 To n) As Class2

Dim s [@] , e [@] , f [@]
QueryPerformanceFrequency f

For i = 1 To n
Set ai(i) = New Class2
Set ad(i) = ai(i)
Set av(i) = ai(i)
Next i

QueryPerformanceCounter s
For i = 1 To n
With ai(i)
For j = 1 To 256
r = .A + .B + .C
Next j
End With
Next i
QueryPerformanceCounter e
o = o & "Interface, variable: " & vbTab & Format$((e - s) / f, "0.000") &
vbCrLf

QueryPerformanceCounter s
For i = 1 To n
With ai(i)
For j = 1 To 256
r = .PropertyA + .PropertyB + .PropertyC
Next j
End With
Next i
QueryPerformanceCounter e
o = o & "Interface, property: " & vbTab & Format$((e - s) / f, "0.000") &
vbCrLf & vbCrLf

QueryPerformanceCounter s
For i = 1 To n
With ad(i)
For j = 1 To 256
r = .A + .B + .C
Next j
End With
Next i
QueryPerformanceCounter e
o = o & "IDispatch, variable: " & vbTab & Format$((e - s) / f, "0.000") &
vbCrLf

QueryPerformanceCounter s
For i = 1 To n
With ad(i)
For j = 1 To 256
r = .PropertyA + .PropertyB + .PropertyC
Next j
End With
Next i
QueryPerformanceCounter e
o = o & "IDispatch, property: " & vbTab & Format$((e - s) / f, "0.000") &
vbCrLf & vbCrLf

QueryPerformanceCounter s
For i = 1 To n
With av(i)
For j = 1 To 256
r = .A + .B + .C
Next j
End With
Next i
QueryPerformanceCounter e
o = o & "Variant, variable: " & vbTab & Format$((e - s) / f, "0.000") &
vbCrLf

QueryPerformanceCounter s
For i = 1 To n
With av(i)
For j = 1 To 256
r = .PropertyA + .PropertyB + .PropertyC
Next j
End With
Next i
QueryPerformanceCounter e
o = o & "Variant, property: " & vbTab & Format$((e - s) / f, "0.000")

MsgBox o
Open App.Path & "\results.txt" For Output As 1
Print #1, o
Close #1
End Sub
============================== Смотри выше ===============================

Потом добавьте проект ActiveX Dll Project2 с классом Class2:

============================== Смотри ниже ===============================
Option Explicit

Public A As Long
Public B As Long
Public C As Long

Private mA As Long
Private mB As Long
Private mC As Long

Public Property Get PropertyA() As Long
PropertyA = mA
End Property

Public Property Let PropertyA(ByVal v As Long)
mA = v
End Property

Public Property Get PropertyB() As Long
PropertyB = mB
End Property

Public Property Let PropertyB(ByVal v As Long)
mB = v
End Property

Public Property Get PropertyC() As Long
PropertyC = mC
End Property

Public Property Let PropertyC(ByVal v As Long)
mC = v
End Property
============================== Смотри выше ===============================

Добавьте Project2 в референсы первого проекта.

Итак, результаты получились следующими:

Запуск из IDE:

Interface, variable: 0,326
Interface, property: 1,534

IDispatch, variable: 29,501
IDispatch, property: 20,848

Variant, variable: 29,703
Variant, property: 21,250

Запуск откомпилированных проектов:

Interface, variable: 0,087
Interface, property: 0,284

IDispatch, variable: 31,395
IDispatch, property: 21,427

Variant, variable: 31,546
Variant, property: 21,530

Забавно, что в случае позднего связывания свойства оказались быстрее
переменных.

Вывод: можно смело использовать свойства вместо переменных - потеря в
производительности будет очень незначительная.

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

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