deery5000's Profile User Rating: -----

Reputation: 76 Whiz
Group:
Active Members
Active Posts:
937 (0.52 per day)
Joined:
09-May 09
Profile Views:
8,768
Last Active:
User is offline Apr 22 2014 07:59 AM
Currently:
Offline

Previous Fields

Country:
IE
OS Preference:
Windows
Favorite Browser:
Internet Explorer
Favorite Processor:
Intel
Favorite Gaming Platform:
Playstation
Your Car:
LandRover
Dream Kudos:
0

Latest Visitors

Icon   deery5000 Hobbyist Coder :)

Posts I've Made

  1. In Topic: The sum of two group boxes

    Posted 22 Apr 2014

    View Postandrewsw, on 22 April 2014 - 04:59 AM, said:

    Just to note that we can loop through only controls of a certain type:
        For Each rad As RadioButton In GroupBox1.Controls.OfType(Of RadioButton)()
            'do something, no cast required
        Next
    


    didn't realise it could be done like this, learned something new :)
  2. In Topic: The sum of two group boxes

    Posted 22 Apr 2014

    no this wont work for all controls

    this casts the controls to be of type radio button so I can access the .checked property
    Dim currentControl = DirectCast(cntrl, RadioButton)
    
    


    im sure you can alter this to work for multiple control types
  3. In Topic: IMGsum.com - Collects image links from webpage and displays them with

    Posted 21 Apr 2014

    works it you do this

    http://www.themoviedb.org
  4. In Topic: The sum of two group boxes

    Posted 21 Apr 2014

    Do you mean something like this ;)

            'KEEP VALUES
            Dim total As Integer = 0
    
            'GROUPBOX 1
            For Each cntrl As Control In GroupBox1.Controls
    
                'CAST THE CONTROL TO TYPE RADIO BUTTON TO ACCESS 'CHECKED'
                Dim currentControl = DirectCast(cntrl, RadioButton)
    
                'ADD 1 IF CHECKED
                If currentControl.Checked Then
                    total = total + 1
                End If
    
            Next
    
            'GROUPBOX 2
            For Each cntrl As Control In GroupBox2.Controls
    
                'CAST THE CONTROL TO TYPE RADIO BUTTON TO ACCESS 'CHECKED'
                Dim currentControl = DirectCast(cntrl, RadioButton)
    
                'ADD 1 IF CHECKED
                If currentControl.Checked Then
                    total = total + 1
                End If
    
            Next
    
            'DISPLAY OUTPUT
            MessageBox.Show("Total Checked: " & total, "Total Checked", MessageBoxButtons.OK)
    
    


    im sure you could expand on this.

    hope it helps :)
  5. In Topic: Having problems writing my own Folder Browser

    Posted 20 Apr 2014

    Im sure you could expand on this

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
            Dim di As System.IO.DriveInfo()
            Dim x As System.IO.DriveInfo
    
            di = System.IO.DriveInfo.GetDrives
    
            For Each x In di
                If x.IsReady Then
    
                    'adding root folder
                    TreeView1.Nodes.Add(x.Name, x.Name)
    
                    'adding sub directories
                    Try
                        Dim dirs = Directory.GetDirectories(x.Name)
    
                        Dim i As Integer = 0
                        While i < dirs.Count - 1
                            TreeView1.Nodes(x.Name).Nodes.Add(dirs(i))
                            TreeView1.Nodes(x.Name).ToolTipText = "Double click drive letter to see folders"
                            i = i + 1
                        End While
    
                    Catch ex As Exception
    
                    End Try
    
                End If
            Next
        End Sub
    
        Private Sub TreeView1_DoubleClick(sender As Object, e As EventArgs) Handles TreeView1.DoubleClick
    
    
                  TreeView1.SelectedNode.Expand()
    
        End Sub
    
    


    I have a try catch in there as I have an E:\ that is a system partition and it cannot add the files

My Information

Member Title:
D.I.C Addict
Age:
29 years old
Birthday:
December 28, 1984
Gender:
Location:
Derry / Londonderry
Interests:
Play in the North West Snooker league each year
Programme everyday for fun
PC Repair
Full Name:
Kevin Deery
Years Programming:
6
Programming Languages:
C++, Java, C#, Vb.Net , SQL,

Contact Information

E-mail:
Click here to e-mail me
MSN:
MSN  deery_5000@hotmail.co.uk
Website URL:
Website URL  http://
LinkedIn:
http://www.linkedin.com/profile/view?id=222123994&trk=nav_responsive_tab_profile
Facebook:
https://www.facebook.com/kevin.deery.9

Friends

Comments

deery5000 has no profile comments yet. Why not say hello?