Buenas:
He hecho un formulario que funcionará como msgbox , el motivo de utilizar el formulario es porque queria personalizarme el msgbox. pero hay un error , cuando sale una sola vez el msgbox vabien pero kuando sale por segunda vez algunas cosas fallan. dejo la imagen y el codigo que utilizo.
le agradeceria mucho que alguien me ayudara.
gracias
Codigo:
Public Sub box(error As Integer, msg As String, tit As String)
Form3.Show
'"error" es un numero entre el 1 i 3 que corresponde a la imagen del msgbox(triangulito, infomacion ...)
"msg" es el mensaje
"tit"es el titulo de la ventanita
Beep
Form3.Picture1.Picture = Form3.picx(error).Image
Label1.Caption = msg
Label1.ForeColor = Form1.clrtxt2.BackColor
Label2.ForeColor = Form1.clrtxt2.BackColor
Label2.Caption = tit
Line1.BorderColor = Label1.ForeColor
Picture2.Picture = Form1.picx.Image
Shape1.BorderColor = Label1.ForeColor
Shape1.Top = 0
Shape1.Left = 0
Picture1.Left = 500
Dim med As Integer
med = Picture1.Height / 2
Label1.Top = Picture1.Top + med
Form3.Width = 1000 + Picture1.Width + Label1.Width
Picture2.Left = Form3.Width - 300
Form3.Height = Picture1.Top + Picture1.Height + Picture1.Top
Shape1.Height = Form3.Height
Shape1.Width = Form3.Width
Label2.Width = Picture2.Left - 250
'Form3.StartUpPosition = 2
Me.Left = (Screen.Width - Width) / 2 'Centro
Me.Top = (Screen.Height - Height) / 2 'Centro
End Sub
imagen:
