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


Textboxar

Postades av 2005-09-08 18:45:46 - Jan Andersson, i forum visual basic - allmänt, Tråden har 8 Kommentarer och lästs av 921 personer

Hur raderar jag innehållet i 20 st Textboxar (1-20) samtidigt och
hur raderar jag innehållet i 10 st Chekboxar (1-10) samtidigt


Svara

Sv: Textboxar

Postades av 2005-09-08 19:05:07 - Johan Svensson

Hej,

Samtidigt är omöjligt eftersom en dator jobba sekventiellt, dock går det att fixa inom loppet av någon millisekund beroende på hur snabb dator du har.

Enklaste sättet är att för textboxarna skriva typ:
<code>
textbox1.text=""
textbox2.text=""
osv
</code>

Med att radera checkboxar antar jag att du menar att ta bort bocken? Isåfall så här:

<code>
checkbox1.value=vbunchecked
checkbox2.value=vbunchecked
osv
</code>

Eller ännu enklare för båda fallen är att se till att skapa en kontrollarray som du loopar igenom, det går inte fortare att köra men du sparar en hel del skrivande i kodfönstret...

Lycka till!

// Johan


Svara

Sv:Textboxar

Postades av 2005-09-08 19:09:54 - Jan Andersson

För mycket skrivande !
Ett kommando som tömmer alla !
Jag är nybörjare !!


Svara

Sv: Textboxar

Postades av 2005-09-08 21:53:05 - Johan Svensson

Jan,

Det finns inga genvägar....

Om du läst hela mitt tips så skrev jag längst ned att de effektivaste sättet är att skapa en array precis som Henrik visar med kod.

Det finns alltså inte ett kommando som tömmer allt. Möjligtvis att stänga av datorn då...

// Johan


Svara

Sv:Textboxar

Postades av 2005-09-09 10:11:01 - Sven Åke Persson

Så här kan man också göra
Hej Trelleborgare, Sven här Västra skolan 1953, Sthlm sedan 1960
Klistra in min Sub ClearBox och anropa med Call ClearBox(Formens referens. Tex. Form1))
<code>
Option Explicit
Private Sub Command1_Click()
Call ClearBox(Form1)
End Sub
Private Sub ClearBox(FormIn As Form)
Dim contrCount As Long, i As Long
Dim aControl As Control
contrCount = FormIn.Controls.Count - 1
For i = 0 To contrCount
Set aControl = FormIn.Controls(i)
If TypeOf FormIn.Controls(i) Is TextBox Then aControl.Text = vbNullString
If TypeOf FormIn.Controls(i) Is CheckBox Then aControl.Value = vbUnchecked
Next 'i
End Sub
</code>


Svara

Sv: Textboxar

Postades av 2005-09-09 14:14:22 - Johan Svensson

Hej SvenPon,

Det är ju naturligtvis en intressant lösning att gå igenom alla kontroller på detta viset.

Jag har dock en viktig kommentar och det är att det inte är formulär_namnet_ som man skickar med utan forumlärets referens. Detta är superviktgit då man kodar objektorienterat så det är rätt objekt man rensar.

Fin lösning för övrigt. (Men kan göras snyggare med lite mer objektorientering och konstanter istället för fasta värden.)

// Johan


Svara

Sv:Textboxar

Postades av 2005-09-09 18:30:21 - Andreas Hillqvist

<code>
Option Explicit

Private Sub Command1_Click()
ClearBox Me
End Sub

Private Sub ClearBox(FormIn As Form)
Dim aControl As Control

For Each aControl In FormIn.Controls
If TypeOf aControl Is TextBox Then
aControl.Text = vbNullString
ElseIf TypeOf aControl Is CheckBox Then
aControl.Value = vbUnchecked
End If
Next 'aControl
End Sub
</code>


Svara

Sv: Textboxar

Postades av 2005-09-10 13:34:08 - Jan Andersson

Jag har hittat en kod som fungerar:


Dim ctl As Control
For Each ctl In Controls
If TypeOf ctl Is TextBox Then ctl.Text = ""
If TypeOf ctl Is CheckBox Then ctl.Value = 0
Next ctl

Detta tömmer alla TextBoxar och ChechBoxar

Tack för alla svar
Det är inte lätt att vara novis


Svara

Sv:Textboxar

Postades av 2005-09-10 16:59:22 - Sven Åke Persson

<b>Jag har hittat en kod som fungerar: </b> Var hittad du den ? ;-)

mmm...BRA Andreas. Du är finsnickaren,jag är grovsmed, slutkläm på detta prob BRA !
Mina svar är inte alltid 100 % genomtänkta och jag har inga problem med att ta åt mig.

Din lösning är optimal.Den åkte i Godislådan direkt.
Ha det
Sven


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
260
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