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