AccueilCodesTutorielsForumsEmploiLivresConnexion

  • 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 2008 12 02 05:24:39
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 chaibat05 sur des sources sur tout CodeS-SourceS

Le : 20/05/2007 21:26:50
Source : INTEGRER UN SIMPLE ÉDITEUR POUR EXPRESSIONS SQL DANS VOS PROJETS.
Bonsoir,
Merci d' être passé.
En réponse à ton comment :

>...qoui de plus ?
Rien. C' est même pas dans le même ordre d' idée.
Mais si tu inverses la question ?
Qu' est ce qu' un Analyser t' apporterait de plus si au départ
tu ne veux que récupérer une expression.Un peu comme un Input.
Tu crois qu' on a besoin de trimballer un outil rien que pour ça ?

>...light ?
-Mais c' est justement le but recherché...

>...plus appreciable ?
-Certainement pas par un débutant
qui trouverait l' analyser un peu trop ...lourd.
De plus, la source est plutôt une idée qu' un code proprement dit.

a+

Le : 17/05/2007 13:58:47
Source : CONTRÔLE DE L'ENTRÉE DANS UN TEXTBOX - UNIQUEMENT UNE VALEUR NUMÉRIQUE
Salut,
on en a pas encore fini avec le control saisie numérique...
A croire que c' est un problème philosophique !

Le : 28/04/2007 19:18:23
Source : SAISIES CONTROLÉES DIVERSES (ALPHABÉTIQUES ET NUMÉRIQUES)
Salut Marques,

Ah l' événement Change ()  et le chien qui se mord la queue !
Personne ne me croit ...

Prenons
Private Sub Text1_Change()
  Static stat1 As String
  controle_texte "#", ActiveControl, stat1    ' > faisant un point d' arrêt à ce niveau
End Sub

Avec un chiffre pas de problème
Mais si on tappe "a"
> Execution de la fonction control
   tout se passe bien jusqu' à  
   ctrl.Text = mret    =>  Déclenchement de Text1_Change()
                                     et rééxécution de la fonction controle...

End Sub

Ma parade :
Public SelfChange As Boolean

Private Sub Text1_Change()
  If SelfChange=True Then Exit Sub
  SelfChange=True
  Static stat1 As String
  controle_texte "#", ActiveControl, stat1    ' > faisant un point d' arrêt à ce niveau
  SelfChange=False
End Sub

A part ça je n' ai pas encore fait de tests approffondis.Mais à premier vue ça semble correct.
En fait j' ai tellement horreur de l' événement Change que je n' ai pas pu m' empêcher
de le tester en premier.


A+


Le : 23/04/2007 00:28:03
Source : EXPLORATEUR DE FICHIERS IMAGES
On est quit alors ?!
Mais attend quand même de savoir si ça te convient.
Car l' objet Ole s' éxécutera en dehors de ton UC .
st dans son propre form...
Si ça ne pose pas problème, tant mieux...

Bon courage pour ton Calendrier (et pas de photo, hein:-)

A++


Le : 23/04/2007 00:11:03
Source : EXPLORATEUR DE FICHIERS IMAGES
Tu vois Exploreur ...rien n' est jamais parfait   !
Bonsoir mortalino, et merci pour les annotations ...
Tout est à prendre en considération...
Pour ce qui n'est pas utilisé dans le code, en fait c' est résidu de ce qui a été
testé initialement .Car au départ la source a été un "atelier" ou je manipulais
pas mal de choses qui étaient nouvelles pour moi à l' époque.
Je comptais m' en servir de nouveau, mais t' as raison, il faut virer tout ce qui
est inutil...(declarations et autres)
En tout cas j' ai eu ce que je voulais: un bon comment...

Bon , pour te récompenser, je te met sur la voie au sujet de la vidéo pour ta source.
As-tu testé un OLE ?

Allez , reposes-toi bien et à bientôt.



Le : 22/04/2007 22:20:54
Source : EXPLORATEUR DE FICHIERS IMAGES
Bonsoir Exploreur,
Merci pour le comment...
ça fait toujours plaisir quoique 10/10 c' est un peu trop.
En prog c' est comme en gymnastique, on atteint jamais la perfection.
A moins d' être Nadia Comeneti ...:-)

Mais merci tout de même pour ta gentillesse ...
A++

Le : 22/04/2007 15:40:35
Source : COMMONDIALOG AVEC PREVIEW IMAGE [USERCONTROL]
Ok mortalino,
En ce qui concerne la vidéo, si je trouve quelque chose je te ferais signe.
En attendant, et comme je te l' ai dit en MP, je posterais ma source.
Regardes si tu peux en tirer quelque chose...
C' est pas un UserControl mais elle est pleine de fonctionnalités qui puurront
t' inspirer pour enrichir ta source.

Bonne prog
A++

Le : 22/04/2007 07:24:57
Source : COMMONDIALOG AVEC PREVIEW IMAGE [USERCONTROL]
Bonjour Mortalino,
j' ai vu ta source et je n' ai pas encore compris pourquoi un usercontrol
car je ne retrouve pas sur la feuille...!
Quoiqu' il en soit voici quelques recommandations

1° Initialisation du Pattern
'soit lors du chargement soit dans la propriété List du Combo
Private Sub Form_Load()

Combo1.AddItem "*.bmp   ( images  bitmaps )"
Combo1.AddItem "*.cur   ( curseurs )"
Combo1.AddItem "*.ico   ( icones )
Combo1.AddItem "*.jif   ( images  jif )"
Combo1.AddItem "*.jpg   ( images jpg )"
Combo1.AddItem "*.jpeg  ( Images  jpeg ) "
Combo1.AddItem "*.wmf   ( Métafichiers )"
Combo1.AddItem " Tous"   '(espace +Tous)
' Tous = Tous les formats d' ilages et non tous les types des fichiers
' ce qui est logique puiqu' on est censé avoir un aperçu d' image
End Sub

2° changement du du Pattern de la FileListBox
Private Sub Combo1_Click()
   Fichier=""
If Combo1.Text = " Tous" Then
   File1.Pattern = "*.bmp;*.cur ;*.ico ; *.jif ;*.jpg;*.jpeg;*.wmf"
Else
   File1.Pattern = Mid(Combo1.Text, 1, 5)
End If
End Sub

' Personnellement je n' utiliserais pas Private Sub Combo1_Change

3° Gestion de l' erreur du lecteur non prête (disquette ou autre)
Private Sub Drive1_Change()
' Change la directory de DirListBox par rapport à la sélection de la ComboDrive
  On Error GoTo diskerreur:
  Dir1.Path = Drive1.Drive
Exit Sub
diskerreur:
    MsgBox "Lecteur non prêt  !     ", vbOKOnly + vbCritical
End Sub

4° Dans Private Sub File1_Click et File1_DblClick (voir File1_KeyUp pour Enter)
    'tester d' abord si elle n' est pas vide
   If File1.ListCount = 0 Then Exit Sub

5° Ne pas oublier de réinitialiser lavariable Fichier et Picture1.Picture avant
     chaque traitement et après la gestion d' erreur

6° Si tu veux des bouts de codes à propos de Couper/Copier/Coller/Supprimer/NpuveauDossier
fais moi signe, je t' enverrai ça en MP..

Bonne continuation et bonne journée

Le : 16/04/2007 15:52:14
Source : TEST SI MULTIPLE : VRAI OU FAUX ?
Salut,
eh beh dis donc...ils sont drolement petits tes doublons alors...!
Tellement petits que leur partie entière tienderait toujours dans
un entier...

Le : 15/04/2007 00:24:52
Source : CRÉATION D'ÉTIQUETTES VB6 / CRYSTAL REPORT
A bien réfléchir, voici une autre solution qui
te permet de garder la structure de Teùporaire telle quelle:
Troquer la ListBox contre une ListView Style Report.
Ayant elle aussi la propriété ChekBox, elle te permet de stocker
le code dans une colonne (que tu peux masquer si tu veux),
et que tu récupères lors de l' insertion dans Temporaire .
En plus, esthétiquement, une ListView est quand même plus agréable

A+



1 2 3 4 5 6 7


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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,109 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é.