Mensajes

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

y para hacer q una aplicacion al momento de istalar quede configurado para q se ejcute al momento de iniciar con windows.... asi como sale en el msconfig/inicio

please ayuda ... 

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

bueno si quieres contar a 1.5 segundos ....
puede servir esto
timer.intervalo = 500' cada medio segundo
c = c+1

si llega c = 3 ' sera 1.5 segundos

[para Grabar el pass y el ID]

my buena lo q dices ... pero haber si esto te ayuda ....
este es un pequeño cod espero q te surva  

para Grabar el pass y el ID
Private Sub Command1_Click()
Dim ruta As String
Dim i As Integer
ruta = "c:\log.log"
i = FreeFile()
Open ruta For Output As #i
Print #i, TxtID.Text
Print #i, txtpass.Text
Close #i
End Sub

Para Abrir
Private Sub Command2_Click()
Dim ruta, Var1, Var2  As String
Dim i As Integer
ruta = "c:\log.log"
i = FreeFile()
Open ruta For Input As #i
Line Input #i, Var1
Line Input #i, Var2
Close i
If (Var1 = TxtID.Text) And (Var2 = txtpass.Text) Then
   MsgBox "ok"
Else
MsgBox "El Pass Ingresado es Incorrecto", vbQuestion, "Error"
End If
End Sub

si quieres q el pass y el Id este biien protegida te recomiendo q lo encriptes al momento de guardar y al momento de abrir desencriptarlo
este es otro lick de info...
http://foro.elhacker.net/index.php/topic,117713.0.html

[var = Input(LOF(i), i)]

ya salio
esta linea es lo q cambie ....
Open ruta For Input As #i
var = Input(LOF(i), i)
Close i

por esta
Open ruta For Input As #i
Line Input #i, var
Close i

y ahora corre sin problemass 

If Trim(Text5.Text) = CStr(Trim(var)) Then
ya lo use si lo vez en el codigo
el problema es q lo q hay en el Trim(Text5.Text) y lo q contiene la CStr(Trim(var)) no es igual
porq el CStr(Trim(var)) sale text1 y ´pues eso no es = a lo q hay en la cja de texto5  si me entiendes no 

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