|
|
|
|
Posté par
aabdel, le mercredi 16 mai 2007 à 02:43:08Configuration: Windows XP Internet Explorer 6.0
Bonjour,
tu peux utiliser l'objet "Picture" qui permet de dessiner des objets ... Cordialement. Accompagenement Informatique SAS, éditieur de logiciels de gestion des risques et de mise en place de systèmes Qualité. |
slt, g pensé utiliser l'objet "shape",,,,je vous invite à decouvrir ou est ce que j'en suis :
Private Sub Command1_Click() 'Espace de travail Picture1.Scale (-4, 4)-(4, -4) Picture1.Cls 'dessin du cercle Picture1.ForeColor = QBColor(12) Picture1.Circle (-3, 0), (0.3) Picture1.Circle (0, 2), (0.3) Picture1.Circle (0, -2), (0.3) Picture1.Circle (3, 0), (0.3) 'les numéros du nœuds Picture1.ForeColor = QBColor(9) Picture1.Circle (-3.08, 0.15), (0) Picture1.Print "0" Picture1.Circle (-0.08, 2.15), (0) Picture1.Print "1" Picture1.Circle (-0.08, -1.85), (0) Picture1.Print "2" Picture1.Circle (2.92, 0.15), (0) Picture1.Print "3" Picture1.ForeColor = QBColor(11.4) Picture1.Line (-3 + 0.3 / Sqr(2), 0 + 0.3 / Sqr(2))-(-0 - 0.3 / Sqr(2), 2 - 0.3 / Sqr(2)) Picture1.Line (-0.3, 1.5)-(-0 - 0.3 / Sqr(2), 2 - 0.3 / Sqr(2)) Picture1.Line (-0.5, 1.8)-(-0 - 0.3 / Sqr(2), 2 - 0.3 / Sqr(2)) Picture1.Line (-0.3, 1.5)-(-0.5, 1.8) Picture1.Line (-3 + 0.3 / Sqr(2), 0 - 0.3 / Sqr(2))-(-0 - 0.3 / Sqr(2), -2 + 0.3 / Sqr(2)) Picture1.Line (-0.3, -1.5)-(-0 - 0.3 / Sqr(2), -2 + 0.3 / Sqr(2)) Picture1.Line (-0.5, -1.8)-(-0 - 0.3 / Sqr(2), -2 + 0.3 / Sqr(2)) Picture1.Line (-0.3, -1.5)-(-0.5, -1.8) Picture1.Line (0, 1.7)-(0, -1.7) Picture1.Line (-0.2, -1.5)-(0, -1.7) Picture1.Line (0.2, -1.5)-(0, -1.7) Picture1.Line (-0.2, -1.5)-(0.2, -1.5) Picture1.Line (-0 + 0.3 / Sqr(2), 2 - 0.3 / Sqr(2))-(3 - 0.3 / Sqr(2), 0 + 0.3 / Sqr(2)) Picture1.Line (2.4, 0.2)-(3 - 0.3 / Sqr(2), 0 + 0.3 / Sqr(2)) Picture1.Line (2.7, 0.5)-(3 - 0.3 / Sqr(2), 0 + 0.3 / Sqr(2)) Picture1.Line (2.4, 0.2)-(2.7, 0.5) Picture1.Line (0 + 0.3 / Sqr(2), -2 + 0.3 / Sqr(2))-(3 - 0.3 / Sqr(2), 0 - 0.3 / Sqr(2)) Picture1.Line (2.4, -0.2)-(3 - 0.3 / Sqr(2), 0 - 0.3 / Sqr(2)) Picture1.Line (2.7, -0.5)-(3 - 0.3 / Sqr(2), 0 - 0.3 / Sqr(2)) Picture1.Line (2.4, -0.2)-(2.7, -0.5) 'les valeurs des arcs Picture1.ForeColor = QBColor(2) Picture1.Circle (-2, 1.2), (0) Picture1.Print "10" Picture1.Circle (-2, -1), (0) Picture1.Print "12" Picture1.Circle (0.2, 0.2), (0) Picture1.Print "5" Picture1.Circle (1.7, 1.2), (0) Picture1.Print "20" Picture1.Circle (1.7, -1), (0) Picture1.Print "31" Picture1.ForeColor = QBColor(0) Picture1.Circle (-2, 3.5), (0) Picture1.Print " Graphe Orienté étiqueté " Picture1.ForeColor = QBColor(7) Picture1.Circle (1, -3.5), (0) Picture1.Print " OUAHBI Bouchaib " End Sub ,,,,donc là, je voudrais avoir un menu , creer une interactivité, entre moi et la form , :) , ok ? merci d'avance pour d'eventuels coups de main,,,,graciassss |
slt, g pensé utiliser l'objet "shape",,,,je vous invite à decouvrir ou est ce que j'en suis :
Private Sub Command1_Click() 'Espace de travail Picture1.Scale (-4, 4)-(4, -4) Picture1.Cls 'dessin du cercle Picture1.ForeColor = QBColor(12) Picture1.Circle (-3, 0), (0.3) Picture1.Circle (0, 2), (0.3) Picture1.Circle (0, -2), (0.3) Picture1.Circle (3, 0), (0.3) 'les numéros du nœuds Picture1.ForeColor = QBColor(9) Picture1.Circle (-3.08, 0.15), (0) Picture1.Print "0" Picture1.Circle (-0.08, 2.15), (0) Picture1.Print "1" Picture1.Circle (-0.08, -1.85), (0) Picture1.Print "2" Picture1.Circle (2.92, 0.15), (0) Picture1.Print "3" Picture1.ForeColor = QBColor(11.4) Picture1.Line (-3 + 0.3 / Sqr(2), 0 + 0.3 / Sqr(2))-(-0 - 0.3 / Sqr(2), 2 - 0.3 / Sqr(2)) Picture1.Line (-0.3, 1.5)-(-0 - 0.3 / Sqr(2), 2 - 0.3 / Sqr(2)) Picture1.Line (-0.5, 1.8)-(-0 - 0.3 / Sqr(2), 2 - 0.3 / Sqr(2)) Picture1.Line (-0.3, 1.5)-(-0.5, 1.8) Picture1.Line (-3 + 0.3 / Sqr(2), 0 - 0.3 / Sqr(2))-(-0 - 0.3 / Sqr(2), -2 + 0.3 / Sqr(2)) Picture1.Line (-0.3, -1.5)-(-0 - 0.3 / Sqr(2), -2 + 0.3 / Sqr(2)) Picture1.Line (-0.5, -1.8)-(-0 - 0.3 / Sqr(2), -2 + 0.3 / Sqr(2)) Picture1.Line (-0.3, -1.5)-(-0.5, -1.8) Picture1.Line (0, 1.7)-(0, -1.7) Picture1.Line (-0.2, -1.5)-(0, -1.7) Picture1.Line (0.2, -1.5)-(0, -1.7) Picture1.Line (-0.2, -1.5)-(0.2, -1.5) Picture1.Line (-0 + 0.3 / Sqr(2), 2 - 0.3 / Sqr(2))-(3 - 0.3 / Sqr(2), 0 + 0.3 / Sqr(2)) Picture1.Line (2.4, 0.2)-(3 - 0.3 / Sqr(2), 0 + 0.3 / Sqr(2)) Picture1.Line (2.7, 0.5)-(3 - 0.3 / Sqr(2), 0 + 0.3 / Sqr(2)) Picture1.Line (2.4, 0.2)-(2.7, 0.5) Picture1.Line (0 + 0.3 / Sqr(2), -2 + 0.3 / Sqr(2))-(3 - 0.3 / Sqr(2), 0 - 0.3 / Sqr(2)) Picture1.Line (2.4, -0.2)-(3 - 0.3 / Sqr(2), 0 - 0.3 / Sqr(2)) Picture1.Line (2.7, -0.5)-(3 - 0.3 / Sqr(2), 0 - 0.3 / Sqr(2)) Picture1.Line (2.4, -0.2)-(2.7, -0.5) 'les valeurs des arcs Picture1.ForeColor = QBColor(2) Picture1.Circle (-2, 1.2), (0) Picture1.Print "10" Picture1.Circle (-2, -1), (0) Picture1.Print "12" Picture1.Circle (0.2, 0.2), (0) Picture1.Print "5" Picture1.Circle (1.7, 1.2), (0) Picture1.Print "20" Picture1.Circle (1.7, -1), (0) Picture1.Print "31" Picture1.ForeColor = QBColor(0) Picture1.Circle (-2, 3.5), (0) Picture1.Print " Graphe Orienté étiqueté " Picture1.ForeColor = QBColor(7) Picture1.Circle (1, -3.5), (0) Picture1.Print " xxxx" End Sub ,,,,donc là, je voudrais avoir un menu , creer une interactivité, entre moi et la form , :) , ok ? merci d'avance pour d'eventuels coups de main,,,,graciassss |
y-il quelqu'un qui pourrait me filer un coup de main?! please , |
| 20/09 18h47 | Liens utiles | Visual Basic |
| 25/03 23h56 | Environnements graphiques 2D | Bureaux |
| 21/07 11h53 | Comment débuter, quel langage? | Langages |
| 23/06 11h54 | Les Critères Ergonomiques | Ergonomie |
| 07/02 23h57 | Equivalences logicielles pour GNU/Linux | Logiciel libre |
| 10/05 13h12 | Comment creer en visual basic une calculette | 0 |
| 27/03 11h39 | Creer un fichier en visual basic 6 | 6 |
| 12/12 21h27 | Créer un bouton eregistrer sour visual basic | 15 |
| 28/06 07h38 | Creer un Executable avec Visual Basic 2005 | 14 |
![]() | Visual Basic Express 2005 - Le langage de programmation Visual Basic est historiquement dans les gènes de la société Microsoft. Avec plus de 30.000... | Catégorie: Visual Basic Licence: Freeware/gratuit |
![]() | Visual Basic 6 Runtime (VB6 DLL) - Le Runtime Visual Basic 6 contient l'ensemble des librairies (DLL) nécessaires pour exécuter des programmes écrits en... | Catégorie: Librairies (DLL) Licence: Freeware/gratuit |
![]() | Visual Basic Express - Visual Basic Express 2008 est la version gratuite de Visual Basic 2008, contenant toutes les fonctionnalités de base du... | Catégorie: Visual Basic Licence: Freeware/gratuit |
![]() | VB Editor - Décompileur de fichiers exécutables compilés avec Visual Basic 5 ou 6 | Catégorie: Visual Basic Licence: Freeware/gratuit |
![]() | Wacom Graphire4 Wireless Optical | Catégorie: Souris | 241.82 € PriceMinister |
![]() | Creative 3D Blaster GeForce | Catégorie: Carte graphique | |
![]() | Creative 3D Blaster GeForce | Catégorie: Carte graphique | |
![]() | Creative 3D Blaster GeForce | Catégorie: Carte graphique |