• High-Tech
  • Santé-Médecine
  • Droit-Finances
  • CodeS-SourceS
  • Inscription
  • Plan
  • Connexion
Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse
  • Accueil
    • Forum
    • Tutoriels
    • Codes Sources
    • Snippets
    • Top membres
  • Tous les langages
    • Delphi / Pascal
    • Java
    • Python
    • SQL
    • RegEx
    • Flash
    • ASM
    • IRC
    • Graphisme
    • PDA
    • ColdFusion
    • Foxpro
    • Flex
  • Visual Basic / VB.NET
    • Forum
    • Tutoriels
    • Codes Sources
    • Snippets
    • Top membres
  • PHP
    • Forum
    • Tutoriels
    • Codes Sources
    • Snippets
    • Top membres
  • C/C++/C++.NET
    • Forum
    • Tutoriels
    • Codes Sources
    • Snippets
    • Top membres
  • Javascript
    • Forum
    • Tutoriels
    • Codes Sources
    • Snippets
    • Top membres
  • C#/.NET
    • Forum
    • Tutoriels
    • Codes Sources
    • Snippets
    • Top membres
  • ASP/ASP.NET
    • Forum
    • Tutoriels
    • Codes Sources
    • Snippets
    • Top membres
  • Accueil
  • Connexion
  • Déposer un code Code
  • Recherche
  • Haut

cs_IZNOGOOD

Membre
Contacter
Inscription
20 avril 2001
Dernière intervention
27 janvier 2003
Interventions
3
Signature
  • 3Réponses
  • 0Question
  • 0Vote
  • 1Source

COMBOBOX ET TEXTBOX

/source/5794-combobox-et-textbox

Voici une facon plus clair ... et probablement plus rapide Private Sub Combo1_Click () Select Case (Combo1.text) Case "Paul" Text1.text = "100" Case "....." Text1.text = "......." End Select End Sub

Commentaires sur une source 27 janv. 2003

BOUGER UNE FORM A PARTIR D'UN LABEL (SANS CADRE)

/source/1510-bouger-une-form-a-partir-d-un-label-sans-cadre

voila : Dim drag As Boolean Dim lX As Long Dim lY As Long Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) drag = True lX = X lY = Y End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Not drag Then Exit Sub F...

Commentaires sur une source 7 mars 2002

TESTER LA PRESENCE D'UN FICHIER (Autre méthode)

/source/89-tester-la-presence-d-un-fichier-autre-methode

Tu peux essayer avec un file system object ... Public Function bPuGetIsFileExist(ByVal sFile As String) As Boolean On Error GoTo bPuErGetIsFileExist Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") bPuGetIsFileExist = fs.FileExists(sFile) Exit Function bPuErGetIsFileExist: bPuGetIsFileExist = False ...

Commentaires sur une source 27 févr. 2002
  • Inscrivez-vous
  • Conditions générales
  • Politique de confidentialité
  • Paramétrer les cookies
  • Contact
  • Charte
  • Formation
  • Annonceurs
CCM Benchmark Group
JDN Droit-Finances Femme Linternaute Copains d'avant Viadeo JDN

Avis de décès, Carte de voeux, Bricolage, Coloriages, Cinéma, Coiffure, Cuisine, Déco, Dictionnaire, Horoscope, Jeux en ligne, Programme TV, Recettes, Restaurant, SMIC, Test débit, Voyage, Signification prénom