Need some Visual Basic Homework Help

If you can help me with these two simple assignments I can hook you up with a $15 amazon gift card or paypal 15bucks to you! Email me if you can do some simple work. Like array's n stuff. The two zip files can be downloaded at http://briefcase.yahoo.com/haikaz101
If you can do both of these in the next few hours email me with the assignments complete and I will send you $15. If you are good with visual basic it will take you about 10 mins.

Comments

  • [b][red]This message was edited by DrMarten at 2006-12-29 8:40:34[/red][/b][hr]

    : If you can help me with these two simple assignments I can hook you up with a $15 amazon gift card or paypal 15bucks to you! Email me if you can do some simple work. Like array's n stuff. The two zip files can be downloaded at http://briefcase.yahoo.com/haikaz101
    : If you can do both of these in the next few hours email me with the assignments complete and I will send you $15. If you are good with visual basic it will take you about 10 mins.

    _______________________________________________________________________

    Hi,

    This should have been in the VB.Net forum area.
    Add 3 more buttons and rename them and set the Visible property
    of btnPushMe4 to FALSE in the design view.

    9 is the index of the number in the control name counting from zero.

    b=0
    t=1
    n=2 etc

    Then put the rest of this in.>>

    [code]
    'Event handler for Click event on Push Me button
    Private Sub btnPushMe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles btnPushMe0.Click, btnPushMe1.Click, btnPushMe2.Click, btnPushMe3.Click, _
    btnPushMe4.Click

    Dim Name As String = CType(sender, Button).Name
    Dim Subscript As Integer = CInt(Name.Substring(9))
    If Subscript = 0 Then
    btnPushMe0.Hide()
    btnPushMe1.Show()
    btnPushMe2.Show()
    btnPushMe3.Show()
    btnPushMe4.Show()
    ElseIf Subscript = 1 Then
    btnPushMe1.Hide()
    btnPushMe0.Show()
    btnPushMe2.Show()
    btnPushMe3.Show()
    btnPushMe4.Show()
    ElseIf Subscript = 2 Then
    btnPushMe2.Hide()
    btnPushMe0.Show()
    btnPushMe1.Show()
    btnPushMe3.Show()
    btnPushMe4.Show()
    ElseIf Subscript = 3 Then
    btnPushMe3.Hide()
    btnPushMe0.Show()
    btnPushMe1.Show()
    btnPushMe2.Show()
    btnPushMe4.Show()
    ElseIf Subscript = 4 Then
    btnPushMe4.Hide()
    btnPushMe0.Show()
    btnPushMe1.Show()
    btnPushMe2.Show()
    btnPushMe3.Show()
    End If
    End Sub
    [/code]

    Regards,

    Dr M.

    P.S. You could make this neater with a SELECT CASE statement and one or two added Subs.

    Sorry i'm a bit stuck with the rest!! :-(
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

In this Discussion