Reconocer escritura manual
Publicado por Javisanz71 (2 intervenciones) el 05/11/2007 23:49:29
Hola!!
Estoy haciendo un programilla como puedo... a base de codigo que encuentro... para un pocket pc, consiste en que escribes a mano y el ppc te reconoce el texto y te lo escribe bien. pero me da un error en el codigo y nose que hacer...
Me da este error: Un valor de tipo 'String' no se puede convertir en System.Diagnostics.ProcessStartInfo'.
Codigo:
Imports Microsoft.Ink
Public Class Form1
Public inkO As Microsoft.Ink.InkOverlay
Private Sub Form1_Load(ByVal sender _
As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Button1.Text = "Reconocer"
Me.Button2.Text = "Buscar"
Me.Text = "Buscador en Google de todoUMPC Magazine"
inkO = New Microsoft.Ink.InkOverlay(Me.TextBox1)
inkO.Enabled = True
End Sub
Private Sub Button1_Click(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim iResults As RecognizerContext = New RecognizerContext()
iResults.Strokes = inkO.Ink.Strokes
Dim status As RecognitionStatus
Dim result As RecognitionResult = iResults.Recognize(status)
inkO.Ink.DeleteStrokes()
Me.TextBox1.Text = result.TopString
End Sub
Private Sub Button2_Click(ByVal sender _
As System.Object, ByVal e _
As System.EventArgs) Handles Button2.Click
Dim cadena As String
cadena = Replace(Me.TextBox1.Text, Chr(43), "%2B")
cadena = Replace(cadena, "/", "%2F")
cadena = Replace(cadena, "\", "%5C")
cadena = Replace(cadena, "&", "%26")
cadena = Replace(cadena, " ", "+")
cadena = Replace(cadena, Chr(34), "%22")
cadena = "http://www.google.com/custom?q=" + cadena
CreateProcess(cadena, "")
End Sub
Public Sub CreateProcess(ByVal exe _
As String, ByVal parameters As String)
If parameters = "" Then
System.Diagnostics.Process.Start(exe)
Else
System.Diagnostics.Process.Start(exe, parameters)
End If
End Sub
End Class
Me da este error: Un valor de tipo 'String' no se puede convertir en System.Diagnostics.ProcessStartInfo'.
Ayuda por favor!!!
Estoy haciendo un programilla como puedo... a base de codigo que encuentro... para un pocket pc, consiste en que escribes a mano y el ppc te reconoce el texto y te lo escribe bien. pero me da un error en el codigo y nose que hacer...
Me da este error: Un valor de tipo 'String' no se puede convertir en System.Diagnostics.ProcessStartInfo'.
Codigo:
Imports Microsoft.Ink
Public Class Form1
Public inkO As Microsoft.Ink.InkOverlay
Private Sub Form1_Load(ByVal sender _
As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Button1.Text = "Reconocer"
Me.Button2.Text = "Buscar"
Me.Text = "Buscador en Google de todoUMPC Magazine"
inkO = New Microsoft.Ink.InkOverlay(Me.TextBox1)
inkO.Enabled = True
End Sub
Private Sub Button1_Click(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim iResults As RecognizerContext = New RecognizerContext()
iResults.Strokes = inkO.Ink.Strokes
Dim status As RecognitionStatus
Dim result As RecognitionResult = iResults.Recognize(status)
inkO.Ink.DeleteStrokes()
Me.TextBox1.Text = result.TopString
End Sub
Private Sub Button2_Click(ByVal sender _
As System.Object, ByVal e _
As System.EventArgs) Handles Button2.Click
Dim cadena As String
cadena = Replace(Me.TextBox1.Text, Chr(43), "%2B")
cadena = Replace(cadena, "/", "%2F")
cadena = Replace(cadena, "\", "%5C")
cadena = Replace(cadena, "&", "%26")
cadena = Replace(cadena, " ", "+")
cadena = Replace(cadena, Chr(34), "%22")
cadena = "http://www.google.com/custom?q=" + cadena
CreateProcess(cadena, "")
End Sub
Public Sub CreateProcess(ByVal exe _
As String, ByVal parameters As String)
If parameters = "" Then
System.Diagnostics.Process.Start(exe)
Else
System.Diagnostics.Process.Start(exe, parameters)
End If
End Sub
End Class
Me da este error: Un valor de tipo 'String' no se puede convertir en System.Diagnostics.ProcessStartInfo'.
Ayuda por favor!!!
Valora esta pregunta


0