Hombre...VB es lenguaje compilado y VBS lenguaje interpretado de scripting, por lo cual es mucho más inferior que VB, VBS es "un trozo" de VB.

http://msdn.microsoft.com/en-us/library/ms970436.aspx

¿Porque sabiendo manejar VB6 quieres hacer esto en VBS?, si es por aprender...vale, pero de lo contrario pienso que es una pérdida de tiempo por lo que acabo de comentar.


Pues aquí tienes todo lo necesario para enviar las pulsaciones del teclado (en VBS, no VB):
http://social.technet.microsoft.com/wiki/contents/articles/5169.vbscript-sendkeys-method.aspx
http://ss64.com/vb/sendkeys.html

Saludos

En una aplicación tengo un textbox donde escribo "X" texto y después añado ese texto a un control, pues bien, después de añadir el texto al control, necesito refrescar el texto del Textbox para que se "raisee" el evento OnTextChanged del textbox, pero esto es imposible hacerlo usando Refresh o Invalidate porque lo que actualizan es el drawing del control, no el texto, la única manera es modificando el texto...

...Así que hice este pequeñísimo procedimiento genérico:

    ' Refresh Textbox Text
    Private Sub Refresh_Textbox_Text(ByVal TextBox As TextBox)
        Dim TempText As String = TextBox.Text
        TextBox.Clear()
        TextBox.Text = TempText
    End Sub

Es muy sencilla, pero a alguien le servirá.

' Aquí otra forma:

    Private Sub textBox1_Invalidated(sender As Object, e As System.Windows.Forms.InvalidateEventArgs) Handles textBox1.Invalidated
        textBox1_TextChanged(sender, New EventArgs())
    End Sub

Saludos.

En este caso es un programa muy sencillo, no crea ninguna clave de registro (bueno, la crea vacía, asi que nada)

Tienes uan carpeta en "%APPDATA%\phpdesigner"
Otra carpeta en "%PROGRAMFILES%\phpDesigner 8"

..Y nada más, con copiar eso es suficiente.

Saludos!

...Cada programa es un mundo, si no dices de que programa se trata dudo que se te pueda ayudar más que diciendote esto:

1. Monitoriza el registro en busca de nuevas claves añadidas durante la instalación.
2. Monitoriza los archivos en busca de nuevos archivos expandidos durante la instalación.
3. Recopíla todas esas claves y archivos para crear tu portable.

No me vale lo de "es que ya lo tengo instalado", como ya digo cada programa es un mundo, y ese programa puede tener 1.000 archivos expandidos por las carpetas del sistema y que sin ellos no podrás ejecutar la aplicación, por eso has de monitorizar esos archivos, además puede tener servicios, dll's registradas en el sistema, de todo vaya.

Si dices tener una aplicaicón que ya monitoriza todo eso por ti durante la instalación, pues entonces eso es lo que necesitas.

..Ahora, si se trata de un programa sencillo, pues es suficiente con copiar el contenido del directorio de la aplicación, y hacer tu portable, con Winrar por ejemplo (para newbies).

Saludos!

Un ListView extendido para monitorizar cuando se añade y cuando se elimina un Item.

MUY IMPORTANTE: Hay que utilizar los nuevos métodos (AddItem, RemoveItem) en lugar de usar el antiguo ...items.Add o ...items.Remove, para que funcione.

PD: Si alguien sabe como overridearlos de forma correcta que lo diga

'  /*                  *\ 
' |#* ListView Elektro *#| 
'  \*                  */
'
' // By Elektro H@cker
'
'   Properties:
'   ...........
' · Disable_Flickering
' · Double_Buffer
'
'   Events:
'   .......
' · ItemAdded
' · ItemRemoved
'
'   Methods:
'   .......
' · AddItem
' · RemoveItem
 
Public Class ListView_Elektro : Inherits ListView
 
    Public Event ItemAdded()
    Public Event ItemRemoved()
 
    Private _Disable_Flickering As Boolean = True
 
    Public Sub New()
        Me.Name = "ListView_Elektro"
        Me.DoubleBuffered = True
        ' Me.GridLines = True
        ' Me.MultiSelect = True
        ' Me.FullRowSelect = True
        ' Me.View = View.Details
    End Sub
 
#Region " Properties "
 
    ''' <summary>
    ''' Enable/Disable any flickering effect on the ListView.
    ''' </summary>
    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            If _Disable_Flickering Then
                Dim cp As CreateParams = MyBase.CreateParams
                cp.ExStyle = cp.ExStyle Or &H2000000
                Return cp
            Else
                Return MyBase.CreateParams
            End If
        End Get
    End Property
 
    ''' <summary>
    ''' Set the Double Buffer.
    ''' </summary>
    Public Property Double_Buffer() As Boolean
        Get
            Return Me.DoubleBuffered
        End Get
        Set(ByVal Value As Boolean)
            Me.DoubleBuffered = Value
        End Set
    End Property
 
    ''' <summary>
    ''' Enable/Disable the flickering effects on this ListView.
    ''' 
    ''' This property turns off any Flicker effect on the ListView
    ''' ...but also reduces the performance (speed) of the ListView about 30% slower.
    ''' This don't affect to the performance of the application itself, only to the performance of this control.
    ''' </summary>
    Public Property Disable_Flickering() As Boolean
        Get
            Return _Disable_Flickering
        End Get
        Set(ByVal Value As Boolean)
            Me._Disable_Flickering = Value
        End Set
    End Property
 
#End Region
 
#Region " Methods "
 
    ''' <summary>
    ''' Add an item to the ListView.
    ''' </summary>
    Public Function AddItem(ByVal Text As String) As ListViewItem
        RaiseEvent ItemAdded()
        Return MyBase.Items.Add(Text)
    End Function
 
    ''' <summary>
    ''' Remove an item from the ListView.
    ''' </summary>
    Public Sub RemoveItem(ByVal Item As ListViewItem)
        RaiseEvent ItemRemoved()
        MyBase.Items.Remove(Item)
    End Sub
 
#End Region
 
End Class

Ejemplo de uso:

#Region " [ListView Elektro] Monitor Item added-removed "
 
    ' [ListView Elektro] Monitor Item added-removed
    '
    ' // By Elektro H@cker
 
        Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Shown
           Dim Item As ListViewItem = ListView1.AddItem("Test") ' Add the item
           ListView1.RemoveItem(Item) ' Remove the item
       End Sub
 
       Private Sub ListView_ItemChanged() Handles ListView1.ItemAdded, ListView1.ItemRemoved
 
           ' I check if exists at least 1 item inside the ListView
           If ListView1.Items.Count <> 1 Then MsgBox("Listview have items.") Else MsgBox("Listview is empty.")
 
       End Sub
 
#End Region

No lo considero doble-postear, posteo cuando tengo un nuevo snippet o una cantidad de snippets, a veces me los creo/consigo de 1 en 1 o de 5 en 5, nunca se sabe...

PD: A mi no me trollees xD

---

El ...IndexOf("text") rquiere pasarle un "ListiewItem", no he podido pasarle un string para probar.

PD: A ver si consigues mejorarlo tu

un saludo!

pues prueba a hacerlo multiline y le añades un vbnewline y luego el texto

EDITO: O mejor aún... adapta el tamaño del textbox al tamaño de la fuente, y listo.

. . .

Lee las propiedades del textbox, pero no busques por "margen" sinó por "alinear"

Edito: También influye en el margen que tipo de borde estés usando "borderstyle", y bueno... el margen opcional se lo puedes añadir con espacios.

saludos!

puedes explicarlo mejor? que tipo de margen? algun ejemplo de como es tu texto y como debería ser? ...

[Textbox] Show end part of text

Este snippet no se muy bien como explicarlo en pocas palabras, así que lo voy a explicar con imágenes...

Cuando excedemos el límite visible del textbox, la parte del final, es decir la parte derecha no se muestra:



Pues con este snippet omitiremos la parte de la izquierda, mostrando hasta la parte final del texto:

    Private Sub TextBox_TextChanged(sender As Object, e As EventArgs) _
    Handles TextBox1.TextChanged
 
        ' If the text reaches the writable box size then this shows the end part of the text.                                                          
        sender.Select(sender.TextLength, sender.TextLength)
 
    End Sub

Saludos!