Listview u VB 2008???

Listview u VB 2008???

offline
  • Pridružio: 10 Dec 2009
  • Poruke: 258
  • Gde živiš: Kosovo

Napisano: 21 Maj 2011 14:03

Pravim kao jedan programcic koji bi racunao prosecnu ocenu za skolu Smile

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 Very Happy

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


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?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 19 Jun 2009
  • Poruke: 70

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



offline
  • Pridružio: 10 Dec 2009
  • Poruke: 258
  • Gde živiš: Kosovo

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

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

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

offline
  • Pridružio: 19 Jun 2009
  • Poruke: 70

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

offline
  • Pridružio: 10 Dec 2009
  • Poruke: 258
  • Gde živiš: Kosovo

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

offline
  • Pridružio: 19 Jun 2009
  • Poruke: 70

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

Ko je trenutno na forumu
 

Ukupno su 612 korisnika na forumu :: 5 registrovanih, 0 sakrivenih i 607 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Battlehammer, bojank, Petar35, Tas011, wolf431