Chat en dhtml

Soyez le premier à donner votre avis sur cette source.

Vue 5 152 fois - Téléchargée 678 fois

Description

Bonjour le DHTML faisant partie de VB6, J'ai décidé d'essayer de faire une petite source à ce sujet, il s'agit d'un chat.

Je sais c'est pas génial, mais je voulais relancer le sujet comme à la source http://www.vbfrance.com/article.aspx?Val=4128

Source / Exemple :


Dim Nickname As String

Private Function Button2_onclick() As Boolean

Open App.Path & "\chat.txt" For Append As #1
a = Nickname & "==> " & Text1.Value
Write #1, a
Close 1

End Function

Private Function Button4_onclick() As Boolean

Dim CheminFichier As String
Dim a As Long
CheminFichier = App.Path & "\chat.txt"
a = FreeFile()

Open CheminFichier For Input As #a
         Text2.Value = Input(LOF(a), a)
Close #a

End Function

Private Sub DHTMLPage_Load()

Text1.Value = "Entrez votre texte ici."

Nickname = InputBox("Tapez ici votre pseudo svp !", "Entré votre pseudo", "pseudo")
Pseudo.Value = Nickname

End Sub

Conclusion :


Y aurait il d'autres personne qui utilisent le dhtml pour leur site?
Ne soyez pas méchant dans les commebtaires svp.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
lundi 26 juin 2006
Statut
Membre
Dernière intervention
23 février 2007

Bonjour... J'ai un peu modifier l'aspect visuel de la page...
Elle fonctionne très bien sauf lorsque je veux l'installer directement sur mon ftp, elle ne fonctionne pas.... je place la page html et son dll mais ne fonctionne pas... qu'est ce que je fais de pas correct... Clam
Messages postés
5
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
15 novembre 2003

slut,
Pour l'actualisation auto, j'ai mis le code du bouton 'actualiser' sur l'evenement '.mousemove' de 'document'. comme ça la page est actualisée a chaque mouvement de souris! mais si kk1 peu trouver mieux...
je trouve que ta source est tres bien et que l'on n'en trouve pas assez parlant du DHTML sur le site. Pourtant c'est fou ce l'on peut faire avec ! actions sur les fichiers, programmes en ligne, etc...
Messages postés
50
Date d'inscription
samedi 1 septembre 2001
Statut
Membre
Dernière intervention
20 septembre 2006

oops je me suis trompé !! l'adresse de omn chat est : http://membres.lycos.fr/flagyg/ et si vous voulez faire un essai,je peux vous passer le serveur suffit de demander.......
bye
Messages postés
50
Date d'inscription
samedi 1 septembre 2001
Statut
Membre
Dernière intervention
20 septembre 2006

hello,
moi j'ai reussi à fondre un chat en projet .exe VB en dhtml en passant par un controle activeX bon le seul prob c'est qu'il n'y a pas encore le serveur mais vous pouvez aller l'admirer sous http://www.multimania.fr/flagyg/
Messages postés
103
Date d'inscription
samedi 23 mars 2002
Statut
Membre
Dernière intervention
2 mars 2004

Pas mal mais je penserais à l' ameliorer ! :)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.