JE possède malheureusement Visual basic express.
Par contre , crois tu être capable d'extraire la Dll pour moi et me l'envoyer ? sa me rendrai grand service =D
Version imprimable
hop !
MErci beaucoup, j'essaye le tous et je vais te dire de mes nouvelle plus tard =D
Eh bien, cette discution est maintenant résolue ;)
A l'aide! tomlev, j'ai besoin de ton aide une toute derniere fois, c'est une erreur de dernière minute!
Pour les controle Newwindow. Tout fonctionne a la perfection Sauf que...
Lorsque je me connecte au site Cisco net academy avec mon navig web, et que je me connecte avec mon utilisateur, j'ouvre la fenêtre ex celle-ci: link!, et bien puisque c'est une newwindow , je suis capable de pèser sur un bouton qu'une seule fois, ensuite , si je pese sur les bouton, plus rien n'arrive. Par contre, si je change de tab et je revient , je peut peser a nouveau 1 fois encore et ainsi de suite. Mais pourquoi sa fais sa?
Voici le code ..
Merci de ton aide pour une toute dernière fois! ( du moin je l'espère! ) :ccool:Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54 Load.. If TabControl1.SelectedForm.Controls.Count > 0 Then Dim cForm As Form = TabControl1.SelectedForm Dim ofrm As Browser = cForm Dim browser As WebBrowser = ofrm.WebBrowser1 Dim axBrowser As SHDocVw.WebBrowser = DirectCast(browser.ActiveXInstance, SHDocVw.WebBrowser) AddHandler axBrowser.NewWindow3, AddressOf browses_NewWindow3 AddHandler axBrowser.NewWindow2, AddressOf browses_newwindow2 End If End Sub Public Sub New() Me.InitializeComponent() End Sub Private Sub browses_NewWindow3(ByRef ppDisp As Object, ByRef Cancel As Boolean, ByVal dwFlags As UInteger, ByVal bstrUrlContext As String, ByVal bstrUrl As String) ' There's no cancel on this event, but setting ppDisp prevents a new IE window Dim f As New Browser Dim onglet As New MdiTabControl.TabPage(f) onglet.CloseButtonVisible = False AppManager.Ajouterunonglet(onglet) Dim cForm As Form = TabControl1.SelectedForm Dim ofrm As Browser = cForm ppDisp = ofrm.WebBrowser1.ActiveXInstance ' Unfortunately, the ppDisp does not navigate to the new url. We'll do that manually. ofrm.WebBrowser1.Navigate(bstrUrl) End Sub Private Sub browses_newwindow2(ByRef ppDisp As Object, ByRef Cancel As Boolean) Dim cForm As Form = TabControl1.SelectedForm Dim ofrm As Browser = cForm ppDisp = ofrm.WebBrowser1.ActiveXInstance End Sub Selectedtabchanged.. If TabControl1.SelectedForm.Controls.Count > 0 Then Dim cForm As Form = TabControl1.SelectedForm Dim ofrm As Browser = cForm Dim browser As WebBrowser = ofrm.WebBrowser1 Dim axBrowser As SHDocVw.WebBrowser = DirectCast(browser.ActiveXInstance, SHDocVw.WebBrowser) AddHandler axBrowser.NewWindow3, AddressOf browses_NewWindow3 AddHandler axBrowser.NewWindow2, AddressOf browses_newwindow2 End If
:koi:
aucune idée...
Crois tu qu'il manque quelque chose dans le projet? un dll ? un flash ? pourtant , mon appli est en 32bits. Sinon, se pourrait-il que se soit le code du newwindow ?
Merci de ton aide
Je n'avais aucune idée hier, j'en ai pas plus aujourd'hui... En tous cas je ne pense pas que ce soit une histoire de DLL, et Flash est installé comme plugin IE, donc automatiquement utilisé par le WebBrowser. Donc il faut chercher ailleurs...
Javais vue ailleur que tu pouvait utiliser autre chose que ActiveXinstance dans le codage. Croit tu que ce serait ça qui cause de telle bugs?