cs_IZNOGOOD

Membre
Inscription
20 avril 2001
Dernière intervention
27 janvier 2003
Interventions
3
Site Web
http://pages.infinit.net/iznogood/index.html
Signature

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

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...

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 ...