AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 11 13:29:54
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 !

17 commentaire(s) de threadom sur des sources sur tout CodeS-SourceS

Le : 22/03/2008 17:12:25
Source : VALIDATION DE SAISIE POUR TEXTBOX
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.

Le : 02/11/2007 14:05:03
Source : CREER UN EXTENSION COMME LES .EXE
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.

Le : 28/10/2006 15:44:39
Source : COMPRESSION AVEC ZLIB
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

Le : 17/10/2006 22:47:50
Source : COMPRESSION AVEC ZLIB
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

Le : 17/10/2006 20:08:56
Source : COMPRESSION AVEC ZLIB
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

Le : 17/10/2006 20:00:40
Source : COMPRESSION AVEC ZLIB
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 ;)

Le : 16/10/2006 00:10:32
Source : SAVOIR SI LE NOM D'UN FICHIER EST VALIDE (NOM WINDOWS)
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

Le : 11/10/2006 11:23:54
Source : LIRE/ECRIRE/SUPPRIMER DANS UN FICHIER INI GRÂCE AUX APIS WINDOWS
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.

Le : 01/06/2006 13:02:19
Source : RÉCUPÉRATION AUTOMATIQUE DU COURS DES DEVISES
Heu elle est ou la source ?

Le : 22/05/2006 13:43:17
Source : GESTION DE CD ...
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.


1 2


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


Apple iPod touch 2nde Gén. Noir 8 Go (Mac/PC)
Entre 209€ et 345€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto homme nu
Photo jeune fille plagePhoto femme, Plage, Bien être,

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,187 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.