Ey
agus0, la idea es buena!
En serio, me gusto, solo unas cosas:
Podrias hacerlo más configurable:
*Poder meter las Webs que se quiera en diferentes líneas (con paramArray creo que podrias hacer algo), un ej:
Option Explicit
Private Sub Form_Load()
TestPA "Que", "vivan", "las", "ranas"
End Sub
Sub TestPA(ParamArray Frog())
MsgBox Join$(Frog, vbNewLine)
End Sub
*En la fecha podrias poner por defecto la fecha actual con Date$
*Si hay un campo vacío lo puedes eliminar
*El codigo se puede optimizar/reducir bastante.
MakeHeader = Linea1 & vbCrLf & Linea2 & vbCrLf & LineaT & vbCrLf & LineaA & vbCrLf & LineaM & vbCrLf & LineaD & vbCrLf & LineaC & vbCrLf & LineaW & vbCrLf & Linea3 & vbCrLf & Linea4 & vbCrLf
Si usaras una array que guardara las lineas podner todo eso con join (al principio te puse un ej)
*No me gusta esto :
Private Const cLine1 = "'/////////////////////////////////////////////////////////////////////////////////////////////////////////'"
Private Const cLine2 = "'/// ///'"
Private Const cLineT = "'/// º Tite: TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT ///'"
Private Const cLineA = "'/// º Author: AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ///'"
Private Const cLineM = "'/// º Mail: MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM ///'"
Private Const cLineD = "'/// º Date: DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD ///'"
Private Const cLineC = "'/// º Contributors: CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ///'"
Private Const cLineW = "'/// º Web: WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW ///'"
Private Const cLine3 = "'/// ///'"
Private Const cLine4 = "'/////////////////////////////////////////////////////////////////////////////////////////////////////////'"
Private Const cCadenaT = "TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT"
Private Const cCadenaA = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
Private Const cCadenaM = "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
Private Const cCadenaD = "DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
Private Const cCadenaC = "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
Private Const cCadenaW = "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"
*Después lo que dice Black de usar
String$() para las repeticiones
*Un detallito:
'/// º Tite: mMakeHeader.bas ///'
Es
Title no
Tite...
...
Con esto ya tienes para un rato, solo son sugerencias, nada más...
DoEvents!
Mostrar Mensajes
