Listview u VB 2008???

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Napisano: 21 Maj 2011 14:03

Pravim kao jedan programcic koji bi racunao prosecnu ocenu za skolu

i sad napravio sam listview i ubacio 2 kolone Predmet i Ocena
i pomocu TextBox-a ubacujem predmete u listu a pomocu NumericUpDown ocene

to trenutno radim ovako
 Dim theItem As ListViewItem         theItem = lista.Items.Add(predmet, broj_predmeta_velicina)         theItem.SubItems.Add(ocena)
sad meni je potrebno da izvucem sve ocene koje su unete u listu i da ih saberem pa posle podelim brojem predmeta, kako bi to uradio?
tacnije potrebno mi je samo da izvucem sve ocene iz liste

moze jedan primer za listbox?
npr kako da ubacim u koloni PREDMETI neki predmet, u koloni OCENE ocenu i kako da saberem sve ocene koje su unete????

moze ovde da napisete KOD i po mogucnosti da objasnite malo koja funkcija sta radi

ja sam nasao na net nekoliko primera ali nzm, nikako ne mogu da uskladim sa onim sto je meni potrebno


EVO CEO KOD PROGRAMA:
Public Class Form1     Public predmeti(0) As String     Public Function DodajPredmet(ByVal predmet As String, ByVal ocena As Integer) As Integer         Dim broj_predmeta_velicina As Integer = predmeti.Length         ReDim Preserve predmeti(broj_predmeta_velicina)         Dim theItem As ListViewItem         theItem = lista.Items.Add(predmet, broj_predmeta_velicina)         theItem.SubItems.Add(ocena)         Label5.Text = broj_predmeta_velicina     End Function     Private Sub btn_dodaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_dodaj.Click         DodajPredmet(txtPredmet.Text, brbox_ocene.Value)     End Sub     Private Sub brbox_ocene_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles brbox_ocene.ValueChanged         If brbox_ocene.Value > 5 Then             brbox_ocene.Value = 5         ElseIf brbox_ocene.Value < 1 Then             brbox_ocene.Value = 1         End If     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         brbox_ocene.Value = 5     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click     End Sub     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         oprogramu.Show()     End Sub     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click         Me.Close()     End Sub End Class

Dopuna: 21 Maj 2011 17:22

niko nista?

• 1Ovo se svidja korisniku: Exreey
  
  Registruj se da bi pohvalio/la poruku!

Stvarno nemam zivaca da gledam ovo i da lupam glavu sta si ti hteo (bez uvrede). Evo ja sam ti odradio program. Ovaj program ti racuna prosek za sve brojeve koje uneses, a ti sam mozes da stavis if statement koji ce da ti provera da li je broj od 1 do 5... Ovo sto sam ti ja uplodovao je samo jedan od nacina kako da izracunas prosek, a ti posle sam razradi za sta ti treba.

Download

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

znao sam ja da uradim na slican nacin ali sam ipak hteo to da uradio sa listview a ne sa listbox

ja sam bas onako POCETNIK u vb pa izucavam tacnije meni nije potreban program vec da shvatim kako da koristim listview-e kako da dodajem u nekoj koloni neki item, kako da dobijem vrednost iz neke kolone...isl...

u svakom slucaju HVALA NA ODGUVORU I TRUDU
ako bi znao da uradis sa listview bilo bi bas kul ako ne... onda nema veze

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Evo uradio sam ti i sa listview-om... Ovo ti je neki moj nacin, a ti pitaj ako ti nesto nije jasno... Download

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

hvala puno...
trenutno pravim jedan drugi programcic skoro sam ga zavrsio jos samo da skontam kako da napravim da u textbox ne moze da se pisu slova,znakovi vec samo BROJEVI

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa to ti je lako... Evo ti jedan od nacina:

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If Not Char.IsDigit(e.KeyChar) Then e.Handled = True End Sub