Soyez le premier à donner votre avis sur cette source.
Vue 5 469 fois - Téléchargée 211 fois
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.