Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) Static bIsBusy As Boolean If bIsBusy = False Then bIsBusy = True Cancel = True WebBrowser1.Navigate2 URL, Flags, TargetFrameName, PostData, "mon-super-logiciel: 1" Else bIsBusy = False End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question