Hola como sabran soy novato en esto, y tengo el siguiente problema, tengo 4 edittext: edittext1,edittext2,edittext4
cuando incio la aplicacion solo el edittext1 esa True. luego que ingreso un datos y es aceptado el edittext1 lo pongo en false y el edittext2 lo pongo en true. y le asigno el foco con requesfocus pero, no pasa eso el focos se va al edittext4. si alguien me puede orientar que paso. gracias?
le dejo un fragmento del codigo
Sub EditText1_EnterPressed
Dim buscoc As Int
Dim noesta As String
codigo_cliente = EditText1.Text
If codigo_cliente.Length > 0 Then
buscoc = codigo_cliente.Trim
Dim directorio As String
'If File.ExternalWritable = True Then
' Si hay SD Card lo leerá de ella
' directorio = File.DirRootExternal
'Else
' Si no hay SD Card lo leerá del directorio interno
' directorio = File.DirInternal
'End If
directorio = File.DirAssets
noesta = "0"
If File.Exists(directorio, "CLIENTES.TXT") = True Then
Dim leer As TextReader
' Lee Línea
leer.Initialize(File.OpenInput(directorio, "CLIENTES.TXT"))
Linea = leer.ReadLine
Finaln1 = Linea.IndexOf2(";",0)
codigo_cliente = Linea.SubString2(0,Finaln1)
finaln2 = Linea.IndexOf2(";",Finaln1+1)
nombre_cliente = Linea.SubString2(Finaln1+1,finaln2)
If buscoc = codigo_cliente.Trim Then
Label22.Text=nombre_cliente
Else
Do While Linea <> Null
Linea = leer.ReadLine
If Linea <> Null Then
Finaln1 = Linea.IndexOf2(";",0)
codigo_cliente = Linea.SubString2(0,Finaln1)
finaln2 = Linea.IndexOf2(";",Finaln1+1)
nombre_cliente = Linea.SubString2(Finaln1+1,finaln2)
If buscoc = codigo_cliente.Trim Then
Label22.Text=nombre_cliente
noesta = "1"
Exit
End If
End If
Loop
End If
leer.Close
If noesta = "0" Then
Msgbox("Cliente Inexistente...","Alto")
EditText1.Text = ""
EditText1.RequestFocus
Else
EditText2.Text=""
EditText2.RequestFocus
EditText2.Enabled = True
'EditText3.Enabled = True
'EditText4.Enabled = True
End If
Else
Msgbox("No Esta","Alto")
End If
Else
Msgbox("Ingreso ilegal, Ingrese nuevamente","Alto")
End If
End Sub
cuando incio la aplicacion solo el edittext1 esa True. luego que ingreso un datos y es aceptado el edittext1 lo pongo en false y el edittext2 lo pongo en true. y le asigno el foco con requesfocus pero, no pasa eso el focos se va al edittext4. si alguien me puede orientar que paso. gracias?
le dejo un fragmento del codigo
Sub EditText1_EnterPressed
Dim buscoc As Int
Dim noesta As String
codigo_cliente = EditText1.Text
If codigo_cliente.Length > 0 Then
buscoc = codigo_cliente.Trim
Dim directorio As String
'If File.ExternalWritable = True Then
' Si hay SD Card lo leerá de ella
' directorio = File.DirRootExternal
'Else
' Si no hay SD Card lo leerá del directorio interno
' directorio = File.DirInternal
'End If
directorio = File.DirAssets
noesta = "0"
If File.Exists(directorio, "CLIENTES.TXT") = True Then
Dim leer As TextReader
' Lee Línea
leer.Initialize(File.OpenInput(directorio, "CLIENTES.TXT"))
Linea = leer.ReadLine
Finaln1 = Linea.IndexOf2(";",0)
codigo_cliente = Linea.SubString2(0,Finaln1)
finaln2 = Linea.IndexOf2(";",Finaln1+1)
nombre_cliente = Linea.SubString2(Finaln1+1,finaln2)
If buscoc = codigo_cliente.Trim Then
Label22.Text=nombre_cliente
Else
Do While Linea <> Null
Linea = leer.ReadLine
If Linea <> Null Then
Finaln1 = Linea.IndexOf2(";",0)
codigo_cliente = Linea.SubString2(0,Finaln1)
finaln2 = Linea.IndexOf2(";",Finaln1+1)
nombre_cliente = Linea.SubString2(Finaln1+1,finaln2)
If buscoc = codigo_cliente.Trim Then
Label22.Text=nombre_cliente
noesta = "1"
Exit
End If
End If
Loop
End If
leer.Close
If noesta = "0" Then
Msgbox("Cliente Inexistente...","Alto")
EditText1.Text = ""
EditText1.RequestFocus
Else
EditText2.Text=""
EditText2.RequestFocus
EditText2.Enabled = True
'EditText3.Enabled = True
'EditText4.Enabled = True
End If
Else
Msgbox("No Esta","Alto")
End If
Else
Msgbox("Ingreso ilegal, Ingrese nuevamente","Alto")
End If
End Sub
