Appeler une page htm et pointer sur une ancre

Version imprimable

02/11/2021, 21h23
p.chirossel

Appeler une page htm et pointer sur une ancre
Bonjour, j'ai développé une application sous vb express 2019 . je n'arrive pas à ouvrir une page htm à un endroit précis (ancre)

mon code:
Code:

1 2 3 4 h = "D:/Projet1.NET1/bin/aide%20prof/modelisation%20des%20liaisons/modelisation%20des%20liaisons.htm#torseur_torseur_2d" Dim MonURL As String = "file:///" & h Process.Start(MonURL)
Ce code ouvre bien la page (mais ne tient pas compte de l'ancre #torseur_torseur_2d).
(le lien apparait sur le navigateur :

file:///D:/Projet1.NET1/bin/aide%20prof/modelisation%20des%20liaisons/modelisation%20des%20liaisons.htm ( ancre supprimée)

À noter: Si je copie ce lien dans mon navigateur (Firefox ou Microsoft Edge), il pointe sur l'ancre.

file:///D:/Projet1.NET1/bin/aide%20prof/modelisation%20des%20liaisons/modelisation%20des%20liaisons.htm#torseur_torseur_2d

Remarque : cette commande a eu fonctionné dans le passé (je ne l'avais pas retestée récemment). je suis un peu perdu. merci pour votre aide
03/11/2021, 10h30
xdelatour

Bonjour,

Au hasard je dirais qu'il faut encoder le # de la même manière que les espaces. A priori ce serait %23.

pb résolu

merci pour la réponse. j'ai aussi essayé avec %23 .
----------------------------------------------------------------------
Remarque :problème résolu
A la place de : Process.Start(MonURL), j'appelle la fonction DemarrerApplication.

( je n'ai pas le niveau pour l'analyser mais cela fonctionne)

------------------------------------------------------------------------------

Code:

identificateur_navigateur = DemarrerApplication(navigateur, MonURL)

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
    Public Function DemarrerApplication(ByVal NomApplication$, Optional ByVal ParametresApplication$ = "") As Integer
        ' ????????????????????? DEMARRERAGE DE L'APPLICATION ?????????????????????
        Try
            Dim Processus As New System.Diagnostics.Process()
            If NomApplication <> String.Empty And ParametresApplication <> String.Empty Then
                With Processus
                    'Nom de l'executable à lancer.
                    .StartInfo.FileName = NomApplication
                    'Argument a passer
                    .StartInfo.Arguments = ParametresApplication
                    'Démarrage du processus.
                    .Start()
                End With
            Else
                With Processus
                    .StartInfo.FileName = NomApplication
                    .Start()
                End With
            End If
            DemarrerApplication = Processus.Id
        Catch ex As Exception
 
        End Try
    End Function