Una ayudita pliss

[seba123neo]

andreina tendrias que haber creado un nuevo post, no poner tu tema,en este tema que no tiene nada que ver son tu pregunta...igualmente esas no son dudas , esa es tarea ,aca nadie le hace la tarea a nadie..

[andreina]

pues por eso esto se llama una ayudita  porque talvez haa gente q si me quiera colaborar igual su ayuda no la necesito... a lo mejor ni sabra nada y se las viene a dar de mucho!!!!!

[DarkMatrix]

Oigan no se pelen asi xD! aqui todos somos una comunidad.

Con respecto a mi tema he logrado hacer el drawtext y el paint picture, lo de las imagenes png aun no lo he probado pero voy en esa.

Tengo varios problemas con el DrawText, Cuando se dibuja el texto sobre la imagen todo bien, pero queria saber si se puede hacer un limite para el texto, que cuando este llegue al limite me salte a la otra linea, como en los Textbox con multiline en true.

con respecto al proyecto en general, queria saber si despues que se hace el drawtext o el paint picture no hay forma de volver hacia atras, osea deshacer lo hecho o ya queda grabado en la imagen.

De Antemano Gracias por su ayuda.

[BlackZeroX]

el que pide que le realicen la tarea y despues nos llame engreidos es un idiota pero bue ni que asi son:

Nike42:

Ahora ese que pides o del multiline o como los textbox seria midiendo el ancho del caracter pero antes medir el anchoo del rectangulo y dividirlo entre el ancho de el caracter para asi determinar cuando se deberia de realizar un salto de linea algo asi ve:

Código [Seleccionar] Expandir


Ancho digamos del picture (representado por la linea de abajo):

|------------------------------|

Ancho = DeLaLinea

despues usas la funcion:

AnchoTextual = picture1.Textwidth("Aca el texto")

Si anchotextual>=ancho entonces
   salta a la siguiente linea
de lo contrario
   sigue en la linea


lo pongo asi por que la verdad debes pensar un poco eso de multiline es algo facil colo usa la concatenacion con el texto actual con  VBNewLine o chr$(13)

con respecto al proyecto en general, queria saber si despues que se hace el drawtext o el paint picture no hay forma de volver hacia atras, osea deshacer lo hecho o ya queda grabado en la imagen.

bueno eso ya es a tu ingenio ya que despues de dibujar en un picture me parece que no se desase pero eso tiene arreglo solo ingeniatelas a mi se me ocurre cargar la imagen x en dos picture

uno visible y uno no visible y si dese desaser un cambio en el picture2 (el que no se ve) qeu guarde la imagen original y despues por medio de variables se guarden los hechos que se puedan desaser y segun estos cortar X trozos de la imagen del picture2 al picture1 y hacer los cambios...

algo loco pero resultante

P.D. a mi se me ocurrio esto ati se te puede ingeniar otra cosa mas facil (la que mendiona usaria matrices de variables en las que se guardar informacion de X puntos de restauracion de los cambiso de la imagen algo asi como en Paint)

[DarkMatrix]

Código [Seleccionar] Expandir


Ancho digamos del picture (representado por la linea de abajo):

|------------------------------|

Ancho = DeLaLinea

despues usas la funcion:

AnchoTextual = picture1.Textwidth("Aca el texto")

Si anchotextual>=ancho entonces
   salta a la siguiente linea
de lo contrario
   sigue en la linea


Si bien entiendo este code lo que hace es contar los caracteres del texto para que cuando llegue al limite del ancho del picturebox aplique una nueva linea al texto.

Pero esta funcion no se aplica al DrawText, intente realizarlo pero o no se pinta el texto o el texto siempre esta en una linea a ver si aqui me explico:



el code que tengo para hacer el drawtext es este:

Código [Seleccionar] Expandir



Private Sub Form_Load()

Dim r As RECT
Dim Texto as String
Dim Ctexto as Long

Picture1.AutoRedraw = True
Texto = "Esto es un texto de ejemplo para la descripcion de esta carta."
Ctexto = Len(Texto)

r.Top = 1   ' Coordenada Y
r.Left = 1  ' Coordenada X
r.Bottom = 500 ' Alto del Rectangulo
r.Right = 200  ' Ancho del Rectangulo
DrawText Me.Picture1.hdc, Texto, Ctexto, r, DT_LEFT

End Sub



y funciona correctamente, pero no hace el salto de linea. bueno no se si esque estoy haciendo algo mal pero espero que me ayuden xD! saludos!!!