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
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.