Petite Interface Graphique
Bonjours à tous et à toutes,
En ce moment, j'essaie de faire un petite interface graphique (pas tres complexe) mais voila depuis un petit moment j'ai arreté VB.net (et tout les autre language de prog que je connaissais plus ou moins) et du coup je suis un peu perdu.
J'ai déjà reussi à surplanté la barre des taches et les icones (explorer.exe) et là rentre en jeu mon petit programme.
Il a s'agit d'une interface comme un peu l'Iphone.
Donc j'ai un bouton installer une application (qui est deja programmé mais que je n'ai pas testé)
Un bouton pour inserer une icone dans l'interface qui permettra de lancé celle-ci (et c'est la ou j'ai besoin de vous car je sais pas par où commencer)
merci d'avance
bouton instaleur,dynamique
bonjour ,
voici un code qui cree dynamiquement un menuitem installer et le place dans la barrer de menu et sur click demarre l'execution de l'appli WinSetup.exe:
mais on peut faire mieux et plus robuste:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
'L'approche est identique pour un bouton
'Il faut declarer un bouton au lieu d'un menuItem
'Il faut remplacer Me.MenuStrip1.Items.Add(titreMenuItem) par
'Me.Controls.Add(nouvButton)
Public Class Form1
Dim nomAppAInstaller As String = ""
Dim nouvMenuItem As MenuItem = New MenuItem
Dim titreMenuItem As String = ""
Dim indexExt As Integer = 0
Private Sub ApplicationÀInstallerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplicationÀInstallerToolStripMenuItem.Click
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
nomAppAInstaller = OpenFileDialog1.FileName
titreMenuItem = OpenFileDialog1.SafeFileName
If Len(nomAppAInstaller) = 0 Then
MessageBox.Show("nom d'app valide svp...")
Exit Sub
Else
titreMenuItem = "Run " & titreMenuItem
nouvMenuItem.Text = titreMenuItem
Me.MenuStrip1.Items.Add(titreMenuItem)
'Ajoute un handler pour Nouveau ToolStripMenuItem(Index=1)
'car dans cette exemple il y a un seul MenuItem dans StripMenu
AddHandler Me.MenuStrip1.Items(1).Click, AddressOf installeApp
End If
End If
End Sub
Private Sub installeApp()
Process.Start(nomAppAInstaller)
End Sub
End Class |
bon code...