Mensajes

Hola como estas, tal vez sea esta la Api q me decis:

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 Const CB_DIR = &H145
Private Const DDL_ARCHIVE = &H20

Private Sub Command1_Click()
Dim path$
    path = "c:\Carpeta\*.*"
    SendMessage Combo1.hwnd, CB_DIR, DDL_ARCHIVE, ByVal path
End Sub


Saludos.

hola, lo q entendi es q queres agregar en un combobox los archivos q se encuentran en una carpeta.

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim xFile$
    xFile = Dir$("c:\Carpeta\*.*", vbArchive)
    Do
        Combo1.AddItem xFile
        xFile = Dir
    Loop While xFile <> ""
End Sub


Saludos.

Hola amigo, esta muy bueno el programa, estuve probando pero hay un pequeño bug, cuando se presiona el boton Floodear Cont. y estando en el textbox contacto@hotmail.com sin poner un contacto valido, salta el error: "462" - El equipo o servidor remoto no existe o no esta disponible. solamente es eso  , todo tiene solucion.
Saludos.

Hola, mira lo q encontre en google.

http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/102-modulo-para-leer-png.htm

Hola como estas, mira realice este codigo, cada vez q escribis la palabra "hola" o cualquier otra palabra q despues la podes cambiar, cambia su color a rojo y el resto del texto q escribe el usuario se ponde de color azul; esta comprobacion la realiza cada vez q presionas la tecla Espacio. Espero haberte ayudado.

Código [Seleccionar] Expandir


Private Sub Form_Load()
    RichTextBox1.Text = "(Reverse engineering). La ingeniería inversa es el proceso de descubrir los principios tecnológicos de un dispositivo, objeto o sistema, a través de razonamiento abductivo de su estructura, función y operación."
    RichTextBox1.SelStart = Len(RichTextBox1.Text)
End Sub

Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 32 Then '---> Si presiono la tecla Espacio
        CambiarColor ' ---> Llama al procedimiento CambiarColor
    End If
End Sub

Public Sub CambiarColor()
    With RichTextBox1
    .SelStart = 0 '---> Comienza desde el principio
    Do
        x = .Find("hola", .SelStart, , rtfWholeWord Or rtfMatchCase)'---> Busca la palabra
        .SelColor = vbRed '---> Establece el color
        .SelStart = .SelStart + 1 '---> Incrementa en 1
    Loop Until x = -1
    .SelStart = Len(.Text) '---> Se posiciona al final de todo
    End With
End Sub

Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)
    RichTextBox1.SelColor = vbBlue '---> Tipea de color azul
End Sub


Saludos.

Hola, te dejo este link.

http://www.recursosvisualbasic.com.ar/htm/listado-api/106-color-background-treeview.htm

Saludos.

Hola, para dudas de VB.NET esta el subforo, pero bueno te la respondo igual a la pregunta, pienso q queres algo asi:

Código [Seleccionar] Expandir


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        textB4.Text = Val(textB2.Text) + Val(textB3.Text)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "Calcular"
    End Sub
End Class

Saludos.

Muy buen material de Override 

Hola como estas, lo q yo se es q la busqueda en los lvwSubitem o (valor=1) siempre busca la cadena completa, y en el lvwText o (valor=0), la búsqueda parcial sólo es desde el principio, al codigo de la funcion Autocompletar le agregue un checkbox para comprobar si se quiere realizar la busqueda por nombre.

Código [Seleccionar] Expandir


Sub Autocompletar(ListView As ListView, TBox As TextBox)
Dim item As ListItem
Dim seleccion As Integer

    If chkNombre.Value = 0 Then
      Set item = ListView.FindItem(TBox.Text, 0, , 1)
          If Not item Is Nothing Then
              ListView.HideSelection = False
              item.EnsureVisible
              item.Selected = True
              If Not Flag Then
                  seleccion = TBox.SelStart
                  TBox.Text = CStr(item)
                      If Not TBox.Text = vbNullString Then
                          TBox.SelStart = seleccion
                          TBox.SelLength = Len(TBox.Text) - seleccion
                      End If
              End If
          Else
              ListView.HideSelection = True
          End If
    Else
      Set item = ListView.FindItem(TBox.Text, lvwSubItem, , lvwPartial)
          If Not item Is Nothing Then
              ListView.HideSelection = False
              item.EnsureVisible
              item.Selected = True
              TBox.SelStart = seleccion
              TBox.SelLength = Len(TBox.Text) - seleccion
          Else
              ListView.HideSelection = True
          End If
    End If
End Sub


Espero haber ayudado en algo. Saludos

Si no hay problema pero postea tu codigo para ver como lo hiciste el ejemplo.