Enlever un logo texte d'un fichier video ou image ou flash et d'autre

Soyez le premier à donner votre avis sur cette source.

Vue 13 738 fois - Téléchargée 1 329 fois

Description

Salut !
-Exemple :
-vous avez crée une animation flash avec un logiciel shareware, quand vous terminez vous exportez cette animation sous format Flash (*.swf), mais quand vous ouvrez cette animation vous virez un logo texte par exemple www.nctsoft.com se la que vous avez utilisé un logiciel shareware donc c?est intrigant
-alors se petit programme supprime se logo texte.
Attention suivez bien les instructions données.
-ou tous simplement utilisé le bloc-notes.
-J?ai introduis un exemple.

-Par pitié se programme n?est pas contraire a la charte vbfrance.com
-Tous vos commentaires sont les biens venus.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
jeudi 18 décembre 2008
Statut
Membre
Dernière intervention
6 janvier 2011

aucune explication sur le mode emploi de ce script,
Mme soleil est morte il y a longtemps....
Messages postés
1
Date d'inscription
mardi 29 septembre 2009
Statut
Membre
Dernière intervention
29 septembre 2009

juste ca ne veux rien dire ce que tu dis

et tes fichier ne s'ouvrent pas
Messages postés
1
Date d'inscription
dimanche 24 décembre 2000
Statut
Membre
Dernière intervention
16 octobre 2008

je comprend pas comment ca marche merci de bien vouloir m'aider j'ai un texte a enlever d'une photo
merci d'avance
Messages postés
218
Date d'inscription
jeudi 13 juillet 2006
Statut
Membre
Dernière intervention
11 juillet 2010

econs: Merci pour l'aide.
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
20
Salut,

"Par pitié se programme n'est pas contraire a la charte vbfrance.com"
La pitié n'a rien à faire ici. C'est conforme, ou çà ne l'est pas.


-----------------------------------------------
Passons en revue le code :


Private Sub Command2_Click()
a = InputBox("Entrez la phrase ou le mot a supprimer", "Supprimer")
z = text1.Find(a, , , 4)
Text2 = a
Text2.SetFocus

If z <> -1 Then
For i = 1 To Text2.SelLength
Text3 = " "
text1.SelText = Text3
Next i
End If
DoEvents

End Sub


Dans le texte que tu as placé dans Text1 (a priori, le contenu de ton fichier .swf), tu pars à la recherche du mot entré dans l'inputBox (variable a).
Ce mot, tu le mets dans Text2 (inutile de passer par un TextBox, mais pourquoi pas ?).
Ensuite, tu sélectionnes une portion de ce mot à la souris ( ??? sinon pourquoi utiliser selLength ??? ) et s'il y a 23 lettres sélectionnées dans Text2 (par exemple), alors tu mets " " 23 fois dans Text3. Mais comme il n'y a pas de concaténation, au final, Text3 = " ". Donc, la boucle ne sert à rien. En plus, dans cette boucle, tu remplaces l'élément sélectionné dans Text1 (Ah merde .. fallait sélectionner quelque chose dans Text1 (selText) !!) par " ", le tout 23 fois. Autant dire que seule la première fonctionnera.

Le DoEvents en fin de Sub ne sert à rien. C'est utile pour récupérer la main pendant de longues boucles.


Ton code pourrait donc se résumer en peu de choses :

Private Sub Command2_Click()
a = InputBox("Entrez la phrase ou le mot a supprimer", "Supprimer")
Text1.Text = Replace(Text1.Text,a," ")
End Sub

Pour des soucis d'esthétique, dans le Command3_Click, le cmd.ShowOpen devrait être remplacé par cmd.ShowSave
C'est un enregistrement que tu fais, pas une ouverture de fichier.
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.