Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - cassiani

#411
Programación Visual Basic / Re: ¿Como hacer esto?
17 Septiembre 2008, 21:25 PM
Y más o menos que "función" tendría usar una "función" que utilice la "función" "MsgBox"? para simular un MsgBox? como si no exsitiera dicha función y trabajarás solo con API's...  :huh:

¿rendundante?  :-\
#412
Programación Visual Basic / Re: html Mail
16 Septiembre 2008, 17:03 PM
Estamos a la defensiva  :-\

Fijate que intento hacer una cita y termino comiendose la etiqueta de apertura "quote"

relajaros!  ;)
#413
Cita de: Krackwar en 15 Septiembre 2008, 20:03 PMSi tienes toda la razon cobein pero piensa si este codigo que con esfuerzo tradujo kiash lo emvian a virustotal va ser detectado y ya no le sirve a kiash y gracias a que a que fue bueno y lo publico para que los demas lo vieran.

Eso no tiene ningún sentido, si lo va a usar en beneficio propio ¿para que publicarlo? 

- como dijo Karcrack en otro foro: después de liberarlo ni una versión más para el mismo.

- y como dice Cobein:
Cita de: cobein en 14 Septiembre 2008, 21:24 PM
cualquier codigo que sea publico tiene la posibilidad o es detectado por los AVs muy rapidamenete

en todo caso creo que lo publica para que otros aprendan y eso del que man lo haya subido a vt, uhm.. cualquiera lo hace y no lo dice y es lo mismo, entonces no se enrroyen por eso.  ;)

saludos!

#414
Hola, si se puede,

Código (vb) [Seleccionar]
Option Explicit
Dim sRuta As String

Private Sub Cmd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Cmd.Picture = LoadPicture(sRuta & "Imagen2.jpg")
End Sub

Private Sub Form_Load()
    'La popiedad Style del CommandButton debe ser igual a 1
   
    'definimos la ruta donde se encuentran las imagenes
    sRuta = "C:\Documents and Settings\usuario\Escritorio\Imagenes\"
   
    'cargamos la imagen
    Cmd.Picture = LoadPicture(sRuta & "Imagen1.jpg")
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     Cmd.Picture = LoadPicture(sRuta & "Imagen1.jpg")
End Sub


También puedes hacer uso de los eventos Up y Down para lo que quieres hacer.

saludos!  ;)
#415
Si bueno, habrá que aplicarles la de sin code base no hay respuestas, así evitamos a los que solo vienen a por el code resuelto  :-\
#416
Hola, hay muchas formas y te recomiendo que para este caso trabajes con matrices de controles...

Código (vb) [Seleccionar]
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
    If Index <> 1 And Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub


Suponiendo que el textbox que usas para introducir letras es el que cuyo index es igual a 1.
#417
Programación Visual Basic / Re: Duda
12 Septiembre 2008, 19:28 PM
Puedes almacenar los datos en una variable global en el form2 y luego haces uso de ella en el form1
#418
Conociendo que la raiz de un numero se obtiene elevandolo a la potencia inversa, se puede hacer lo siguinte:

Código (vb) [Seleccionar]
Private Sub Form_Load()
   MsgBox RaizA(14, 2) ' ejemplo1
   MsgBox RaizB(27, 3) ' ejemplo2
End Sub

Private Function RaizA(ByVal Radicando As Double, Indice As Double) As Double
    RaizA = Radicando ^ (1 / Indice)
End Function

Private Function RaizB(ByVal Radicando As Double, Indice As Double) As Double
    RaizB = Exp((1 / Indice) * Log(Radicando)) 'e elevado a la potencia x
End Function
#419
PHP / Re: login
11 Septiembre 2008, 19:04 PM
No puedes abrir la sesión después de haber escrito texto en la página, coloca session_start() unica y exclusivamente al inicio de la pagina, ya que debe ser ejecutado antes de cualquier salida HTML para que la información se envie junto con las cabeceras del HTTP.

Eso de estar regandolo en toda la pagina  :-\ es mala idea

Código (php) [Seleccionar]
<?php
session_start();//iniciamos la sesion
?>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
etc, etc, etc.....


suerte!
#420
Citar
If Dir$("App.Path & " \ INIT \ cabezas.ind) <> "" Then

Concatenaste mal!