VB Help
2013-06-26, 06:27 PM,
#1
Hello guys.Like the title says.

I need to create listbox like this + progressbar:
[Image: lgt6b3u.png]

I just need code.

Can somebody help me with this.Thank you.
Latest Thanks - View all

3migilan(2013-10-26 01:17 AM) 
Reply
2013-06-26, 06:48 PM, (This post was last modified: 2013-06-26, 07:52 PM by PeaceBreaker3.)
#2
(2013-06-26, 06:27 PM)chavla Wrote: Hello guys.Like the title says.

I need to create listbox like this + progressbar:
[img]/img43/69/lgt6b3u.png[/img]

I just need code.

Can somebody help me with this.Thank you.

All you need for this is:
- Button
- ListBox
- Timer
- Progressbar
- TextBox

Here is the finished .exe: http://www.sendspace.com/file/5shlq6
Virusscan: https://www.virustotal.com/en/file/6097c...372249061/

Codes:
'Button1'

Timer1.Start()

'Timer1'

ProgressBar1.Value += 2 'you can set the speed by editing this value
ListBox1.SelectedIndex = ListBox1.Items.Count - 1 'this makes it so always the newest listbox item is selected(in order to make it scroll)

If ProgressBar1.Value = 10 Then
ListBox1.Items.Add("Insert your Text Here #1") 'edit any of the text here, you are also able to change the value in order to change the time the items are added
End If

If ProgressBar1.Value = 20 Then
ListBox1.Items.Add("Insert your Text Here #2")
End If
If ProgressBar1.Value = 30 Then
ListBox1.Items.Add("Insert your Text Here #3")
End If
If ProgressBar1.Value = 40 Then
ListBox1.Items.Add("Insert your Text Here #4")
End If
If ProgressBar1.Value = 50 Then
ListBox1.Items.Add("Insert your Text Here #5")
End If
If ProgressBar1.Value = 60 Then
ListBox1.Items.Add("Insert your Text Here #6")
End If
If ProgressBar1.Value = 70 Then
ListBox1.Items.Add("Insert your Text Here #7")
End If
If ProgressBar1.Value = 80 Then
ListBox1.Items.Add("Insert your Text Here #8")
End If
If ProgressBar1.Value = 90 Then
ListBox1.Items.Add("Insert your Text Here #9")
End If

If ProgressBar1.Value = 100 Then
Timer1.Stop()
MessageBox.Show("Done!", "Done!") 'opens messagebox after progressbar is done
TextBox1.Text = "1234-1324-1324-1234" 'shows your code after the progressbar is done
End If


I didn't use the [code] tags because I wanted to prevent you from using the red text in your code, lol.
You can edit the color of the text inside the listbox and stuff by clicking on it then going to properties on the right side of VB. :)

Cheers,
PB3
Latest Thanks - View all

Eye(2014-03-19 04:57 AM) rajuonline(2013-10-30 01:44 AM) 3migilan(2013-10-26 01:14 AM) f0rest(2013-08-29 05:25 AM) TarmiRicmi(2013-08-22 06:57 PM) mKHAz(2013-08-18 02:19 PM) Haye(2013-07-27 01:32 AM) vekiblack(2013-06-26 07:28 PM) Dejan(2013-06-26 07:07 PM) 

Nobody exists on purpose, nobody belongs anywhere, everybody's going to die. Come watch TV? | Skype: peacebreaker3 |
Reply
2013-06-26, 07:07 PM,
#3
I don't know how to thank you enough. Thank you.
Reply
2013-06-26, 07:33 PM,
#4
Maybe you can read the e-book from dutchpride?
Reply
2013-06-26, 07:53 PM,
#5
(2013-06-26, 07:07 PM)chavla Wrote: I don't know how to thank you enough. Thank you.

No Problem. :)
I love experimenting with new stuff on visual basic! :D

Cheers,
PB3

Nobody exists on purpose, nobody belongs anywhere, everybody's going to die. Come watch TV? | Skype: peacebreaker3 |
Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  Aeonsofts VB.NET Theme Manager v2.1 lanzye 32 10,337 2017-10-28, 04:51 PM
Last Post: waiphyoe
  VB NET FORM APPLICATION QwertySon 12 1,839 2016-04-27, 08:00 PM
Last Post: Harrington
  Best available vb.net theme? SteelHard 1 1,185 2015-01-30, 01:55 AM
Last Post: Yaznas
  PLEASE TELL ME WHICH VB NET THEME THIS IS ? androtweaks 3 481 2015-01-27, 10:16 PM
Last Post: Riven
  *Double Your Earnings by Using VB* [Begginers] FK_ 87 12,009 2015-01-23, 08:16 AM
Last Post: xchanmolx





About Us | Contact Us | CPA Elites | Advertise | Stats | Staff Team

© 2013-2017 CPA Elites Ltd
Enhanced by MyBB and WallBB
Return to top