Editeur html

Télécharger le projet
Commenter

Description

ce prog permet d'editer c propre page web.
Biensure ce prog et tres tres liens derriere dreamweaver LOL

Source / Exemple : 


Private Sub Combo2_Click()
    Text4.Text = Combo2.Text & "_" & l1.Text
Command_tab
End Sub

Private Sub Command1_Click()
Label3.Caption = "Votre choix est de faire un tableau de : " & col.Text & " x " & lig.Text
nbcol.Text = 1
nblig.Text = 1
co.Text = col.Text
li.Text = lig.Text

Label12.Caption = "travail en cours"

While Val(co.Text) >= Val(nbcol.Text)
    nblig.Text = 1
    While Val(li.Text) >= Val(nblig.Text)
    a = EcrireTAB(nbcol.Text & "_" & nblig.Text, "cont", "")
    nblig.Text = nblig.Text + 1
    Wend
    Combo2.AddItem (nbcol.Text)
    nbcol.Text = nbcol.Text + 1
Wend

Label12.Caption = ""

Text4.Text = "1_1"
Combo2.Text = "1"
Combo2.Refresh
Command_tab
End Sub

Private Sub Command2_Click()
If Val(l1.Text) > 1 Then
    l1.Text = Val(l1.Text) - 1
    Text4.Text = Combo2.Text & "_" & l1.Text
Else
    If Val(Combo2.Text) > 1 Then
    l1.Text = Val(nblig.Text)
    Combo2.Text = Val(Combo2.Text) - 1
    Text4.Text = Combo2.Text & "_" & l1.Text
    Else
    Combo2.Text = Val(nbcol.Text) - 1
    l1.Text = Val(nblig.Text) - 1
    Text4.Text = Combo2.Text & "_" & l1.Text
    End If
End If
Command_tab
End Sub

Private Sub Command3_Click()
If Val(l1.Text) < Val(lig.Text) Then
    l1.Text = Val(l1.Text) + 1
    Text4.Text = Combo2.Text & "_" & l1.Text
Else
    If Val(Combo2.Text) < Val(col.Text) Then
    l1.Text = "1"
    Combo2.Text = Val(Combo2.Text) + 1
    Text4.Text = Combo2.Text & "_" & l1.Text
    Else
    Combo2.Text = "1"
    l1.Text = "1"
    Text4.Text = Combo2.Text & "_" & l1.Text
    
    End If
End If
Command_tab
End Sub

Private Sub Command6_Click()
Form13.Show
Form13.Text2.Text = "1"
End Sub

Private Sub Command7_Click()
Form13.Show
Form13.Text2.Text = "2"
End Sub

Private Sub Command_tab()
Text1.Text = LireTAB(Text4.Text, "cont")
bg.Text = LireTAB(Text4.Text, "cfond")
bd.Text = LireTAB(Text4.Text, "cbord")
Text2.Text = LireTAB(Text4.Text, "largeur")
Text3.Text = LireTAB(Text4.Text, "hauteur")
Combo1.Text = LireTAB(Text4.Text, "alig")
End Sub

Private Sub command_tab2()
b = EcrireTAB(Text4.Text, "cont", Text1.Text)
c = EcrireTAB(Text4.Text, "cfond", bg.Text)
d = EcrireTAB(Text4.Text, "cbord", bd.Text)
e = EcrireTAB(Text4.Text, "largeur", Text2.Text)
f = EcrireTAB(Text4.Text, "hauteur", Text3.Text)
a = EcrireTAB(Text4.Text, "alig", Combo1.Text)
End Sub

Private Sub Command8_Click()
command_tab2
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Dir(App.Path & "\tab.tmp") <> vbNullString Then
Kill (App.Path & "\tab.tmp")
End If
End Sub

Private Sub Text5_Change()

End Sub

Conclusion :


Bonne Prog

NeoCortex
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_NeoCortex)