elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Temas
Páginas: [1] 2
1  Programación / Programación Visual Basic / Progress Bar mientras Carga Aplicacion en: 9 Septiembre 2008, 05:26 am
Hi de nuevo  ;D ... 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  ::)
2  Programación / Programación Visual Basic / llamar Procedimiento Almacenado en: 9 Septiembre 2008, 05:23 am
Hi  ;D ... 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  ::) .
3  Programación / Programación Visual Basic / crear Proxy en: 28 Junio 2008, 15:27 pm
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  ;D)

espero respuestas aunq sea buenas criticas ....  ;D



antes trabajaba en linux y squid era una gran herrmamienta ahora stoy en entorno windows pero no encuentro la manera de controlarlo
4  Programación / Programación Visual Basic / autocompletar en listview en: 25 Marzo 2008, 16:39 pm
hola a todos  ;D de nuevo ...
bueno esta vez quisiera q me ayuden en autompletar en el listview aqui les dejo el code  ;D
para autocompletar en el text no hay problema, sino lo  q quiero es q automplete por la segunda columna  :huh: taba chancando pero nu me sale haber si me dan una manito ....
                                            Gracias  ;D

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

Código:
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!!
5  Programación / Programación Visual Basic / desplazar listview en: 19 Marzo 2008, 12:49 pm
hola a todos ...  ;D
tengo un problema q nu se si sea sencillo  :huh:, 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
6  Programación / Programación Visual Basic / Acceso rapido a SQl 2000 en: 1 Agosto 2007, 22:36 pm
Hola a todos los del foro :  ;D
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  ;D:

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...
7  Programación / Programación Visual Basic / Seleccionar Lista Con el Boton derecho del mouse en: 30 Julio 2007, 01:20 am
Hola :D haber si la saben xD!!! ..... xq a mi nu me sale  :huh:
quiero seleccionar un item de mi lista pero con el boton derecho del mouse ?? 
se podra ;D

gracias ..........
8  Programación / Programación Visual Basic / OPtion Button para BD en: 14 Julio 2007, 02:10 am
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  ;D
9  Media / Diseño Gráfico / Aplicaciones de Escritorio en Flash? en: 12 Julio 2007, 03:30 am
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  ;D
10  Programación / Programación Visual Basic / Se puede saber la direccion fisica de NW en: 30 Marzo 2007, 21:03 pm
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
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines