Mensajes

Hi de nuevo  ... uhmm como se puede hacer q el progresbar carge en funcion al tiempo q se demore en cargar mi aplicacion o q no sea necesarion Progress Bar q sea un gif animado ???           gracias de ante mano por el apoyo 

Hi  ... haber primero perdon por la ignorancia
bueno quisiera saber si alguien conoce como llamar un Procedimiento Almacenado de SQl2000 con y sin parametros ... un ejemplo seria mucho mejor, no importa sencillo gracias  .

hola amigos del foro , quisiera saber si se puede crear un programa de control de acceso a internet a diferntes PC's en VB6.0 (es decir lo q hace un servidor proxy) o si existiera algun programa agredeceria la recomendacion, bueno agradeceria todo tipo de inf, link, blog y hasta code (claro si se puede  )

espero respuestas aunq sea buenas criticas .... 



antes trabajaba en linux y squid era una gran herrmamienta ahora stoy en entorno windows pero no encuentro la manera de controlarlo

gracias ((( SPAWN )))  por responder ... ahora  a probar 

hola a todos  de nuevo ...
bueno esta vez quisiera q me ayuden en autompletar en el listview aqui les dejo el code 
para autocompletar en el text no hay problema, sino lo  q quiero es q automplete por la segunda columna  taba chancando pero nu me sale haber si me dan una manito ....
                                            Gracias 

ahhh solo copiar y pegar, en el form agregar 01 listview y 01 caja de texto

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim ElItem As ListItem
Dim i As Integer
With ListView1
    .View = lvwReport
    .GridLines = True
    .LabelEdit = lvwManual
    .ColumnHeaders.Add , , "Codigo", 800
    .ColumnHeaders.Add , , "Nombre"
    .FullRowSelect = True
    .TextBackground = lvwTransparent
End With
    Set ElItem = ListView1.ListItems.Add(, , Format("3215", "0000"))
    ElItem.SubItems(1) = "Juan"
        Set ElItem = ListView1.ListItems.Add(, , Format("2145", "0000"))
    ElItem.SubItems(1) = "pedro"
        Set ElItem = ListView1.ListItems.Add(, , Format("3568", "0000"))
    ElItem.SubItems(1) = "Jose"
        Set ElItem = ListView1.ListItems.Add(, , Format("4568", "0000"))
    ElItem.SubItems(1) = "maria"
        Set ElItem = ListView1.ListItems.Add(, , Format("2160", "0000"))
    ElItem.SubItems(1) = "Carlos"
        Set ElItem = ListView1.ListItems.Add(, , Format("1000", "0000"))
    ElItem.SubItems(1) = "Cesar"
        Set ElItem = ListView1.ListItems.Add(, , Format("1500", "0000"))
    ElItem.SubItems(1) = "Jorge"
        Set ElItem = ListView1.ListItems.Add(, , Format("8888", "0000"))
    ElItem.SubItems(1) = "Juan Antonio"
        Set ElItem = ListView1.ListItems.Add(, , Format("8099", "0000"))
    ElItem.SubItems(1) = "Esteba"
        Set ElItem = ListView1.ListItems.Add(, , Format("6801", "0000"))
    ElItem.SubItems(1) = "Ricardo"
End Sub

Sub Autocompletar(ListView As ListView, TBox As TextBox)
       
    ' variable para usar con el método FindItem que _
      permite buscar en el LV
    Dim item As ListItem
    Dim seleccion As Integer
       
    ' busca en el item, la cadena escrita en el textbox, si coincide _
      devuelve una referencia al item
    Set item = ListView.FindItem(TBox.Text, 0, , 1)
           
        ' verifica que el item no sea un valor nothing
        If Not item Is Nothing Then
            ' Muestra la selección pormas que no tenga el foco
            ListView.HideSelection = False
               
            ' desplaza la lista
            item.EnsureVisible
               
            ' selecciona el item
            item.Selected = True
 
            If Not Flag Then
                ' Almacena la posición de la selección en el textbox
                seleccion = TBox.SelStart
                   
                ' Asigna el texto completo del item encontrado
                TBox.Text = CStr(item)
                    If Not TBox.Text = vbNullString Then
                        ' posición de la selección
                        TBox.SelStart = seleccion
                        ' selecciona el texto
                        TBox.SelLength = Len(TBox.Text) - seleccion
                    End If
            End If
        Else
            ' Oculta la selección ya que no hay coincidencia
            ListView.HideSelection = True
        End If
 
End Sub


Private Sub Text1_Change()
    ' autocompleta el Listview
    Autocompletar ListView1, Text1
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Flag = False
    ' si se presionan el tecla de retroceso y la de borrar _
      no se autocompleta
    If KeyCode = vbKeyBack Or KeyCode = vbKeyDelete Then
        Flag = True
    End If
End Sub


por cierto el code no es mio pero me ayudo bastante xD!!

excelente brother xD!!! ahora a probarlo ....... uhmmmmmmmmmmm   

hola a todos ... 
tengo un problema q nu se si sea sencillo  , bueno quisiera saber cual es la propiedad para desplazarme por un listview pero con botones, se puede?, es decir cargo mi listwiew con datos y con 4 botones desplazarme recocorro por todo el listview (primero, anteriori, siguiente y ultimo) si me entinden no  buenoi espero me puedan ayudar , de antemando ya Gracias

Puedes empezar VB 6.0 usando este manual es muyy sencillo

http://mat21.etsii.upm.es/ayudainf/aprendainf/VisualBasic6/vbasic60.pdf

plop ia ia ta wueno no tienes xq enojarte 
bueno lo q pasa es quiero q se seleccione el itme de mi lista cuando click con el boton derecho del mouse, asi como si lo hicieras con el boton izquierdo ? esa es mi pregunta bye 

Hola a todos los del foro : 
Alguien sabe cual es la mejor manera de acceder a un BD en SQL 2000, es decir q el acceso a ella sea de manera rapida ?

io probvee con esto donde BD es mi Base de Datos pe  :

Set Cnn = New ADODB.Connection
Cnn.CursorLocation = adUseClient
Cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & BD & ";Data Source=."
Cnn.Open

With CmdProducts
    .ActiveConnection = Cnn
    .CommandText = "Products" ' tabla
    .CommandType = adCmdTable
    .Prepared = True
    .Execute
End With
Set RstProducts = New ADODB.Recordset
RstProducts.CursorLocation = adUseClient
RstProducts.Open CmdProducts, , adOpenDynamic, adLockOptimistic

y nahaaaa ahora esto dependera ? de los datos q estoy jalando de mi BD o de la consulta q realizo? , la PC q tengo es una P4 2.8, 1Gb de ram (servidor) y el cliente es de P4 2.4, 512 ram aun asi quisiera saber si hay otra manera de acceder a la BD de una maera mas raipido? o mejor cambiod e lenguaje como PB9.0 (dicen q el acceso es mas rapido - sera cierto ?)

gracias a todos pro leer el msje y ayudar en la consulata  bye...