要求实现如上图的效果。主要的要求是上下滚动条滚动时,01、02、03跟着一起向上或向下滚动,而7点8点9点不跟着一起滚动。然后,左右滚动条滚动时,7点8点9点跟着左右滚动,但是01、02、03不跟着滚动。还有,这些框框的颜色可以任意分别设定,比方一个蓝色,一个红色,等等。最后,希望高手大侠们不要给出那些不着边际的指点,而是给出详细的实现代码!谢谢!!!

解决方案 »

  1.   

    那些框框,我想用lable来实现,但是下面这个要求:主要的要求是上下滚动条滚动时,01、02、03跟着一起向上或向下滚动,而7点8点9点不跟着一起滚动。然后,左右滚动条滚动时,7点8点9点跟着左右滚动,但是01、02、03不跟着滚动。这个要求该怎么实现?请给个思路之类的,最好是帮助我实现代码,谢谢!
      

  2.   

     ''' <summary>
        ''' 任务
        ''' </summary>
        ''' <res></res>
        Private Structure Task
            ''' <summary>
            ''' 任务名称
            ''' </summary>
            ''' <res></res>
            Public TaskName As String
            ''' <summary>
            ''' 任务开始时间
            ''' </summary>
            ''' <res></res>
            Public TaskStartTime As Double
            ''' <summary>
            ''' 任务结束所需时间
            ''' </summary>
            ''' <res></res>
            Public TaskUsedTime As Double
            ''' <summary>
            ''' 任务开始日期
            ''' </summary>
            ''' <res></res>
            Public TaskOfDay As Integer
            ''' <summary>
            ''' 是否下午进行
            ''' </summary>
            ''' <res></res>
            Public IsPMclock As Boolean
        End Structure
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.BackColor = Color.White
            For I As Integer = 2 To 13
                Dim T As New Task
                With T
                    .TaskName = "任务名称" & I
                    .TaskOfDay = I \ 2
                    .TaskStartTime = Int(Rnd() * 4)
                    .TaskUsedTime = Int(Rnd() * 2) + 1
                    .IsPMclock = I Mod 2
                End With
                TaskList.Add(T)
            Next
    '绘制合成(滚动的X序号,滚动的Y序号)
            DrawLayers(0, 0)
        End Sub
    暂时先弄成这样了,晚上把滚动做好。