Ragazzi ho risolto, praticamente non va il write (non so perché) ed ho provato con un print senza i caratteri di fine stringa e funziona perfettamente! Grazie ancora a chi ha provato ad aiutarmi!

E' più o meno quello che già faccio

... forse intendeva qualcosa del genere?:
Supponendo che la textbox della tastiera si chiami TextBoxTastiera e che invece la text box ricevente (TextBox1) sia nella FMain.

Codice in form tastiera:

Codice: [Seleziona]

Public Sub TextBoxTastiera_KeyPress()

  If Key.Code = Key.Return Then
    FMain.RicevoTesto(TextBoxTastiera.Text)
    Me.Close
  Endif

End

Codice in FMain:

Codice: [Seleziona]

Public Sub RicevoTesto(value As String)
  
  TextBox1.text = value
  
End

 

Perfetto! Ho risolto partendo dal tuo concetto, grazie mille!

Per "ultimo" carattere cosa intendi ?
Quello più a sinistra o quello più a destra ? 

Poi un'altra domanda: è necessario proprio evidenziarlo ?

Intendo ultimo carattere inserito a destra, non è necessario evidenziarlo, ho cercato di trovare una soluzione dalla selezione perché non sapevo come fare.

Lui evidenzia l'ultima a destra, quindi credo voglia fare qualcosa di simile:

Codice: [Seleziona]

  Dim s As String

  s = TextBox1.Text
  If Not IsNull(s) Then
    s = Left(s, Len(s) - 1)
    TextBox1.text = s
  Endif

Sono però d'accordo con te nel ritenere Gilby un po avaro di informazioni 

 

Così credo vada bene, anche se come avete detto successivamente non è la soluzione ideale per tutti i casi, chiedo scusa se sono abbastanza criptico anche se hai colto in pieno tutti i miei dubbi, ancora grazie.

Buongiorno a tutti, ho creato un form che mi simuli una tastiera, nel momento in cui clicco su una textbox mi si apre il form con una tastiera ed una textbox, una volta digitato il testo dovrei premere sul tasto invio della tastiera virtuale ed il testo dovrebbe apparire nella textbox precedente, mi sapreste consigliare un metodo per fare ciò? Grazie in anticipo.

Citazione da: Gilby - 10 Maggio 2018, 09:24:00

Citazione da: Gianluigi - 09 Maggio 2018, 19:08:32

Potresti allegare un progettino che esemplifichi quello che vai cercando.

Certo, prima di tutto ho fatto un po' di confusione, è una matrice e non un array, devo creare questa matrice di picturebox come se fosse una dama, ho scritto giusto un codice di esempio.

Gianluigi ha inteso chiederti di mostrarci la parte "importante" del progetto, ossia il meccanismo da te escogitato per ottenere il Drag and Drop fra le varie PictureBox della matrice, non il codice per creare la matrice di PictureBox !

Citazione da: Gilby - 10 Maggio 2018, 09:24:00

...ho provato a dare un nome ad ogni elemento della matrice (es. .name=picturebox1)

A mio avviso un punto fondamentale è l'assegnazione delle PictureBox ad un unico Gruppo di Eventi.

In poche parole devo creare una matrice come se fosse una dama, il meccanismo utilizzato è lo stesso dell'esempio che tu mi hai proposto, l'unica differenza è che non ho inserito le picturebox in un unico gruppo,

tempo fa' ebbi un problema simile, risolsi "acchiappando" l'id dell'oggetto:

Codice: [Seleziona]

' Gambas class file

'per gestire i TASTI virtuali
Private Indice As Integer
Private ButtonMedia As New Button[]

Private Selezionato As Integer


Public Sub Button_AddMedia_Click()
Dim BT As Button

  With BT = New Button(ScrollView_TimeLine) As "Tasto"
    .Text = File.Name(FileChooser_Media.SelectedPath)
    .Tooltip = FileChooser_Media.SelectedPath
    
    If ButtonMedia.Count = 0 Then
      .Top = Label_start_time.Top + Label_start_time.Height + 1 'ma come e' che sembra vadano una dopo l'altra anche se non ho inserito il codice opportuno?
      Else
        .Top = ButtonMedia[ButtonMedia.Count - 1].Top + ButtonMedia[ButtonMedia.Count - 1].Height
    Endif
    
    .Left = Label_start_time.Left - 5
    .Font.Size = Me.Font.Size - 3
    .Width = Label_start_time.Width + 10
    .Border = 1

  End With

  ButtonMedia.Add(BT)
  Inc Indice

  'e sposta la label di fine programmazione in coda a questo ultimo evento ... aggiornando il display della fine
  Label_end_time.Top = ButtonMedia[ButtonMedia.Count - 1].Top + ButtonMedia[ButtonMedia.Count - 1].Height + 1
  Label_end_time.Text = DateAdd(CDate(Label_end_time.Tag), gb.Second, DurataInSecondi)   'mhhh se sommi con la fine oltre la mezzanotte da' errore!!!!!
  If Not (Label_end_time.Text Like "[0-2][0-9]:[0-5][0-9]:[0-5][0-9]") Then
    'se c'e' un errore probabilemnte e' perche'ì con questo video si scavalla la mezzanotte! Questo e' L'ULTIMO video che si puo' inserire per questa giornata!!!!
    ' Fine = (DateAdd(DateChooser_Giornata.Value, gb.Day, 1))
    ' Label_end_time.Text = Day(Fine) & "-" & Month(fine) & "-" & Year(fine)
    Label_end_time.Text = Format(DateAdd(DateChooser_Giornata.Value & " " & Label_end_time.Tag, gb.second, DurataInSecondi), "dd/mm/yyyy hh:nn:ss")
    Label_end_time.Background = Color.Red
    Label_end_time.Show
    Button_AddMedia.Enabled = False
    Else
        Label_end_time.Background = Color.LightForeground
        Label_end_time.Show
  Endif
  Label_end_time.Tag = Label_end_time.Text
  
  'SALVA l'ultima cartella aperta come default per la prossima esecuzione
  Settings["FileChooser/LastFolder"] = FileChooser_Media.SelectedPath
End



Public Sub Tasto_Click()
Dim BT As Button

  Selezionato = ButtonMedia.Find(Last)

  If Selezionato = -1 Then Return

    For Each bt In ButtonMedia
      bt.Font.Bold = False
    Next
  
  ButtonMedia[Selezionato].Font.Bold = True
  
End

Mi leggo bene il tuo codice e ti faccio sapere se risolvo, grazie!

Salve ragazzi!
Ho creato un array di oggetti di tipo PictureBox, una cosa del genere:

For i = 0 To max - 1
    For j = 0 To max - 1
 With pos[i, j] = New PictureBox(Me)
        .Background = Color.White
        .W =123
        .H = 123
        .x = 123
        .Y = 123
        .Drop = True
        .Picture = Picture.Load("nomeimg.xxx")
 
       
      End With
 next
next

Avete una soluzione per fare un drag and drop tra le varie picturebox dell'array?  Creando direttamente l'oggetto dal form mi basta creare semplicemente la funzione "public sub pictureboxX_mousedrag()", ho provato così ma nulla, ho provato altre soluzioni ma con scarso successo, grazie in anticipo a chi mi aiuterà.