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 !

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


Information sur la source

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 : 3 939

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

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(PremiereMusique)
                           (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)

Commentaires et avis

signaler à un administrateur
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

signaler à un administrateur
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é.

signaler à un administrateur
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 ;-)

signaler à un administrateur
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
~~~~~~~~~~~~~~~~~~~~~~

signaler à un administrateur
Commentaire de XGuarden le 24/07/2002 21:34:22

lolololol sé si terible mon francais??

signaler à un administrateur
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.

signaler à un administrateur
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....

signaler à un administrateur
Commentaire de XGuarden le 25/07/2002 04:39:39

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

signaler à un administrateur
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.

signaler à un administrateur
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.

signaler à un administrateur
Commentaire de Kirua le 26/07/2002 13:22:34

c comme une DLL?

signaler à un administrateur
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

signaler à un administrateur
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?

signaler à un administrateur
Commentaire de korg le 03/08/2002 19:05:02

j'ai rien compris!

signaler à un administrateur
Commentaire de Dalida le 20/08/2002 18:15:15

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

signaler à un administrateur
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?

signaler à un administrateur
Commentaire de MadM@tt le 17/04/2005 22:02:41

Rien compris moi non plus...

signaler à un administrateur
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...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Comparez les prix Nouvelle version


LG KP501

Entre 9€ et 159€


Photothèque Nouveau !



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