Visualizzazione dei risultati da 1 a 6 su 6
  1. #1
    Utente di HTML.it
    Registrato dal
    May 2011
    Messaggi
    33

    [VB6]Aggiungere campi in una lista

    Devo inserire in un elenco di vb6 (listbox, textbox, o altro) un elenco di link copiato con CTRL-C. In pratica come faccio "copia" il programma deve in automatico aggiungere l'elenco alla listbox o txtbox. mi date qualche delucidazione?
    grazie

  2. #2
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,465

    Moderazione

    Esiste una sezione apposita dedicata al linguaggio Visual Basic.

    Ho spostato la discussione.
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

  3. #3

  4. #4
    Utente di HTML.it
    Registrato dal
    May 2011
    Messaggi
    33
    ok ci sono riuscito....però se per esempio devo prendere una lista, il comando li prende tutti insieme in una sola riga. come faccio a selezionare riga per riga?
    grazie!!!!!

  5. #5
    Utente di HTML.it L'avatar di gibra
    Registrato dal
    Apr 2008
    residenza
    Italy
    Messaggi
    4,244
    Nessuno conosce il tuo progetto, quindi se non spieghi bene i dettagli nessuno ti può capire.


  6. #6
    Utente di HTML.it L'avatar di yyzyyz
    Registrato dal
    Oct 2001
    Messaggi
    1,653
    Originariamente inviato da zmenc
    ok ci sono riuscito....però se per esempio devo prendere una lista, il comando li prende tutti insieme in una sola riga. come faccio a selezionare riga per riga?
    grazie!!!!!
    Non so se ho capito bene , cmq potresti splittare la tua stringa in un array per poi popolare la listbox, mettiamo il caso che su "miastringa" tu abbia il contenuto del tuo copia(clipboard), potresti lavorare su una cosa del genere.

    codice:
    Private Sub Form_Load()
    Dim mioarray() As String
    Dim miastring As String
    Dim tmpstringa As String
    
    miastringa = "ab cde fghi lmn"
    mioarray() = Split(miastringa)
    
    For i = 0 To UBound(mioarray)
        tmpstringa = Replace(mioarray(i), " ", "")
        If Len(tmpstringa) > 0 Then
            List1.AddItem tmpstringa
        End If
    Next i
    End Sub

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.