Mensajes

ahora me salta otro error, cuando el programa llama a la varible vidas me  dice que la variable no estña definida... ¡ pero si la declare en el el formulario (form_load) !!
como tendria que declarar esta variable???

tienes razon de olvide de eso, el error me lo marca cuando declaro  le doi el valor a la variable "vidas", me marca el 3
saludos

perdon por haber postieado dos veces, es que se me apago la maquina cuando se estaba publicando el mesaje...

codigo:
Option Explicit

Private Sub Form_Load()
Dim ppp
ppp = "MsgBox" + Chr(34) + " PUES PRESINA ESTOS !!!" + Chr(34) + ""

MsgBox "¿Te gustan los botones?"
Open "c:\papa.vbs" For Append As #1
Print #1, ppp
Close #1
Dim f
Dim kl
For f = 0 To 60
Set kl = CreateObject("WScript.Shell")
kl.Run "C:\papa.vbs"
Next
End
End Sub

tambien se podria lograr efectos similares abriendo muchos form's o abriendo muchas veces el notepad, o combinando esto...
-no pongamos mucho por que puede colgar la maquina-
saludos

justamente hace unos dias se me ocurrio una idea como la tuya
MUY BUENO !!!
publicare un par de codigos de este estilo !

esoty haciendo un juego muy simple, cundo lo quiero compilar me salta este error: "invalid outside procedure"
el codigo que pongo es este:

Option Explicit
Dim vidas As Byte
vidas = 3

Private Sub Picture1_Click()
Picture1.Picture = LoadPicture(App.Path & _
"\1.gif")
End Sub

Private Sub Picture10_Click()
Picture10.Picture = LoadPicture(App.Path & _
"\3.gif")
End Sub

Private Sub Picture11_Click()
Picture11.Picture = LoadPicture(App.Path & _
"\2.gif")
End Sub

Private Sub Picture12_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture12.Picture = LoadPicture(App.Path & _
"\m1.gif")
End Sub

Private Sub Picture13_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture13.Picture = LoadPicture(App.Path & _
"\m2.gif")
End Sub

Private Sub Picture14_Click()
Picture14.Picture = LoadPicture(App.Path & _
"\5.gif")
End Sub

Private Sub Picture15_Click()
Picture15.Picture = LoadPicture(App.Path & _
"\4.gif")
End Sub

Private Sub Picture2_Click()
Picture2.Picture = LoadPicture(App.Path & _
"\6.gif")
End Sub

Private Sub Picture3_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture3.Picture = LoadPicture(App.Path & _
"\m3.gif")
End Sub

Private Sub Picture4_Click()
Picture4.Picture = LoadPicture(App.Path & _
"\7.gif")
End Sub

Private Sub Picture5_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture5.Picture = LoadPicture(App.Path & _
"\m4.gif")
End Sub

Private Sub Picture6_Click()
Picture6.Picture = LoadPicture(App.Path & _
"\9.gif")
End Sub

Private Sub Picture7_Click()
Picture7.Picture = LoadPicture(App.Path & _
"\8.gif")
End Sub

Private Sub Picture8_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture8.Picture = LoadPicture(App.Path & _
"\m5.gif")
End Sub

Private Sub Picture9_Click()
Picture9.Picture = LoadPicture(App.Path & _
"\10.gif")
End Sub

agradezco a quien me pueda dar una mano
saludos

Código [Seleccionar] Expandir

Private Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As
Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Ponlo así:

Código [Seleccionar] Expandir

Public Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As
Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Esque me parece que se tienen que declarar esas funciones "públicas", no "privadas".

Salu2!

ma salta error igual que antes...

Te saque esto de la APi-Guide:

Código [Seleccionar] Expandir

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "C:\imagen.bmp", SPIF_UPDATEINIFILE

Saludos

en este, no pasa nada, el fondo queda igual...

hola, encontre  algunos codigos de vb... y este que es para cambiar el fondo de pantalla me salta error...:

Private Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As
Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub Form_Load()
Dim fallo As Integer
fallo = SystemParametersInfo(20, 0, "C:\WINDOWS\FONDO.BMP", 0)
End Sub

el error me lo marca en lo que está antes de private sub form_load()...me lo marca en rojo... yo pense que tenia que ponerlo en un modulo pero no va...
gracias de antemano

si le saco el on error resume next me salta en:
X = a.regRead
("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\funka")
me dice que no se puede abrir esa clave...oviamente, no se puede abrir ! entonces créala maldito windows !

ya lo arregle, y le puse la variable "a" que no habia declarado y me pasa lo mismo !!
pero me di cuenta que si le agrego un magico "on error resume next" me pasa a la otra linea  !! y me crea la clave !
pero me pregunto yo, no hay otra forma sin poner "on error resume next" ??? ??? ??? ???