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 19:53:33
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 !

200 commentaire(s) de Neo.balastik sur des sources sur tout CodeS-SourceS

Le : 23/10/2007 09:49:19
Source : RICHTEXTBOX: IMPRESSION DES IMAGES
Ok, merci pour ton travail.

Le : 19/10/2007 16:01:27
Source : RICHTEXTBOX: IMPRESSION DES IMAGES
Quand je pense que j'ai déposé cette source il y a plus de 5 ans...  
Et un heureux de plus ;O)

Le : 21/03/2007 08:52:53
Source : FOND D'UN LISTVIEW: AFFICHER DES BARRES DE COULEUR CONFIGURABLES (CLASS)
Si mes souvenirs sont bons il faut aussi enregistrer ssubtmr6.dll.

Le : 17/02/2007 14:44:59
Source : COMMENT INTÉGRER UN FORMULAIRE DANS UN AUTRE FORMULAIRE
Ben oui, c'est un code pour VB6 et non VB.NET.  Il faut toujours le préciser...
pour .NET je ne peux t'aider...

Le : 16/02/2007 21:56:18
Source : COMMENT INTÉGRER UN FORMULAIRE DANS UN AUTRE FORMULAIRE
Salut ;O)

Imagine un bouton nommé MyButton sur un formulaire nommé MyForm1.  Ce bouton ouvre un autre formulaire nommé MyForm2 qui sera intégré dans MyForm1.

Sur l'événement Click de MyButton, place le code suivant :
MyForm2.Show
FormWithinForm Me, MyForm2

Concernant le code tout au dessus, place-le soit dans un formulaire ou dans un module.

Guy

Le : 19/08/2006 16:03:05
Source : ACTIVEX REGISTRATION
vbPink >  Avec toutes ces lignes de codes, c'est toi qui gère le processus en entier sans devoir passer par une façon de faire dont on est dépendant.
L'intêret principal est de pouvoir gérer les codes de retour.

Le : 19/08/2006 13:38:55
Source : ACTIVEX REGISTRATION
Salut à tous

Voici le code full API à placer dans un module.  Ce code n'est pas de moi.

Utilisation pour l'enregistrement : Retval = RegisterComponent("C:\WINNT\SYSTEM32\monocx.ocx", DllRegisterServer)
Utilisation pour le 'désenregistrement' : Retval = RegisterComponent("C:\WINNT\SYSTEM32\monocx.ocx", DllUnRegisterServer)

Retval étant de type long retournant un code de status

File Could Not Be Loaded Into Memory Space = 1
Not A Valid ActiveX Component = 2
ActiveX Component Registration Failed = 3
ActiveX Component Registered Successfully = 4
ActiveX Component UnRegistered Successfully = 5



Option Explicit

Private Declare Function LoadLibraryRegister Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibraryRegister Lib "kernel32" Alias "FreeLibrary" (ByVal hLibModule As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetProcAddressRegister Lib "kernel32" Alias "GetProcAddress" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CreateThreadForRegister Lib "kernel32" Alias "CreateThread" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpparameter As Long, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function GetExitCodeThread Lib "kernel32" (ByVal hThread As Long, lpExitCode As Long) As Long
Private Declare Sub ExitThread Lib "kernel32" (ByVal dwExitCode As Long)

Private Const STATUS_WAIT_0 = &H0
Private Const WAIT_OBJECT_0 = ((STATUS_WAIT_0) + 0)

Public Enum REGISTER_FUNCTIONS
    DllRegisterServer = 1
    DllUnRegisterServer = 2
End Enum

Public Enum STATUS
     [File Could Not Be Loaded Into Memory Space] = 1
     [Not A Valid ActiveX Component] = 2
     [ActiveX Component Registration Failed] = 3
     [ActiveX Component Registered Successfully] = 4
     [ActiveX Component UnRegistered Successfully] = 5
End Enum

Public Function RegisterComponent(ByVal Filename As String, ByVal RegFunction As REGISTER_FUNCTIONS) As STATUS

'**********************************************************************************
'Author: Vasudevan S
'Helena, MT
'Function: RegisterComponent
'Purpose: Registers/Unregisters any ActiveX DLL/EXE/OCX component
         'Entry Points in ActiveX DLL/EXE/OCX are DllRegisterServer and DllUnRegisterServer
'Input: FileName:       Any valid file with complete path
        'RegFunction:   Enumerated Type(DllRegisterServer, DllUnregisterServer)
'Returns: Returns the status of the call in a enumerated type
'Comments: The utility REGSVR32.EXE need not be used to register/unregister ActiveX
           'components. This code can be embedded inside any application that needs
           'to register/unregister any ActiveX component from within the code base
'SAMPLE FORM IS INCLUDED
'WORKS IN VB5.0/6.0
          
'HOW TO CALL:
'-----------
'Dim mEnum As STATUS
'
'TO REGISTER A COMPONENT USE
'mEnum = RegisterComponent("C:\windows\system\filename.dll", DllRegisterServer) 'to Register
'
'If mEnum = [File Could Not Be Loaded Into Memory Space] Then
'   MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [Not A Valid ActiveX Component] Then
'   MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component Registration Failed] Then
'   MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component Registered Successfully] Then
'   MsgBox "Your Message Here", vbExclamation
'End If
'
'TO UNREGISTER A COMPONENT USE
'mEnum = RegisterComponent("C:\windows\system\filename.dll", DllUnRegisterServer) 'to UnRegister
'
'If mEnum = [File Could Not Be Loaded Into Memory Space] Then
'   MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [Not A Valid ActiveX Component] Then
'   MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component Registration Failed] Then
'   MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component UnRegistered Successfully] Then
'   MsgBox "Your Message Here", vbExclamation
'End If
'************************************************************************************


Dim lngLib&, lngProcAddress&, lpThreadID&, fSuccess&, dwExitCode&, hThread&

If Filename = "" Then Exit Function

lngLib = LoadLibraryRegister(Filename)
If lngLib = 0 Then
    RegisterComponent = [File Could Not Be Loaded Into Memory Space]    'Couldn't load component
Exit Function
End If

Select Case RegFunction
Case REGISTER_FUNCTIONS.DllRegisterServer
    lngProcAddress = GetProcAddressRegister(lngLib, "DllRegisterServer")
Case REGISTER_FUNCTIONS.DllUnRegisterServer
    lngProcAddress = GetProcAddressRegister(lngLib, "DllUnregisterServer")
Case Else
End Select

If lngProcAddress = 0 Then
   RegisterComponent = [Not A Valid ActiveX Component]               'Not a Valid ActiveX Component
   If lngLib Then Call FreeLibraryRegister(lngLib)
   Exit Function
Else
   hThread = CreateThreadForRegister(ByVal 0&, 0&, ByVal lngProcAddress, ByVal 0&, 0&, lpThreadID)
   If hThread Then
        fSuccess = (WaitForSingleObject(hThread, 10000) = WAIT_OBJECT_0)
        If Not fSuccess Then
           Call GetExitCodeThread(hThread, dwExitCode)
           Call ExitThread(dwExitCode)
           RegisterComponent = [ActiveX Component Registration Failed]        'Couldn't Register.
           If lngLib Then Call FreeLibraryRegister(lngLib)
           Exit Function
        Else
            If RegFunction = DllRegisterServer Then
                RegisterComponent = [ActiveX Component Registered Successfully]         'Success. OK
            ElseIf RegFunction = DllUnRegisterServer Then
                RegisterComponent = [ActiveX Component UnRegistered Successfully]         'Success. OK
            End If
        End If
        Call CloseHandle(hThread)
        If lngLib Then Call FreeLibraryRegister(lngLib)
   End If
End If
End Function

Le : 31/05/2006 16:11:18
Source : CLICK AND GO 3D
Que dire...  du très grand art !  Bravo !

Le : 15/04/2006 19:35:19
Source : NET SEND VBA ACCESS
Lancer une commande (ici un net Send) via un Shell est un bricolage.  Certes ca marche mais comment sais-tu si ta commande a échoué ou pas ?  La seule et unique méthode valable reste l'utilisation de l'API NetMessageBufferSend de la DLL netapi32.dll qui est utilisée pour un Net Send.

Un exemple VB ici :
http://www.ostrosoft.com/vb/projects/net_send/index.asp




Le : 29/03/2006 10:28:12
Source : OBTENIR LA VERSION DE DIRECT X INSTALLÉE
La méthode ne me séduit pas vu qu'il y a obligation d'intégrer dsetup.dll dans System32.
Pourquoi ne pas aller chercher directement la version de DirectX dans la registry ?
Voici un exemple en VB utilisant WSH (WScript.Shell).  On aurait pu passer par API, mais bcp plus de code...

Dim objShell
Dim strKey, strKey2
Dim strDirectXVersion
Dim arrayBytes, byt, s

strKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectX\Version"
strKey2 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectX\InstalledVersion"

Set objShell = CreateObject("WScript.Shell")

strDirectXVersion = objShell.RegRead(strKey)

arrayBytes = objShell.RegRead(strKey2)

'WSH est incapable de convertir une valeur binaire dans le registre.
'On transforme donc le résultat obtenu sous une forme compatible sinon il y aura erreur si
'l'on tente de lire directement la valeur
For Each byt In arrayBytes
  s = s & Right("0" & Hex(byt), 2) & " "
Next

MsgBox "DirectX version " & strDirectXVersion & vbCrLf & "Installed Version (valeur binaire): " & s

Guy


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20


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


Samsung CLX-3175FW Multifunction Laser Colour Printer Laser
Entre 389€ et 469€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto femme, plage, bien être, soleil, vacances, été, détente, repos
Photo adolescente plagePhoto adolescente

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