16,554
社区成员
发帖
与我相关
我的任务
分享
'交换
If panelOne.Parent Is SplitContainer1.Panel1 Then
SplitContainer1.Panel1.Controls.Add(panelThree)
SplitContainer3.Panel1.Controls.Add(panelOne)
Else
SplitContainer1.Panel1.Controls.Add(panelOne)
SplitContainer3.Panel1.Controls.Add(panelThree)
End If
'交换
If panelOne.Parent Is SplitContainer1.Panel1 Then
panelOne.Parent = SplitContainer3.Panel1
panelThree.Parent = SplitContainer1.Panel1
Else
panelOne.Parent = SplitContainer1.Panel1
panelThree.Parent = SplitContainer3.Panel1
End If
For i As Integer = CInt(SplitContainer1.SplitterDistance.ToString) To 370 Step -10
SplitContainer1.SplitterDistance = i
SplitContainer1.Width -= 10
'运动中的控件强制重绘
SplitContainer1.Refresh()
MonthCalendar1.Refresh()
Next
SplitContainer1.Width += 10
'隐藏图片
PictureBox1.Visible = False
'MonthCalendar1.Visible = True
'此步骤最后效果类似于DateTimePicker
End Sub