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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 448 fois - Téléchargée 38 fois

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

Ajouter un commentaire

Commentaires

cs_Koiu
Messages postés
269
Date d'inscription
jeudi 26 septembre 2002
Statut
Membre
Dernière intervention
19 février 2015
-
nan, moi ma question c pk tu l'a mis 2 fois!!!
miko500
Messages postés
188
Date d'inscription
dimanche 29 octobre 2000
Statut
Membre
Dernière intervention
18 août 2005
-
lol, je me suis tt simplement gourré!!
miko500
Messages postés
188
Date d'inscription
dimanche 29 octobre 2000
Statut
Membre
Dernière intervention
18 août 2005
-
Koiu, t vraiment chiant dans ton genre tu sais, tu met 1 à toutes mes sources...,t'aimeré que je fasse pareil avec les tiennes ?
cs_aKheNathOn
Messages postés
575
Date d'inscription
dimanche 23 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2012
-
tu sait miko à au lieu d'initialiser une variable crlf , t'as une constante dans vb qui te permet ça , c'est vbcrlf ... ça aidera ton code à être moins gros déjà
cs_aKheNathOn
Messages postés
575
Date d'inscription
dimanche 23 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2012
-
tu sait miko à au lieu d'initialiser une variable crlf , t'as une constante dans vb qui te permet ça , c'est vbcrlf ... ça aidera ton code à être moins gros déjà

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.