26. februar 2002 - 21:31
Der er
5 kommentarer og 1 løsning
ProgressBar Haster!!!!
Jeg kunne godt tænke mig at få at vide hvordan man for en progressbar til at virke (Lige glad om det er microsofts eller nogen andre) Min kode: Text1.Text = replace(Text1.Text, "noget", "noget andet") ' her vil jeg have den til at starte og så kode dem alle!! Text1.Text = replace(Text1.Text, "noget", "noget andet") Text1.Text = replace(Text1.Text, "noget", "noget andet") Text1.Text = replace(Text1.Text, "noget", "noget andet") Text1.Text = replace(Text1.Text, "noget", "noget andet") Text1.Text = replace(Text1.Text, "noget", "noget andet") Text1.Text = replace(Text1.Text, "noget", "noget andet") open "en fil.txt" for output as #1 print #1, Text1.Text close #1 ' Her skal progressbar så slutte!! Håber i vil hjælpe!! <!Subware>
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
27. februar 2002 - 06:31
#1
Private Sub Form_Load() ProgressBar1.Max = 6 ProgressBar1.Min = 0 Text1.Text = replace(Text1.Text, "noget", "noget andet") ProgressBar1.Value = 1 Text1.Text = replace(Text1.Text, "noget", "noget andet") ProgressBar1.Value = 2 Text1.Text = replace(Text1.Text, "noget", "noget andet") ProgressBar1.Value = 3 Text1.Text = replace(Text1.Text, "noget", "noget andet") ProgressBar1.Value = 4 Text1.Text = replace(Text1.Text, "noget", "noget andet") ProgressBar1.Value = 5 Text1.Text = replace(Text1.Text, "noget", "noget andet") ProgressBar1.Value = 6 End Sub
27. februar 2002 - 06:44
#2
argh der var du hurtig =P
27. februar 2002 - 10:48
#3
Tak! sjh Jeg prøver lige om det virker
27. februar 2002 - 19:11
#4
Hmm hvordan sætter man en progressbar ind ? Jeg kan sgu ik finde nogen nogen steder :(
27. februar 2002 - 19:22
#5
Du skal bruge "Microsoft Windows Common Controls" 6.0 eller 5.0
16. marts 2002 - 11:04
#6
Jeg lukker!! sjh den virker ikke
Kurser inden for grundlæggende programmering