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 12 13:54:26
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 !

14 commentaire(s) de stevebelgium sur des sources sur tout CodeS-SourceS

Le : 06/06/2003 22:06:51
Source : OUVRIR ET REFERMER LECTEUR DE CD-ROM
*Est-ce qu'il peut fermer / ouvrir un 2eme lecteur ?:

item = 1

*Est-ce qu'il peut fermer / ouvrir un 3eme lecteur ?:

item = 2 .....

-------------------------

Private Sub ejecter_Click()
Dim variable As Variant
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMS = oWMP.cdromCollection
        colCDROMS.Item(1).Eject
variable = MsgBox("Cliquez sur OK lorsque que le cd est insérez", vbOKCancel)
If variable = 1 Then colCDROMS.Item(1).Eject
ejecter.Visible = False
End Sub

steve

Le : 30/05/2003 12:15:55
Source : LECTURE FICHIER TEXTE AVEC OBJET FSO (FILE SYSTEM OBJECT)
Oeps :

Pour lire des fichiers sans boucles c'est encore plus facile comme ca :

Function ReadTxT(Chemin As String, Fichier As String) As String

    Open Chemin & Fichier For Input As #1
    
    ReadTxT = Input(LOF(1), #1)
    
    Close #1

End Function

Private Sub Lecture()
    
    Dim FileBuffer1 As String
    
    FileBuffer1 = ReadTxT("C:", "BootLog.txt")
    
End Sub

Le : 30/05/2003 12:13:49
Source : LECTURE FICHIER TEXTE AVEC OBJET FSO (FILE SYSTEM OBJECT)
Pour lire des fichiers sans boucles c'est encore plus facile comme ca :

Function ReadTxT(Chemin As String, Fichier As String) As String

    Open Chemin & Fichier For Input As #1
    
    ReadTxT = Input(LOF(1), #1)
    
    Close #1

End Function

Private Sub Lecture()
    
    Dim FileBuffer1 As String
    
    FileBuffer1 = ReadTxT("C:", "BootLog.txt")
    
End Sub

Le : 16/05/2003 00:28:06
Source : COULEURVB (CONVERSION D'UNE COULEUR EN HEXA AFIN DE L'UTILISER DANS VB)
Yo booster !

Pas mal le prog . Mais au lieu de faire

SendKeys "{TAB}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" + "^{C}"

c'est peut-etre plus facile de faire

With lblColor
    .SelStart = 0
    .SelLength = Len(lblColor.Text)
    .SetFocus
End With

et au lieu de faire

Form3.Show => ici quand tu clique sur form1 tu vois plus form3 mais ca reste encore dans la mémoire

c'est mieux de faire
Form3.Show vbModal

Sorry pour les fautes d'orthographe, je suis encore en train d'apprendre la langue française.

Encore bon prog !

Le : 12/05/2003 11:51:46
Source : FONCTION POUR SÉPARER ET SÉLECTIONNER LES MOTS VOULUS DANS UNE PHRASE
Je ne suis pas sur du SP . je ne pense pas qou j'ai fais un update . Ou est-ce-que je peux retrouver quelle SP est installer ? Quand meme, il le fait chez moi ;-)

Le : 12/05/2003 11:27:41
Source : FONCTION POUR SÉPARER ET SÉLECTIONNER LES MOTS VOULUS DANS UNE PHRASE
chez moi il le fait => VB6

sauf lngStart -1 et lngEnd  -1 . Que 1 détail =>

Ca marche pas comme ca ?

Private Sub Command1_Click()
    
    MsgBox Mot("aa bb cc dd ee", 2, 3)
    
End Sub

Public Function Mot(str As String, lngStart As Long, Optional lngEnd As Long = 0)

    Dim Phrase() As String
    Dim Ret As String
    Dim PosMot As Integer
    
    Phrase = Split(str)
    If lngEnd = 0 Then lngEnd = UBound(Phrase)
    For PosMot = lngStart To lngEnd
        Ret = Ret & Phrase(PosMot) & " "
    Next
    Mot = Trim(Ret)
    
End Function

Le : 12/05/2003 11:18:18
Source : FONCTION POUR SÉPARER ET SÉLECTIONNER LES MOTS VOULUS DANS UNE PHRASE
Pour dimensioner le variable Phrase dans le code de Warny :

Dim Phrase() As String

=> Ca utilese moins de mémoire que Dim Phrase <= Type Variant

C'es que un détail ;-)

stevebelgium

Le : 12/05/2003 09:17:39
Source : BUBBLESORT , INSERTSORT , QUICKSORT , SHELLSORT , TRIAGE , MIDI , SON
Salut Saros ,

Si tu as envie est si tu a le temps tu peux faire la traduction !
Je vais continuer en Anglais ...

After the translation I could do an update of the source . Maybe with a French and English version in 1 zip-file. I don't know if you only are going to translate the menu or also the the functions , variables , etc ?

Concerning the STOP . With Doevents we could interrupt the program but the problem with Doevents is that it does slow the program ! If you want to you could write the STOP yourself ? That way you could take a part of the program too . Just a suggestion.

Have a nice day ...

Steve


Le : 12/05/2003 09:02:53
Source : FONCTION POUR SÉPARER ET SÉLECTIONNER LES MOTS VOULUS DANS UNE PHRASE
Yo , warny !

Cool ta fonction ! Encore plus facile :-) !

Le : 11/05/2003 23:47:18
Source : FONCTION POUR SÉPARER ET SÉLECTIONNER LES MOTS VOULUS DANS UNE PHRASE
Yo , hexor !

Pas mal ton code mais j'ai fais la meme chose avec la function instr (Instring). Mais quand meme un bon effort.
J'ai ajouter ca aussi :
=> Optional lngEnd As Long = 0 'comme ca on est pas obliger de mettre le parametre

Sorry pour les fautes  d'orthographe . (Je suis encore en train d'apprendre la langue française).

Public Function Mot(str As String, lngStart As Long, Optional lngEnd As Long = 0)

    Dim temp_start, temp_end As Long
    Dim x As Integer
    
    temp_start = 1
    For x = 1 To lngStart - 1
        temp_start = InStr(temp_start + 1, str, " ")
    Next x
    
    temp_end = 1
    For x = 1 To lngEnd
        temp_end = InStr(temp_end + 1, str, " ") + 1
    Next x

    If temp_end - temp_start > 0 Then
        Mot = Mid(str, temp_start, temp_end - temp_start)
    Else
        Mot = Mid(str, temp_start)
    End If
    
End Function


1


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


RIM BlackBerry Storm 9530
Entre 72€ et 72€


Visiter le guide achat

Photothèque Nouveau !

Photo friends at the beach.Photo femme, plage, bien être, soleil, vacances, été, détente, repos
Photo alphabet langue des sourdsPhoto jolie jeune femme enceinte avec sa maman

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