Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Module1.affichage("Initialisation du module réussi !") End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class
Module Module1 Sub main() Console.WriteLine("") Console.WriteLine("Bienvenue sur 51D4 !") Console.WriteLine("") pause() End Sub Sub affichage(ByVal texte As String) Console.WriteLine("") Console.WriteLine(texte) Console.WriteLine("") pause() End Sub Sub pause() Console.ReadLine() End Sub End Module
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click affichage("Initialisation du module réussi !") End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class Code du module : Code Visual Basic : Module Module1 public Sub main() Console.WriteLine("") Console.WriteLine("Bienvenue sur 51D4 !") Console.WriteLine("") pause() End Sub public Sub affichage(ByVal texte As String) Console.WriteLine("") Console.WriteLine(texte) Console.WriteLine("") pause() End Sub public Sub pause() Console.ReadLine() End Sub End Module
[DllImport("kernel32.dll")] public static extern Boolean AllocConsole(); [DllImport("kernel32.dll")] public static extern Boolean FreeConsole();