Visual Basic 6.0 - msvbvm60.dll

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


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


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

* Origin: (2:5096/19)




Привет, A. Skrobov.

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




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





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


--
С уважением, Alexander
12:04:32 AM
* Origin: Talk.Mail.Ru (2:5020/400)


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













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

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

* Origin: NORA (2:5062/24.8)


Привет, Anton!


















Самое простое решение - в обходных путях. Попробуй создавать 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)




Add New Form/Browser





* Origin: 1134 (2:5045/44.13)


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)




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






newchild.birthdate = #06/15/2004#



Set newchild.father = Me


Хвастайся грамотно ;-)

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)


Good to see you, _A._!










Объявил класс в отдельном классовом модуле:
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)


Hello Vitaliy!

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












Вот что я использую
=== 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

Resume PortinG: 'Здесь возникала ошибка 20 Resume without error
End If

MSComm1.PortOpen = False
IsModem = port
End Function
=== Cut ===

Alex

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