begin process at 2012 02 14 00:18:01
  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 :3 122
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 TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo
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 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Beautiful woman in a bikini meditating on the beach
Photo vieux tracteur et phare de l'ile de Batz 

Visiter la photothèque
 
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,874 sec (3)

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)