Mensajes

Código [Seleccionar] Expandir

MsgBox "Hola me llamo:" & text1.text ,vbCritical,"Pum"

Pues dos post mas abajo - aaba de dar la solucion

Weno lo q a dicho es q para usar ese tipo de comandos hay q poner un cmd /c delante, por ejemplo

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Text1.Text = "cmd /c dir"
End Sub

Pues si lo q kieres es ejecutarlos puedes usar la funcion shell de VB o la api sehll execute

Pero ese source valdria solo para comandos como dir y demas, habria algunos q no seria util usarlos desde ahí. Yo tb estoy buscando alo como el remote shell del bifrost, q sea = q la consola, q se vea la ruta desde la q se usa (lo de C:\ >) a ve si alguien sabe..

Tiene razon, solo funcionan comandos como net stat o incluso help, pero los mas utiles como dir o cd.. no funcionan

O mas simple:

Código [Seleccionar] Expandir

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Load()
Dim x As Integer
x = SendMessage(List1.hwnd, &H194, 200, ByVal 0&)
End Sub

Con eso le adaptas la barra horizontal, la vertical ya se pone sola 

Gracias 

Hola

Alguien sabe como bajar el scroll (la barra de la derecha) abajo del todo en un text box multiline?? es q si le voy añadiendo cosas al textbox solo se ve la parte de arriba, por eso keria q fuera bajando el scroll segun añado texto..

Alguien sabe?
Gracias

Si los manejamos  lo q pasa q es un tema ya muy tratado, busca o descargate un manual basico.....

Busca en google info sobre printer Y si pones en google imprimir VB6 tendras mucha mas info...