Mein OCX zeigt unter Dateinfo die Version 5.17.1.xxxx
In der Dokumentation "EWVWebViewerAutomation.chm" gibt es unter
'CAA V5 Visual Basic Reference\Events\WebApplication Events' die Erklärung
Das Viewer Objekt reagiert auf Initialisierung und auf Selektion
Anbei ein Rumpfprogramm, mit dem man sich eine Applikation bauen kann:
%-------------------------------------------------------------------------------
Dim EWVIA, Selection3D, Settings3DViewer, SettingsPlayer 'Globale Variablen
Private Sub ENOV3DFAActiveX1_OnEvent(ByVal EventCategory As String, ByVal EventName As String, ByVal EventSender As Object, ByVal EventParameters As Variant)
Select Case EventCategory
Case "Application"
If EventName = "Ready" Then ' Der Viewer ist initialisiert und kann verwendet werden
Set EWVIA = EventSender ' Dies ist das Objekt mit welchem der Viewer ferngesteuert wird (es hat das Event ja gefeuert)
EWVIA.GetSettings("3DViewer").TransparencyLevel = 40 ' Beispiel einer Voreinstellung, kann so auch in einem Button Callback stehen
EWVIA.GetSettings("3DViewer").TransparencyMode = True ' "
EWVIA.GetSettings("3DViewer").ViewpointAnimation = True ' "
Set Selection3D = EWVIA.GetCurrentViewer().GetSelection() ' Globale Variable belegen
Set Settings3DViewer = EWVIA.GetSettings("3DViewer") ' "
Set SettingsPlayer = EWVIA.GetSettings("Player") ' "
'
' put your code here
'
End If
Case "Selection"
Set Selection3D = EWVIA.GetCurrentViewer().GetSelection()
If EventName = "Add" Then
'
' put your code here
'
End If
If EventName = "Remove" Then
'
' put your code here
'
End If
End Select
End Sub
%-------------------------------------------------------------------------------
Man kann z.B. mit dem Statement
EWVIA.GetSettings("Player").GroundVisibility = False
den Ground ausschalten (und einschalten)
Das findet man in der Help unter
'CAA V5 Visual Basic Reference\Objects and Collections\WebSettingsPlayer'
Analog geht das mit Transparency
'CAA V5 Visual Basic Reference\Objects and Collections\WebSettings3DViewer'
Hoffe das bring mehr Klarheit.
[Diese Nachricht wurde von dc_tke am 30. Aug. 2007 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP