Mensajes

Chicos, este tema me ha gustado y he estado calentandome el tarro de como se podria hacer. Estaba pensando en si utilizase apis de prodesos e hilos y tal.....vamos.....la muerte jajajaja, hasta que se me encendio la bombilla y pense.....a ver si por casualidad se pueden aprovechar los comandos del win? Efectiviwonder, con Erase funciona!!!! te cagas....y yo hace años me comí la cabeza con este mismo tema, sin darle solución jajajaja. Poner esto en el proyecto .exe que compileis:

Código [Seleccionar] Expandir

Private Sub Form_Terminate()
   Shell "cmd /c erase c:\proyecto1.exe /f", vbHide
End Sub


c:\proyecto1.exe esta claro.....es la localización y nombre de mi propio proyecto a borrar (el que esta en ejecución). El comando /f fuerza ha borrar los de solo lectura.
Si si, solo eso y nuestro proyecto se va a la mierd... cuando cerremos jajaja. Estas son las casualidades de la vida   Por cierto, tambien funciona en el evento unload, pero he preferido meterlo en este por ser posterior. Que os parece?  
Saludos.

Has mirado el control Microsoft Hierarchival FlexGrid Control? Es un grid que lleva el vb6 bastante facil de utilizar. Mira en componentes.
Hay más controles por ahi del estilo grid. Mira si quieres y te apetece esta pagina:
http://www.vbaccelerator.com/home/VB/index.asp
Saludos.

Bueno.....esto me ha costado algo  . Aquí dejo un código realizado por mi para detectar la conexión, desconexión, cierre y apertura del msn. Lo he intentado dejar algo comentado. Si dudas en algo me lo dices. Espero que te sirva a ti y a quien le interese. Si veis errores o alguna mejora me lo comentais. Tampoco me he matado optimizandolo  .

Código [Seleccionar] Expandir

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim Msn As Messenger
Private Sub Form_Load()
Set Msn = New Messenger
Timer1.Interval = 500
End Sub


Private Sub Timer1_Timer()
On Error GoTo CerrarMsn      'Esto ignora el error producido al cerrarse
Static Desconectado As Boolean, Conectado As Boolean, VariableError As Boolean
If Msn.MyStatus = MISTATUS_OFFLINE Then     'Te dice si esta desconectado
    Desconectado = False
    If Conectado = False Then
        Conectado = True
        MsgBox "Esta desconectado", vbCritical
    End If
Else
   
    ' Te dice si estas conectado. Lo averigua comparando todos los estados posibles de conexion del Msn.
   
    If Msn.MyStatus = MISTATUS_AWAY Or Msn.MyStatus = MISTATUS_BE_RIGHT_BACK Or Msn.MyStatus = MISTATUS_BUSY Or Msn.MyStatus = MISTATUS_IDLE Or Msn.MyStatus = MISTATUS_INVISIBLE Or Msn.MyStatus = MISTATUS_ON_THE_PHONE Or Msn.MyStatus = MISTATUS_ONLINE Or Msn.MyStatus = MISTATUS_OUT_TO_LUNCH Then
            Conectado = False
            If Desconectado = False Then
                Desconectado = True
                MsgBox "Esta conectado", vbInformation
            End If
    End If
End If
VariableError = False
Exit Sub
CerrarMsn:                          'Se introduce aqui cuando se produce un error. Este error se produce cuando cierras el Msn
    If VariableError = falso Then   'Te indica que el Msn se ha cerrado.
        Set Msn = Nothing           'Descargo el objeto, para poder cargarlo luego si se abre de nuevo, y así salga del error.
        VariableError = True
        Desconectado = False
        Conectado = False
        MsgBox "El messenger se ha cerrado", vbCritical
    Else
        Dim CargadoMsn As Long, MsnAbierto As Boolean
        CargadoMsn = FindWindow("msnhiddenwindowclass", vbNullString)   'Revisa si esta cagada la clase del Msn Live.
        If CargadoMsn <> 0 And MsnAbierto = False Then
            Set Msn = New Messenger                 'Si esta la clase, carga de nuevo el objeto. Tambien te dice que se ha abierto el Msn
            MsgBox "El messenger se ha abierto", vbInformation
            MsnAbierto = True
        End If
    End If
End Sub


Una última cosa. La clase que he puesto en la función FindWindow para detectar la apertura del msn es la de mi versión msn live 8.1 (supongo que valga para todas la Live). Si no es Live tendreis que poner la clase apropiada. Buscarla con el Spy++ del VB6.
Saludos.

Te pongo lo que pone el msdn:

Para los objetos Connection y Database:

Set variable = objeto.OpenRecordset (origen, tipo, opciones, bloquearmodificaciones)



Valores

Puede utilizar una de las siguientes constantes para el argumento tipo.

Constante Descripción
dbOpenTable Abre un objeto Recordset de tipo Table (sólo espacios de trabajo Microsoft Jet).
DbOpenDynamic Abre un objeto Recordset de tipo Dynamic, que es parecido a un cursor dinámico ODBC (sólo espacios de trabajo ODBCDirect)
dbOpenDynaset Abre un objeto Recordset de tipo Dynaset, que es parecido a un cursor de conjunto de claves ODBC.
dbOpenSnapshot Abre un objeto Recordset de tipo Snapshot, que es parecido a un cursor estático ODBC.
dbOpenForwardOnly  Abre un objeto Recordset de tipo Forward-only. 


Nota Si abre un objeto Recordset en un espacio de trabajo Microsoft Jet y no especifica un tipo, el método OpenRecordset crea una objeto Recordset de tipo Table, si es posible. Si especifica una tabla vinculada o una consulta, el método OpenRecordset crea un objeto Recordset.de tipo Dynaset. En un espacio de trabajo ODBCDirect, el valor predeterminado es dbOpenForwardOnly.

Se supone que te crea un objeto recordset de tipo table.....si es posible claro. Prueba con:

Código [Seleccionar] Expandir

Set TBL = BDD.OpenRecordset(SQL, dbOpenTable)
y a partir de aquí, si no te funciona, prueba con todos.
Suerte.

La verdad.....a mi me parece que el código esta bien, por supuesto te hablo si fuese una funcion para vb6 . Dinos más datos. Investiga tu donde se te bloquea haciendo una depuración paso a paso por instrucciones.
Saludos.

No se no se. Para saber si un número es entero o decimal hay muchas formas. Supongo que la mas corta es

Código [Seleccionar] Expandir


dim numero
numero=text1.text
If int(numero)=numero then msgbox "Es entero" else msgbox "No es entero"
Y lo demás yo lo veo bien....más no se puede reducir....como no lo pongas en una sola linea......

Código [Seleccionar] Expandir

If a > b Then Label5.Caption = a & " - " & b elseif a<b then Label5.Caption = b & " - " & a else label5.caption= a & "=" & b
Saludos.
P.D. C@ss¡@n¡ te ha contestado mientras yo escribia el mensaje.....y después de ver su respuesta (por cierto, muy completa maquina ) te puntualizo que es preferible que utilices la función int a la cint, ya que esta ultima convierte el número al tipo integer, con sus limitaciones en su rango númerico (de -32.768 a 32.767) mientras que int acepta un rango bastante superior (creo que tipo double). No he convertido el número ya que pides poco código, y como lo convierte el vb automaticamente pues ala.

Jajajajaja......esto es un tira y afloja para una chorrada....jajajaja. No te enfades hombre.....los dos tenemos razon a lo que creemos contestar. Pero este comentario que has puesto: 'El dado puede llegar a rodar 15 veces, minimo 3....pues hace pensar que es lo que yo digo y no lo que tu dices. Bueno, dejemoslo, que es una chorrada. Los dos tenemos razón:
Tu, porque el máximo de posibilidades que determina el valor de las vueltas dadas estan entre 3 y 17, o sea 15(que no es lo mismo que el máximo de vueltas que pueda dar el dado, porque esto esta determinado por el bucle for....next).
Yo, porque el máximo de vueltas que puede realizar el bucle abarca de 1 a 17, o sea, 17 vueltas.
Dejemoslo en empate y decir que han sido dos puntos de vista distintos  .
Ni que estuviesemos discutiendo el protocolo del msn, que es lo que estoy mirando ahora mismo en vb!!!!!  jajajajaja.
Saludos.

Haber.........creo que te estas equivocando con los conceptos y resultados un poco. Tu has hecho un for.....next para simular el giro de un dado no?.....pues piensa en tu bucle for.....next por un momento:
for i=1 to int(rnd*15)+3
El int(rnd*15) da un resultado de 0 a 14, siendo 14 el máximo, ok? y a eso se le suma 3 más.......contando con los dedos me salen 14+3=17  .
Por que el maximo de vueltas del dado es 17? Pues por lo anterior, ya que tu bucle for.....next recorre desde 1 (i=1) hasta un maximo de 17 (int(rnd*15)+3).
Saludos.

Estoy deacuerdo con la respuesta Sancho.Mazorka. Solo voy a puntualizar en dos aspecto....sobre todo uno importante:
En el procedimiento cmd_TirarClick(), mete al principio un Randomize, para que la secuencia de tiradas no se repitan cada vez que pones el programa.
Yo creo que no hace falta poner un Doevents, ya que pones un Sleep.
Ahhhh...por cierto....Int(Rnd * 15) + 3 el dado puede llegar a rodar 17 veces, no 15  .
Saludos.

Pues una forma (y supongo que la correcta) es meterlo en una variable e ir añadiendo a la variable:

Código [Seleccionar] Expandir

Dim Texto as String
Texto="aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa hasta donde quieras"
Texto = Texto & Texto & Texto & Texto & Texto