Je suis d=E9butant j'ai cr=E9er une petite base de donn=E9es=20
(r=E9pertoire d'adresses), j'ai voulu ajouter un num=E9roteur=20
t=E9l=E9phonique tr=E8s simple, dans le projet. le projet est=20
compil=E9 et fonctionnement sauf un bug sur le control comm
dont voici la proc=E9dure que j'ai mis dans la=20
cmmande "composer" :
strA =3D Clipboard.GetText(vbCFText)
If strA =3D "" Then
MsgBox "S=E9lectionnez et copiez d'abord un num=E9ro."
Exit Sub
End If
ComOne.CommPort =3D 1
ComOne.Settings =3D "9600,N,8,1"
ComOne.PortOpen =3D True
ComOne.Output =3D "ATDT" & strA & vbCr
MsgBox "Num=E9rotation de " & strA & vbCrLf_=20
& "D=E9crochez le combin=E9..", _
vbOKOnly, "Appel t=E9l=E9phonique"
ComOne.PortOpen =3D False
"ComOne" c'est le titre du cont=F4le.
Pouvez vous m'aider =E0 comprendre pourquoi le syst=E8me ne=20
reconnais pas le type du contr=F4le , S'il vous plait.
amicalement
Ripa
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
houbahop2003
Bonjour, Tu ne donnes pas assez d'informations, et je trouve que le titre de ton message n'a pas de rapport avec son contenu, mais voila mon idée : as tu bien mis le composant Comm sur ta form? Pour etre sur, tu fais - un click droit sur la barre d'objets ( de composants) de vb, puis t - tu coches Microsoft Comm control 6.0 ( ou remplace 6.0 par une autre version, si tu n'as pas vb6). Cela fera apparaitre un petit téléphone jaune sur la barre de composants. - Tu cliques dessus et - tu l'ajoute sur ta form. Puis - tu va voir ses propriétés et tu le nommes ComOne (car dans ta procédure, il s'apelle ComOne).
Voila, j'ai posté la réponse a tout hazard pensant que tu est peut etre un débutant. Si ce n'est pas le cas et qu'il s'agit d'un autre probléme, décrit le plus précisément.
Dominique.
"Ripa" a écrit dans le message de news: 5b1901c491cc$43e67870$ Je suis débutant j'ai créer une petite base de données (répertoire d'adresses), j'ai voulu ajouter un numéroteur téléphonique très simple, dans le projet. le projet est compilé et fonctionnement sauf un bug sur le control comm dont voici la procédure que j'ai mis dans la cmmande "composer" :
strA = Clipboard.GetText(vbCFText) If strA = "" Then MsgBox "Sélectionnez et copiez d'abord un numéro." Exit Sub End If ComOne.CommPort = 1 ComOne.Settings = "9600,N,8,1" ComOne.PortOpen = True ComOne.Output = "ATDT" & strA & vbCr MsgBox "Numérotation de " & strA & vbCrLf_ & "Décrochez le combiné..", _ vbOKOnly, "Appel téléphonique" ComOne.PortOpen = False
"ComOne" c'est le titre du contôle. Pouvez vous m'aider à comprendre pourquoi le système ne reconnais pas le type du contrôle , S'il vous plait. amicalement Ripa
Bonjour,
Tu ne donnes pas assez d'informations, et je trouve que le titre de ton
message n'a pas de rapport avec son contenu, mais voila mon idée :
as tu bien mis le composant Comm sur ta form?
Pour etre sur, tu fais
- un click droit sur la barre d'objets ( de composants) de vb, puis t
- tu coches Microsoft Comm control 6.0 ( ou remplace 6.0 par une autre
version, si tu n'as pas vb6).
Cela fera apparaitre un petit téléphone jaune sur la barre de composants.
- Tu cliques dessus et
- tu l'ajoute sur ta form.
Puis
- tu va voir ses propriétés et tu le nommes ComOne (car dans ta procédure,
il s'apelle ComOne).
Voila, j'ai posté la réponse a tout hazard pensant que tu est peut etre un
débutant. Si ce n'est pas le cas et qu'il s'agit d'un autre probléme, décrit
le plus précisément.
Dominique.
"Ripa" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 5b1901c491cc$43e67870$a301280a@phx.gbl...
Je suis débutant j'ai créer une petite base de données
(répertoire d'adresses), j'ai voulu ajouter un numéroteur
téléphonique très simple, dans le projet. le projet est
compilé et fonctionnement sauf un bug sur le control comm
dont voici la procédure que j'ai mis dans la
cmmande "composer" :
strA = Clipboard.GetText(vbCFText)
If strA = "" Then
MsgBox "Sélectionnez et copiez d'abord un numéro."
Exit Sub
End If
ComOne.CommPort = 1
ComOne.Settings = "9600,N,8,1"
ComOne.PortOpen = True
ComOne.Output = "ATDT" & strA & vbCr
MsgBox "Numérotation de " & strA & vbCrLf_
& "Décrochez le combiné..", _
vbOKOnly, "Appel téléphonique"
ComOne.PortOpen = False
"ComOne" c'est le titre du contôle.
Pouvez vous m'aider à comprendre pourquoi le système ne
reconnais pas le type du contrôle , S'il vous plait.
amicalement
Ripa
Bonjour, Tu ne donnes pas assez d'informations, et je trouve que le titre de ton message n'a pas de rapport avec son contenu, mais voila mon idée : as tu bien mis le composant Comm sur ta form? Pour etre sur, tu fais - un click droit sur la barre d'objets ( de composants) de vb, puis t - tu coches Microsoft Comm control 6.0 ( ou remplace 6.0 par une autre version, si tu n'as pas vb6). Cela fera apparaitre un petit téléphone jaune sur la barre de composants. - Tu cliques dessus et - tu l'ajoute sur ta form. Puis - tu va voir ses propriétés et tu le nommes ComOne (car dans ta procédure, il s'apelle ComOne).
Voila, j'ai posté la réponse a tout hazard pensant que tu est peut etre un débutant. Si ce n'est pas le cas et qu'il s'agit d'un autre probléme, décrit le plus précisément.
Dominique.
"Ripa" a écrit dans le message de news: 5b1901c491cc$43e67870$ Je suis débutant j'ai créer une petite base de données (répertoire d'adresses), j'ai voulu ajouter un numéroteur téléphonique très simple, dans le projet. le projet est compilé et fonctionnement sauf un bug sur le control comm dont voici la procédure que j'ai mis dans la cmmande "composer" :
strA = Clipboard.GetText(vbCFText) If strA = "" Then MsgBox "Sélectionnez et copiez d'abord un numéro." Exit Sub End If ComOne.CommPort = 1 ComOne.Settings = "9600,N,8,1" ComOne.PortOpen = True ComOne.Output = "ATDT" & strA & vbCr MsgBox "Numérotation de " & strA & vbCrLf_ & "Décrochez le combiné..", _ vbOKOnly, "Appel téléphonique" ComOne.PortOpen = False
"ComOne" c'est le titre du contôle. Pouvez vous m'aider à comprendre pourquoi le système ne reconnais pas le type du contrôle , S'il vous plait. amicalement Ripa
