Genhtmlcolors, un prog qui visionne et génére des couleurs html (fo pas croire, il est intéressant!)

Commenter

Contenu du snippet

Bon, normalement, j'avais fait un programme qui permettait de générer une couleur HTML et de la visionner. Pour obtenir cet effet, il fallait que le programme créé une page html avec le code nécessaire et d'y insérer le code HTML. Vous me direz de plus belle :
Pourquoi il y a pas de zip ? Facile de répondre, quand je lance le programme chez moi, il bug, allez savoir pourquoi, mais bon...C'est pas grave, je vous donne le code source du progamme pour que vous sachiez comment il faut faire. J'ai dans l'intention de réinstaller VB, on ne sait jamais....ça pourrait changer des choses.

Miko500

Contrôles à placer dans la Form :

-4 textbox :

textbox11
propriétés :
textbox11.text = #

textbox10 (ou la couleur sera générée)
propriétés :
textbox10.maxlength = 6
textbox10.multiline = true

text1 (ou le code HTML est emplacé)
propriétés :
text1.visible = false
text1.multiline = true
text1.text = <html>
<head>
<title>Couleurs
HTML</title>
</head>

<body bgcolor="

text2 (ou la dernière partie du code HTML sera écrite
propriétés :
text2.visible = false
text2.multiline = true
text2.text = ">

-1 bouton de commande

CommandButton1

-2 labels :

Enregistrer

Effacer

Voilà, tous les contrôles sont enfin placés, place au code.

PS:N'oubliez pas les comments

Source / Exemple : 


Private Sub CommandButton1_Click()

Dim I As Integer
 Dim gen
Dim X As Integer
 Const lettres As String = "0123456789ABCDEF"
 Text10.Text = ""
For I = 1 To 8
 Randomize
 X = (Rnd * (Len(lettres) - 1))
 gen = Mid$(lettres, X + 1, 1)
 Text10.Text = Text10.Text & gen
 Next I
Dim ensemble
ensemble = Text1.Text + Text11.Text + Text10.Text + Text2.Text
Open "c:\color HTML.html" For Output As #1
Print #1, ensemble
Close #1
End Sub

Private Sub Form_Load()
Dim ensemble
ensemble = Text1.Text + Text11.Text + Text10.Text + Text2.Text

Dim crlf
Dim texte
Dim tout
On Error Resume Next
crlf = Chr$(13) + Chr$(10)
Open "c:\color HTML.html" For Input As #1
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then

Line Input #1, texte
tout = tout + crlf + texte
While Not EOF(1)
Wend
End If
ensemble = tout
Close #1

End Sub

Private Sub Effacer_Click()
Text10.Text = ""
End Sub

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 (miko500)