Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


en fundersam nybörjare

Postades av 2004-11-18 19:36:22 - Christina Antonsson, i forum vb.net, Tråden har 2 Kommentarer och lästs av 493 personer

Hur gör man bäst när man ska skriva in ett namn i en textbox och lägga det i en listbox samtidigt som man ska använda en räknare som visar hur många namn man skrivit in och det ska visas i en label. man ska ha två knappar, en som sparar och en som raderar.
Har försökt med detta

Private Sub raknare()
Dim allItem As Short
lstBox1.Items.Clear()
For allItem = 0 To 9
lstBox1.Items.Add(allItem)
Next
allItem = lstBox1.Items.Count
End Sub

Private Sub lstBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstBox1.SelectedIndexChanged
Dim ind As Short
Dim allItem As Short

lstBox1.Items.Clear()
For allItem = 0 To 9
lstBox1.Items.Add(allItem)
Next
allItem = lstBox1.Items.Count
txtInput.Text = lstBox1.SelectedIndex
txtInput.Text = lstBox1.SelectedItem
End Sub

Private Sub btnAddItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddItem.Click
lstBox1.Items.Add(txtInput.Text)
btnRemovItem.Enabled = True
lstBox1.Focus()
End Sub

Private Sub btnRemovItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovItem.Click
lstBox1.Items.RemoveAt(lstBox1.SelectedIndex)
lstBox1.Focus()
End Sub

men jag verkar vara helt ute och snurrar


Svara

Sv: en fundersam nybörjare

Postades av 2004-11-18 20:34:44 - Fredrik Edström

<code>
Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
ListBox1.Items.Add(TextBox1.Text)
ListBox1.Focus()
End Sub

Private Sub Erase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
ListBox1.Focus()
End Sub

Private Sub ListBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.GotFocus
Label1.Text = CStr(ListBox1.Items.Count)
End Sub
</code>

här sker uppdatering av labeln varje gång listboxen kommer i fokus (vid spara och radera). Finns säkert bättre sätt men kommer inte på något nu.

//Fredde


Svara

Sv: en fundersam nybörjare

Postades av 2004-11-18 20:49:15 - Christina Antonsson

tack, nu får jag min label att räkna upp och ner när man lägger till ett namn, så nu så återstår det bara för mig att hitta ett sätt att spara värdena.


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 722
27 958
271 751
360
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies