Commentaires de TFlorian sur vbfrance

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

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

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 09 07:12:24

ESSAYEZ WINDOWS 7 GRATUITEMENT DèS DEMAIN par fabien

LUCENE - IGNORER LES ACCENTS LORS DE L'INDEXATION ET LA RECHERCHE | IGNORE DIACRITICS par cyril

MESH OBJECTS BROWSER - MOB 1.0 SUR CODEPLEX par redo

MICROSOFT TAG par khamlon

[LINQTOSQL] REQUêTES ASYNCHRONES SIMULTANéES par NeuroCypher

RE : SOCKET... par Guigar

RE : DATE DE CRéATION D'UN FICHIER par Renfield

RE : MACRO WORD RECHERCHE DE PUCE par Orohena

RE : RECHERCHE D'UNE VALEUR DANS EXCEL EN VBS par SAFENil

RE : AFFICHER DYNAMIQUEMENT LA VALEUR DE LA COULEUR POINTéE PAR LA SOURIS SUR UNE IMAGE par Orohena

+ de logiciels à télécharger

1 330 610 membres
75 nouveaux aujourd'hui
14 644 membres club

Trouver une ressource

Trouvez une ressource parmi 39 262 codes, 1 223 252 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 !

20 commentaire(s) de TFlorian sur des sources sur vbfrance

Le : 25/11/2007 01:12:08
Source : LIRE LA TAILLE D'UNE IMAGE D'UN FICHIER JPEG (TRÈS RAPIDE)

GÉNIAL !
J'ai réussi à récupérer des images suite à un formatage d'un disque...
Après la récupération des fichiers les photos mes images ne faisaient plus que 160 x 120 au lieu de 1600 x 1200 ..
Grâce a ton code j'ai compris la structure du JPEG et j'ai réussi à le décortiquer pour récupérer mes images HD ..
(Lorsque le fichier n'avait pas été trop détruit dut à une fragmentation trop importante du disque.. )

D'un point de vue perf, je préfère ta méthode que les méthodes toutes faire car on ne lit qu'une seule foi le fichier (sur le disque) alors que les APIs des Windows comme on les appels plusieurs fois, font plusieurs accès disque

Encore merci, et bonne prog a tous ;-)

TFlorian

Le : 10/11/2007 12:20:07
Source : VAGUE EN DIRECT3D

Vraiment superbe !

perso j'ai rajouter des sliders pour changer les paramètres DETAIL AMPLITUDE FREQUENCY SIZE

j'aime bien avec les valeurs :

DETAIL = 0.3
AMPLITUDE = 1
FREQUENCY = 1
SIZE = 2

par contre ça prend tout le CPU :-(

Suffit de mettre une boucle tempo ...
dans RenderIt avant le doEvents on met Sleep (10)
et à la première ligne de la form :
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Ça permet d'endormie la feuille, ça ralenti dont l'exécution du programme ... mais ça laisse le temps d'admirer l'image qui vient d'être faite (surtout en SIZE =1)

Bonne prog a tous ;-)
TFlorian.

Le : 06/09/2006 00:21:43
Source : USB DÉTECTER LA CONNEC/DÉCONNECTION D’UN PÉRIPHÉRIQUE DE STOCKAGE.

code exemplaire au niveau des commentaires

superbe !

Bravo

Le : 24/01/2006 21:24:32
Source : UTILISATION DE LA TÉLÉCOMMANDE REMOTE WONDER (X10NET.DLL)

c'est C'EST !!! EXTRAORDINAIRE !!!!

c'est de la vrai magie !! autant d'information en si peut de ligne !!

c'est inouï !!

BRAVO !
et surtout un grand merci !
(bon la DLL est vraiment puissante c'est elle qui fait tout ! )

Le : 19/12/2005 21:07:27
Source : ACCES DIRECT DISQUE

Un travail de titan !

Bravo !!
Et bon courage pour la suite !! !
10/10

Le : 01/02/2005 22:16:18
Source : AIDE SERVEUR WEB

Bonjour,
il me semble qu'une petite erreur s'est glissée dans le code :

dans  :
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
la déclaration
Dim dat

devrait être de type string comme suivant :
Dim dat As String

cela pèrmet de LIRE...  ce qui est recus !
c'est beaucoup plus claire après ;-)

Aller bonne prog !

(heu pour ceux qui voudrais faire un "serveur" celui ci ne permet  qu'une seur reponse...
pour lui autoriser de repondre plusieur fois, il suffi de rajouter  :
Winsock.Listen
dans :
Private Sub Winsock_SendComplete()
   Winsock.Close
   Winsock.Listen
End Sub
)

sinon tout marche ;-)

( sur le port 10 : dans la barre du navigateur, 127.0.0.1:10

merci pour ce code :-)

TFlorian.

Le : 07/03/2004 11:13:20
Source : LANCEZ RAPIDEMENT VOS LOGICIELS

Tres bonne Idée, il falais y pensser

Le : 28/02/2004 14:41:53
Source : CRÉATION ET UTILISATION D'UNE DLL ACTIVEX VB

Merci beaucoup pour cette source,

elle m'a permi d'expoter la fonction printer de VB et de l'utiliser sous excel (et non cette fonction n'est pas dispo :-( dans le vb d'excel !!! )

Bon code a tous ;)

TFlorian.

Le : 05/01/2003 11:39:55
Source : RECUPERER UNE PAGE WEB HTML AVEC WINSOCK

pour les retour a la ligne :
text1.MultiLine=true ca doit marcher ....

Le : 11/05/2002 23:05:36
Source : TRANSPARENCE RAPIDE ENTRE DEUX PICTUREBOX

Bonjour,

il me semble qu'il manque des petit element ...

Private Declare Function AlphaBlend Lib "msimg32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal widthSrc As Long, ByVal heightSrc As Long, ByVal blendFunct As Long) As Boolean

Private Type BLENDFUNCTION
        BlendOp As Byte
        BlendFlags As Byte
        SourceConstantAlpha As Byte
        AlphaFormat As Byte
End Type

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
'----------------------------------------------------------------------------
Private Sub slider1_Scroll()
        Dim Blend As BLENDFUNCTION, BlendLng As Long

        Blend.SourceConstantAlpha = 255 - slider1

        CopyMemory BlendLng, Blend, 4

        picture2.Cls
        AlphaBlend picture2.hDC, 0, 0, picture2.ScaleWidth, picture2.ScaleHeight, _
                picture1.hDC, 0, 0, picture1.ScaleWidth, picture1.ScaleHeight, BlendLng
        picture2.Refresh

        'Picture2.Picture = picture2.Image
End Sub

Private Sub Form_Load()
'initialisation des outils
    Slider1.Max = 255

    Picture1.AutoRedraw = True
    Picture2.AutoRedraw = True

    Picture1.ScaleMode = vbPixels
    Picture2.ScaleMode = vbPixels

End Sub

il faut mettre deux images differantes dans les picutrebox, il faut toujout un slider (comctl32.ocx)

enfin ya plus qu'a glisser ;-)

merci pour ton code !

TFlorian.