|
Du VB vers WinDev 12 |
|
Stagiaire WDF
Inscrit: 14/11/2004 12:23
De Belgique
Post(s): 32
|
Bonjour, qui peut me traduire ce code VBScript en Windev ? Peut être Carlo ? Merci a vous
<script language="VBScript">
Sub ReadDirectory()
Dim Result
Dim FName
Dim Index
Dim Count
Dim FItem
Count = DirList.length
For Index = 0 to Count - 1
DirList.Remove 0
Next
Set namedObj = Nothing
Set namedObj = CreateObject("UnitechAmericaInc.OnlineCom")
If NOT IsObject(namedObj) Then Exit Sub
If namedObj.Ready <> 1 Then
MsgBox "OnlineDll.Dll is missing!"
Set namedObj = Nothing
Exit Sub
End If
Result = namedObj.SetupEx(1, 38400, 1, "N")
Result = namedObj.Connect()
If Result<>1 Then
MsgBox "Com1 is not available!"
Set namedObj = Nothing
Exit Sub
End If
' Read Directory
Index = 1
Result = namedObj.FindFirst("A")
FName = namedObj.FindName
Do While FName<>""
Set FItem = document.createElement("OPTION")
DirList.options.add(FItem)
FItem.innerText = FName
FItem.value = Index
Index = Index + 1
Result = namedObj.FindNext ("A")
FName = namedObj.FindName
Loop
Call namedObj.Disconnect()
Set namedObj = Nothing
End Sub
</script>
Contribution le : 18/06/2008 12:49
Edité par drcharly93 sur 18/6/2008 13:51:43
|
|
|
Re: Du VB vers WinDev 12 |
|
Animateur WDF
Inscrit: 02/03/2003 04:07
De Noisy le grand(93)
Post(s): 2745
|
Bonjour,
La question serait qu'est ce que vous cherchez à faire ? Ce script est connecté à une page HTML !!!
Cela ressemble à une connexion à un lecteur code à barres !
Contribution le : 18/06/2008 14:25
|
|
|
Re: Du VB vers WinDev 12 |
|
Stagiaire WDF
Inscrit: 14/11/2004 12:23
De Belgique
Post(s): 32
|
Bonjour, la reponse est
Convertit ce code VBscript en WinDev J'ai envoyé un message dans ta box perso Fabian
Contribution le : 18/06/2008 17:02
|
|
Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.