Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 15:40:59

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : OBJET SORT, MéTHODE APPLY, ERREUR 1004 par kardiss

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : LIRE DANS UN FICHIER CSV DE 170MO AVEC ACCESS par mmmxtina

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

+ de logiciels à télécharger

1 465 315 membres
359 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 253 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

BOUTON DE CONTROLE

Information sur la source

Catégorie :Control Niveau : Débutant Date de création : 31/01/2002 Date de mise à jour : 31/01/2002 16:47:11 Vu / téléchargé: 2 324 / 210

Auteur : steven007

Site perso

Ecrire un message privé

Note :

5,50 / 10

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

ce projet n'est pas un gros truc , c juste pour savoir comment ont fait des bouton de controle

Source

Option Explicit
'commande haut gauche
Private Sub Command1_Click()
Form1.Left = 0
Form1.Top = 0
End Sub
'commande bas gauche
Private Sub Command2_Click()
Form1.Left = 0
Form1.Top = Screen.Height - Form1.Height
End Sub
'commande haut droite
Private Sub Command3_Click()
Form1.Left = Screen.Width - Form1.Width
Form1.Top = 0
End Sub
'commande bas droite
Private Sub Command4_Click()
Form1.Left = Screen.Width - Form1.Width
Form1.Top = Screen.Height - Form1.Height
End Sub
' sortir du programme
Private Sub Command5_Click()
End
End Sub

Option Explicit
 'commande haut gauche
Private Sub Command1_Click()
Form1.Left = 0
Form1.Top = 0
End Sub
 'commande bas gauche
Private Sub Command2_Click()
Form1.Left = 0
Form1.Top = Screen.Height - Form1.Height
End Sub
 'commande haut droite
Private Sub Command3_Click()
Form1.Left = Screen.Width - Form1.Width
Form1.Top = 0
End Sub
 'commande bas droite
Private Sub Command4_Click()
Form1.Left = Screen.Width - Form1.Width
Form1.Top = Screen.Height - Form1.Height
End Sub
 ' sortir du programme
Private Sub Command5_Click()
End
End Sub