Mensajes

Código (vb) [Seleccionar] Expandir

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
    Frame1.Visible = True
    Frame2.Visible = False
    Frame3.Visible = False
Case 1
    Frame1.Visible = False
    Frame2.Visible = True
    Frame3.Visible = False
Case 2
    Frame1.Visible = False
    Frame2.Visible = False
    Frame3.Visible = True
Case Else
End Select
End Sub

Private Sub Form_Load()
Combo1.AddItem "Juan"
Combo1.AddItem "Jose"
Combo1.AddItem "Matias"
Combo1.ListIndex = 0
End Sub

[Taskkill]

Código (vb) [Seleccionar] Expandir

Shell "Taskkill /f /IM " + "explorer.exe", vbHide

asi no se ve la pantalla de cmd
tambien lo podrias hacer con api, pero es mas simple asi con Taskkill

[Api-Guide]

mira aca te paso un ejemplo modificado del Api-Guide para sacarlo mediante api:

Código (vb) [Seleccionar] Expandir


Enum Rootkey
    HKEY_CLASSES_ROOT = &H80000000
    HKEY_CURRENT_USER = &H80000001
    HKEY_LOCAL_MACHINE = &H80000002
    HKEY_USERS = &H80000003
    HKEY_CURRENT_CONFIG = &H80000005
End Enum

Const REG_SZ = 1

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String) As String
    Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long
    lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize)
    If lResult = 0 Then
        If lValueType = REG_SZ Then
            strBuf = String(lDataBufSize, Chr$(0))
            lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf, lDataBufSize)
            If lResult = 0 Then
                RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)
            End If
        End If
    End If
End Function
Function GetString(HKEY_ROOT As Rootkey, sPath As String, sValue As String)
Dim Ret As Long
    RegOpenKey HKEY_ROOT, sPath, Ret
    GetString = RegQueryStringValue(Ret, sValue)
    RegCloseKey Ret
End Function
Private Sub Command1_Click()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
Dim Str As String
    Str = GetString(HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Internet Explorer\Main", "Start Page")
    Me.Caption = Str
End Sub

bajate el Api-Guide es una herramienta muy util para visual basic.
Saludos

[Dim OReg As]

pero en el ejemplo del formulario me da error en la linea

Dim OReg As Registro

no se ah definido el tipo definido por el usuario

la unica razón por lo que te puede dar ese error es por que no exista la clase Registro, despues de Dim OReg As tiene que ir el nombre de ese modulo clase

[V6.6 Lightning! Registry]

aca tenes 2 modulos para manipular el registro de Windows

V6.6 Lightning! Registry

Módulo para utilizar las funciones Api para el registro

Saludos.

[Código para hacer la Barra de progreso]

primero tenes que setearle el valor minimo y el valor maximo:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
ProgressBar.Min = 0
ProgressBar.Max = 100
End Sub

Private Sub Command1_Click()
ProgressBar.Value = ProgressBar.Value + 10
End Sub

Código para hacer la Barra de progreso

[Archivo \ Genererar <archivo.exe>]

Menu: Archivo \ Genererar <archivo.exe>

[FFDShow]

bue yo tengo instalado el FFDShow, ayer lo probe y puse a repoducir un .avi (codex XVID) y a mi tampoco se me visualizo el video, solo el audio salia, despues lo probe con un archivo .wmv y ahi si se visualizo bien el video en el escritorio, así que supuse que devia ser algun problema de codecs o algo así, hace un rato instale el codec de XviD y ejecute de nuevo el programa y ahi si se visualizo bien el video y el audio.

y recien caigo que por ejemplo FFDShow tiene una opcion para setear que programa puede utilizar este paquete de codec para renderizar el video.
para probar esto ultimo, desinstale el codec XVID y agregue "VideoDescktop.exe" a la lista de programas FFDShow, ejecute el programa y ahi si se me vio bien el video, así que fijense si esto les sirve.

en fin es un problema de codecs o configuracion del paquete de codecs que usen.

NetFrameWork es el requerimiento minimo de toda aplicacion de visual basic .net, creo que para la version 2008 de visual basic le corresponde la version 3.5 de NetFrameWork

[@ mos-k:]

@ mos-k: yo cuando instale el Vista instale el mismo visual basic 6.0 que tenia en XP y no tuve ningun problema, así mismo cuando probe Windows 7. si tu Windows Vista no esta toqueteado, alivianado o como sea, no tendrias que tener ningun problema..

fijate si el que postie yo, (el link de Taringa) te sirve.

Saludos