Chat en dhtml

Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (kilomaster)