** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - MsgBox parte del texto en negrita
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoMsgBox parte del texto en negrita

 Responder Responder
Autor
Mensaje
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 1725
Enlace directo a este mensaje Tema: MsgBox parte del texto en negrita
    Enviado: 02/Diciembre/2017 a las 17:28
Hola de nuevo.

Llevo mucho rato intentando poner parte del texto de un msgbox en negrita y no lo consigo ni de churro...ConfusedConfused

La info la he sacado de aqui
http://acceseros.zoomblog.com/archivo/2005/08/31/msgbox-especiales.html

EJEMPLO MSGBOX ESPECIAL

Dim Respuesta As Integer

Respuesta = Eval("MsgBox('Atención: Este registro no existe' " & _ 

    "& chr(13) & chr(10) & " & _ 

    "'Confirme su decisión de dar de alta este nuevo registro@" & _ 

    "¿Desea crear este nuevo registro?@',4,'Aviso')")

If Respuesta = 6 Then 

  'Codigo para crear

End If



Este codigo saca en negrita todo menos la ultima frase que es la pregunta. Si quito las @ todo sale en negrita, no consigo ver como hacerlo.

Quiero al reves que salga sin negrita al princiopio..

Para mas exactos asi


Deseas crear la hoja de firmas de PAMPLONA?


Pamplona la pilla de una variable y la pongo en mayusculas asi   " & UCase(Me.Parque) & "


A ver si me echais una mano, no consigo ver porque  sale un texto en negrita o no y tampoco hay mucha informacion o no se encontrarla


Saludos



Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: en línea
Puntos: 5026
Enlace directo a este mensaje Enviado: 02/Diciembre/2017 a las 19:09
Hola!

Descarga este ejemplo y ajústalo a tus necesidades.

http://www.datastrat.com/Download/MsgBox2K.zip
Un Saludo.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10663
Enlace directo a este mensaje Enviado: 02/Diciembre/2017 a las 19:55
Sin dudar de que queda guay .... Big smile

... pienso que sale muy caro para lo que se consigue.

Creo que sería mejor crearnos un formulario propio para lanzar los mensajes al que le pasaríamos los parámetros de lo que quisiéramos conseguir:
- el que desaparezca sólo se consigue con un Timer
- los colorines y formatos se consiguen usando un control con RichText, sólo hay que formatearlo con las etiquetas HTML correspondientes

Sólo es una opinión .... LOL


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4273
Enlace directo a este mensaje Enviado: 03/Diciembre/2017 a las 09:43
Buenas

Respondiendo a tu pregunta creo que No es posible alterar el orden de la negrita

Eval ("MsgBox('Tu texto con Negrita AQUI" & vbNewLine & "@Tu Texto normal aqui.@@'," & vbCritical & ", 'Tu titulo aqui')")

Aunque muevas @ al inicio No aparecerá la negrita
Eval ("MsgBox('@Tu texto con Negrita AQUI@@" & vbNewLine & "Tu Texto normal aqui.'," & vbCritical & ", 'Tu titulo aqui')")

Creo que debe ser algún BUG de la instrucción

Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 1725
Enlace directo a este mensaje Enviado: 03/Diciembre/2017 a las 12:51
Hola

Creo que optare por formulario simulando msgbox si quiero hacer lo de la letra negrita, o pasare de ella...y me olvido de complicaciones..
Saludos

Se puede cerrar....
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: en línea
Puntos: 5026
Enlace directo a este mensaje Enviado: 03/Diciembre/2017 a las 14:21
Hola!

Quería añadir un comentario a este hilo por ya lo habían cerrado. El ejemplo que he mandado cumple con lo que se quería hacer. A simple vista es complicado pero si se mira bien vemos que tiene otro formulario "Form1" que es para personalizar, miramos en su código veremos:

que puedes escribir la primera línea, luego un numero (0) ó (-1) para simple o negrita, luego el color, numero 1,2 ó 3 para alinear el texto, luego repite lo mismo para la otra línea.
La ruta de la imagen, el nombre de la función para cerrar automáticamente el BSGBOX y los segundo que tarda en mostrarse.


Private Sub Command0_Click()
Call fMsgBox("Test", _
"Deseas crear la hoja de firmas de", _
0, vbBlack, 2, _
"Pamplona?", _
-1, vbRed, 2, _
"D:\Projects\Code\Graphics\Critical.bmp", _
"=CloseMe()", 4000)
End Sub



Ed. (Mihura) Muevo el mensaje al hilo que le corresponde, ya que tiene mucho que ver ... Tongue


Editado por Mihura - 03/Diciembre/2017 a las 14:51
Un Saludo.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable