Mensajes

podes hacer que no se sierre:
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
End Sub

http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?txtCriteria=compression&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1&B1=Quick+Search&optSort=Alphabetical

Saludos que te sea de ayuda!!!

poder se puede ahora vere como te lo explico!

agregas un dataenviroment al proyecto, luego verificas que la conexión este bien con tu BD, kreas un comando y agregas las tablas que utilizaras, luego en el codigo fuente haces referencia al record source para poder agregar campos, de manera tal que sea con el "ejecute", y aplicando la clausula "INSERT"

para agregar todo lo del list lo que haces es un for desde 0 hast la cantidad de elementos!!

Solo te pongo el codigo de agregar el del data enviroment no lo puedo poner aka

Código [Seleccionar] Expandir


For I=0 To List1.ListCount-1
DE.RSCommand1.Ejecute("INSERT INTO tabla VALUES (" & I & ",'" & List1.List(I) & "')")
Next


Saludos y suerte espero que te sea de ayuda!

weno fiera poneme unas velitas!!!!! jejejeje no mentira:

Código [Seleccionar] Expandir

Private Sub Form1_Load()
Open "c:\texto.txt" For Input As #1
    contenido = Input(LOF(1), 1)
Close
Text1.Text = contenido
End Sub

Private Sub Command1_Click()
sw1 = 0: sw2 = 0: X = 1 'Iniciamos las variables
sw3 = 0
Dim Numeros(1 To 10000) 'Creamos un vector
'rellenamos el vector (no es nesesario pero sirve
For I = 1 To UBound(Numeros)
Numeros(I) = ""
Next
'**************************************************
For I = 1 To Len(Text1.Text)
   car = Mid(Text1.Text, I, 1)
   If sw1 = 1 Then
     numero = numero & car
     sw2 = 1
   End If
   If sw2 = 1 And car = " " Then
     Numeros(X) = Trim(numero)
     X = X + 1
     numero = ""
     sw1 = 0: sw2 = 0: sw3 = 0
   End If
   If car = " " And sw3 = 1 Then sw1 = 1
   If car = "=" And sw3 = 0 Then sw3 = 1
Next
'***********************************************
Dim tmptxt
tmptxt = ""
For I = 1 To UBound(Numeros)
If Numeros(I) <> "" Then
   tmptxt = Numeros(I) & vbNewLine & tmptxt
Else
  Exit For
End If
Next
Text2 = tmptxt
End Sub

aver provemos esto pone un punto de corte en
tmptxt = ""
y fijate el contenido del array Numeros()

fijate si tiene algo

podes hacer que te los muestre en la ventana de inmediato haci:

msgbox Numeros(1)

si te muestra algo es que se guardan los numeros pero sino es que hay otro problema...
hoy me llevo el codigo este y lo pruevo en mi casa!!

ok esto es mas o menos facil solo nesesitas un timer unas funciones y listo!!

comenzemos

declaramos como global (en la general)

Código [Seleccionar] Expandir


dim x as integer,z as integer
z=1
x=0


en el timer (cada 1 segundo o un cacho menos)!!

Código [Seleccionar] Expandir


espacio = " "
if x=0 then
   for i =1 to z
    comp = comp & espacio
   next
   form1.caption = comp & " Cicklow SOFT®"
   z=z+1
   if z>10 then x=0:z=0
else
   form1.caption = left("Cicklow SOFT®",len("Cicklow SOFT®")-z)
   z=z-1
   if z <=0 then z=1:x=0
endif


nidea si funciona bien.. ya que no lo puedo provar, pero esto te dara una idea de coso seria!!

por una sensilla razon... el texbox no tiene la propiedad value (la tiene pero es  de solo lectura), asike usa

Código [Seleccionar] Expandir

beto.text = ?

es por eso que uso varias variables separadas!!!

no se si en VB.net, pero en VB comun hay OCX's

en google hay monton, y tambien hay de .net

o

www.planet-source-code.com

  perdon cicklow te sigo al pie dela letra y aun no lo logro te paso tal cual como lo puse y fijate:






Private Sub Command1_Click()
beto.Value = tmptxt
End Sub

Private Sub Form_Load()
Open "c:\texto.txt" For Input As #1
contenido = Input(LOF(1), 1)
Close
Text1.Text = contenido

sw1 = 0: sw2 = 0: X = 1 'Iniciamos las variables
Dim Numeros(1 To 10000) 'Creamos un vector
'rellenamos el vector (no es nesesario pero sirve
For I = 1 To UBound(Numeros)
Numeros(I) = ""
Next
'**************************************************
For I = 1 To Len(Text1.Text) 'desde 1 hasta lo que tiene el text1
   car = Mid(Text1.Text, I, 1) 'guardamos de a 1 caracter
   If sw1 = 1 Then '1
     numero = numero & car
     sw2 = 1
   End If
   If sw2 = 1 And car = " " Then '2
     Numeros(X) = numero
     X = X + 1
     numero = ""
     sw1 = 0: sw2 = 0
   End If
   If car = "=" Then sw1 = 1 '3
Next
'***********************************************
Dim tmptxt
tmptxt = ""
For I = 1 To UBound(Numeros)
If Numeros(I) <> "" Then
   tmptxt = Numeros(I) & vbNewLine & tmptxt
Else
  Exit For
End If
Next

End Sub

si no declaramos tmptxt como global no funcionara.
mejoremoslo!::

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Open "c:\texto.txt" For Input As #1
  contenido = Input(LOF(1), 1)
Close
Text1.Text = contenido

sw1 = 0: sw2 = 0: X = 1 'Iniciamos las variables
Dim Numeros(1 To 10000) 'Creamos un vector
'rellenamos el vector (no es nesesario pero sirve
For I = 1 To UBound(Numeros)
Numeros(I) = ""
Next
'**************************************************
For I = 1 To Len(Text1.Text) 'desde 1 hasta lo que tiene el text1
   car = Mid(Text1.Text, I, 1) 'guardamos de a 1 caracter
   If sw1 = 1 Then '1
     numero = numero & car
     sw2 = 1
   End If
   If sw2 = 1 And car = " " Then '2
     Numeros(X) = numero
     X = X + 1
     numero = ""
     sw1 = 0: sw2 = 0
   End If
   If car = "=" Then sw1 = 1 '3
Next
'***********************************************
Dim tmptxt 'en el anterior si la colokas aka a la variable
tmptxt = "" 'la lee el evento load nada mas!!!!!! colokalas     
                 'colokalas en la general para que te la lean todos!
For I = 1 To UBound(Numeros)
If Numeros(I) <> "" Then
   tmptxt = Numeros(I) & vbNewLine & tmptxt
Else
  Exit For
End If
Next

beto.Value = tmptxt

End Sub

Te digo que este script (por asi decirlo), no lo he provado porke donde estoy no tengo el VB. cualkier cosa avisame!!!

podes usar el script anterior si declaras "Dim tmptxt" en la general!!, y asi te ahorras de amontonar todo!