
Peut on réutiliser des fonctionnalitées CSS ("feuille de STYLE" de Microsoft) directement dans nos applications?

Fortix a écrit :Salutation![]()
Peut on réutiliser des fonctionnalitées CSS ("feuille de STYLE" de Microsoft) directement dans nos applications?
Code : Tout sélectionner
sCSS.s = "button{" + Chr(13) + Chr(10)
sCSS.s + "background-color: #25AB32;"+ Chr(13) + Chr(10)
sCSS.s + "width:32px"+ Chr(13) + Chr(10)
sCSS.s + "}"+ Chr(13) + Chr(10)
sCSS.s + "checkbox"+ Chr(13) + Chr(10)
sCSS.s + "{"+ Chr(13) + Chr(10)
sCSS.s + "height:15px;"+ Chr(13) + Chr(10)
sCSS.s + "color:red"+ Chr(13) + Chr(10)
sCSS.s + "}"+ Chr(13) + Chr(10)
sCSS.s + "TextGadget{"+ Chr(13) + Chr(10)
sCSS.s + "font-family:Arial;"+ Chr(13) + Chr(10)
sCSS.s + "font-size:12px;"+ Chr(13) + Chr(10)
sCSS.s + "font-style: italic"+ Chr(13) + Chr(10)
sCSS.s + "}"+ Chr(13) + Chr(10)
sCSS.s + "window{"+ Chr(13) + Chr(10)
sCSS.s + "opacity:50%"+ Chr(13) + Chr(10)
sCSS.s + "}"+ Chr(13) + Chr(10)
Debug sCSS
sCSS = RemoveString(sCSS, Chr(13))
sCSS = RemoveString(sCSS, Chr(10))
Debug sCSS
Debug "------------------------------"
For Inc = 1 To CountString(sCSS, "}")
sElementCSS.s = StringField(sCSS, Inc, "}")
sTitle.s = StringField(sElementCSS, 1, "{")
sContent.s = StringField(sElementCSS, 2, "{")
;Debug sElementCSS
Debug "Title > " + sTitle.s
For IncA = 1 To CountString(sContent, ";")+1
sItem.s = StringField(sContent, IncA, ";")
Debug "Item > " + sItem
Debug "SubItem > "+ StringField(sItem, 1, ":")
Debug "SubItem > "+ StringField(sItem, 2, ":")
Next
Debug "##################"
Next