Mensajes

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 1000000
MsgBox "Buscaaaaaaaaaaaaaaaa"
Next i
End Sub

[WINDOWS\SYSTEM32]

pues en teoria en la carpeta WINDOWS\SYSTEM32...

[CSocketMaster]

 es simplemente porque no tenes el winsock en la maquina...mejor proba con la clase CSocketMaster y te olvidas de todo eso...sino abri el .vbp del proyecto con el notepad y fijate la ruta que dice del winsock y fijate si lo tenes en esa ruta...

saludos.

bueno aparte de lo que te dijo naderST, la verdad no se porque se te ocurre mostrar el resultado en un label, cuando hoy en dia se trabaja con grillas para mostrar las bases y demas , pero bueno...aparte si el resultado de la consulta arroja por ejemplo 300 resultados entonces seria un desastre mostrar todos esos datos en un label ...

Hola,no entendi muy bien  , pero con este codigo se recorre los items del listbox uno a uno..

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
    MsgBox List1.List(i)
Next i
End Sub

Private Sub Form_Load()
With List1
    .AddItem "seba"
    .AddItem "jose"
    .AddItem "pedro"
End With
End Sub

decime si le erre o lo entendi mal..

saludos.

[GetVersionEx]

para despejar todas dudas, aca te pongo la tabla de resultados de la Api GetVersionEx...

Sistema operativo                             Mayor
_______________                             ______


Windows NT 3.51                                 3
Windows 95, 98, Me y NT 4.0                4
Windows 2000, XP y 2003                    5
Windows Vista/Longhorn                      6



Sistema operativo                            Menor
_______________                            _______

Windows NT 3.51                                 51
Windows 95                                         0
Windows 98                                        10
Windows Me                                        90
Windows NT 4.0                                   0
Windows 2000                                     0
Windows XP                                        1
Windows 2003                                     2
Windows Vista/Longhorn                       0

para usarla por ejemplo si te da la mayor un 4 y despues la menor un 90 es Windows Me, si la mayor te da un 5 y despues un 1, es un XP comun ...etc..

saludos.

Hola, yo creo que no hay ningun problema ¿porque se te ocurre que no va a andar? aparte esta en la dll kernel32.dll una de las mas importantes de todas...podes detectar desde un windows 98 hasta un vista....
saludos.

perdona por ser duro,pero es la verdad, leete un manual de ADO porque son dudas muy basicas...

fijate tiene unos bugs en los eventos del listview, pero claro lo hiciste en 20 minutos no?

[Select Case]

Hola,hace un Select Case del Index del ColumnHeader..algo asi:

Código (vb) [Seleccionar] Expandir

Private Sub ListView1_ColumnClick( _
    ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   
Select Case ColumnHeader.Index

Case 1

With listview
If .SortOrder = lvwAscending Then
.SortOrder = lvwDescending
Else
.SortOrder = lvwAscending
End If
.SortKey = ColumnHeader.Index - 1
.Sorted = True
End With

Case 2....

Case 3....

End Select
End Sub

o directamente hace un for y te ahorras los Case....o pones Case 1 , 2, 3...

saludos.