Temas

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

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!!

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

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...

Hola haber si la saben xD!!! ..... xq a mi nu me sale 
quiero seleccionar un item de mi lista pero con el boton derecho del mouse ?? 
se podra

gracias ..........

Hola a todos los del foro, esta es la duda:
Existe en VB 6.0 un control q se paresca a Option Button q yo pueda enlazar datos desde mi BD solo para saber si el dato q esta en mi BD es Booleano o no? (saber si es si o no? o saber si es Masculino o Femenino) gracias ante todo 

Hola amantes del Flash.... mi duda es ? si se puede crear aplicaciones de escritorio en flash, se q es para diseño pero seria muy agradable tener una aplicacion en tu escritorio con una interface muy buena no 

Hola amigos del foro..
esta es mi duda. Quisiera saber si se puede saber cual es mi direccion de red de mi maquina osea mi NIC o mejor dicho la direccion fisica de mi tarjeta de red, solo q la direccion esta en hexadecimal pero quisiera mostrarlo a ttaves de una aplicacion en VB
Gracias

Hola amix... solo quisiera saber el costo aproximado de la licenia de vb 6.0 y PB 10.0 me dijero q se cobra por conectividad, quisiera sacarame de dudas bye

Hola amigos del foro ...
no es pregunta, pero si un favor, quisiera saber si tienes links de manuales o trabajaos dobre clases, quiero aprender todo sobre este tema pero no entiendo muy bien la verdad no se ni como se creo (solo se agregarlo al proyecto  ), espero me auyden con esto...
ahhh esta si es una pregunta: quisiera saber q ventaja me da el pasar mis funciones hechas en un modulo .bas a una clase, me dijeron q es mejor pero no se porq no se q son clase 
bueno bye gracias por escuchar ........

Hola ....
quiero saber como puedo leer la ultima linea de una texto con ficheos ....?

Hola... mi pregunta es si se puede hacer q el formulario q tengo ocupe toda la pantalla, es decir tambien hasta la barra de tareas se puede hacer esto

Hola a todos los pro del Foro .... 
ete es el problem .. .. tengo 3 datalist q se conecan con mi bd , bueno lo q quiero hacer es q cuando click en una lista se sombree el mismo indice las demas lista ...
esto si lo hacia con list normal con la propiedad "listindex" pero el data list no tiene esta propiedad ...
alguien sabe como puedo solucionar esto o si tuviera otra idea bienvendida sea 
Gracias a todos los pro del foro 

hi a todos lo pro ...
alli va la duda ?
como hago para Inhabilitar la X del form ....
ty a todos los pro...

Hola a todo el FORo.....
OTRA  ...
tengo Info en un list quiero pasarlo a una base de datos toda la  lista ... se puede hacer  .....

hola a todos del foro ..... aqui les va la inmterrogante  
quisiera saber como hacer q el titulo de mi Form se mueva constantemete de derecha a izquierda o viceversa  
gracias de ante mano ...   

hola a todos los pro....
ete es el poblem...
tengo un form en donde es para cambiar el pass de un id ya creacdo.. ok
el pass lo cambia pero cuando quiro logearme con el nueco pass me sale el msg q el pass no es el correcto ?
pero jui a ver cual era el problem al archivo de txt y vi q el nombre q le habia dado era = pero con un renglon de mas y eso hacia q no sea = a mi pass 
la pregunat es como booro esea otra linea .. para q solo el texto sea lo q compruebe   
si alguien ve cual es el error que ayude pe no sean envidioso 

como no se puede adjuntar el form lo copio para q lo cheqeen xD


Private Sub Command1_Click()
If Text1.Text = Text2.Text Then
Dim ruta As String
Dim i As Integer
ruta = "c:\Juanjo.txt"
i = FreeFile()
Open ruta For Output As #i
Print #i, Text1.Text
Close #i
MsgBox "Cambios relizados" + vbCrLf + "Satisfactoriamente", vbInformation, "Nuevo Pass"
Else
MsgBox "EL nuevo pass no coincide", 32, "Error"
Text2.SetFocus
End If
End Sub

Private Sub Command2_Click()
Dim ruta As String
Dim i As Integer
Dim var As String
ruta = "c:\juanjo.txt"
i = FreeFile()
Open ruta For Input As #i
var = Input(LOF(i), i)
Close i
If Trim(Text5.Text) = CStr(Trim(var)) Then
MsgBox "pass ok"
Else
MsgBox "Pass "
End If
End Sub

bueno no se como adjunta la interface de mi form pero alli ta as o menos 

hola a todos los hack de foro ... 
estoy haciendo una aplicacion pero demora un poquito en cargar ... porq se conecta a la base de datos y hace otras cositas ... mi pregunta es como puedo poner un progress bar q vaya cargando cuando mi aplicacion tambien lo haga y finalice el progress bar cuando mi aplicacion ya este cargada 
¡¡¡¡¡¡¡¡¡¡¡¡  ya q aqui hay solo tan los pro espero q pasen el dato ...  bye .....