[Help]How to shorten code into sectoins

I want to shorten my code in to region like segments, but the #Region method doesn't work. Is there any other way to do that. My code has a lot of select case structures, and I want to make each one into a region. Here's an example:

Code:

' Primary Weapons
        Select Case primary

            ' Assault Rifles
            Case 1 And level >= 4
                primaryBox.Image = My.Resources.m4a1_prev
            Case 2 And level >= 4
                primaryBox.Image = My.Resources.famas_prev
            Case 3 And level >= 8
                primaryBox.Image = My.Resources.scar_h_prev
            Case 4 And level >= 20
                primaryBox.Image = My.Resources.tar_21_prev
            Case 5 And level >= 28
                primaryBox.Image = My.Resources.fal_prev
            Case 6 And level >= 40
                primaryBox.Image = My.Resources.m16a4_prev
            Case 7 And level >= 48
                primaryBox.Image = My.Resources.acr_prev
            Case 8 And level >= 60
                primaryBox.Image = My.Resources.f2000_prev
            Case 9 And level >= 70
                primaryBox.Image = My.Resources.ak_47_prev

                ' Sniper Rifles
            Case 10 And level >= 4
                primaryBox.Image = My.Resources.intervention_prev
            Case 11 And level >= 4
                primaryBox.Image = My.Resources.barrett_50cal_prev
            Case 12 And level >= 36
                primaryBox.Image = My.Resources.wa2000_prev
            Case 13 And level >= 56
                primaryBox.Image = My.Resources.m21_ebr_prev

                ' LMG
            Case 14 And level >= 4
                primaryBox.Image = My.Resources.l86_lsw_prev
            Case 15 And level >= 4
                primaryBox.Image = My.Resources.rpd_prev
            Case 16 And level >= 16
                primaryBox.Image = My.Resources.mg4_prev
            Case 17 And level >= 32
                primaryBox.Image = My.Resources.aug_hbar_prev
            Case 18 And level >= 52
                primaryBox.Image = My.Resources.m240_prev

                ' SMG
            Case 19 And level >= 4
                primaryBox.Image = My.Resources.mp5k_prev
            Case 20 And level >= 4
                primaryBox.Image = My.Resources.ump45_prev
            Case 21 And level >= 12
                primaryBox.Image = My.Resources.vector_prev
            Case 22 And level >= 24
                primaryBox.Image = My.Resources.p90_prev
            Case 23 And level >= 44
                primaryBox.Image = My.Resources.mini_uzi_prev
        End Select

There's about 4 more of things like that.

im pretty sure u cant!! you'd have to look on google or ask Nextgen1

[php]
#Region "AssualtRifle"

Private Sub Assualt()
Select primary

Case 1 And level >= 4
primaryBox.Image = My.Resources.m4a1_prev
Case 2 And level >= 4
primaryBox.Image = My.Resources.famas_prev
Case 3 And level >= 8
primaryBox.Image = My.Resources.scar_h_prev
Case 4 And level >= 20
primaryBox.Image = My.Resources.tar_21_prev
Case 5 And level >= 28
primaryBox.Image = My.Resources.fal_prev
Case 6 And level >= 40
primaryBox.Image = My.Resources.m16a4_prev
Case 7 And level >= 48
primaryBox.Image = My.Resources.acr_prev
Case 8 And level >= 60
primaryBox.Image = My.Resources.f2000_prev
Case 9 And level >= 70
primaryBox.Image = My.Resources.ak_47_prev
End Sub
#End Region

#Region "Super Rifles"
Private Sub SMG()
Case 10 And level >= 4
primaryBox.Image = My.Resources.intervention_prev
Case 11 And level >= 4
primaryBox.Image = My.Resources.barrett_50cal_prev
Case 12 And level >= 36
primaryBox.Image = My.Resources.wa2000_prev
Case 13 And level >= 56
primaryBox.Image = My.Resources.m21_ebr_prev
End Sub
Private Sub LMG ()
Case 14 And level >= 4
primaryBox.Image = My.Resources.l86_lsw_prev
Case 15 And level >= 4
primaryBox.Image = My.Resources.rpd_prev
Case 16 And level >= 16
primaryBox.Image = My.Resources.mg4_prev
Case 17 And level >= 32
primaryBox.Image = My.Resources.aug_hbar_prev
Case 18 And level >= 52
primaryBox.Image = My.Resources.m240_prev
End Sub
Private Sub SMG()
Case 19 And level >= 4
primaryBox.Image = My.Resources.mp5k_prev
Case 20 And level >= 4
primaryBox.Image = My.Resources.ump45_prev
Case 21 And level >= 12
primaryBox.Image = My.Resources.vector_prev
Case 22 And level >= 24
primaryBox.Image = My.Resources.p90_prev
Case 23 And level >= 44
primaryBox.Image = My.Resources.mini_uzi_prev
End Select
End Sub

#End Region

[/php]

If that's what you mean, :Goes back and reads post:

It won't let me do that because I'm trying to do it inside the button click procedure.

If that is the case, not gonna happen.

Sorry but region (no similar) won't work inside code "blocks"

So I'm stuck with scrolling then.

[Help]How to shorten code into sectoins

Similar Threads

Tags for this Thread