Editeur gml (langage de game maker)

Télécharger le projet
Commenter

Description

-Colloration syntaxique
-Treeview (ajout de noeuds)

Voici le code source de la fontion colorer()

Source / Exemple : 


Sub colorer(mot As String, coul As Long)
Dim encore As Boolean
Dim ancien As Long
Dim pos As Integer
If mot = "" Then Exit Sub
pos = text1.SelStart
ancien = 1
encore = True
Do Until encore = False 'si encore=false c'est la fin de la coloration pour ce mot
If InStr(ancien, LCase(text1.Text), LCase(mot), vbTextCompare) <> 0 Then
text1.SelStart = InStr(ancien, LCase(text1.Text), LCase(mot), vbTextCompare) - 1
text1.SelLength = Len(mot)
text1.SelColor = coul
text1.SelBold = True
ancien = text1.SelStart + 2
Else 'si il n'y a plus d'occurence du mot
encore = False
End If
Loop
text1.SelStart = pos
text1.SelColor = QBColor(0)
text1.SelBold = 0
End Sub
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 (krissssss)