Legge ting til LisView fra annen form

[luser32]

Jeg Skal legge til tekst fra tekstboks, og tekst fra combobox til et ListView1, i en annen form (frmTreningsdagbok).

 

Hvordan forteller man VB.Net at man skal legge dette til i en ListView i en annen form?

[aadnk]

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 21. februar 2005 av aadnk

[luser32]

Tusen Takk:D:D:D

 

Leggert inn og tester det nå

[luser32]

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

Endret 6. mars 2005 av luser32

[aadnk]

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 7. mars 2005 av aadnk

[luser32]

Tusen takk:D

 

Visste jeg kunne få svar av deg

 

Skal teste det senere i kveld:P

[luser32]

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

 

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å

[trrunde]

clng skal konventere fra string til long

 

altså:

Dim lFotball as long

lFotball=clng(fotball)

[luser32]

Tusen takk;D

De eneste av sånne jeg kan fra før er Val og Str$.

 

Hvor kan jeg finne en liste over alle sånne?

[luser32]

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

Endret 10. mars 2005 av luser32

[aadnk]

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)

[luser32]

Åja så dum jeg er

 

Men takk for at dere gadd å ta dere tid til å hjelpe en N0ob som meg da;D

[luser32]

Selv om jeg får samma feilmelding:(

[aadnk]

Rart. Går det bedre dersom du benytter SelectedText:

 

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

[luser32]

Ja! det virket, eneste er at med Val så kommer jo teksten som 0

 

Men det er bra or jeg trenger det og:p