Ci-joint le code de programmation en basic (FNX Basic), d'un programme que j'ai réalisé " Barre de démarrage"
Pour ceux qui souhaitent télécharger la derniere version de FNXBASIC, voici le lien :
http://fnxbasic.com/yabb/YaBB.pl?num=1182335634
Mais on doit pouvoir l'adapter pour d'autres langages basic.
Le programme(BarreDem.bas) est téléchargeable en intégralité sur le site suivant:
http://fnxbasic.com/yabb/YaBB.pl?board=examples

Vos commentaires seront bien sûr les bienvenus.



'Programme créé par Minhyac - Avril 2008'
' and PaPi

Declare myexit as "ExitProcess" of "Kernel32.lib"
Dim result as integer
End declare

resource myicon as "BD.ico"
AppIcon "BD.ico"
resource btn1 as "Control Panel.bmp"
resource btn2 as "WExplorer.bmp"
resource btn3 as "Calc.bmp"
resource btn4 as "mozilla.bmp"
resource btn5 as "excel.bmp"
resource btn6 as "wmplayer.bmp"
resource btn7 as "cross.bmp"
resource btn8 as "outlook.bmp"
resource btn9 as "mspaint.bmp"
resource btn10 as "Au sujet de.bmp"

Dim myform as form
Myform.left=100
Myform.top=100
Myform.ClientHeight = 32
Myform.width=295
Myform.Caption = "Barre de démarrage"
Myform.color=&HE6E6E6
Myform.IconResource(myicon)

Dim MyButton1 as button
MyButton1.Caption=""
MyButton1.left=0
MyButton1.top=5
MyButton1.width = 25
MyButton1.showhint=1
MyButton1.Hint="Démarre le Panneau de Configuration"
MyButton1.parent=Myform
MyButton1.oncLick=Button1click
MyButton1.BMPResource(btn1)
       
Dim MyButton2 as button
MyButton2.Caption=""
MyButton2.left=29
MyButton2.top=5
MyButton2.width=25
MyButton2.showHint=1
MyButton2.hint="Démarre l'Explorateur de Windows"
MyButton2.TabOrder = 2
MyButton2.parent=Myform
MyButton2.oncLick=Button2click
MyButton2.BMPResource(btn2)

Dim MyButton3 as button
MyButton3.Caption=""
MyButton3.left=58
MyButton3.top=5
MyButton3.width=25
MyButton3.showHint=1
MyButton3.hint="Démarre la Calculatrice de Windows"
MyButton3.tabOrder = 3
MyButton3.parent=Myform
MyButton3.oncLick=Button3click
MyButton3.BMPResource(btn3)

Dim MyButton4 as button
MyButton4.Caption=""
MyButton4.left=87
MyButton4.top=5
MyButton4.width=25
MyButton4.showHint=1
MyButton4.hint="Démarre Mozilla Firefox"
MyButton4.tabOrder=4
MyButton4.parent=Myform
MyButton4.onclick=Button4click 
MyButton4.BMPResource(btn4)
     
Dim MyButton5 as button
MyButton5.Caption=""
MyButton5.left=115
MyButton5.top=5
MyButton5.width=25
MyButton5.showHint=1
MyButton5.hint="Démarre Excel"
MyButton5.tabOrder=5
MyButton5.parent=Myform
MyButton5.onclick=Button5click       
MyButton5.BMPResource(btn5)

Dim MyButton6 as button
MyButton6.Caption=""
MyButton6.left=143
MyButton6.top=5
MyButton6.width=25
MyButton6.showHint=1
MyButton6.hint="Démarre le Media Player"
MyButton6.tabOrder = 7
MyButton6.parent=Myform
MyButton6.onclick=Button6click       
MyButton6.BMPResource(btn6)

Dim MyButton7 as button
MyButton7.caption = ""
MyButton7.left=256
MyButton7.top=5
MyButton7.width=25
MyButton7.showHint=1
MyButton7.hint="Quitter la barre de démarrage"
MyButton7.taborder=1
MyButton7.parent=Myform
MyButton7.onclick=Button7click
MyButton7.BMPResource(btn7)
 

Dim MyButton8 as button
MyButton8.caption=""
MyButton8.left=171
MyButton8.top=5
MyButton8.width=25
MyButton8.showHint=1
MyButton8.hint="Démarre Outlook"
MyButton8.taborder=9
MyButton8.parent=Myform
MyButton8.onclick=Button8click 
MyButton8.BMPResource(btn8)

Dim MyButton9 as button
MyButton9.caption=""
MyButton9.left=199
MyButton9.top=5
MyButton9.width=25
MyButton9.showhint=1
MyButton9.hint="Démarre MsPaint"
MyButton9.taborder=6
MyButton9.parent=Myform
MyButton9.onclick=Button9click 
MyButton9.BMPResource(btn9)

Dim MyButton10 as button
MyButton10.caption=""
MyButton10.left=227
MyButton10.top=5
MyButton10.width=25
MyButton10.showhint=1
MyButton10.hint="Au sujet de..."
MyButton10.taborder=10
MyButton10.parent=Myform
MyButton10.onclick=Button10click 
MyButton10.BMPResource(btn10)



Myform.showmodal



sub Button1click()
RUN "C:windowssystem32control.exe","",SW_shownormal
end sub

sub Button2click()
RUN "C:windowsexplorer.exe","",SW_shownormal
end sub

sub Button3click()
RUN "C:windowssystem32calc.exe","",SW_shownormal
end sub

sub Button4click()
RUN "C:Program FilesMozilla Firefoxfirefox.exe","",SW_shownormal
end sub

sub Button5click()
RUN "C:Program FilesMicrosoft OfficeOfficeexcel.exe","",SW_shownormal
end sub

sub Button6click()
RUN "C:Program FilesWindows Media Playerwmplayer.exe","",SW_shownormal
end sub

sub Button7click()
myexit
myexit.result
end sub

sub Button8click()
RUN "C:Program FilesOutlook Expressmsimn.exe","",SW_shownormal
end sub

sub Button9click()
RUN "C:WINDOWSsystem32mspaint.exe","",SW_shownormal
end sub

sub Button10click()
messagedlg("Barre de démarrage par Minhyac et Papi","Au sujet de",mbOk)
end sub


Autres programmes en basic