Advertisement
Guest User

1

a guest
Jan 27th, 2011
300
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.  
  3.         Try 'on gère les erreurs
  4.            If My.Computer.Registry.ClassesRoot.OpenSubKey(".test1") Is Nothing Then
  5.  
  6.                 'si l'extension n'est pas encore associée, on l'associe.
  7.                associerExtension()
  8.  
  9.             End If
  10.         Catch ex As Exception
  11.         MsgBox("Oups, erreur") 'message très descriptif..
  12.        End Try
  13.  
  14.         'on obtient les arguments, à savoir le nom du fichier avec lequel le prog s'est ouvert
  15.        For Each argument As String In Environment.GetCommandLineArgs()
  16.  
  17.             If argument.Contains("test1") Then 'si il contient notre extension
  18.  
  19.                 TextBox1.Text = TextBox1.Text & argument 'on affiche le chemin du fichier test1
  20.                LireXML(argument)
  21.  
  22.             End If
  23.         Next
  24.  
  25.     End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement