|
Mostrar Temas
|
Páginas: [1] 2
|
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 ) 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
|
|
|
4
|
Programación / Programación Visual Basic / autocompletar en listview
|
en: 25 Marzo 2008, 16:39 pm
|
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 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 ... 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
|
|
|
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 : 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...
|
|
|
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
|
|
|
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
|
|
|
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
|
|
|
|
|
|
|