begin process at 2010 02 10 03:16:59
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > PETIT EFFET MODERNE POUR BOUTONS

PETIT EFFET MODERNE POUR BOUTONS


 Information sur la source

Note :
4,6 / 10 - par 5 personnes
4,60 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Niveau :Débutant Date de création :26/01/2003 Date de mise à jour :26/01/2003 17:48:52 Vu :2 606
Auteur : Guidelor

Ecrire un message privé
Site perso
Commentaire sur cette source (8)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Voila une petite petite source sympatoche pour mettre en gras les captions des boutons
je sais c'est pas grand chose mais ca peut quand même être interressant pour animer et amélirer ses menus
J'ai essayé de mettre un niveau de 0.5 mais j'ai pas réussi, alors pas besoin de me dire que cette source est ne mérite même pas le niveau, je sais
Mettez juste 4 bouttons sur une feuille et c'est tout




Source

  • Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  • Gras 1, 0, 0, 0
  • End Sub
  • Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  • Gras 0, 1, 0, 0
  • End Sub
  • Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  • Gras 0, 0, 1, 0
  • End Sub
  • Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  • Gras 0, 0, 0, 1
  • End Sub
  • Public Sub Gras(Val1, Val2, Val3, Val4 As Integer)
  • Command1.FontBold = Val1
  • Command2.FontBold = Val2
  • Command3.FontBold = Val3
  • Command4.FontBold = Val4
  • End Sub 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Gras 1, 0, 0, 0
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Gras 0, 1, 0, 0
End Sub

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Gras 0, 0, 1, 0
End Sub

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Gras 0, 0, 0, 1
End Sub

Public Sub Gras(Val1, Val2, Val3, Val4 As Integer)
    Command1.FontBold = Val1
    Command2.FontBold = Val2
    Command3.FontBold = Val3
    Command4.FontBold = Val4
End Sub



 Sources du même auteur

Source avec Zip Source avec une capture KNOCK KNOCK NEO... - DX8
Source avec Zip Source avec une capture INCORPORATION D'OBJETS DANS UN PAYSAGE 3D - DX8
Source avec Zip Source avec une capture IL PLEUT SUR LA FORET - DX8
Source avec Zip Source avec une capture PRÉVENEUR D'ANNIVERSAIRES
Source avec Zip Source avec une capture LE NOUVEAU FIFA
Toutes les sources de Guidelor

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) SPACE - UN SPACE MAC POUR WINDOWS par vbnino
Source avec Zip Source .NET (Dotnet) MULTI THREAD AVEC AFFICHAGE par jaknight007
Source avec Zip Source .NET (Dotnet) COMPILATEUR EN VB NET 2003 par alpha5
Source avec Zip Source avec une capture CRYPTER AVEC LE CHIFFRE DES NIHILISTES RUSSES par tresorsdevie
Source avec Zip Source avec une capture Source .NET (Dotnet) COMPTE_BANCAIRE.NET par Adn56
Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de Tidus le 26/01/2003 19:56:42

Comme tu l'as dit c'est pas compliqué, le truc c'était d'y penser !!! Moi je trouve l'idée intétressante

Commentaire de Alan71 le 26/01/2003 20:38:59

C bizar, mé je vois jamé l'interet de té source ! (mé ca doit venir de moi)

Commentaire de bami95 le 27/01/2003 00:33:14

L'idée est bonne, continue sur ta lancée et tu ne peux que t'amèliorer

Commentaire de gg00xiv le 27/01/2003 00:47:23

en tout cas Alan71, c klr que celle la n'est pas d'un grand interet ...

Commentaire de Nox le 27/01/2003 04:46:26

Bof... ya rien de tres innovateur la deds... mais kan meme bien

change ton titre pour "Effet pour boutton" , le moderne na pas sa place!

6/10

Commentaire de DxuTAleX le 27/01/2003 17:24:12

Nan ya pas vraimen de nouveauté... le truc est de revoir totalement le design des controles windows, qui sont totalements pauvres (et gris)

Commentaire de ROBOSS75 le 27/01/2003 18:38:50

c'st pas mal je te met 5/10 la moyen pour t encourager et faire mieux
salut a toi

Commentaire de Weado le 27/01/2003 20:09:16

DÉJA VU!!!
Et inutile

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,562 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)