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

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

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

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


msvbvm60.dll

Приветствую тебя, _All_ !


Вот заметил тут такую хрень.
В дистрибутиве ХP сабж весит 582 кб. а у меня в В2К он весит 1386496 байт.
Почему, какие отличия, как объясняется?
И в какие дистрибутивы Винды входит эта библиотека?


Hе скучай,_All_. С уважением,Виталий.

* Origin: (2:5096/19)


Re: 4000 строк в Dictionary

From: Alexander Asyabrik

Привет, A. Skrobov.

Вы, было дело, писали 14 июня 2004 г., 22:05:

AA>> Запихни в виде ресурса. И не обязательно String.
AS> А чем строковые константы в коде хуже?

А они, что, чем-то хуже? Разве что только тем, что всегда хранятся в
формате Unicode и, вообще, хрен его знает выдержит ли VB объявление
4000 констант в модуле. Пробовал это кто-нибудь?

AA>> .... Кроме как в некоем файле, хранить негде (как частный
AA>> случай внутри самого программного файла).
AS> В реестре, в инишнике, мало ли где человеку хочется...

То есть реестр и "инишка" это не файлы? А что это тогда?


--
С уважением, Alexander
12:04:32 AM



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


Как ???

Здорова Albert! Пишет тебе Igor

13.06.2004 10:08, Albert Einstein -> Igor Shilak:

AE> Пpиснилось мне как-то 12 июня 04, что Igor Shilak пpиходил к Roman
AE> Yuakovlev, и говоpил ему о Как ???
IS>> Коpоче к пpимеpу есть 4 TextBox и pядом с ними подписи, и надо по
IS>> нажатию на кнопку чтобы появлялась копия одной из стpок (все
IS>> стpоки одинаковые), а то что было ниже всего этого удалялось ещё
IS>> ниже !!!
AE> Коpоче, насколько я смог понять, человек с невеpоятным тpудом
AE> пытается объяснить, что хочет сделать обычные титpы. Я пpав? Если да,
AE> то у меня есть исходник.

Hе ... если было бы всё так просто, мне надо сделать следующее :
Стаит Label ну типо надпись, рядом с ней (в этой же строчке) стоит TextBox
и мне надо сделать так, чтобы при нажатии на кнопку ниже появился дубликат
этой строки (пустой), и всё что ниже было строки передвинулась ниже !!!
И желательно чтобы ответ был в ближайшие дни (1-2 максимум), а то мне прогу надо доделать уже к среде-четвергу, а у меня ещё и половина не сделана !!!
:(((
Помогите кто может, _ПОЖАЛУЙСТА_ !!!

С уважением, Igor

* Origin: NORA (2:5062/24.8)


документ Word в VB6

Привет, Anton!


AD> Есть база в SQL Server, в которой хранятся некоторые номера (5000
AD> номеров). Требуется динамически создать Doc Word документ с этими
AD> номерами.

AD> Hепосредственно как создавать документ я понял.

AD> Вывод этих 5000 номеров происходит сначало быстро,
AD> но через некоторое время замедляется так, что на вывод одного номера
AD> происходит секунд за 5 !

AD> Дальше самое интересное, если в этот момент вызвать контекстное меню в
AD> Ворде или нажать на кнопку "вниз" на скроллбаре (и держать), то все
AD> начинает летать :)

AD> Где искать решение этой проблемы ?

Самое простое решение - в обходных путях. Попробуй создавать HTML-страничку, а её экспортировать в формат doc. Hу или XML, Вёрд 2003 любит XML. Можно и самому создавать файл вёрда вручную (как я понял, документ создаётся через сам вёрд 8<). Могу дать (и даже адаптироватьпод эхотаг) пример на Дельфе.
В общем виде формат doc выглядит так:



The Microsoft Word programs store their documents in files. The info
comes from a magic file and my own (not working) sources, so it is very
unreliable except for identification.

OFFSET Count TYPE Description
0000h 1 dword ID=31BE00
0002h 1 byte Document type :
0 - MS Word text
1 - MS Text building block
2 - Printer description file(maybe wrong
topic)
0003h 1 byte ID=00
0004h 1 word ID=AB00h
ToolID, different for the different versions ?
0006h 6 word reserved(0)
0008h 1 dword Textbytes??? Whatever
000Ch 1 word Paragraph information
000Eh 1 word Foot note table
0010h 1 word Section property
0012h 1 word Section table
0014h 1 word Page table
0016h 64 char Style sheet path
0056h 1 word Windows Write page count
Can be used to identify Windows Write files,
because it is 0 for MS Word and nonzero for
Windows Write documents.
0058h 8 char Printer name
Used under MS Word / WinWord only
0060h 1 word MS Word page count
0062h 8 byte Document properties
006Ah 1 byte Word version this file was made by
006Bh 1 bool Autosave flag
006Ch 1 word Word 5 page table
006Eh 1 word Mac bkmk (whatever)
0070h 1 word ?Offset of file name for autosave?
0072h 1 word Running head table
0074h 1 word Code page used making this document

EXTENSION:DOC
PROGRAMS:MS Word,Windows Write, WinWord



Vlad
* Origin: Счастлив тот, кто мог познать причины вещей (2:5061/120.41)


Бpаузеp

RY>> Что мешает воспользоваться движком IE?
AA> Конечно забыл упомянуть, чтобы использовался на движке IE.
Add New Form/Browser

RY>> А самостоятельный паpсеp, да с поддеpжкой js и flash, ты навpятли
RY>> найдешь в
AA> [skip]

* Origin: 1134 (2:5045/44.13)


new class child

dim withevents newchild as child

set newchild = new child
newchild.boy = True
newchild.weight = 3?00
newchild.birthdate = 15-06-2004
newchild.name = "Artem"
newchild.father = Me

Я не жалуюсь, я хвастаюсь. ;)


* Origin: 1134 (2:5045/44.13)


new class child

From: "A. Skrobov"

Tue Jun 15 2004 19:51, Roman Yuakovlev wrote to All:

RY> dim withevents newchild as child
RY> set newchild = new child
RY> newchild.boy = True
RY> newchild.weight = 3?00
RY> newchild.birthdate = 15-06-2004
newchild.birthdate = #06/15/2004#

RY> newchild.name = "Artem"
RY> newchild.father = Me
Set newchild.father = Me

RY> Я не жалуюсь, я хвастаюсь. ;)
Хвастайся грамотно ;-)

* Origin: FidoNet Online (2:5020/175.2)


Массивы пользовательского типа

Good to see you, _A._!


A. Skrobov --> Alexei Gunyakov (14 Июня 2004, 23:10):
AS> Объяви класс и не мучайся:
AS> [NodeOfTree.cls]
AS> ==========================
AS> Public longRowCoordinate As Long
AS> Public longColumnCoordinate As Long
AS> ==========================

Объявил класс в отдельном классовом модуле:
Module1
==========================
Public longRowCoordinate As Long
Public longColumnCoordinate As Long
==========================

Module2
==========================
' Внутри одной из функции
Dim NodesInformation() As NodeOfTree
' CountOf AllCells возвращает количество занятых ячеек в рабочем листе
C = CountOfAllUsedCells(WS)
ReDim NodesInformation(1 To C) As NodeOfTree

' Тут мы пытаемся заполнить массив экземпляров класса NodesInformation
NodesInformation(k).longRowCoordinate = 34 ' Ошибка здесь!
REM=====================================================
REM Object variable or With block variable not set (Error 91)
REM======================================================

' Затем должен произойти этот вызов:
FromLinkedListToTreeView NodesInformation, WS ' (***)
==========================

Module 3
===========================
' Принимаем массив объектов NodeOfTree и Рабочий Лист
Public Sub FromLinkedListToTreeView(ByRef NL() As NodeOfTree, ByVal WS As String) ' (******)
Dim WWS As Worksheet
Set WWS = Worksheets(WS)
Dim SuperNode As node ' Посредник
Dim NodeList As Variant
NodeList = NL()

For f = 1 To CountOfAllUsedCells(WS)
' Тут планируется процедура уборки всех узлов из дерева
Set SuperNode = TreeForm.Nodes.Add(, tvwNext, , _ NodeList(f).longRowCoordinate,1)
Next f
End Sub
===========================
Как передать массив(объектов, переменных, пользовательского типа) в качестве аргумента в функцию?
Строка (***) правильно написано, если NodesInformation - массив экземпляров класса NodeOfTree?
Как его обрабатывать внутри этой функции? В скобках первым аргументов в функции FromLinkedListToTreeView что должно быть?(******)

Задача: передать массив пользовательского типа NodeOfTree как аргумент в функцию обработки
FromLinkedListToTreeView.


* Origin: Riddle here, riddle there. Riddles almost everywhere (2:5011/105.52)


Алгоритм подсчёта узлов дерева

Good to see you, _All_!


Разыскивается алгоритм подсчёта количества всех узлов в TreeView, нижележащих по отношению к данному. Nodes(i).Children не подходит, т.к. возвращает только детей, а мне необходимо подсчитать также детей этих детей, детей детей этих детей :) и т.д.


* Origin: Riddle here, riddle there. Riddles almost everywhere (2:5011/105.52)


Re: Hайти модем

Hello Vitaliy!

Sunday June 13 2004 18:49, Vitaliy Pryahin wrote to All:

VP> Как точно определить на каком/каких портах висит модем?
VP> делаю так:

VP> For X12 = 1 To 6
VP> Comm1.CommPort = X12
VP> Comm1.Settings = "9600,N,8,1"
VP> 'Используем весь буфер


VP> при написании проги все работает, но вот откомпилированная не рабротает.

Вот что я использую
=== Cut ===
Function IsModem() As Byte 'Поиск модема
'Возвращает номер порта, на котором найден включенный модем
'или 0, если включенный модем не найден
Dim port As Byte, x As Integer
port = 1
PortinG:
On Error GoTo errr:
MSComm1.CommPort = port
MSComm1.PortOpen = True
MSComm1.Settings = "9600,N,8,1"
MSComm1.Output = "AT" + vbCr
x = 1
Do: DoEvents
x = x + 1
If x = 1000 Then MSComm1.Output = "AT" + vbCr
If x = 2000 Then MSComm1.Output = "AT" + vbCr
If x = 3000 Then MSComm1.Output = "AT" + vbCr
If x = 4000 Then MSComm1.Output = "AT" + vbCr
If x = 5000 Then MSComm1.Output = "AT" + vbCr
If x = 6000 Then MSComm1.Output = "AT" + vbCr
If x = 7000 Then
errr:
If Err.Number = 20 Then GoTo PortinG 'Игнорировать ошибку 20 Resume without error
If MSComm1.PortOpen Then MSComm1.PortOpen = False
port = port + 1
If MSComm1.CommPort > 5 Then IsModem = 0: Exit Function
Resume PortinG: 'Здесь возникала ошибка 20 Resume without error
End If
Loop Until MSComm1.InBufferCount >= 2
MSComm1.PortOpen = False
IsModem = port
End Function
=== Cut ===

Alex

* Origin: Слушайте зайчики деда Мазая (FidoNet 2:5090/105.8)



Назад Содержание Вперед