Bonjour

L'exécutable ne fonctionne pas tous seul s'il n'a pas été déployé avec ses DLL, dépendance etc... s'est peut-etre ton probleme !

Cordialement

BFR

En reponse à CUQ
Le plus je ne sait pas je ne connais pas la source 20532 donc difficile de faire une comparaison (Et ce n'ai pas son but), cette source n'a rien d'extraordinaire elle ne sert juste à etre utile au autre et voir comment transferer des fichiers sur une CN.Je vais poster une pour Fanuc qui est presque identique.
A++

Bonjour
Simplement une source simple,claire et concise pour ceux qui découvre le subclassing, on aimerait en avoir plus de sources comme cette dernière, pour ceux qui debute ou sont initié comme moi. 9/10
A+++

message pour pondpond
Salut
je suis moi meme intérressé par les sources de ton programme que tu as proposé a NeoUmbrella.
Merci d'avance
Franck

FBurl@aol.com

Salut
Je suis tourneur sur CN et c'est pas mal du tout et un tres bonne base qui demande à etre develloper, moi meme j'ai créé des outils pour la CN (editeur de programme etc...) je t'encourage à continuer dans cette voie, il manque peut-etre un fichier d'aide et la programmation est claire et j'attend la suite

Franck

Salut
C'est une source sympa,ludique et amusante clair et concise
continu tu ne manque pas d'idéeS
A++ BFR

Salut
c'est tous à fait possible je suis sous XP il est possible qu'il y a des restrictions d'accès au dossier sous 2000
Salutations A++ BFR

Une autre façon

Private Sub Text1_Change()
'-Changer les points en virgules

  If InStr(Text1, ".") Then
     '-Remplacement
       Text1 = Replace(Text1, ".", ",")
     '-Repositionnement du curseur
       Text1.SelStart = Len(Text1)
  End If
End Sub
A++

Effectivement j'ai déja essayé avec un richtexbox et ça marche
A++

on peut toujours faire plus simple il s'agit du tri à bulle adapté en trie alphabétique je m'en sert pour trier les dossier il faut simplement remplir un tableau avec les éléments à trier .Il existe des algo de trie plus rapide mais cela suffit pour quelques dizaines d'élements
A++

'-Trier (à bulle)les dossiers d'un tableau dans l'ordre alphabétique
'-Déclarations
  Dim lgFor1 As Long
  Dim lgFor2 As Long
  Dim lgMin As Long
  Dim MemoTmp As String
  
'-Init:
  lgMin = LBound(Tableau)


'-Parcourt l'ensemble des éléments du tableau
  For lgFor1 = UBound(Tableau) - 1 To lgMin Step -1

        '-Parcourt l'ensemble des éléments non triés du tableau
            For lgFor2 = lgMin + 1 To lgFor1
            
               '-Comparaison du code numérique du 1er caractère de la chaine
                 If Asc(Left$(Tableau(lgFor2 - 1), 1)) > Asc(Left$(Tableau(lgFor2), 1)) Then
                
                         '-Echange de place entre deux éléments
                         '-Mémorisation
                           MemoTmp = Tableau(lgFor2 - 1)
                         '-Echange
                           Tableau(lgFor2 - 1) = Tableau(lgFor2)
                         '-Affectation élement mémoriser
                           Tableau(lgFor2) = MemoTmp
                 End If
                
            Next lgFor2
            
Next lgFor1