А можно ли организовать массив, в котором будут содержаться картинки Word?

А можно ли организовать массив, в котором будут содержаться диаграммы Word? Очень неохота рисовать 40 одинаковых форм для OLE-объектов. К тому же число диаграмм заранее неизвестно. Поэтому хотелось бы чтобы он при этом был еще и изменяемым. Если кто знает как, подскажите, пожалуйста. Или подскажите где прочитать.

Заранее благодарен

Hmm, a za4em tebe risovat' 40 OLE component, sdelai tol'ko 1, v properties Index ukagi - 0,
esli nado dobavit' Load OLE(n), gde n - index,
nado vygruzit' Unload OLE(n) i vse. Plus v Event OLE_Updated po index ty mogew perelovit' gde proizowli izmeneniya, mogew ewe identificirovat' ih po Tag propertie.

0

Что-то не получается. Мне надо сначала из нескольких файлов загрузить рисунки, а потом показывать их в любой последовательности без обращения к файлам. В форме есть OLE компонента. ЕЕ индекс равен 0. Код написан ниже. Все OLE с индексом выше 0 не показываются. Их надо как-то создавать? Как? Или я что-то не так пишу?

Заранее благодарен

Dim filename As String
Dim i As Integer
Dim number As Integer

Sub main()
Dim newFSO As New FileSystemObject
number = 0
For i = 1 To 10
filename = 'c: ' + Trim(Str(i)) + '.doc'
If newFSO.FileExists(filename) = True Then
frmOLE.OLE1(number).CreateEmbed filename
number = number + 1
End If

Next i

For i = 0 To number - 1
frmOLE.Visible = True
frmOLE.OLE1(i).Visible = True
Load frmOLE.OLE1(i)
MsgBox ''
Unload frmOLE.OLE1(i)
frmOLE.OLE1(i).Visible = False
frmOLE.Visible = False
Next i
End Sub

OLE.visible eto prop dlya visualizacii samogo object na forme, poprobui ole.DoVerb, ewe ty mogew ispol'zovat method ole(n).savetofile m ili
ole(n).readfromfile m, gde m file otkrytyi s pomowu open i t.d., problema, 4to sohronennyi file, eto ne budet Word file, eto 4to-to tipa clipboard dump, u menya voobwem primernaya zada4a byla, i takim putem ya ee uspewno rewil, good luck

0

Извиняюсь, что надоедаю!
А какой Verb в скобках написать? И в какое место процедуры вставить? У меня что-то ничего не получается (у меня справки нет, и в учебнике ничего про DoVerb).

Заранее благодарен

Ty mne ne nadoewdaew, dlya etogo i est' forum, 4to by pomogat'. Ya tebe vysylaju help po doVerb.
Pomoemu esli ty ne daw argument dlya DoVerb, eto budet kak DoVerb (0)


Opens an object for an operation, such as editing. Doesn't support named arguments.

Syntax

object.DoVerb (verb)

The DoVerb method syntax has these parts:

Part Description
Object Anobject expression that evaluates to an object in the Applies To list.
Verb Optional. Theverb to execute of the object within the OLE container control. If not specified, the default verb is executed. The value of this argument can be one of the standard verbs supported by all objects or anindex of the ObjectVerbs property array.

Remarks

If you set the AutoActivate property to 2 (Double-Click), the OLE container control automatically activates the current object when the user double-clicks the control.

Each object can support its own set of verbs. The following values represent standard verbs every object should support:

Constant Value Description
VbOLEPrimary 0 The default action for the object.
VbOLEShow -1 Activates the object for editing. If the application that created the object supportsin-place activation, the object is activated within the OLE container control.
VbOLEOpen -2 Opens the object in a separate application window. If the application that created the object supports in-place activation, the object is activated in its own window.
VbOLEHide -3 For embedded objects, hides the application that created the object.
VbOLEUIActivate -4 If the object supports in-place activation, activates the object for in-place activation and shows any user interface tools. If the object doesn't support in-place activation, the object doesn't activate, and an error occurs.
VbOLEInPlaceActivate -5 If the user moves the focus to the OLE container control, creates a window for the object and prepares the object to be edited. An error occurs if the object doesn't support activation on a single mouse click.
VbOLEDiscardUndoState -6 Used when the object is activated for editing to discard all record of changes that the object's application can undo.

Note These verbs may not be listed in the ObjectVerbs property

0

Vot kusok moego koda, ya ne pretenduju na 'pravil'snost'' algorithma, no eto rabotaet, v iz bazy dannyh ya beru file, sozdaju temp file, i zagruzhaju ego v OLE object i pokazyvaju. Edinstvennoe 4to, etot file uge kak ya i govoril tipa clipboard dump, dlya etogo ya sna4ala ego zagruzhaju v OLE methodom CreateEmbed ili CreateLink, v zavisimosti ot situacii, i v sobytii OLE_Updated, delaju OLE.SaveToFile.
Etot zapisannyi file ishodnaya application ne smoget ponimat', tol'ko 4erez clipboard. Esli est' voprosy, piwi.

ReDim dimFILE(rsDOC.Fields('docFILE').ActualSi ze)



dimFILE() = rsDOC.Fields('docFILE').GetChunk(rsDOC.F ields('docFILE').ActualSize)

tempFileName = TempFilePath & ' ' & varClientID & '_' & idItem & Right$(rsDOC.Fields('docFILENAME'), 4)

docTYPE = rsDOC.Fields('docTYPE')

rsDOC.Close

Set rsDOC = Nothing

FileNum = FreeFile

Open tempFileName For Binary As FileNum

Put FileNum, , dimFILE()

Close FileNum

FileNum = FreeFile

Open tempFileName For Binary As FileNum




On Error GoTo Exist:

countOLE = countOLE + 1
OLEIndex = OLEIndex + 1

Load OLE(OLEIndex)
OLE(OLEIndex).Tag = varClientID & '_' & idItem
rsBLOCK.AddNew

rsBLOCK.Fields('docDOCID') = idItem
rsBLOCK.Fields('docIP') = varIP


rsBLOCK.UpdateBatch
rsBLOCK.Close

Set rsBLOCK = Nothing

OLE(OLEIndex).ReadFromFile 1

Close FileNum

OLE(OLEIndex).DoVerb
Close FileNum

0

Спасибо большое! Все работает как и хотелось!