Mensajes

[Ruta]

Hola, este codigo:

Código (vb) [Seleccionar] Expandir

Ruta = File1.Path & "\" & File1.FileName

lo deberias ejecutar en el evento clik del filelistbox, no en el load del formulario, ya que si cambias de archivo no pasa nada, el load se ejecuta al inicio no tiene nada que ver. y la variable Ruta debe estar declarada arriba local en el formulario no en el load.aparte de eso debes hacer un refresh sino nunca ves si borraste o no...este codigo te debe funcionar:

Código (vb) [Seleccionar] Expandir

Dim Ruta As String

Private Sub Command1_Click()
    If File1.ListIndex = -1 Then Exit Sub
    Kill Ruta
    File1.Refresh
End Sub

Private Sub File1_Click()
    Ruta = File1.Path & File1.FileName
End Sub

Private Sub Form_Load()
    File1.Pattern = "*.exe;*.bat;*.ini;*.com;*.vbs"
End Sub

saludos.

otro post que termina cerrado...

perdon edite y habias escrito, proba crearte un instalador, y cuando lo estes haciendo le decis que incluya todas las dependencias del proyecto, eso seguro te instala la dll en la otra maquina...porque llevarla asi nomas y ponerla no creo que ande, ni idea como hace el framework para registrar esas dll en el sistema, no creo que sea un simple regsvr32.

saludos.

pues obvio no va a aparecer por arte de magia la dll en la otra maquina, todavia no hace magia .NET...es como hacer un reporte en crystal debes llevar las dll de crystal e instalarlas, son cosas aparte del framework, no estan incluidas en el.debe haber un paquete que tengas que instalar para que te tome la dll, es como todo....de ultima proba crearte un instalador con el mimso .NET de la aplicación, eso te instala seguro la dll, porque con llevar el .exe no estas llevando la dll.

Hola, declara estas constantes arriba de todo y te va a funcionar, igulamente ese codigo tiene un pequeño error tenes que cambiar donde le pasa los parametros:

Código (vb) [Seleccionar] Expandir

Private Const wdGoToPage = 1
Private Const wdGoToNext = 2
Private Const wdFindAsk = 2
Private Const wdReplaceAll = 2

Código (vb) [Seleccionar] Expandir

ret = Buscar_Reemplazar_En_Word(txt_Buscar, _
                                    txt_Buscar, _
                                    txt_Path)

debe ser:

Código (vb) [Seleccionar] Expandir

ret = Buscar_Reemplazar_En_Word(txt_Buscar, _
                                    txt_reemplazar, _
                                    txt_Path)

esta mal puesto el textbox...

saludos.

[.ScaleLeft]

Hola, proba con .ScaleLeft y .ScaleTop

saludos.

Hola, para seleccionar la ultima fila en el listview con sus propiedades yo tengo esta funcion:

Código (vb) [Seleccionar] Expandir

Private Sub SeleccionarUltimaFila(ByVal pListview As ListView)
    pListview.ListItems(pListview.ListItems.Count).EnsureVisible
    pListview.ListItems(pListview.ListItems.Count).Selected = True
    pListview.SetFocus
End Sub


y la llamas:

Código (vb) [Seleccionar] Expandir

Call SeleccionarUltimaFila(ListView1)

saludos.

Hola, es facil, priemro pues tendrias que crear una matriz de controles para cada textbox y desde ahi recorrer el recordset con un bucle e ir aumentando en 1 el indice de los textbox e ir cargando un nuevo textbox con la fucnion Load de visual basic para crear controles en tiempo de ejecucion, para cada registro e ir aumentando el top y left de cada textbox asi se ve uno al lado del otro o como quieras...

saludos.

The SOOPercharged VB.NET sender and e Parameters

que valor hay en el label4 ??  debe haber un valor que no es numero para que tire ese error...