Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionModule MonModule Public Sub Main(Byval ptArgs() as String) 'Et dans ptArgs, tu as tes arguments End Sub End Module
Public Sub Ouvrir(ByVal pFileName As String) OpenFileDialog1.InitialDirectory = "" OpenFileDialog1.Filter = "WGL|*.wgl|Tous|*.*" OpenFileDialog1.Title = "Ouvrir..." OpenFileDialog1.FileName = "" filename = System.IO.Path.GetFileName(OpenFileDialog1.FileName) fich = OpenFileDialog1.FileName Me.Text = filename Try RichTextBox1.LoadFile(fich) TexteModifié = False Catch ex As Exception Try RichTextBox1.LoadFile(fich, RichTextBoxStreamType.PlainText) TexteModifié = False Catch ex2 As Exception End Try End Try End Sub
Module Libopen Public Sub Main(ByVal ptArgs() As String) (New Form1).Ouvrir(ptArgs(1)) End Sub End Module