4 ans après ...

Private Sub txtNumber_KeyDown(KeyCode As Integer, Shift As Integer)
    If (KeyCode = vbKeyDelete) Then
        If Len(txtNumber) < 2 Then
            txtNumber.Text = "0"
            KeyCode = 0
        End If
    End If
End Sub

Private Sub txtNumber_KeyPress(KeyAscii As Integer)
    If (KeyAscii = vbKeyBack) Then
        If Len(txtNumber) < 2 Then
            txtNumber.Text = "0"
            KeyAscii = 0
        End If
    Else
        If Not Chr(KeyAscii) Like "[0123456789.]" Then
            KeyAscii = 0
        ElseIf Chr(KeyAscii) = "." Then
            If InStr(txtNumber, ".") Then
                KeyAscii = 0
            End If
        End If
    End If
End Sub


Y'a surement plus propre et ect... mais bon. Personne je m'occupe des dates donc pas besoin de gérer le point.

A moins que je n'ai pas compris le code ...

Ce code sert à associer une extension à un programme.

Par exemple dire que :
   les .txt s'ouvriront avec notepad.exe et auront une icone en forme de page.
   les .doc s'ouvriront avec winword.exe et auront un W en icon.

Ect...

Pas essayé le code mais sous xp on accède à la même chose en ouvrant un explorer
cliquant sur options des dossiers
puis onglet types de fichiers
et enfin en faisant nouveau.

Je met 5/10 ça peut toujours être utile à un débutant qui cherche comment faire.

Bon ok j'ai rien dit ... devoir mémoriser la taille de mes données d'entrée ... ca me convient pas trop mais pas grave je vais le faire :D

Merci j'ai mis le 10 :) tiens j'ai rajouté ce qui me manquais au passage.

' Decompression d'un fichier dans un tableau de "byte"
' Decompress a file in a byte Array
Public Function DecompressFileToByteArray(ByVal FilePathIn As String, ByRef TheData() As Byte) As Long
Dim intNextFreeFile As Integer
Dim lngResult As Long
Dim lngFileLen As Long
    
    ReDim TheData(FileLen(FilePathIn))
    
    ' Read byte array from file
    ' Lire le fichier d'entré dans un tableau de "byte"
    intNextFreeFile = FreeFile
    Open FilePathIn For Binary Access Read As #intNextFreeFile
        Get #intNextFreeFile, , lngFileLen ' the original (uncompressed) file's length
        Get #intNextFreeFile, , TheData() ' lngFileLen : La taille original du fichier décompresser.
    Close #intNextFreeFile
    
    ' Decompress
    ' Decompression du tableau de "byte"
    DecompressFileToByteArray = DecompressByteArray(TheData(), lngFileLen)
End Function

' Compression d'un tableau de "byte" dans un fichier
' Compress a byte array in a file
Public Function CompressByteArrayToFile(ByRef TheData() As Byte, ByVal FilePathOut As String, ByVal CompressionLevel As Integer) As Long
Dim intNextFreeFile As Integer
Dim lngResult As Long
Dim lngFileLen As Long
    
    ' On met en mémoire le taille du tableau de "Byte" décompresser
    lngFileLen = UBound(TheData)
    
    ' Compression du tableau de byte
    ' Compress byte array
    CompressByteArrayToFile = CompressByteArray(TheData(), CompressionLevel)
    
    ' Efface le fichier de sortie
    ' Kill any file in place
    On Error Resume Next
    Kill FilePathOut
    On Error GoTo 0
    
    ' Ecrit le tableau de "byte" dans le fichier de sortie
    ' Write it out
    intNextFreeFile = FreeFile
    Open FilePathOut For Binary Access Write As #intNextFreeFile
        Put #intNextFreeFile, , lngFileLen ' must store the length of the original (uncompress) byte array
        Put #intNextFreeFile, , TheData() ' lngFileLen : doit contenir la du tableau de "Byte" décompresser
    Close #intNextFreeFile
    
    ' Attention : le tableau de "byte" n'est pas désalouer
    ' Warning : the byte array is not desallocate
    ' Erase TheBytes
End Function



Et en ce qui concerne l'utlisation :
Exemple pour la compression :

    ReDim TheByte(255)
    For i = 0 To 255
        TheByte(i) = 255
    Next i
    CompressByteArrayToFile TheByte, "test", 9

Et .... Exemple pour la décompression :

    ReDim TheByte(0)
    DecompressFileToByteArray "test", TheByte

Voila.
Ha et si vous compté test sur quelque ligne comme moi pour etre sur de vous mettez "Erase TheByte" entre les deux

Oula oula j'ai rien dis parfais parfais :)

Public Function DecompressByteArray(TheData() As Byte, OriginalSize As Long) As Long

Ca devrais me convenir :) SMACK

Je vais voir si je peu pas changé pour remettre un ptit 10

Heureusement qu'on note pas la form :) sinon merci pour le module je vais faire quelque modif mais ca va me servir je pense ... :) l'inconvénient c'est que j'aimerais décompresser mon fichier en mémoire pour ne pas avoir de repertoire temporaire a créer ...

Ha ouai heu tu pourrais ptet modifier pour mettre l'extension en gzip ;)

Petit Mix final, j'ai repris PCPT, BOUV, et MUAD-DIB, vbPink pour obtenir :

Ca répond a peu près a tout les critères de tout le monde je crois et c'est a mon avis le plus rapide tout en respectant les valeurs et tailles de VB6.

Public Function IsValidName(ByVal strFileName As String) As Boolean
Const sInterdit As String = "\/:*?""<>|"
Dim i As Integer

    IsValidName = True
    For i = 1 To Len(sInterdit)
        If (InStr(strFileName, Mid$(sInterdit, i, 1)) <> 0) Then IsValidName = False: Exit Function
    Next i
End Function

Simple, Efficace, toujours util.

On ce rapelle pas toujours avec exactitude les paramètres d'une fonction dans une api.

La un petit module que l'on rajoute et on peu ajouter, modifier, supprimer, l'intérieur d'un fichier ini.

Sans vouloir être méchant certaine personne disans "y marche même pas chez moi, c'est de la gr..." ferais mieux d'apprendre a programmer avant de mettre ce genre de commentaire.

Cependant il est regretable que ces fonctions ne gère pas les erreurs correctement et que les types de données ne correspondent pas a ceux de l'api qu'il utlise.

Par exemple

# 'Fonction pour écrire une valeur dans un fichier INI
# 'La section spécifiée est créée automatiquement si elle n'existe pas déjà
# Function INIWrite(Entete As String, Variable As String, Valeur As String, Optional Fichier As String) As String
#     Fichier = IIf(Fichier = "", App.Path & "\" & App.EXEName & ".ini", Fichier)
#     INIWrite = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
# End Function


# Private Declare Function WritePrivateProfileString Lib "kernel32" Alias _
#     "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
#     lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long


Il est regrettable que le type de donnée renvoyé est une String au lieu d'un Long, et il aurais peut etre été plus judicieux de mettre un booleen.

Heu ca sert a quoi ... voir le nom de la source "GESTION DE CD ..."

^^ Ensuite non désolé si tout est en anglais c'est que simplement je préfère codé en anglais :D pas de copier coller désolé ... pour si peu j'aurais honte.

Mais je note la prochaine fois que j'aurais rien à faire j'integrerais un systeme de localisation.

Je vais déjà commencé par l'indentation. Un coup tu met fait une tabulation le coups suivant non ... Apres il ya les espaces, defois tu saute une ligne avant la fin de ta fonction (ou procedure) d'autre fois c'est au début.

Niveau code : très peut de fonctions ce qui donne des instruction dans tout les sens, exemple avec le fait de rajouter 0 si il n'y a qu'un chiffre. C'est sur ta method est peut etre plus rapide mais je rapelle que c'est du vb... Ensuite le fait que tu ne change pas le nom de tes composants (ca aide pas a faire parler le code). Commente ligne a ligne n'est pas non plus une solution, autant faire 10 ligne et faire un gros bloque au dessus pour les explique (surtout pour les declaration de dll). Essaye de donnez une forme a ton code, un code propre permet de pouvoir y revenir (meme au bout de 5000ligne) sinon generalement on lache l'affaire et on recommence. Autre petite chose quand je parle du manque de fonction entend par la de crée des petites fonction basic et réutilisable dans d'autre programme.

Je suis désolé si c'est un peu flou mais j'avou que ca fait deja longtemps pour moi que j'avais posté et je ne me souvenait pas trop du code (j'en suis pas mécontent d'ailleur :p).