Brauche Hilfe bei "Kleinigkeit"(?) (Diesmal mit Bildern =))

[Glambo]

Guten Tag liebe Community,

hier bin ich wieder und habe wieder mal ein kleines Problem mitgebracht.

Kontext:

Arbeite gerade daran eine Device Anwendung für den T-Mobile MDA Compact IV(siehe Bild) mithilfe von Visual Studio 2005 anzufertigen.

Habe eine Anwendung geschrieben mit der man Arabische Zahlen in Römische umwandeln kann. Funktioniert alles perfekt.

Nun möchte ich das wenn man auf das Eingabefeld geht um eine Zahl einzugeben, sich automatisch das Texteingabefeld öffnet damit man los schreiben kann.(Siehe Bild2)

habe bei den Ereignissen des Textfeldes den Punkt "Gotfokus" gefunden und gehe davon aus das es bedeutet, dass wen man das Textfeld anklickt das und das passieren soll. (siehe Bild3)

Da ich neu im Programmiergeschäft bin, kenne ich keinen Befehl der das zustande bringt.

Gesamter Quellcode :

Public Class Form1



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.TextBox1.Text = Umrechnen(Me.TextBox2.Text)

    End Sub


    Function Umrechnen(ByVal Roemisch As String) As Integer

        Dim i As Integer

        Dim TeilW1 As Integer = 0

        Dim TeilW2 As Integer = 0

        Dim GesamtW As Integer = 0

        For i = 1 To Len(Roemisch)

            Select Case (Mid(Roemisch, i, 1))

                Case Is = ("M")

                    TeilW1 = 1000

                Case Is = "D"

                    TeilW1 = 500

                Case Is = "C"

                    TeilW1 = 100

                Case Is = "L"

                    TeilW1 = 50

                Case Is = "X"

                    TeilW1 = 10

                Case Is = "V"

                    TeilW1 = 5

                Case Is = "I"

                    TeilW1 = 1

                Case Else

                    TeilW1 = 0

            End Select

            If TeilW2 < TeilW1 Then

                GesamtW = GesamtW - TeilW2 * 2 + TeilW1

            Else

                GesamtW = GesamtW + TeilW1

            End If

            TeilW2 = TeilW1

        Next i

        Return GesamtW

    End Function


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Me.Close()


    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.TextBox2.Text = Umrechnen2(Me.TextBox1.Text)

    End Sub


    Function Umrechnen2(ByVal Dec As Integer) As String

        Dim Rom(0 To 12) As String

        Dim Arab(0 To 12) As Integer

        Dim i As Integer

        Rom(0) = "I" : Rom(1) = "IV" : Rom(2) = "V" : Rom(3) = "IX"

        Rom(4) = "X" : Rom(5) = "XL" : Rom(6) = "L" : Rom(7) = "XC"

        Rom(8) = "C" : Rom(9) = "CD" : Rom(10) = "D" : Rom(11) = "CM"

        Rom(12) = "M"


        Arab(0) = 1 : Arab(1) = 4 : Arab(2) = 5 : Arab(3) = 9

        Arab(4) = 10 : Arab(5) = 40 : Arab(6) = 50 : Arab(7) = 90

        Arab(8) = 100 : Arab(9) = 400 : Arab(10) = 500 : Arab(11) = 900

        Arab(12) = 1000


        For i = UBound(Rom) To 0 Step -1

            Do While Dec >= Arab(i)

                Dec = Dec - Arab(i)

                Umrechnen2 = Umrechnen2 + Rom(i)

            Loop

        Next


    End Function











    Private Sub TextBox1_GotFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus


    End Sub

End Class

Bitte dringend um Hilfe =)

MfG Glambo

[Glambo]

Wieder ein großes Entschuldigung für Doppel-Post!

habe das Problem gelöst !

Musste ein InputPanel reinziehen und das Ereignis "GetFokus" auf Enable = True setzen

[Klotzkopp]

Überleg dir bitte für deine Threads Titel, die es den potenziellen Helfern leicht machen, zu erkennen, ob sie helfen können.

• Dass du Hilfe brauchst, ist offensichtlich, sonst würdest du nicht posten
  
• Dass es eine "Kleinigkeit" ist, ist subjektiv und sagt nichts über das Problem an sich aus
  
• Die Information, dass Bilder dabei sind, bringt auch keine zusätzliche Info
  
• Der Informationsgehalt von Smilies ist auch gleich Null

Im Thread lieferst du dann sehr viele Informationen, aber was das eigentliche Problem ist, geht ziemlich unter. Warum Quellcode und nochmal ein Screenshot vom Quellcode? Eine konkrete Frage enthält dein Beitrag hingegen nicht.

Zum Problem:

InputPanel-Klasse

[Glambo]

Überleg dir bitte für deine Threads Titel, die es den potenziellen Helfern leicht machen, zu erkennen, ob sie helfen können.

• Dass du Hilfe brauchst, ist offensichtlich, sonst würdest du nicht posten
  
• Dass es eine "Kleinigkeit" ist, ist subjektiv und sagt nichts über das Problem an sich aus
  
• Die Information, dass Bilder dabei sind, bringt auch keine zusätzliche Info
  
• Der Informationsgehalt von Smilies ist auch gleich Null

Im Thread lieferst du dann sehr viele Informationen, aber was das eigentliche Problem ist, geht ziemlich unter. Warum Quellcode und nochmal ein Screenshot vom Quellcode? Eine konkrete Frage enthält dein Beitrag hingegen nicht.

Zum Problem:

InputPanel-Klasse

Entschuldigung,

ich werde die Punkte in Zukunft berücksichtigen.

MfG