cwBrowser in vbRichClient wird nicht gefunden

25/10/2011 - 12:53 von Hermie | Report spam
Hallo!

Ich habe die Ordner aus dem vbRC4Deploy.7z in einen Ordner entpackt,
dann vbRichClient4.dll registriert.

Wenn ich jetzt das Beispielprojekt starten will, motzt er rum, dass
cwBrowser nicht gefunden wurde.

Wo finde ich denn cwBrowser?

Danke.

ps:
Hier der genannte Beispielcode von Olaf:

'*** Ok, hier der neue, erweiterte Code in cfBrowserForm
'*** (bzgl. NewWindowRequest)
Option Explicit

Public STARTURL As String

Public WithEvents Form As cWidgetForm
Public WithEvents Browser As cwBrowser

Private Sub Browser_NewWindowRequest(NewWebKitInstance As cWebKit, ByVal
OpenAsTab As Boolean)
Dim F_WF As New cfBrowserForm
Set F_WF.Browser.WebKit = NewWebKitInstance
F_WF.Form.Show
End Sub

Private Sub Class_Initialize()
Set Form = Cairo.WidgetForms.Create(vbSizable, "A Cairo-WidgetForm")
Set Browser = New cwBrowser 'a new (yet uninitialized) BrowserWidget
End Sub

Private Sub Class_Terminate()
Set Form = Nothing
Set Browser = Nothing
If Cairo.WidgetForms.Count + Forms.Count = 0 Then
New_c.CleanupRichClientDll
End If
End Sub

'*** all the following Events are pretty similar to those of a "real
VB-Form"
Private Sub Form_Load()
If Len(STARTURL) Then
Set Browser.WebKit = New_c.WebKit
Form.Widgets.Add Browser, "Browser"
Browser.WebKit.Navigate2 _
"http://www.sencha.com/products/extj...les/"
'Browser.WebKit.Navigate2 STARTURL & "?RunLocal=true"

Else 'a NewWindow-Request, so the new cWebKit-instance was already set
Form.Widgets.Add Browser, "Browser" '...and we only need to Add
End If
End Sub

Private Sub Form_GotFocus()
If Browser.WebKit Is Nothing Then Exit Sub
If Browser.Widget.Focused Then Browser.DelegateFocus
End Sub

Private Sub Form_ResizeWithDimensions(ByVal NewWidth As Long, _
ByVal NewHeight As Long)
If Browser.WebKit Is Nothing Then Exit Sub
If NewWidth = 0 And NewHeight = 0 Then
Browser.SynchronizeCoords
Else 'normal resizing
If Not Browser Is Nothing Then Browser.Widget.Move _
0, 0, NewWidth, NewHeight
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set Browser = Nothing
End Sub
 

Lesen sie die antworten

#1 W. Wolf
25/10/2011 - 13:54 | Warnen spam
Am 25.10.2011 12:53, schrieb Hermie:
Hallo!

Ich habe die Ordner aus dem vbRC4Deploy.7z in einen Ordner entpackt,
dann vbRichClient4.dll registriert.

Wenn ich jetzt das Beispielprojekt starten will, motzt er rum, dass
cwBrowser nicht gefunden wurde.

Wo finde ich denn cwBrowser?



[...]


cwBrowser gehört nicht zu RC4, sondern ist ein Klassenmodul im
Beispielprojekt, Dateiname cwBrowser.cls

Da musst Du noch mal das Beispielprojekt prüfen.

Schönen Gruß
W. Wolf

Ähnliche fragen