Visualiseur de rfc (request for comments)

Télécharger le projet
Commenter

Description

Cette application permet de visualiser une RFC aprés avoir indiqué son numéro.

Source / Exemple : 


Si vous ne voulez pas télécharger le zip, voici le source :

Zone de texte: txtRFC
Boutons: cmdClose, cmdIndex

Sub Navigue()

    ' Affichage de la page web correspondant au numéro de RFC
    
    Dim strTemp As String
    
    ' Valeur de la zone de texte sans espaces droite et gauche
    strTemp = Trim$(txtRFC.Text)
    
    ' Si la chaine de caractère n'est pas de longueur nulle
    If Len(strTemp) > 0 Then
    ' Affichage de la page web
        WebBrowser1.Navigate "ftp://ftp.rfc-editor.org/in-notes/rfc" & strTemp & ".txt"
    End If

End Sub

Private Sub cmdClose_Click()

    ' Déchargement de la feuille Form1
    Unload Me
    
    ' Fin du programme
    End

End Sub

Private Sub cmdIndex_Click()

    WebBrowser1.Navigate "http://www.rfc-editor.org/rfc-index2.html"

End Sub

Private Sub Form_Resize()

    ' Redimensionnement du contrôle WebBrowser
    ' Largeur
    WebBrowser1.Width = Me.Width - 400
    ' Hauteur
    WebBrowser1.Height = Me.Height - 1100

End Sub

Private Sub txtRFC_KeyDown(KeyCode As Integer, Shift As Integer)

    ' Si on appuie sur la touche entrée dans la zone de texte
    ' On affiche la page web correspondante
    If KeyCode = 13 Then Navigue

End Sub

Private Sub txtRFC_LostFocus()

    ' Si l'on sort du contrôle zone de texte
    ' On affiche la page web
    Navigue
    
End Sub
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 (cs_gognole)