Mensajes

Bueno en la foto no se ve nada seria mejor si lo pones mas grande

Para Crear La Funcion   vb   le das a herramientas o tools  agregar procedimiento



ejemplo:

Código (vb) [Seleccionar] Expandir

Public Sub Procedimientos()
Tu Codigo Va Aqui



Private Comando sub ()

Código (vb) [Seleccionar] Expandir

Call Procedimientos

Esta Pensando Algo asi

Código (vb) [Seleccionar] Expandir


Private Sub text1_Change()
text1.text=Val(text1.text )
MsgBox "La Transferencia Ha Sido Completada"


Asi Me Deja Poner Cualquier Valor

Lo del msgbox sigue igual

Como Hago Cuando Yo Termino de digitar el precio me salga este mensaje   

msgbox"La Transferencia Ha Sido Completada"

seria en un evento change   text1change()

Cuando Digito algo siempre me sale el mensaje  si quiero poner 4,000 me  sale cada vez que voy digitando un numero   no me deja poner el precio total

Código (vb) [Seleccionar] Expandir

Private Sub text1_Change()
text1.text=text1.text
MsgBox "La Transferencia Ha Sido Completada"


Ya Lo Del Listbox esta resuelto  Gracias Flamer Por Tu Respuesta

Si Me Di Cuenta Metiendo tanto codigo

Código (vb) [Seleccionar] Expandir


Private Sub Agua_Click()
List1.Visible = True
If Form2.Agua = True Then
Form4.lblservicio = Form2.Agua.Caption
End If
End Sub


Disculpa Flamer Lo Mismo Se Hace con listbox??

Código (vb) [Seleccionar] Expandir

form2.list1.text=form4.lbldepartamento

Ya esta Resuelto 

Si Yo Tengo Un Boton Comando Llamado Agua    En Un Formulario(Form2) A Darle Click Se Podria Pasar a un Label El Formulario 4?

Como Con Los Textbox Y Labels    Lo que yo Pongo en el textbox (form2)  me sale en el label (form3)




Mi Pregunta es se Puede Hacer Esto Con Un  Boton Comando  y un listbox ?????

Como Hago Para que cuando yo termino lo que digite me salga este mensaje

sin usar comandos

Código (vb) [Seleccionar] Expandir

Private Sub TXTprecio_Change()
If TXTprecio = TXTprecio Then
TXTprecio.SetFocus
End If
MsgBox "La Transferencia Ha Sido Completada"
End Sub

  Me Di Cuenta Ahora

Excusa  Mi Hermano Pensaba que  Borraste El Archivo