• Domingo 22 de Diciembre de 2024, 15:19

Autor Tema:  Mi Bloc De Notas  (Leído 1248 veces)

Jamaicol

  • Nuevo Miembro
  • *
  • Mensajes: 22
    • Ver Perfil
Mi Bloc De Notas
« en: Jueves 19 de Mayo de 2005, 16:17 »
0
Bueno, este es mi notepad y lo que quiero hacer es, que se guarde el formato cuando se guarda en texto plano, esto es si yo escribo sin parar me escribe dos lineas y luego cuando lo guardo lo hace en una sola, lo que quiero es que me guarde con el formato de linea, el margen me da lo mismo lo que si que quiero es que me salte de linea si tengo 7 lineas pues que cuando lo abra con el bloc de notas me saque las 7 lineas, que al final de cada final de linea me añada un salto de linea con chr(13) (los margenes iniciales los tiene que ignorar).  A ver si hay algun genio (loco o no) que me soluciona el problema. y dejo de dar por sako en este foro, lo juro por snoopy :whistling:

El metodo no se puede hacer con contadores de caracteres, se ha de hacer con contadores de lineas, puesto que la fuente, tiene diversos tamaños para mayusculas, minusculas y numeros y claro, no me interesa que todos las lineas tengan un numero determinado de caracteres (o sea que sean de 30 caracteres, de todas formas GRACIAS MARIOCP).
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: Mi Bloc De Notas
« Respuesta #1 en: Miércoles 25 de Mayo de 2005, 01:18 »
0
Para lo que estas pidendo, es mejor usar el control Microsoft Rich Text Box Control 6.0 (\\system32\RICHTX32.OCX)

Carga este control en un formulario, un command y usa el siguiente codigo:

Private Sub Command1_Click()
    archivo = App.Path & "\MIARCHIVO"
    RichTextBox1.SaveFile archivo
End Sub

Private Sub Form_Load()
    archivo = App.Path & "\MIARCHIVO"
    If Dir(archivo, vbArchive) <> "" Then
         RichTextBox1.LoadFile archivo
    End If
    Command1.Caption = "Guardar"
End Sub