Salve sono ancora io sto finendo di fare un mio programma che poi verrà pubblicato (serve per la creazione dei layout) ma non mi aggiona la textarea come faccio? il codice che ho ora io è questo
txt_css.text = txt_css.text & divs(name_div, pc_1[y])
txt_html.text = txt_html.text & htmls(name_div)
funzioni
Private Function divs(name As String, width As Integer) As String
Dim f As String
Return f = "." & name & "{background-color: trasparent; margin:0;float:left; width:" & CStr(width) & "%;padding:0;}\n "
End
Private Function htmls(name As String) As String
Dim f As String
Return f = " < div class = " & name & " >Argomento Colonna </div>\n"
End
grazie in anticipo, praticamente manca questo è il mio software è pronto per la creazione della versione 1
Ok, ora e' tutto piu' chiaro... e ho anche capito che non avevo capito un tubo ;D
L'errore stava nelle due funzioni... correggi in questo modo:
Private Function divs(name As String, width As Integer) As String
Return "." & name & "{background-color: trasparent; margin:0;float:left; width:" & CStr(width) & "%;padding:0;}\n "
End
Private Function htmls(name As String) As String
Return " < div class = " & name & " >Argomento Colonna </div>\n"
End