Results 1 to 1 of 1
  1. #1
    Join Date
    Apr 2006
    Posts
    1

    Unanswered: Show ur skill and help me

    i need help. this link is a pic of the main window . I hav made it so pressing the pipe selector key (1 of 9) make the bar above desplay what has been selected and alos now can click as many of the cmd u see displayed to the right of this, 4 spinners (1 colunm 4 each day[ 14 days in all]) when one is clicked it changes colour corisponding to the pipe selected. however i now need it to display the amount that hav been selected on the historgram below. Each size and colour matching to the colum on the graph. (the R: is a factor that has been delt with on a diff form) so just the S bars) and once that is done. I click make and the colours of each spinner moves left 1 space and given amount (amount added went added) is taken from the bar on the historgram.

    I have made each spinners row of cmd an array however im not sure if that is the right thing to do or just an array for each day???
    It's a long hard Q. I know but if u can hel pplz do asap.


    http://img192.imageshack.us/img192/2697/vbmain9ue.png


    here is the codin i hav on this from:

    Private Sub Cmdexit_Click()
    End
    End Sub

    Private Sub Cmdfl2_Click()
    Txtpipe.Text = "Current Pipe: Flanged 200mm"
    Txtpipe.BackColor = &HC0FFC0
    End Sub

    Private Sub Cmdfl4_Click()
    Txtpipe.Text = "Current Pipe: Flanged 400mm"
    Txtpipe.BackColor = &H80FF80
    End Sub

    Private Sub Cmdfl6_Click()
    Txtpipe.Text = "Current Pipe: Flanged 600mm"
    Txtpipe.BackColor = &HC000&
    End Sub

    Private Sub Cmdreq_Click()
    Frmspin.Hide
    Frmpipe.Show
    End Sub

    Private Sub Cmdsp1_Click(Index As Integer)
    If Txtpipe.BackColor = &H80000005 Then
    MsgBox "No Pipe Selected"
    Else
    If Cmdsp1(Index).BackColor <> &H8000000F Then
    MsgBox "Spinner already scheduled"
    Else
    Cmdsp1(Index).BackColor = Txtpipe.BackColor
    End If
    End If

    End Sub


    Private Sub Cmdsp2_Click(Index As Integer)
    If Txtpipe.BackColor = &H80000005 Then
    MsgBox "No Pipe Selected"
    Else
    If Cmdsp2(Index).BackColor <> &H8000000F Then
    MsgBox "Spinner already scheduled"
    Else
    Cmdsp2(Index).BackColor = Txtpipe.BackColor
    End If
    End If
    End Sub

    Private Sub Cmdsp3_Click(Index As Integer)
    If Txtpipe.BackColor = &H80000005 Then
    MsgBox "No Pipe Selected"
    Else
    If Cmdsp3(Index).BackColor <> &H8000000F Then
    MsgBox "Spinner already scheduled"
    Else
    Cmdsp3(Index).BackColor = Txtpipe.BackColor
    End If
    End If
    End Sub

    Private Sub Cmdsp4_Click(Index As Integer)
    If Txtpipe.BackColor = &H80000005 Then
    MsgBox "No Pipe Selected"
    Else
    If Cmdsp4(Index).BackColor <> &H8000000F Then
    MsgBox "Spinner already scheduled"
    Else
    Cmdsp4(Index).BackColor = Txtpipe.BackColor
    End If
    End If
    End Sub

    Private Sub Cmdstan2_Click()
    Txtpipe.Text = "Current Pipe: stanlock 200mm"
    Txtpipe.BackColor = &HFFC0C0
    End Sub

    Private Sub Cmdstan4_Click()
    Txtpipe.Text = "Current Pipe: stanlock 400mm"
    Txtpipe.BackColor = &H80000002
    End Sub

    Private Sub Cmdstan6_Click()
    Txtpipe.Text = "Current Pipe: stanlock 600mm"
    Txtpipe.BackColor = &H80000001
    End Sub


    Private Sub cmdty2_Click()
    Txtpipe.Text = "Current Pipe: Tyton 200mm"
    Txtpipe.BackColor = &H8080FF

    End Sub

    Private Sub Cmdty4_Click()
    Txtpipe.Text = "Current Pipe: Tyton 400mm"
    Txtpipe.BackColor = &HFF&
    End Sub

    Private Sub Cmdty6_Click()
    Txtpipe.Text = "Current Pipe: Tyton 600mm"
    Txtpipe.BackColor = &HC0&
    End Sub

    Private Sub Form_Load()

    Shpstan22.Width = Shpstan22.Width + stan2
    End Sub
    Last edited by sal69; 04-24-06 at 13:56.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •