Soyez le premier à donner votre avis sur cette source.
Vue 13 435 fois - Téléchargée 735 fois
Private Sub cmdInstall_Click(index As Integer) Dim i As Integer i = index Select Case i Case Is = 0 CheminProgramme = CurDir & "dossier/setup.exe" Case Is = 1 CheminProgramme = CurDir & "dossier2/setup.exe" End Select ChargerProg CheminProgramme, CheminFichier End End Sub Private Sub ChargerProg(CheminProgramme, CheminFichier) Shell CheminProgramme & " " & CheminFichier, vbNormalFocus End Sub Private Sub Picture1_Click(index As Integer) cmdInstall_Click (index) End Sub
Aussi:
icon=icone.ico (l'icone du cd)
name=NOM (le nom du cd (max 11 caracteres)
label=NOM (encore le nom)
ya aussi une affaire SHELL
pour executer d'autre choses sur le cd mais je ne m'en raPELLE PLUS!
bof!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.