Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicitÓ e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Impostare il controllo su una textbox [VB.NET]
Forum - C# / VB.NET - Impostare il controllo su una textbox [VB.NET]

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
Maxton (Normal User)
Newbie


Messaggi: 13
Iscritto: 30/07/2014

Segnala al moderatore
Postato alle 11:39
Martedý, 03/02/2015
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.

Codice sorgente - presumibilmente VB.NET

  1. Private Sub ButtonF10_Click(sender As Object, e As EventArgs) Handles ButtonF10.Click
  2.        TextBoxRicerca.Text = Trim(NuovoTesto)
  3.        TextBoxRicerca.SelectAll()
  4.        TextBoxRicerca.Focus()
  5.   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 il 03/02/2015 alle 11:41
PM Quote
Avatar
Dark_light (Member)
Pro


Messaggi: 108
Iscritto: 11/04/2012

Segnala al moderatore
Postato alle 12:10
Martedý, 03/02/2015
Ti stai complicando la vita...

Codice sorgente - presumibilmente Plain Text

  1. TextboxRicerca.Focus()

basta e avanza... :k:


Il silenzio non Ŕ sempre tempo perso
PM Quote
Avatar
Maxton (Normal User)
Newbie


Messaggi: 13
Iscritto: 30/07/2014

Segnala al moderatore
Postato alle 14:01
Martedý, 03/02/2015
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 il 03/02/2015 alle 14:04
PM Quote
Avatar
Dark_light (Member)
Pro


Messaggi: 108
Iscritto: 11/04/2012

Segnala al moderatore
Postato alle 14:06
Martedý, 03/02/2015
Codice sorgente - presumibilmente Plain Text

  1. TextBox1.Focus()
  2.       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 il 03/02/2015 alle 14:06


Il silenzio non Ŕ sempre tempo perso
PM Quote
Avatar
Maxton (Normal User)
Newbie


Messaggi: 13
Iscritto: 30/07/2014

Segnala al moderatore
Postato alle 14:38
Martedý, 03/02/2015
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 il 03/02/2015 alle 14:55
PM Quote
Avatar
Dark_light (Member)
Pro


Messaggi: 108
Iscritto: 11/04/2012

Segnala al moderatore
Postato alle 14:40
Martedý, 03/02/2015
Il problema non sta nel codice che ti ho suggerito. Sicuramente hai un altro focus da qualche altra parte. Posta tutto il codice ...


Il silenzio non Ŕ sempre tempo perso
PM Quote
Avatar
Maxton (Normal User)
Newbie


Messaggi: 13
Iscritto: 30/07/2014

Segnala al moderatore
Postato alle 15:28
Martedý, 03/02/2015
Codice sorgente - presumibilmente VB.NET

  1. Private Sub ButtonF10_Click(sender As Object, e As EventArgs) Handles ButtonF10.Click
  2.           Modifica()
  3.     End Sub
  4.  
  5.  
  6.   Private Sub Modifica()
  7.  
  8.         TextBoxRicerca.Text = ""
  9.  
  10.         Dim FileNum As Integer = FreeFile()
  11.         Dim IndiceListino As ClasseIndiceListino = New ClasseIndiceListino
  12.  
  13.         FileOpen(FileNum, Men¨Iniziale.DiscoDati + Costante.NomeFileIndiceListino, OpenMode.Random, , OpenShare.Shared, Costante.GrandezzaCampoIndiceListino)
  14.  
  15.         FileGet(FileNum, IndiceListino.Cliente, IndiceTAB + 1)
  16.  
  17.         If IndiceStatoBottoni = 0 Then
  18.  
  19.             StatoBottoni(100)
  20.             LabelInformazioni.Text = "Modifica Descrizione"
  21.             LabelInformazioni.Visible = True
  22.  
  23.             ListView1.Items(IndiceTAB).ForeColor = Color.Lime
  24.             ListView1.Items(IndiceTAB).BackColor = Color.Black
  25.  
  26.             ListView5.Items(IndiceTAB).ForeColor = Color.Black
  27.             ListView5.Items(IndiceTAB).BackColor = Color.White
  28.  
  29.             TextBoxRicerca.Text = Trim(IndiceListino.Cliente.Descrizione)
  30.  
  31.             'TextBoxRicerca.Focus()
  32.             'TextBoxRicerca.SelectAll()
  33.  
  34.         ElseIf IndiceStatoBottoni = 100 Then
  35.  
  36.             If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
  37.                 IndiceListino.Cliente.Descrizione = TextBoxRicerca.Text
  38.  
  39.                 FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)
  40.  
  41.                 ListView5.Items(IndiceTAB).Text = TextBoxRicerca.Text
  42.             End If
  43.  
  44.             LabelInformazioni.Visible = True
  45.             LabelInformazioni.Text = "Modifica Classe di Ricarico 1"
  46.             StatoBottoni(101)
  47.  
  48.             ListView5.Items(IndiceTAB).ForeColor = Color.Aqua
  49.             ListView5.Items(IndiceTAB).BackColor = Color.Black
  50.  
  51.             ListView8.Items(IndiceTAB).ForeColor = Color.Black
  52.             ListView8.Items(IndiceTAB).BackColor = Color.White
  53.  
  54.             '              System.Windows.Forms.SendKeys.Send("{TAB}")
  55.             'TextBoxRicerca.Text = Trim(IndiceListino.Cliente.ClasseDiRicarico_1)
  56.             'TextBoxRicerca.SelectAll()
  57.             'TextBoxRicerca.Focus()
  58.             '              ListView5.Focus()
  59.  
  60.         ElseIf IndiceStatoBottoni = 101 Then
  61.  
  62.             If (Not Regex.IsMatch(Trim(TextBoxRicerca.Text), "[A-Z]") And Not Trim(TextBoxRicerca.Text) = "") Or Not Invio Then
  63.  
  64.                 If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
  65.                     IndiceListino.Cliente.ClasseDiRicarico_1 = TextBoxRicerca.Text
  66.  
  67.                     FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)
  68.  
  69.                     ListView8.Items(IndiceTAB).SubItems(0).Text = TextBoxRicerca.Text
  70.                 End If
  71.  
  72.                 LabelInformazioni.Visible = True
  73.                 LabelInformazioni.Text = "Modifica Classe di Ricarico 2"
  74.                 StatoBottoni(102)
  75.  
  76.                 ListView8.Items(IndiceTAB).ForeColor = Color.White
  77.                 ListView8.Items(IndiceTAB).BackColor = Color.Black
  78.  
  79.                 ListView9.Items(IndiceTAB).ForeColor = Color.Black
  80.                 ListView9.Items(IndiceTAB).BackColor = Color.White
  81.  
  82.             Else
  83.  
  84.                 LabelInformazioni.Visible = True
  85.                 LabelInformazioni.Text = "Modifica Classe di Ricarico 2"
  86.                 StatoBottoni(102)
  87.  
  88.                 ListView8.Items(IndiceTAB).ForeColor = Color.White
  89.                 ListView8.Items(IndiceTAB).BackColor = Color.Black
  90.  
  91.                 ListView9.Items(IndiceTAB).ForeColor = Color.Black
  92.                 ListView9.Items(IndiceTAB).BackColor = Color.White
  93.  
  94.             End If
  95.  
  96.             TextBoxRicerca.Text = Trim(IndiceListino.Cliente.ClasseDiRicarico_3)
  97.  
  98.         ElseIf IndiceStatoBottoni = 102 Then
  99.  
  100.             If (Not Regex.IsMatch(Trim(TextBoxRicerca.Text), "[A-Z]") And Not Trim(TextBoxRicerca.Text) = "") Or Not Invio Then
  101.  
  102.                 If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
  103.                     IndiceListino.Cliente.ClasseDiRicarico_2 = TextBoxRicerca.Text
  104.  
  105.                     FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)
  106.  
  107.                     ListView9.Items(IndiceTAB).SubItems(0).Text = TextBoxRicerca.Text
  108.                 End If
  109.  
  110.                 LabelInformazioni.Visible = True
  111.                 LabelInformazioni.Text = "Modifica Classe di Ricarico 3"
  112.                 StatoBottoni(103)
  113.  
  114.                 ListView9.Items(IndiceTAB).ForeColor = Color.Red
  115.                 ListView9.Items(IndiceTAB).BackColor = Color.Black
  116.  
  117.                 ListView10.Items(IndiceTAB).ForeColor = Color.Black
  118.                 ListView10.Items(IndiceTAB).BackColor = Color.White
  119.  
  120.             Else
  121.  
  122.                 LabelInformazioni.Visible = True
  123.                 LabelInformazioni.Text = "Modifica Classe di Ricarico 3"
  124.                 StatoBottoni(103)
  125.  
  126.                 ListView9.Items(IndiceTAB).ForeColor = Color.Red
  127.                 ListView9.Items(IndiceTAB).BackColor = Color.Black
  128.  
  129.                 ListView10.Items(IndiceTAB).ForeColor = Color.Black
  130.                 ListView10.Items(IndiceTAB).BackColor = Color.White
  131.  
  132.             End If
  133.  
  134.             TextBoxRicerca.Text = Trim(IndiceListino.Cliente.ClasseDiRicarico_3)
  135.    
  136.         ElseIf IndiceStatoBottoni = 103 Then
  137.  
  138.             If (Not Regex.IsMatch(Trim(TextBoxRicerca.Text), "[A-Z]") And Not Trim(TextBoxRicerca.Text) = "") Or Invio Then
  139.  
  140.                 If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
  141.                     IndiceListino.Cliente.ClasseDiRicarico_3 = TextBoxRicerca.Text
  142.  
  143.                     FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)
  144.  
  145.                     ListView10.Items(IndiceTAB).SubItems(0).Text = TextBoxRicerca.Text
  146.                 End If
  147.  
  148.                 LabelInformazioni.Visible = True
  149.                 LabelInformazioni.Text = "Modifica Classe di Ricarico 4"
  150.                 StatoBottoni(104)
  151.  
  152.                 ListView10.Items(IndiceTAB).ForeColor = Color.FromArgb(128, 255, 255)
  153.                 ListView10.Items(IndiceTAB).BackColor = Color.Black
  154.  
  155.                 ListView11.Items(IndiceTAB).ForeColor = Color.Black
  156.                 ListView11.Items(IndiceTAB).BackColor = Color.White
  157.  
  158.             Else
  159.  
  160.                 LabelInformazioni.Visible = True
  161.                 LabelInformazioni.Text = "Modifica Classe di Ricarico 4"
  162.                 StatoBottoni(104)
  163.  
  164.                 ListView10.Items(IndiceTAB).ForeColor = Color.FromArgb(128, 255, 255)
  165.                 ListView10.Items(IndiceTAB).BackColor = Color.Black
  166.  
  167.                 ListView11.Items(IndiceTAB).ForeColor = Color.Black
  168.                 ListView11.Items(IndiceTAB).BackColor = Color.White
  169.  
  170.             End If
  171.  
  172.             TextBoxRicerca.Text = Trim(IndiceListino.Cliente.ClasseDiRicarico_4)
  173.          
  174.  
  175.         ElseIf IndiceStatoBottoni = 104 Then
  176.  
  177.             If (Not Regex.IsMatch(Trim(TextBoxRicerca.Text), "[A-Z]") And Not Trim(TextBoxRicerca.Text) = "") Or Invio Then
  178.  
  179.                 If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
  180.                     IndiceListino.Cliente.ClasseDiRicarico_4 = TextBoxRicerca.Text
  181.  
  182.                     FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)
  183.  
  184.                     ListView11.Items(IndiceTAB).SubItems(0).Text = TextBoxRicerca.Text
  185.                 End If
  186.  
  187.                 LabelInformazioni.Visible = False
  188.                 StatoBottoni(0)
  189.  
  190.                 ListView11.Items(IndiceTAB).ForeColor = Color.MediumPurple
  191.                 ListView11.Items(IndiceTAB).BackColor = Color.Black
  192.  
  193.                 ListView1.Items(IndiceTAB).ForeColor = Color.Black
  194.                 ListView1.Items(IndiceTAB).BackColor = Color.White
  195.  
  196.             Else
  197.  
  198.                 LabelInformazioni.Visible = False
  199.                 StatoBottoni(0)
  200.  
  201.                 ListView11.Items(IndiceTAB).ForeColor = Color.MediumPurple
  202.                 ListView11.Items(IndiceTAB).BackColor = Color.Black
  203.  
  204.                 ListView1.Items(IndiceTAB).ForeColor = Color.Black
  205.                 ListView1.Items(IndiceTAB).BackColor = Color.White
  206.  
  207.             End If
  208.  
  209.         End If
  210.  
  211.  
  212.         FileClose()
  213.         Invio = False
  214.  
  215.         TextBoxRicerca.SelectAll()
  216.         TextBoxRicerca.Focus()
  217.  
  218.     End Sub



Codice sorgente - presumibilmente VB.NET

  1. Public Sub StatoBottoni(NuovoIndice As Integer)
  2.  
  3.         IndiceStatoBottoni = NuovoIndice
  4.  
  5.         If IndiceStatoBottoni = 0 Then
  6.  
  7.             ButtonF1.Visible = True
  8.             ButtonF1.Text = "Avanti"
  9.             ButtonF1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15)
  10.  
  11.             ButtonF2.Visible = False
  12.  
  13.             ButtonF3.Visible = True
  14.             ButtonF3.Text = "Indietro"
  15.             ButtonF3.Font = New System.Drawing.Font("Microsoft Sans Serif", 15)
  16.  
  17.             ButtonF4.Visible = False
  18.  
  19.             ButtonF5.Visible = False
  20.  
  21.             ButtonF6.Visible = False
  22.  
  23.             ButtonF7.Visible = False
  24.  
  25.             ButtonF8.Visible = False
  26.  
  27.             ButtonF9.Visible = False
  28.  
  29.             ButtonF10.Visible = True
  30.             ButtonF10.Text = "Modifica"
  31.             ButtonF10.Font = New System.Drawing.Font("Microsoft Sans Serif", 15)
  32.  
  33.             ButtonF11.Visible = False
  34.  
  35.             ButtonF12.Visible = False
  36.  
  37.             ButtonEsc.Visible = True
  38.             ButtonEsc.Text = "Men¨"
  39.             ButtonEsc.Font = New System.Drawing.Font("Microsoft Sans Serif", 15)
  40.  
  41.             TextBoxRicerca.Text = ""
  42.             'TextBoxRicerca.Focus()
  43.  
  44.             LabelInformazioni.Visible = False
  45.  
  46.             TextBoxRicerca.Text = ""
  47.  
  48.         ElseIf IndiceStatoBottoni = 100 Then   'MODIFICA
  49.  
  50.             ButtonF1.Visible = False
  51.  
  52.             ButtonF2.Visible = False
  53.  
  54.             ButtonF3.Visible = False
  55.  
  56.             ButtonF4.Visible = False
  57.  
  58.             ButtonF5.Visible = False
  59.  
  60.             ButtonF6.Visible = False
  61.  
  62.             ButtonF7.Visible = False
  63.  
  64.             ButtonF8.Visible = False
  65.  
  66.             ButtonF9.Visible = False
  67.  
  68.             ButtonF10.Visible = True
  69.             ButtonF10.Text = "Avanti Modifica"
  70.             ButtonF10.Font = New System.Drawing.Font("Microsoft Sans Serif", 13)
  71.  
  72.             ButtonF11.Visible = False
  73.  
  74.             ButtonF12.Visible = True
  75.  
  76.             ButtonEsc.Visible = True
  77.             ButtonEsc.Text = "Ritorna"
  78.  
  79.             LabelInformazioni.Visible = True
  80.             'TextBoxRicerca.Focus()
  81.             TextBoxRicerca.Text = ""
  82.         End If
  83.  
  84.         TextBoxRicerca.Focus()
  85.  
  86.     End Sub


PM Quote
Avatar
Maxton (Normal User)
Newbie


Messaggi: 13
Iscritto: 30/07/2014

Segnala al moderatore
Postato alle 15:42
Lunedý, 09/02/2015
Testo quotato

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?

PM Quote
Avatar
darioza (Normal User)
Pro


Messaggi: 104
Iscritto: 06/10/2014

Segnala al moderatore
Postato alle 17:12
Lunedý, 09/02/2015
Teoricamente si, nel senso che solo una cosa alla volta pu˛ essere selezionata.

PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo