hacker


Ingresar con nombre de usuario, contraseña y duración de la sesión
| Portal Hacker | Editorial | Descargas | Ezine |
Inicio Ayuda Ingresar Registrarse
21 de Agosto de 2008, 06:58:54
Noticias: La segunda fase del torneo de matemáticas ya ha empezado!!
Para ver este enlace Registrate o Inicia Sesion
ver

+  Foros pOrtal Hacker
|-+  Programacion
| |-+  Programación en general
| | |-+  Visual Basic (Moderadores: ranefi, crypto136, ziBboh, >> s E t H <<)
| | | |-+  Compilacion
0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Compilacion  (Leído 354 veces)
][kevin][
Recien llegado
*
Desconectado Desconectado

Mensajes: 22


Ver Perfil
« : 28 de Junio de 2006, 11:29:46 »

wenas por problemas con el VB6.0 No puedo compilar mi codigo.
estoy aprendiendo a programar en Visual basic y quisiera que alguien me compilase mi primer codigo jeje

Private Sub cmdSalir_click()
   Beep
   end
End Sub

Private Sub CmdAyuda_click()
 MsgBox "Primer Programa Creado Por Kevin"
End Sub

Private Sub CmdDarkEndTeam _click()
MsgBox "Miembros:HeLiOsZ,Sint,Kevin,Demony,Yn_tux,Sarckz,Statik"
End Sub

Private sub mnuFileExit_cl ick()
     end
End Sub

Private sub CmdApagar_clic k()
   Dim i as integer
  i = ExitWindowsEx(2, 0&)
End Sub




jeje empese ayer a programar en VB espero que alguien me haga el favor de compilarlo un saludo
En línea

Dark End Team

Para ver este enlace Registrate o Inicia Sesion
www.dardar73.c oconia.net
ranefi
Moderador Global
*****
Desconectado Desconectado

Mensajes: 1,193


SELECT * FROM guapos WHERE papito_chulo = 'ranefi'


Ver Perfil WWW
« Respuesta #1 : 29 de Junio de 2006, 05:39:35 »

Hola ][kevin][, buen día. Me alegra que ya hayas realizado tu primer programa.

Código:

Private Sub cmdSalir_click()
   Beep
   End
End Sub

Private Sub CmdAyuda_click()
    MsgBox "Primer Programa Creado Por Kevin"
End Sub

Private Sub CmdDarkEndTeam_click()
    MsgBox "Miembros:HeLiOsZ,Sint,Kevin,Demony,Yn_tux,Sarckz,Statik"
End Sub

Private Sub mnuFileExit_click()
     End
End Sub

Private Sub CmdApagar_click()
   Dim i As Integer
  i = ExitWindowsEx(2, 0&)
End Sub


Sólo le fakta algo a tu código, la declaración de la API de apagado de Windows:

Código:

Private Declare Function ExitWindowsEx Lib "user32" _
    (ByVal uFlags As Long, _
    ByVal dwReserved As Long) As Long


Dicha API debe ir en la sección de declaraciones generales (en la parte de arriba, afuera de todos los subs). Para compilarlo debes ir a Archivo-->Generar Proyecto1.exe. Nos vemos.
« Última modificación: 29 de Junio de 2006, 05:43:45 por ranefi » En línea


SELECT * FROM mejores_batos_ del_mundo WHERE id = (SELECT DISTINCT id_guapo FROM los_mas_guapos _del_mundo WHERE papito_chulo = 'ranefi')
Páginas: [1] Ir Arriba Imprimir 
« anterior próximo »
Ir a:  


Ingresar con nombre de usuario, contraseña y duración de la sesión

Powered by SMF 1.1.5 | SMF © 2006-2008, Simple Machines LLC hacker

Juegos gratis - Articulos PHP - Juegos - Trucos - Letras - Juegos - Juegos Online