Afficher dans une TextBox suite a un "Parcourir"
Résolu
theopom
Messages postés
54
Statut
Membre
-
theopom Messages postés 54 Statut Membre -
theopom Messages postés 54 Statut Membre -
Bonjour,
j’aimerais crée un Launcher pour FiveM mais je suis bloquer sur 2 étapes.
1 – Comment fessons nous pour que l’utilisateur puisse indiquer le chemin d’accès de son FiveM.exe et l'afficher dans une TextBox dans la form2
2 – J’ai mon fichier FiveM.exe mais sur mon raccourcie à moi j’ai ajouter cela
En simple j’y met l’adresse Ip pour me connecter directement mais comment faire sur VbNet.
Merci beaucoup d’avoir pris le temps de me lire.
j’aimerais crée un Launcher pour FiveM mais je suis bloquer sur 2 étapes.
1 – Comment fessons nous pour que l’utilisateur puisse indiquer le chemin d’accès de son FiveM.exe et l'afficher dans une TextBox dans la form2
2 – J’ai mon fichier FiveM.exe mais sur mon raccourcie à moi j’ai ajouter cela
En simple j’y met l’adresse Ip pour me connecter directement mais comment faire sur VbNet.
Merci beaucoup d’avoir pris le temps de me lire.
1 réponse
-
Bonjour,
Utiliser une openfiledialog pour récuperer le chemin de l'exe dans une Textbox:
https://docs.microsoft.com/fr-fr/dotnet/api/system.windows.forms.openfiledialog?redirectedfrom=MSDN&view=netframework-4.8
-
Je vient de réusir merci beaucoup, et savez vous pour mon deuxième soucis ?.
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
OpenFileDialog1.Title = "Choisissez un fichier"
OpenFileDialog1.Filter = "exe|*.exe"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.InitialDirectory = "c:\"
OpenFileDialog1.ShowDialog()
Dim a As String
a = OpenFileDialog1.FileName
If a <> "" Then TextBox1.Text = a
If a <> "" Then My.Computer.Clipboard.SetText(a)
End Sub -
comme ceci:
With OpenFileDialog1 .Title = "Ouvrir" 'Titre de la barre de titre .InitialDirectory = "c:\" 'répertoire de départ .Filter = "Fichiers exe|*.exe" ' on travaille uniquement sur les .txt .Multiselect = False 'sélectionner 1 seul fichier .CheckFileExists = True 'Message si nom de fichier qui n'existe pas. 'Permet d'ouvrir uniquement un fichier qui existe; CheckPathExists peut aussi être utilisé. .ValidateNames = True 'n'accepte que les noms valides (win 32) .AddExtension = True 'ajoute une extension au nom s'il n'y en a pas If .ShowDialog() = System.Windows.Forms.DialogResult.OK Then TextBox1.Text = .OpenFile() End If End With -
-
Je vient de trouver la solution au problème numéro 2 pour ceux que ca intéressent:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim startInfo As ProcessStartInfo = New ProcessStartInfo("C:\Users\AppData\Local\FiveM\FiveM.exe")
startInfo.WindowStyle = ProcessWindowStyle.Normal
startInfo.Arguments = "+connect 000.000.00.00:00000"
Process.Start(startInfo)
End Sub
Merci a vous
-
