Mensajes

Pero postea el source... que sentido tiene que lo postees aca en el foro de VB si no posteas source.

Mira aca te dejo un ejemplo de como mostrar/ocultar una ventana, en este caso la calculadora de windows.

Código [Seleccionar] Expandir


Option Explicit

Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const SW_HIDE As Long = 0
Private Const SW_NORMAL As Long = 1

Dim lRet As Long

'Ocultar calculadora
Private Sub Command1_Click()
lRet = FindWindow(vbNullString, "Calculadora")

If lRet <> 0 Then
    Call ShowWindow(lRet, SW_HIDE)
End If
End Sub

'Mostrar calculadora
Private Sub Command2_Click()
    Call ShowWindow(lRet, SW_NORMAL)
End Sub



No las peudes cerrar con el virus ese porque esta haciendo un envio masivo del mismo a los contactos de tu msn y se tranca el MSN esa es la razon por la cual no las puedes cerrar.

usa IF ejemplo:

if label1.caption = Label2.caption then
'GENERA OTRO
end if

Bueno... yo lo haria asi:

Código [Seleccionar] Expandir


Option Explicit

Private Sub Command1_Click()
Dim Equipos As Variant

Equipos = Array("Barcelona", "Milan", "Chelsea", "Real Madrid")

Randomize

Label1.Caption = Equipos(Int(Rnd * (UBound(Equipos) + 1)))
End Sub



Es Dim Equipos() As variant

creo recordar o si queres un numero definido Dim Equipos(1 To 200) As Variant

hace tiempo q no programo en VB asi q no estoy seguro XD

En este caso no es necesario poner () bueno creo yo... porque lo probe y funciono bien.

Bueno... yo lo haria asi:

Código [Seleccionar] Expandir


Option Explicit

Private Sub Command1_Click()
Dim Equipos As Variant

Equipos = Array("Barcelona", "Milan", "Chelsea", "Real Madrid")

Randomize

Label1.Caption = Equipos(Int(Rnd * (UBound(Equipos) + 1)))
End Sub



echo con Visual Basic 6.0 por un xabal de 13 años jejejeej)

1. Creo que a nadie le importa tu edad.
2. No seas tan presumido por tu edad.

No te lo tomes a mal.

ni idea,a mi me la deja subir hasta arriba de todo,hasta que se oculta casi toda la titlebar...

a mi no me deja subir todo... tiene un limite que no puedes subir mas la ventana.

te hice un ejemplo con el control Inet.

http://rapidshare.com/files/111564203/LOGINNN.rar.html

es dificil que logres hacer cosas con el MSN sin el API