boutika

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

 

Je suis heureux de vous présenter mes toutes nouvelles boutiques en lignes.

- Vous désirez offrir des jouets à vos enfants pour Noël, pour un anniversaire, ou une autre occasion exceptionnelle, ou encore tout simplement vous faire plaisir :
Vous y trouverez des jouets d'éveil, des jeux éducatifs, des jeux de construction, des jeux créatifs, des jouets authentiques, des jeux pour PC, des jeux pour consoles ...
Il y en a pour tous les goût de 2 à 102 ans
Tous les jouets en ligne au meilleur prix.

www.paradisjeux.zlio.com



Bientôt NOËL!!!!!
N'attendez pas pour commander les jouets pour vos enfants, vos jeux préférés.
C'est toujours la bousculade dans les magasins à cette période de l'année.
Deux liens pour vos cadeaux de fin d'année :

www.paradisjeux.zlio.com

BIENTÔT LA FETE DES MERES - Le site regorge de cadeaux originaux !!!!

www.kado.zlio-kdo.com











- Vous désirez offrir des fleurs, ou vous offrir des fleurs :
LA LIVRAISON EN 4h, 7j/7
même le dimanche et les jours de fêtes !
Un service complet de livraison de fleurs partout en France et dans plus de 130 pays.
La livraison en France métropolitaine s'effectue dans un délai minimum de 4 heures ouvrées. Ainsi, une commande passée le matin peut être livrée le jour même dans l'aprés midi !
Les livraisons peuvent s'effectuer le Dimanche et les jours de fêtes (Noël, Jour de l'An, Toussaint, 1er mai, Dimanche de la Fête des Mères, etc...)
BIENTÔT LA FÊTE DES MERES - NE L'OUBLIEZ PAS !!!!!

www.livraisonfleurs.zlio.com





- Les chemins de l'inconnu vous attirent :

Vous ne verrez plus le monde de la même façon ! Vous lisez probablement votre horoscope dans le journal. Mais l'astrologie, c'est bien davantage que la simple étude des signes du zodiaque qui vous sont familiers. Pour aller plus loin, voici de nombreux ouvrages à la fois technique, amusants et faciles d'accès. Vous serez étonné(e) de la manière dont les astres vous influencent et découvrirez ce que cela signifie pour votre vie sentimentale, votre travail et votre avenir.
Depuis le 10 Octobre 2007, le site s'est enrichi de nouveaux sujets:
- Magie, Tarot, Spiritisme, Numérologie

www.ezoterika.zlio.com




nti_bug_fck