• Domingo 19 de Mayo de 2024, 06:01

Autor Tema:  Font, Messagebox  (Leído 878 veces)

Sagma

  • Miembro MUY activo
  • ***
  • Mensajes: 390
  • Nacionalidad: bo
    • Ver Perfil
Font, Messagebox
« en: Jueves 8 de Noviembre de 2007, 13:33 »
0
hola que tal, tengo en msgbox, y quisiera saber si le puedo poner en negritas y aumentar el tamaño.

Código: Text
  1. sgBox("El codigo es el Siguiente : " & Me.txt_codigo.Text & Chr(13) & " con su nombre " & Me.txt_nombre.Text, MsgBoxStyle.Exclamation)
  2.  

gracias.  :smartass:
Sagma

Sagma

  • Miembro MUY activo
  • ***
  • Mensajes: 390
  • Nacionalidad: bo
    • Ver Perfil
Re: Font, Messagebox
« Respuesta #1 en: Jueves 8 de Noviembre de 2007, 22:38 »
0
hola, por mas que busco no he encontrado, solo sugerencias que haga mi propio ventana, así que he creado un form y quiero pasar dos datos, el código y el nombre, pero estoy pataleando.

este es el código que uso en el 1er form, de donde paso el dato al 2do form.

Código: Text
  1.  
  2.     Public F1CodPint As Integer
  3.     Public F1NomPint As String
  4.  
  5.         Me.txt_codigo.Text = Desplega_Autonumerico("SELECT MAX(codigopintor) FROM pintor")
  6.  
  7.         Dim fmsg As New frmmsg
  8.         fmsg.ShowDialog(Me)
  9.         fmsg.Dispose()
  10.  
  11.         F1CodPint = Me.txt_codigo.Text
  12.         F1NomPint = Me.txt_nombre.text
  13.  
  14.  

este dato lo tengo en el 2do form en el evento load.

Código: Text
  1.  
  2.         Dim fmsg As New frmpintor
  3.  
  4.         Me.lblCodigo.Text = fmsg.F1CodPint
  5.         Me.lblNombre.Text = fmsg.F1NomPint
  6.  
  7.  

Gracias por la orientacion,  :comp:
Sagma