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:14:51
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 !

71 commentaire(s) de DedeSurf sur des sources sur tout CodeS-SourceS

Le : 05/01/2009 20:09:43
Source : UTILITAIRE MP3 VERSION 3 - EDITEUR DES TAG ID3 V1, V2.*, MPEG - SAUVEGARDE DES TAG ID3 V1, V2.* - GESTION A GRANDE ECHELLE DES TAG
Salut, belle source.
J'ai fais un peu la mm source en csharp, sof que j'ai pas encore attaqué la sauvegarde des tags.
Enfet je bloque sur la pochette du titre.
D'après le site id3.org le tag approrpié a cette image serais 'APIC' mais le resultat est null, je cherche déspérement une solution.
Merci de votre aide

Le : 01/03/2008 23:43:27
Source : INCLURE POCHETTE D'ALBUM / JAQUETTE DANS VOS TAG MP3 - EDITION TAG V2
Salut,

Comment on ouvre un mp3 et comment on insert l'image ? aucun menu aucun boutton et drag and drop ne marche pas

Comment je fais ?

Merci ;)

Le : 15/01/2008 19:32:24
Source : DLL DE CONNEXION FTP POUR NET EN VB6
Salut a tous je voulais juste savoir comment tu récupérai des fichiers dans un autre répertoire ?

Le : 23/12/2007 00:19:27
Source : CHANGER L'ICONE D'UNE FORM, LIVRÉ AVEC ICONS ET SOURCES, MARCHE TRÈS BIEN!!!
Option Explicit

Public Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Public Declare Function ReleaseCapture Lib "user32" () As Long ' et de la relacher

' déclaration pour fonction TransRegion

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000

Public Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Declare Function GetWindowLong Lib "user32" _
  Alias "GetWindowLongA" (ByVal hWnd As Long, _
  ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" _
   Alias "SetWindowLongA" (ByVal hWnd As Long, _
   ByVal nIndex As Long, ByVal dwNewLong As Long) _
   As Long

Private Declare Function SetLayeredWindowAttributes Lib _
    "user32" (ByVal hWnd As Long, ByVal crKey As Long, _
    ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Public Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type
' Structure contenant des infos sur une image
Public Type PICTDESC
    ' Normalement cette structure contient une union mais VB ne les gère pas
    cbSizeofStruct As Long      ' Taille de cette structure
    picType As Long             ' Type d'image : ICON, BITMAP, METAFILE, ENHMETAFILE
    ' Début union
        hImage As Long          ' Handle de l'image
        xExt As Long            ' Taille x de l'image pour une METAFILE
        yExt As Long            ' Taille y de l'image pour une METAFILE
End Type
' picType de PICTDESC pour une ICON
Public Const PICTYPE_ICON = 3
'permet de convertir une structure PICTDESC (et donc un handle d'image) en un IPictureDisp (= StdPicture)
Public Declare Sub OleCreatePictureIndirect Lib "oleaut32.dll" (ByRef lpPictDesc As PICTDESC, ByRef riid As GUID, ByVal fOwn As Long, ByRef lplpvObj As IPictureDisp)

Public Function GetIcon(ByVal Path As String) As IPictureDisp
Dim  hIco As Long
hIco = ExtractAssociatedIcon(0, Path, 0)
Set GetIcon = GetIconFromHandle(hIco)
End Function

Public Function GetIconFromHandle(hIcon As Long) As IPictureDisp
    ' Le REFIID de IPictureDisp (=GUID)
    Dim IID_IPictureDisp As GUID
    ' Infos sur l'icone
    Dim lpIcon As PICTDESC
    'on met place l'IID de IPictureDisp
    IID_IPictureDisp.Data1 = &H7BF80981
    IID_IPictureDisp.Data2 = &HBF32
    IID_IPictureDisp.Data3 = &H101A
    IID_IPictureDisp.Data4(0) = &H8B
    IID_IPictureDisp.Data4(1) = &HBB
    IID_IPictureDisp.Data4(2) = &H0
    IID_IPictureDisp.Data4(3) = &HAA
    IID_IPictureDisp.Data4(4) = &H0
    IID_IPictureDisp.Data4(5) = &H30
    IID_IPictureDisp.Data4(6) = &HC
    IID_IPictureDisp.Data4(7) = &HAB
    ' On initialise les champs requis :
    lpIcon.cbSizeofStruct = Len(lpIcon)
    lpIcon.hImage = hIcon
    ' le type : ICON
    lpIcon.picType = PICTYPE_ICON
    'on demande la création d'une interface de type IPictureDisp pour le handle d'icône
    'et en indiquant de ne pas effacer le HICON quand l'interface est libéré
    OleCreatePictureIndirect lpIcon, IID_IPictureDisp, 0, GetIconFromHandle
End Function

public sub form_load()
   icon = geticon("bla bla/n")
end sub

Voila le tours est joué l'icone encore une fois n'est pas de très bonne qualité mais y a la transparence ! deplus les déclarations sont soit dans un module soit elle sont privées

Je t'ai collé une icone dans les règle de l'art !

++

Le : 22/12/2007 23:39:58
Source : CHANGER L'ICONE D'UNE FORM, LIVRÉ AVEC ICONS ET SOURCES, MARCHE TRÈS BIEN!!!
Pour info le translash ne fonctionne pas ici, je ne sais pas pk.
Mais moi sa me fais marré de vous voir pinaillé pr sa !
Sinan la source ... ba jen vois pas l'interet de plus que LoadPicture ouvrir des bitmap !
Donc il ouvrira l'icone aux format bitmap et tous le monde s'est que comme le jpeg il y a pas de couleur transparente comme l'icone curseur gif png .... donc l'icone sera moche bof bof bof
même avec ExtractIcon DrawIcon, et meme avec sa sa donne la couleur de fond du control avec le quel tu travail a moin d'arrivé a travaillé juste avec une variable IPicturedisp ...

++

Le : 02/12/2007 22:13:14
Source : "CONTRÔLER" MSN MESSENGER
Bonjour j'ai Windows Vista, VB6 pro, Live messenger version 2008 8.5, Messenger plus live 4.23, et mon problème est tous con mais super chiant, en déboguage il me donne l'erreur suivante "Erreur Automation
ClassFactory ne peut pas fournir la classe demandée" sur la ligne "Set MSN = New messengerapi.Messenger", mais quand le programme est compilé le programme marche très bien (VB6 a toutes les autorisations possible éxécuté avec les privilèges admin et en mode compatible XP SP2)

Si vous avez une réponse

Le : 23/05/2007 13:02:16
Source : ENVOI D'EMAIL (ANONYME OU PAS)
VicoLaChips2 : L'expression Bug vien d'une bestiolle genre un papillon ! qui s'es retrouvé entre des relais se qui a causé un "bug" dans un programme ("Mark II").

Le : 21/01/2007 01:10:11
Source : VUMETRE A AIGUILLE ET NUMERIQUE (SORTIE AUDIO CARTE SON)
Tu ouvre avec VB ! j'ai jamais vu une question comme sel la !
Tu a oublié de mettre les fonctions et travaillez avec :
Private Declare Function waveoutAddBuffer Lib "winmm" (ByVal InputDeviceHandle As Long, ByVal WaveHdrPointer As Long, ByVal WaveHdrStructSize As Long) As Long
Private Declare Function waveoutPrepareHeader Lib "winmm" (ByVal InputDeviceHandle As Long, ByVal WaveHdrPointer As Long, ByVal WaveHdrStructSize As Long) As Long
Private Declare Function waveoutUnprepareHeader Lib "winmm" (ByVal InputDeviceHandle As Long, ByVal WaveHdrPointer As Long, ByVal WaveHdrStructSize As Long) As Long

Private Declare Function waveoutGetNumDevs Lib "winmm" () As Long
Private Declare Function waveOutGetDevCaps Lib "winmm" Alias "waveOutGetDevCapsA" (ByVal uDeviceID As Long, ByVal WaveInCapsPointer As Long, ByVal WaveInCapsStructSize As Long) As Long

Private Declare Function waveOutOpen Lib "winmm" (WaveDeviceInputHandle As Long, ByVal WhichDevice As Long, ByVal WaveFormatExPointer As Long, ByVal CallBack As Long, ByVal CallBackInstance As Long, ByVal Flags As Long) As Long
Private Declare Function waveOutClose Lib "winmm" (ByVal WaveDeviceInputHandle As Long) As Long

Private Declare Function waveOutStart Lib "winmm" (ByVal WaveDeviceInputHandle As Long) As Long
Private Declare Function waveOutReset Lib "winmm" (ByVal WaveDeviceInputHandle As Long) As Long
Private Declare Function waveOutStop Lib "winmm" (ByVal WaveDeviceInputHandle As Long) As Long

Il me reste pas mal de boulot pour tous refaire !
je te donnerais la source une fois fini

Le : 21/01/2007 00:55:34
Source : VUMETRE AUDIO
Moi j'ai VB6 et XP et j'ai un message de windows qui me dit que on a envoyer une connerie dans une fonction system et sans plante VB6 :s sinon sa a avais l'aire pas mal

Le : 20/01/2007 03:42:27
Source : CRÉER UN MENU CONTEXTUEL (CLICK DROIT) EN 3 LIGNES DE CODE...
Voici un semi "god" pour vous : DarkSidious un vrais PGM
regardez sa source vous allez pleuré :p
http://www.vbfrance.com/codes/MENU-CREE-DYNAMIQUEMENT-SANS-PASSER-ASSISTANT-VB_27410.aspx


1 2 3 4 5 6 7


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


Console Nintendo DSi Noire
Entre 169€ et 170€


Visiter le guide achat

Photothèque Nouveau !

Photo friends at the beach.Photo femme, plage, bien être, soleil, vacances, été, détente, repos
Photo Cockpit Airbus A320 Photo handsome man

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,250 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é.