begin process at 2010 02 10 13:37:04
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Trucs & Astuces

 > DÉFI: PROBLÈMES IRÉSOLUT EN VB

DÉFI: PROBLÈMES IRÉSOLUT EN VB


 Information sur la source

Note :
7,25 / 10 - par 4 personnes
7,25 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Trucs & Astuces Classé sous :problème, irrésolut, défi Niveau :Initié Date de création :24/07/2002 Date de mise à jour :24/07/2002 05:58:03 Vu :4 000

Auteur : XGuarden

Ecrire un message privé
Commentaire sur cette source (18)
Ajouter un commentaire et/ou une note

 Description

Voici quelque probeme que jai pas encore résolut.
1)Toufer le app.path parent :Je créer un ocx et mon ocx doit aller lire dans le app.path du projet auqel il est ajouter. (Le app.path du ocx est pas lui du projet forcément)
2)avec un ocx: Créer un(type de) public enum avec les fichier dans un dossier : example:
L'utilisateur entre DreamMedia(ocx).lireMusique(choix des musiques présent dans le dossier)
example:

OcX.JouerMusique(PremiereMusiqu e)
                           (2e musique      )
Note:les musique ne sont pas constante,il peu en avoir une seul comme 1000.



3)Je cherche comment personaliser un ocx(créer son propre petite case dans le coté.....
jenre créer loption personamlisé et metre ses option comme on veut ert non prendre les préfait.(((jwenre ajouter loption ListeFIchier ou personaliser a meme place que caption,top,left......vous devez acvoir comprit =:0)


4)Comment metre un poblic enum simplement a un ocx sa marche pas(un example et sa vas etre ok)

5)et derniere...Voici un code que je veut rapetiser ou optimiser a vous de vous esayer(sé un ocx(renommer variable indexer,tout est permit)jaimerais bien voi comment faire des Fonction avec mon code,bref minimiser la taille augmenter la vitesse et commentaire je mexcuse lol)

Source

  • 'Public Property Get JouerMusique1() As Long
  • 'JouerMusique = m_BackColor
  • 'End Property
  • '******************************************
  • '** Author: Marc Baril **
  • '** Date: 19/01/2002 **
  • '******************************************
  • '** Description: Simplification de **
  • '** Clsmultimdia **
  • '** Wav,Midi,AVI **
  • '******************************************
  • '** Tested: On Windows 98 and XP **
  • '** **
  • '******************************************
  • '1 - Ajouter les musiques et les sons dans un répetoire respectif de votre projet
  • '2 - Ajouter Se module se module ainsi que Execution.frm dans votre projet
  • '3 - Ajouter Initialiser dans le Form_Load ou Form_Initialize de votre projet
  • '4 - Pour jouer une musique utiliser JouerMusique (Index de la musique)
  • '5 - Pour jouer un son utiliser JouerSound (Index du son)
  • '7 - Commande utilisé: JouerMusique,JouerSound,PauseMusique,StopMusique,ContinueMusique
  • Dim IsInitialiser, IsNotReInitialiser, IsContainFileOnInit, IsGoodFileNameOnInit, IsGoodIndex, IsOkBeforeRead, IsGoodFile, IsGoosType, IsGoodName, IsGoodFolder As Boolean 'sur form fairre arbre des erreur..
  • Dim NbMusique, NbSound, NbVideo As Integer
  • Dim LireMusique(60), LireSound(60), LireVideo(60) As String
  • Dim Filepath As String
  • Public Enum Type_Degrade
  • Escalier = 1
  • Glisanto = 2
  • End Enum
  • Public Enum Arret_Type
  • Musique = 1
  • Sound = 2
  • Tout = 3
  • End Enum
  • Public Sub Initialiser()
  • Dim Find As String
  • If Execution.MMPlayer.IsSoundCardEnabled Then Else: Message (6)
  • Find = Dir(App.Path & "\Musique\" & "*.*")
  • If Find <> "" Then
  • Do
  • If Find <> "." And Find <> ".." Then
  • NbMusique = NbMusique + 1
  • LireMusique(NbMusique) = "\Musique\" & Find
  • End If
  • Find = Dir()
  • Loop Until Find = ""
  • End If
  • Find = Dir(App.Path & "\Sound\" & "*.*")
  • If Find <> "" Then
  • Do
  • If Find <> "." And Find <> ".." Then
  • NbSound = NbSound + 1
  • LireSound(NbSound) = "\Sound\" & Find
  • End If
  • Find = Dir()
  • Loop Until Find = ""
  • End If
  • Find = Dir(App.Path & "\Video\" & "*.*")
  • If Find <> "" Then
  • Do
  • If Find <> "." And Find <> ".." Then
  • NbVideo = NbVideo + 1
  • LireVideo(NbVideo) = "\Video\" & Find
  • End If
  • Find = Dir()
  • Loop Until Find = ""
  • End If
  • End Sub
  • '************************************************************************************
  • '************************************************************************************
  • '************************************************************************************
  • Public Sub JouerMusique(Index As Integer)
  • If IsNumeric(Index) Then
  • If Index <= NbMusique And Index > 0 Then
  • Filepath = App.Path & LireMusique(Index)
  • Execution.MMPlayer.FileName = Filepath
  • Execution.MMPlayer.Play
  • Else
  • If Index = 0 Then Message (7) Else Message (8)
  • End If
  • Else
  • Execution.MVPlayer.FileName = App.Path & "\Musique\" & Index
  • End If
  • End Sub
  • Public Sub JouerSound(Index As Integer)
  • If IsNumeric(Index) Then
  • If Index <= NbSound And Index > 0 Then
  • Filepath = App.Path & LireSound(Index)
  • Execution.SMPlayer.FileName = Filepath
  • Execution.SMPlayer.Play
  • Else
  • If Index = 0 Then Message (9) Else Message (10)
  • End If
  • Else
  • Execution.MVPlayer.FileName = App.Path & "\Sound\" & Index
  • End If
  • End Sub
  • Public Sub JouerVideo(Emplacement_X As Integer, Emplacement_Y As Integer, Largeur As Integer, Longueur As Integer, Nom_du_Video As String)
  • Execution.Height = Longueur
  • Execution.Width = Largeur
  • Execution.Top = Emplacement_Y
  • Execution.Left = Emplacement_X
  • Execution.MVPlayer.Height = Longueur
  • Execution.MVPlayer.Width = Largeur
  • Execution.MVPlayer.Top = 0
  • Execution.MVPlayer.Left = 0
  • Execution.Show
  • If IsNumeric(Nom_du_Video) Then
  • If Nom_du_Video <= NbVideo And Nom_du_Video > 0 Then
  • Filepath = App.Path & LireVideo(Nom_du_Video)
  • Execution.MVPlayer.FileName = Filepath
  • Execution.MVPlayer.Play
  • Else
  • If Nom_du_Video = 0 Then Message (7) Else Message (8)
  • End If
  • Else
  • Execution.Show
  • Execution.MVPlayer.FileName = App.Path & "\Video\" & Nom_du_Video
  • End If
  • End Sub
  • '************************************************************************************
  • '************************************************************************************
  • '************************************************************************************
  • Public Sub StopMultimedia(Apliquation_sur As Integer)
  • On Error Resume Next
  • If Apliquation_sur = 1 Then Execution.MMPlayer.Stop
  • If Apliquation_sur = 1 Then Execution.MMPlayer.CurrentPosition = 1
  • If Apliquation_sur = 2 Then Execution.SMPlayer.Stop
  • If Apliquation_sur = 3 Then Execution.MMPlayer.Stop
  • If Apliquation_sur = 3 Then Execution.MMPlayer.CurrentPosition = 1
  • If Apliquation_sur = 3 Then Execution.SMPlayer.Stop
  • End Sub
  • Public Sub PauseMusique()
  • On Error Resume Next
  • Execution.MMPlayer.Pause
  • End Sub
  • '************************************************************************************
  • '************************************************************************************
  • '************************************************************************************
  • Public Sub SautMusique(Saut_de_combien_de_seconde As Integer)
  • On Error Resume Next
  • If Execution.MMPlayer.PlayState <> mpPlaying Then Exit Sub
  • Execution.MMPlayer.CurrentPosition = Execution.MMPlayer.CurrentPosition + Saut_de_combien_de_seconde
  • End Sub
  • Public Sub ContinueMusique()
  • On Error Resume Next
  • Execution.MMPlayer.Play
  • End Sub
  • '************************************************************************************
  • '************************************************************************************
  • '************************************************************************************
  • Public Sub VolumeMusique(Nouveau_Volume_en_pourcentage As Integer, Apliquation_sur As Integer)
  • On Error Resume Next
  • Volume = (Nouveau_Volume_en_pourcentage * 25) - 2500
  • If Apliquation_sur = 1 Then Execution.MMPlayer.Volume = Volume
  • If Type_Volume = 2 Then Execution.SMPlayer.Volume = Volume
  • If Apliquation_sur = 3 Then Execution.MMPlayer.Volume = Volume
  • If Apliquation_sur = 3 Then Execution.SMPlayer.Volume = Volume
  • Execution.MMPlayer.Mute = IIf(Volume + 2500 = 0, True, False)
  • End Sub
  • Public Sub DegradeMusique(Durée_du_dégrader As Integer, Nouveau_Volume_en_pourcentage As Integer, Type_De_dégrader As Integer)
  • On Error Resume Next
  • Dim VolumeActuel As Integer
  • Dim Facteur As Integer
  • VolumeActuel = Execution.MMPlayer.Volume
  • Facteur = ((((Nouveau_Volume_en_pourcentage * 25) - 2500) - VolumeActuel) / Durée_du_dégrader)
  • Durée_du_dégrader = IIf(Type_Deg = Escalier, Durée_du_dégrader, Durée_du_dégrader * 10)
  • For I = 1 To Durée_du_dégrader
  • If Type_De_dégrader = Escalier Then Execution.MMPlayer.Volume = Execution.MMPlayer.Volume + Facteur Else Execution.MMPlayer.Volume = Execution.MMPlayer.Volume + Facteur / 10
  • If I = Durée_du_dégrader Then Execution.MMPlayer.Volume = (Nouveau_Volume_en_pourcentage * 25) - 2500
  • Execution.MMPlayer.Mute = IIf(Execution.MMPlayer.Volume = -2500, True, False)
  • DoEvents
  • If Type_De_dégrader = Escalier Then Pause 1 Else Pause 0.1
  • Next I
  • End Sub
  • Public Sub BalanceMusique(Nouvelle_Balance_de_100_a_minus_100 As Integer, Apliquation_sur As Integer)
  • On Error Resume Next
  • If Apliquation_sur = 1 Then Execution.MMPlayer.Balance = Nouvelle_Balance_de_100_a_minus_100 * 50
  • If Apliquation_sur = 2 Then Execution.SMPlayer.Balance = Nouvelle_Balance_de_100_a_minus_100 * 50
  • If Apliquation_sur = 3 Then Execution.MMPlayer.Balance = Nouvelle_Balance_de_100_a_minus_100 * 50
  • If Apliquation_sur = 3 Then Execution.SMPlayer.Balance = Nouvelle_Balance_de_100_a_minus_100 * 50
  • End Sub
  • Public Sub Message(Index As Integer)
  • If Index = 7 Then MsgBox ("Un appel à la musique indexée 0 a été faite,changer l'indexe inexistant s,il s'agit d'une erreur de code et Vérifier que la musique désirée se trouve bien dans le répertoire Musique dans un sous dossier de votre projet")
  • If Index = 8 Then MsgBox ("Un appel à la musique don l'index est inéxistante a été faite,mais la musique appelée n'existe pas.Vous devez changé cet indexe.")
  • If Index = 9 Then MsgBox ("Un appel à un son indexé 0 a été faite,changer l'indexe inexistant s,il s'agit d'une erreur de code et Vérifier que le son désirée se trouve bien dans le répertoire Musique dans un sous dossier de votre projet")
  • If Index = 10 Then MsgBox ("Un appel à un son d'on l'index est inéxistante a été faite,mais le son appelé n'existe pas.Vous devez changé cet indexe.")
  • If Index = 11 Then MsgBox ("Les dossiers Musique et Sound dans votre projet son introuvable veyez les ajouter ,louverture du programme doit etre interompu.")
  • End Sub
  • '************************************************************************************
  • '************************************************************************************
  • 'Ajout pour simplifier la programmation
  • '************************************************************************************
  • 'Pause permet plusieur fonction symultané,mais Sleep jele tout les controles
  • 'Pause fontionne au 0.5 seconde et Sleep au miliemme
  • Public Sub Pause(NbSec As Single)
  • Dim Sortie As Single
  • Sortie = Timer + NbSec
  • DoEvents
  • Do Until Timer >= Sortie
  • Loop
  • End Sub
  • Private Sub UserControl_Resize()
  • UserControl.Height = 720
  • UserControl.Width = 720
  • End Sub
  • Maintenant la form execution avec du code de florant
  • 'Code de Florent.
  • 'Si vous ajoutez ce code dans un de vos programmes, citez-moi.
  • Option Explicit
  • Public OldWidth As Integer 'On va stocker l'ancienne largeur de la feuille dans cette variable
  • Public OldHeight As Integer 'De même pour le hauteur
  • Private Sub Form_Load()
  • OldWidth = Width 'Au chargement, l'ancienne largeur de la feuille est la largeur actuelle
  • OldHeight = Height 'De même pour la hauteur
  • End Sub
  • Private Sub Form_Resize()
  • On Error Resume Next 'Si il y a une erreur, on continue
  • Dim XCoeff As Single 'Le coefficient qui va nous servir pour la largeur et le placement horizontal des contrôles
  • Dim YCoeff As Single 'De même pour la hauteur et le placement vertical des contrôles
  • Dim Controle As Control 'Control représente n'importe quel contrôle de la feuille
  • XCoeff = Width / OldWidth 'Un simple rapport entre la nouvelle largeur et l'ancienne
  • YCoeff = Height / OldHeight 'Dee même pour la hauteur
  • For Each Controle In Me 'Pour chaque controle de la feuille...
  • Controle.Move Controle.Left * XCoeff, Controle.Top * YCoeff, Controle.Width * XCoeff, Controle.Height * YCoeff 'On le déplace et redimmentionne en même temps
  • Next 'Et on passe au suivant
  • OldWidth = Width 'On change l'ancienne largeur par la nouvelle
  • OldHeight = Height 'De même avec la hauteur
  • End Sub
  • 'vérifier fichier
  • 'Fichier_Existe= IIF(Dir(Path ) = "",true,false)
'Public Property Get JouerMusique1() As Long
    'JouerMusique = m_BackColor
'End Property
'******************************************
'**      Author: Marc Baril              **
'**        Date: 19/01/2002              **
'******************************************
'** Description: Simplification de       **
'**              Clsmultimdia            **
'**              Wav,Midi,AVI            **
'******************************************
'**      Tested: On  Windows  98 and  XP **
'**                                      **
'******************************************

'1 - Ajouter les musiques et les sons dans un répetoire respectif de votre projet
'2 - Ajouter Se module se module  ainsi que Execution.frm dans votre projet
'3 - Ajouter Initialiser dans le Form_Load ou Form_Initialize de votre projet
'4 - Pour jouer une musique utiliser JouerMusique (Index de la musique)
'5 - Pour jouer un son utiliser JouerSound (Index du son)
'7 - Commande utilisé: JouerMusique,JouerSound,PauseMusique,StopMusique,ContinueMusique
Dim IsInitialiser, IsNotReInitialiser, IsContainFileOnInit, IsGoodFileNameOnInit, IsGoodIndex, IsOkBeforeRead, IsGoodFile, IsGoosType, IsGoodName, IsGoodFolder As Boolean 'sur form fairre arbre des erreur..
Dim NbMusique, NbSound, NbVideo As Integer
Dim LireMusique(60), LireSound(60), LireVideo(60) As String
Dim Filepath As String
Public Enum Type_Degrade
    Escalier = 1
    Glisanto = 2
End Enum
Public Enum Arret_Type
    Musique = 1
    Sound = 2
    Tout = 3
End Enum

Public Sub Initialiser()
    Dim Find As String
    
    If Execution.MMPlayer.IsSoundCardEnabled Then Else: Message (6)
    
    Find = Dir(App.Path & "\Musique\" & "*.*")
        If Find <> "" Then
            Do
            If Find <> "." And Find <> ".." Then
                NbMusique = NbMusique + 1
                LireMusique(NbMusique) = "\Musique\" & Find
            End If
            Find = Dir()
            Loop Until Find = ""
         End If

    Find = Dir(App.Path & "\Sound\" & "*.*")
        If Find <> "" Then
            Do
            If Find <> "." And Find <> ".." Then
                NbSound = NbSound + 1
                LireSound(NbSound) = "\Sound\" & Find
            End If
            Find = Dir()
            Loop Until Find = ""
         End If
         
    Find = Dir(App.Path & "\Video\" & "*.*")
        If Find <> "" Then
            Do
            If Find <> "." And Find <> ".." Then
                NbVideo = NbVideo + 1
                LireVideo(NbVideo) = "\Video\" & Find
            End If
            Find = Dir()
            Loop Until Find = ""
         End If
End Sub
'************************************************************************************
'************************************************************************************
'************************************************************************************
Public Sub JouerMusique(Index As Integer)
    If IsNumeric(Index) Then
        If Index <= NbMusique And Index > 0 Then
            Filepath = App.Path & LireMusique(Index)
            Execution.MMPlayer.FileName = Filepath
            Execution.MMPlayer.Play
        Else
            If Index = 0 Then Message (7) Else Message (8)
        End If
    Else
        Execution.MVPlayer.FileName = App.Path & "\Musique\" & Index
    End If
End Sub

Public Sub JouerSound(Index As Integer)
    If IsNumeric(Index) Then
        If Index <= NbSound And Index > 0 Then
            Filepath = App.Path & LireSound(Index)
            Execution.SMPlayer.FileName = Filepath
            Execution.SMPlayer.Play
        Else
            If Index = 0 Then Message (9) Else Message (10)
        End If
    Else
        Execution.MVPlayer.FileName = App.Path & "\Sound\" & Index
    End If
End Sub

Public Sub JouerVideo(Emplacement_X As Integer, Emplacement_Y As Integer, Largeur As Integer, Longueur As Integer, Nom_du_Video As String)
    Execution.Height = Longueur
    Execution.Width = Largeur
    Execution.Top = Emplacement_Y
    Execution.Left = Emplacement_X
    Execution.MVPlayer.Height = Longueur
    Execution.MVPlayer.Width = Largeur
    Execution.MVPlayer.Top = 0
    Execution.MVPlayer.Left = 0
    Execution.Show
    If IsNumeric(Nom_du_Video) Then
        If Nom_du_Video <= NbVideo And Nom_du_Video > 0 Then
            Filepath = App.Path & LireVideo(Nom_du_Video)
            Execution.MVPlayer.FileName = Filepath
            Execution.MVPlayer.Play
            Else
                If Nom_du_Video = 0 Then Message (7) Else Message (8)
        End If
        Else
            Execution.Show
            Execution.MVPlayer.FileName = App.Path & "\Video\" & Nom_du_Video
    End If
End Sub
'************************************************************************************
'************************************************************************************
'************************************************************************************
Public Sub StopMultimedia(Apliquation_sur As Integer)
    On Error Resume Next
    If Apliquation_sur = 1 Then Execution.MMPlayer.Stop
    If Apliquation_sur = 1 Then Execution.MMPlayer.CurrentPosition = 1
        If Apliquation_sur = 2 Then Execution.SMPlayer.Stop
            If Apliquation_sur = 3 Then Execution.MMPlayer.Stop
            If Apliquation_sur = 3 Then Execution.MMPlayer.CurrentPosition = 1
            If Apliquation_sur = 3 Then Execution.SMPlayer.Stop
End Sub

Public Sub PauseMusique()
    On Error Resume Next
    Execution.MMPlayer.Pause
End Sub
'************************************************************************************
'************************************************************************************
'************************************************************************************
Public Sub SautMusique(Saut_de_combien_de_seconde As Integer)
    On Error Resume Next
    If Execution.MMPlayer.PlayState <> mpPlaying Then Exit Sub
    Execution.MMPlayer.CurrentPosition = Execution.MMPlayer.CurrentPosition + Saut_de_combien_de_seconde
End Sub

Public Sub ContinueMusique()
    On Error Resume Next
    Execution.MMPlayer.Play
End Sub
'************************************************************************************
'************************************************************************************
'************************************************************************************
Public Sub VolumeMusique(Nouveau_Volume_en_pourcentage As Integer, Apliquation_sur As Integer)
    On Error Resume Next
    Volume = (Nouveau_Volume_en_pourcentage * 25) - 2500
    If Apliquation_sur = 1 Then Execution.MMPlayer.Volume = Volume
        If Type_Volume = 2 Then Execution.SMPlayer.Volume = Volume
            If Apliquation_sur = 3 Then Execution.MMPlayer.Volume = Volume
            If Apliquation_sur = 3 Then Execution.SMPlayer.Volume = Volume
            Execution.MMPlayer.Mute = IIf(Volume + 2500 = 0, True, False)
End Sub

Public Sub DegradeMusique(Durée_du_dégrader As Integer, Nouveau_Volume_en_pourcentage As Integer, Type_De_dégrader As Integer)
    On Error Resume Next
    Dim VolumeActuel As Integer
    Dim Facteur As Integer
    VolumeActuel = Execution.MMPlayer.Volume
    Facteur = ((((Nouveau_Volume_en_pourcentage * 25) - 2500) - VolumeActuel) / Durée_du_dégrader)
    Durée_du_dégrader = IIf(Type_Deg = Escalier, Durée_du_dégrader, Durée_du_dégrader * 10)
    For I = 1 To Durée_du_dégrader
        If Type_De_dégrader = Escalier Then Execution.MMPlayer.Volume = Execution.MMPlayer.Volume + Facteur Else Execution.MMPlayer.Volume = Execution.MMPlayer.Volume + Facteur / 10
        If I = Durée_du_dégrader Then Execution.MMPlayer.Volume = (Nouveau_Volume_en_pourcentage * 25) - 2500
        Execution.MMPlayer.Mute = IIf(Execution.MMPlayer.Volume = -2500, True, False)
        DoEvents
        If Type_De_dégrader = Escalier Then Pause 1 Else Pause 0.1
    Next I
End Sub

Public Sub BalanceMusique(Nouvelle_Balance_de_100_a_minus_100 As Integer, Apliquation_sur As Integer)
    On Error Resume Next
    If Apliquation_sur = 1 Then Execution.MMPlayer.Balance = Nouvelle_Balance_de_100_a_minus_100 * 50
        If Apliquation_sur = 2 Then Execution.SMPlayer.Balance = Nouvelle_Balance_de_100_a_minus_100 * 50
            If Apliquation_sur = 3 Then Execution.MMPlayer.Balance = Nouvelle_Balance_de_100_a_minus_100 * 50
            If Apliquation_sur = 3 Then Execution.SMPlayer.Balance = Nouvelle_Balance_de_100_a_minus_100 * 50
End Sub

Public Sub Message(Index As Integer)
    If Index = 7 Then MsgBox ("Un appel à la musique indexée 0 a été faite,changer l'indexe inexistant s,il s'agit d'une erreur de code et Vérifier que la musique désirée se trouve bien dans le répertoire Musique dans un sous dossier de votre projet")
    If Index = 8 Then MsgBox ("Un appel à la musique don l'index est inéxistante a été faite,mais la musique appelée n'existe pas.Vous devez changé cet indexe.")
    If Index = 9 Then MsgBox ("Un appel à un son indexé 0 a été faite,changer l'indexe inexistant s,il s'agit d'une erreur de code et Vérifier que le son désirée se trouve bien dans le répertoire Musique dans un sous dossier de votre projet")
    If Index = 10 Then MsgBox ("Un appel à un son d'on l'index est inéxistante a été faite,mais le son appelé n'existe pas.Vous devez changé cet indexe.")
    If Index = 11 Then MsgBox ("Les dossiers Musique et Sound dans votre projet son introuvable veyez les ajouter ,louverture du programme doit etre interompu.")
End Sub
'************************************************************************************
'************************************************************************************
'Ajout pour simplifier la programmation
'************************************************************************************
'Pause permet plusieur fonction symultané,mais Sleep jele tout les controles
'Pause fontionne au 0.5 seconde et Sleep au miliemme
Public Sub Pause(NbSec As Single)
    Dim Sortie As Single
    Sortie = Timer + NbSec
    DoEvents
    Do Until Timer >= Sortie
    Loop
End Sub

Private Sub UserControl_Resize()
    UserControl.Height = 720
    UserControl.Width = 720
End Sub





Maintenant la form execution avec du code de florant

'Code de Florent.
'Si vous ajoutez ce code dans un de vos programmes, citez-moi.

Option Explicit
Public OldWidth As Integer  'On va stocker l'ancienne largeur de la feuille dans cette variable
Public OldHeight As Integer 'De même pour le hauteur

Private Sub Form_Load()
OldWidth = Width 'Au chargement, l'ancienne largeur de la feuille est la largeur actuelle
OldHeight = Height 'De même pour la hauteur
End Sub

Private Sub Form_Resize()
On Error Resume Next 'Si il y a une erreur, on continue
Dim XCoeff As Single 'Le coefficient qui va nous servir pour la largeur et le placement horizontal des contrôles
Dim YCoeff As Single 'De même pour la hauteur et le placement vertical des contrôles
Dim Controle As Control 'Control représente n'importe quel contrôle de la feuille
XCoeff = Width / OldWidth 'Un simple rapport entre la nouvelle largeur et l'ancienne
YCoeff = Height / OldHeight 'Dee même pour la hauteur
For Each Controle In Me 'Pour chaque controle de la feuille...
Controle.Move Controle.Left * XCoeff, Controle.Top * YCoeff, Controle.Width * XCoeff, Controle.Height * YCoeff 'On le déplace et redimmentionne en même temps
Next 'Et on passe au suivant
OldWidth = Width 'On change l'ancienne largeur par la nouvelle
OldHeight = Height 'De même avec la hauteur
End Sub
 
'vérifier fichier
'Fichier_Existe= IIF(Dir(Path ) = "",true,false)



 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) GESTION DES DROITS D'ACCÈS À VOTRE APPLICATION PAR MOT DE PA...
Source avec Zip Source avec une capture Source .NET (Dotnet) EXEMPLE DE CRYPTAGE RIJNDAEL ET GESTION DE MOTS DE PASSES
Source avec Zip Source avec une capture GESTION DE RÉSERVATIONS DE SPECTACLES AVEC BASE DE DONNÉE AC...
Source avec Zip Source avec une capture PROGRAMME COMPLET DE GESTION DE BASE DE DONNÉE EXCEL
Source avec Zip PROGRAMME COMPLET DE BASE DE DONNÉE ACCES AVEC BEACOUP DE CO...

 Sources de la même categorie

AFFICHAGE SOUS EXCEL DE LA LISTE DES ' DES GROUPES par djebbipgm
AFFECTATION D'UNE ICÔNE À UN DOSSIER DANS L'EXPLORATEUR par djebbipgm
Source avec Zip CREATION DE GADGET EN VB6 par djebbipgm
Source avec Zip Source avec une capture CAPTEUR DE HANDLE, DE TITRE, DE CLASS, DE POSITION DE TAILLE... par Sechaud
Source avec Zip Source avec une capture COULEUR DANS UN RICHTEXTBOX SANS MODIFIER SELSTART OU SELLEN... par Renfield

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) GESTION D'UNCLUB DE GOLF par lalili
Source avec Zip Source avec une capture FAITES GAFFE À DIR() par rt15

Commentaires et avis

Commentaire de DebvbJ le 24/07/2002 13:47:19

Ouai c pas mal ca, cependant un petit zip aurait été le bienvenu
Mais bon c deja bien

Commentaire de Alain Proviste le 24/07/2002 14:45:47 administrateur CS

Premier défi : Ne plus faire une faute par mot dans le titre de mon article
Défi pour Ceux qui veuleNT eSsayer de résoudre des défiS iRrésoluS
d'habitude j'men fous et tu vas me dire que je suis un sale con mais bon là j'ai trouvé que c'était abusé.

Commentaire de PauloLaFrite le 24/07/2002 15:00:34

Alain Proviste, va voir le logiciel "AOLDECO", tu seras pas déçu :-D. Je suis que c un sérieux concurrent à notre jeune homme d'ici au niveau orthographe ;-)

Commentaire de psykocrash le 24/07/2002 18:19:30

~~~~~~~~~~~~~~~~~~~~~~
le code est trop long et g eu la fleme de le lire, ms si ton pb c ke tu veut ds ton ocx le app.path, y faut ajouter du code ds l'ocx et ds le prog :
ocx:
-----
tu ajoute une propriété "pathapp"
prog:
-----
ocx.pathapp = app.path
~~~~~~~~~~~~~~~~~~~~~~

Commentaire de XGuarden le 24/07/2002 21:34:22

lolololol sé si terible mon francais??

Commentaire de XGuarden le 24/07/2002 21:38:30

psykocrash  :Le probleme sé que mon ocx doit aller lire les fichier dans lendroi ou est le projet.Mon ocx ajoute a plusieur projet différent.

Commentaire de Djedj le 24/07/2002 23:45:24

Lorsque tu fais :

Dim varMerde1, varMerde2, varMerde3 as Integer

je te signale que seule varMerde3 est un chiffre, varMerde1 et varMerde2 etant de type Variant....

Commentaire de XGuarden le 25/07/2002 04:39:39

Djedj: Merci pour le message,j'en savais rien =:0)

Commentaire de Kirua le 26/07/2002 00:01:51

pfiuw, c pas que c terrible, mais sur internet on s'en fout un peu, mais là ça entrave la bonne compréhension!! c'est très chiant! En plus, les fautes c'est sensé eêtre permi pour taper plus vite, mais si c le meme nb de lettre t pas obligé d''écrire: Jenre (ça pique aux yeux!), ou exeAmple (aiaiaiaiai)

C quoi un fichier ocx? :$ Pitié pour un newbee avide de savoir :) Restez simple: juste à quoi ça sert ;) et ce que ça apporte de nouveau.

Commentaire de Patrice99 le 26/07/2002 10:01:42

ocx = composant réutilisable dans d'autre application grace a une interface simple
L'idée de la propriété AppPath est suffisant dans tous les cas, meme si tu ajoutes l'ocx dans plusieurs projets
Impossible de faire un public enum après la compilation ! tu n'y arriveras jamais, sauf en vb.net, je crois que l'on peut ajouter du code source en cours d'execution, mais je ne crois pas que cela simplifiera la programmation.
Il suffit de faire un compteur de fichiers et d'indiquer le numéro du fichier.
Pour les options personnalisées, je crois que les property sont ajoutables pendant l'execution dans les ocx (à moins que je confonde avec Access ?), sinon tu peux faire un tableau dynamique de string ou variant avec 2 colonnes : le nom de la variable et sa valeur.

Commentaire de Kirua le 26/07/2002 13:22:34

c comme une DLL?

Commentaire de XGuarden le 27/07/2002 06:25:19

Patrice99 : J"ai déja fait un conteurde fichier mais les éleve a lécole trouve sa tros dur(il on déja de la misere a se rapeler qui doitve initialiser)le app.path retoune lui du ocx ert non du projet........Pour se qui est de faire loption personalisé je cherche commet faire la form personaliser =:0) merci de me répndre

Commentaire de XGuarden le 27/07/2002 06:26:27

Si je fait mon ocx en vb .net ya des chance que je pourais le mete pour vb6?

Commentaire de korg le 03/08/2002 19:05:02

j'ai rien compris!

Commentaire de Dalida le 20/08/2002 18:15:15

ca donne le tournis c't'histoire!
:o(

Commentaire de DHKold le 16/08/2003 15:33:56

Vous allez parfois voir dans la FAQ?
Sinon j'avoue que je n'ai pas tout compris...
A la place du enum, pourquoi tu ne créé pas seulmement une fonction ou une méthode qui demande en argument le numéro de la musique à jouer?

Commentaire de MadM@tt le 17/04/2005 22:02:41

Rien compris moi non plus...

Commentaire de XGuarden le 09/12/2006 06:55:13

Ten fait toi pas, ce code date de 4 ou 5 ans lol depuis j'ai pas mal régler tout mes problemes et améliorer ma technique de programmation de 100 fois lol

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

**Défi avec fichiers** [ par Ish ] Bonjour.J'ai un travail à faire qui traîte avec un fichier séquentiel et je sais vraiment pas comment fonctionne ce truc. Si vous avez un peu de temp problème avec les date en VBA et leur formatage !!!!!! URGENT !!!!!! [ par nitocris ] Je suis d'en une application ACCESS 2000Et je veux filtrer un formulaire via le code.Le problème c'est que le filtre agit sur une date.or la date est FileSystemObject [ par PEB ] Lorsque j'utilise le FSO j'ai un problème avec la méthode CopyFolder qui me renvoie le message d'erreur suivant :Expected: =Mon code est le suivant : !!Problème!! Lancement Office XP [ par SONY ] Ce petit programme marchait très bien avec Word97 et 2000, mais avec XP, il ouvre bien le fichier mais SANS MENU NI SANS BARRE D'OUTIL !!!Je pense que Filelistbox problème !! [ par Bassman64 ] J'aimerais que lorsque je clique sur un bouton, sa séléctionne tous les item d'un filelistbox !Mais je n'y arrive pas, alors si kelk1 pouvait m'aider Problème de listbox !!!!!!!!! [ par Helpme ] Alors voilà, j'ai un listbox et j'aimerais qu'au démarrage de la form sa écrive dans le listbox les lignes une par une d'un fichier txt. Pour chaque l Problème avec WORD... [ par wojc ] Bonjours à tous....Voila, je veux juste ouvrir un document WORD, puis, lorsque je tape du texte dans celui-ci et qu'il est obligé d'ouvrir une deuxièm paramètres régionaux [ par sunny ] bonjour,J'ai 2 applications qui tournent en même temps, mon problème est que la première doit impérativement utiliser les paramètres régionaux pour fo layer sur une image [ par johnpoljak ] J'aimerais savoir comment mettre en place un système de layer comme photoshop ou paint shop pro parce que j'ai crée un logiciel de retouche photo et s problème avec sendkeys : [ par psychodingue ] Bon, voilà le topo: je voudrai ouvrir un fichir txt ligne par ligne, et l'envoyer vers un autre support ou on peut écrire avec sendkeys. Tout marche b


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,702 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales