Oppure

Loading
03/02/15 10:39
Maxton
Salve a tutti, sto cercando una soluzione a un problema apparentemente semplice, praticamente nel mio programma c'è un bottone, che una volta cliccato mi dovrebbe mettere il focus su una textbox, ma invece non succede, se premo invio si apre il menu della finestra in alto a sinistra. Vi posto il codice. 

  Private Sub ButtonF10_Click(sender As Object, e As EventArgs) Handles ButtonF10.Click
       TextBoxRicerca.Text = Trim(NuovoTesto)
       TextBoxRicerca.SelectAll()
       TextBoxRicerca.Focus()
  End Sub


"NuovoTesto" è una variabile String, che può essere vuota
La cosa strana è che dalla seconda volta che clicco la textbox viene correttamente selezionata.
Ho sbagliato funzione? Ditemi voi
Ultima modifica effettuata da Maxton 03/02/15 10:41
aaa
03/02/15 11:10
Dark_light
Ti stai complicando la vita... 

TextboxRicerca.Focus()
basta e avanza... :k:
aaa
03/02/15 13:01
Maxton
purtroppo non funziona.
io cmq avrei sempre esigenza di selezionare tutto il testo nella textbox, in modo da poter usare la tastiera per cancellare tutto e inserire un nuovo testo, senza l'ausilio di un mouse.
Ultima modifica effettuata da Maxton 03/02/15 13:04
aaa
03/02/15 13:06
Dark_light 
   TextBox1.Focus()
      TextBox1.SelectAll()


Come fai a dire che non funziona??L'hai testato almeno?
Ti consiglio vivamente di studiarti la documentazione relativa alle basi del vb.net..
Ultima modifica effettuata da Dark_light 03/02/15 13:06
aaa
03/02/15 13:38
Maxton
si l'ho testato, ma trovo selezionata la finestra non la textbox...
è questo che non capisco, poi se con il mouse rimetto il focus sulla textbox, dopo la prima volta funziona all'infinito...
Ultima modifica effettuata da Maxton 03/02/15 13:55
aaa
03/02/15 13:40
Dark_light
Il problema non sta nel codice che ti ho suggerito. Sicuramente hai un altro focus da qualche altra parte. Posta tutto il codice ...
aaa
03/02/15 14:28
Maxton 
 Private Sub ButtonF10_Click(sender As Object, e As EventArgs) Handles ButtonF10.Click
          Modifica()
    End Sub


  Private Sub Modifica()

        TextBoxRicerca.Text = ""

        Dim FileNum As Integer = FreeFile()
        Dim IndiceListino As ClasseIndiceListino = New ClasseIndiceListino

        FileOpen(FileNum, MenùIniziale.DiscoDati + Costante.NomeFileIndiceListino, OpenMode.Random, , OpenShare.Shared, Costante.GrandezzaCampoIndiceListino)

        FileGet(FileNum, IndiceListino.Cliente, IndiceTAB + 1)

        If IndiceStatoBottoni = 0 Then

            StatoBottoni(100)
            LabelInformazioni.Text = "Modifica Descrizione"
            LabelInformazioni.Visible = True

            ListView1.Items(IndiceTAB).ForeColor = Color.Lime
            ListView1.Items(IndiceTAB).BackColor = Color.Black

            ListView5.Items(IndiceTAB).ForeColor = Color.Black
            ListView5.Items(IndiceTAB).BackColor = Color.White

            TextBoxRicerca.Text = Trim(IndiceListino.Cliente.Descrizione)

            'TextBoxRicerca.Focus()
            'TextBoxRicerca.SelectAll()

        ElseIf IndiceStatoBottoni = 100 Then

            If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
                IndiceListino.Cliente.Descrizione = TextBoxRicerca.Text

                FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)

                ListView5.Items(IndiceTAB).Text = TextBoxRicerca.Text
            End If

            LabelInformazioni.Visible = True
            LabelInformazioni.Text = "Modifica Classe di Ricarico 1"
            StatoBottoni(101)

            ListView5.Items(IndiceTAB).ForeColor = Color.Aqua
            ListView5.Items(IndiceTAB).BackColor = Color.Black

            ListView8.Items(IndiceTAB).ForeColor = Color.Black
            ListView8.Items(IndiceTAB).BackColor = Color.White

            '              System.Windows.Forms.SendKeys.Send("{TAB}")
            'TextBoxRicerca.Text = Trim(IndiceListino.Cliente.ClasseDiRicarico_1)
            'TextBoxRicerca.SelectAll()
            'TextBoxRicerca.Focus()
            '              ListView5.Focus()

        ElseIf IndiceStatoBottoni = 101 Then

            If (Not Regex.IsMatch(Trim(TextBoxRicerca.Text), "[A-Z]") And Not Trim(TextBoxRicerca.Text) = "") Or Not Invio Then

                If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
                    IndiceListino.Cliente.ClasseDiRicarico_1 = TextBoxRicerca.Text

                    FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)

                    ListView8.Items(IndiceTAB).SubItems(0).Text = TextBoxRicerca.Text
                End If

                LabelInformazioni.Visible = True
                LabelInformazioni.Text = "Modifica Classe di Ricarico 2"
                StatoBottoni(102)

                ListView8.Items(IndiceTAB).ForeColor = Color.White
                ListView8.Items(IndiceTAB).BackColor = Color.Black

                ListView9.Items(IndiceTAB).ForeColor = Color.Black
                ListView9.Items(IndiceTAB).BackColor = Color.White

            Else

                LabelInformazioni.Visible = True
                LabelInformazioni.Text = "Modifica Classe di Ricarico 2"
                StatoBottoni(102)

                ListView8.Items(IndiceTAB).ForeColor = Color.White
                ListView8.Items(IndiceTAB).BackColor = Color.Black

                ListView9.Items(IndiceTAB).ForeColor = Color.Black
                ListView9.Items(IndiceTAB).BackColor = Color.White

            End If

            TextBoxRicerca.Text = Trim(IndiceListino.Cliente.ClasseDiRicarico_3)

        ElseIf IndiceStatoBottoni = 102 Then

            If (Not Regex.IsMatch(Trim(TextBoxRicerca.Text), "[A-Z]") And Not Trim(TextBoxRicerca.Text) = "") Or Not Invio Then

                If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
                    IndiceListino.Cliente.ClasseDiRicarico_2 = TextBoxRicerca.Text

                    FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)

                    ListView9.Items(IndiceTAB).SubItems(0).Text = TextBoxRicerca.Text
                End If

                LabelInformazioni.Visible = True
                LabelInformazioni.Text = "Modifica Classe di Ricarico 3"
                StatoBottoni(103)

                ListView9.Items(IndiceTAB).ForeColor = Color.Red
                ListView9.Items(IndiceTAB).BackColor = Color.Black

                ListView10.Items(IndiceTAB).ForeColor = Color.Black
                ListView10.Items(IndiceTAB).BackColor = Color.White

            Else

                LabelInformazioni.Visible = True
                LabelInformazioni.Text = "Modifica Classe di Ricarico 3"
                StatoBottoni(103)

                ListView9.Items(IndiceTAB).ForeColor = Color.Red
                ListView9.Items(IndiceTAB).BackColor = Color.Black

                ListView10.Items(IndiceTAB).ForeColor = Color.Black
                ListView10.Items(IndiceTAB).BackColor = Color.White

            End If

            TextBoxRicerca.Text = Trim(IndiceListino.Cliente.ClasseDiRicarico_3)
   
        ElseIf IndiceStatoBottoni = 103 Then

            If (Not Regex.IsMatch(Trim(TextBoxRicerca.Text), "[A-Z]") And Not Trim(TextBoxRicerca.Text) = "") Or Invio Then

                If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
                    IndiceListino.Cliente.ClasseDiRicarico_3 = TextBoxRicerca.Text

                    FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)

                    ListView10.Items(IndiceTAB).SubItems(0).Text = TextBoxRicerca.Text
                End If

                LabelInformazioni.Visible = True
                LabelInformazioni.Text = "Modifica Classe di Ricarico 4"
                StatoBottoni(104)

                ListView10.Items(IndiceTAB).ForeColor = Color.FromArgb(128, 255, 255)
                ListView10.Items(IndiceTAB).BackColor = Color.Black

                ListView11.Items(IndiceTAB).ForeColor = Color.Black
                ListView11.Items(IndiceTAB).BackColor = Color.White

            Else

                LabelInformazioni.Visible = True
                LabelInformazioni.Text = "Modifica Classe di Ricarico 4"
                StatoBottoni(104)

                ListView10.Items(IndiceTAB).ForeColor = Color.FromArgb(128, 255, 255)
                ListView10.Items(IndiceTAB).BackColor = Color.Black

                ListView11.Items(IndiceTAB).ForeColor = Color.Black
                ListView11.Items(IndiceTAB).BackColor = Color.White

            End If

            TextBoxRicerca.Text = Trim(IndiceListino.Cliente.ClasseDiRicarico_4)
          

        ElseIf IndiceStatoBottoni = 104 Then

            If (Not Regex.IsMatch(Trim(TextBoxRicerca.Text), "[A-Z]") And Not Trim(TextBoxRicerca.Text) = "") Or Invio Then

                If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
                    IndiceListino.Cliente.ClasseDiRicarico_4 = TextBoxRicerca.Text

                    FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)

                    ListView11.Items(IndiceTAB).SubItems(0).Text = TextBoxRicerca.Text
                End If

                LabelInformazioni.Visible = False
                StatoBottoni(0)

                ListView11.Items(IndiceTAB).ForeColor = Color.MediumPurple
                ListView11.Items(IndiceTAB).BackColor = Color.Black

                ListView1.Items(IndiceTAB).ForeColor = Color.Black
                ListView1.Items(IndiceTAB).BackColor = Color.White

            Else

                LabelInformazioni.Visible = False
                StatoBottoni(0)

                ListView11.Items(IndiceTAB).ForeColor = Color.MediumPurple
                ListView11.Items(IndiceTAB).BackColor = Color.Black

                ListView1.Items(IndiceTAB).ForeColor = Color.Black
                ListView1.Items(IndiceTAB).BackColor = Color.White

            End If

        End If


        FileClose()
        Invio = False

        TextBoxRicerca.SelectAll()
        TextBoxRicerca.Focus()

    End Sub




    Public Sub StatoBottoni(NuovoIndice As Integer)

        IndiceStatoBottoni = NuovoIndice

        If IndiceStatoBottoni = 0 Then

            ButtonF1.Visible = True
            ButtonF1.Text = "Avanti"
            ButtonF1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15)

            ButtonF2.Visible = False

            ButtonF3.Visible = True
            ButtonF3.Text = "Indietro"
            ButtonF3.Font = New System.Drawing.Font("Microsoft Sans Serif", 15)

            ButtonF4.Visible = False

            ButtonF5.Visible = False

            ButtonF6.Visible = False

            ButtonF7.Visible = False

            ButtonF8.Visible = False

            ButtonF9.Visible = False

            ButtonF10.Visible = True
            ButtonF10.Text = "Modifica"
            ButtonF10.Font = New System.Drawing.Font("Microsoft Sans Serif", 15)

            ButtonF11.Visible = False

            ButtonF12.Visible = False

            ButtonEsc.Visible = True
            ButtonEsc.Text = "Menù"
            ButtonEsc.Font = New System.Drawing.Font("Microsoft Sans Serif", 15)

            TextBoxRicerca.Text = ""
            'TextBoxRicerca.Focus()

            LabelInformazioni.Visible = False

            TextBoxRicerca.Text = ""

        ElseIf IndiceStatoBottoni = 100 Then   'MODIFICA

            ButtonF1.Visible = False

            ButtonF2.Visible = False

            ButtonF3.Visible = False

            ButtonF4.Visible = False

            ButtonF5.Visible = False

            ButtonF6.Visible = False

            ButtonF7.Visible = False

            ButtonF8.Visible = False

            ButtonF9.Visible = False

            ButtonF10.Visible = True
            ButtonF10.Text = "Avanti Modifica"
            ButtonF10.Font = New System.Drawing.Font("Microsoft Sans Serif", 13)

            ButtonF11.Visible = False

            ButtonF12.Visible = True

            ButtonEsc.Visible = True
            ButtonEsc.Text = "Ritorna"

            LabelInformazioni.Visible = True
            'TextBoxRicerca.Focus()
            TextBoxRicerca.Text = ""
        End If

        TextBoxRicerca.Focus()

    End Sub
aaa
09/02/15 14:42
Maxton
Postato originariamente da Dark_light:

Il problema non sta nel codice che ti ho suggerito. Sicuramente hai un altro focus da qualche altra parte. Posta tutto il codice ...

è possibile che se ci sono 2 focus possano esserci problemi?
aaa