Gå til innhold

Legge ting til LisView fra annen form


Anbefalte innlegg

Videoannonse
Annonse

Dersom du åpner denne andre formen fra den første, kan du jo alltids gjøre som følger:

 

Hovedformen:

 

   Public frmTreningsdagbok As frmTreningsdagbok

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

       If frmTreningsdagbok Is Nothing Then
           frmTreningsdagbok= New Form2
           frmTreningsdagbok.Show()
       End If

       frmTreningsdagbok.AddText(TextBox1.Text)

   End Sub

 

frmTreningsdagbok:

 

   Public Sub AddText(ByVal sText As String)

       ' Legger til teksten i listeboksen
       ListView1.Items.Add(sText)

   End Sub

 

Skulle du måtte gjøre det omvendte, kan muligens denne siden gi råd:

http://www.vbdotnetheaven.com/Code/Sept2003/2166.asp

 

Ellers kan du jo alltids legge deklareringen av de to formene inn i en modul, sammen med en rekke prosedyrer for å skrive til disse formene.

Endret av aadnk
Lenke til kommentar
  • 2 uker senere...

Dette gikk ikke:(

 

Tror nok jeg burde forklart litt nærmere:

 

Jeg starter med formen frmTreningsdagbok, hvor jeg har ListView1 med flere kollonner.

Så åpner man en ny form(frmInfo) for å skrive inn informasjon som skal legges inn i ListView1, en samling av cmbo-bokser(cmboHva, cmboType osv.) og tekstbokser (txtLengde).

 

Når man da skal trykke Legg Til(cmdLeggTil), skal denne informasjonen komme inn i kolonnene Hva (ColumnHeader1) Type (ColumnHeader 2) og Lengde (ColumnHeader 5)

 

Jeg har gitt de overnevnte tingene variabelnavnene Hva, Type og Lengde

 

Håper noen kan hjelpe meg, og hvis dere trenger mer info, si fra :thumbup:

Endret av luser32
Lenke til kommentar

Dersom jeg har forstått deg riktig, er det fem kolonner i denne listen. I så fall kan du eksempelvis gjøre det på følgende, dog muligens uortodoks, måte:

 

Hovedformen:

 

   Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click

       Dim Info As New frmInfo

       Info.RefListView = lstView
       Info.ShowDialog()

   End Sub

 

frmTreningsdagbok:

 

   Public RefListView As ListView

   Private Sub cmdAddItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAddItem.Click

       Dim Item As ListViewItem

       Item = RefListView.Items.Add(TextBox1.Text)

       Item.SubItems.Add(TextBox2.Text())
       Item.SubItems.Add("") ' Dersom du har kun tre kolonner, kan denne samt neste linje fjernes
       Item.SubItems.Add("") 
       Item.SubItems.Add(TextBox3.Text())

       Me.Close()

   End Sub

Endret av aadnk
Lenke til kommentar

Det virket:D:D:D, men selvsagt kom det et nytt problem med en gang :p

 

Jeg får beskjed om at fotball ikke kan konverteres fra string til long:S

aner ikke åssen man fikser sånt, har hatt det problemet mange andre steder også:(

Lenke til kommentar

Men dette funka ikke:(

 

Har skrevet dette:

 

Dim Hva As Long
Hva = CLng(cmboHva.SelectedItem)
Item = RefListView.Items.Add(Hva)

 

Den sier bare at den ikke kan konvertere stringen Fotball til typen Long :cry:

Endret av luser32
Lenke til kommentar

SelectedItem er ingen streng - det er et objekt. Og sådant kan rett og slett ikke konverteres til en streng eller Long, du må derimot benytte en egenskap eller funksjon innunder dette objektet for å hente informasjonen:

 

Dim Hva As Long
Hva = Val(cmboHva.SelectedItem.ToString)
Item = RefListView.Items.Add(Hva)

Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
×
×
  • Opprett ny...