我有一个表单上的3个PictureBoxes是平铺在彼此的顶部。表单的最小值为(502,416),最大值为(502,1080)。
因为用户可以从MenuStrip中进行选择以一次显示“1”、“2”或“3”PictureBoxes,“3”是底部,而“1”是顶部PictureBox。我需要的是当用户拖下表单,它捕捉到下一个PictureBoxes位置,所以它在块中下降这是我到目前为止,这是相当远的工作。
If Me.Height <= (1079) Then
Me.Height = (732)
ElseIf Me.Height <= (732) Then
Me.Height = (424)
ElseIf
...
End If
我还想,如果我知道如何创建这样的变量,我也许能弄清楚
If Me.Height <= (1079 to 733) Then
Me.Height = (732)
我知道这不是正确的语法,但这是一种想法
如果您能从我不太好的描述中理解,并为我指出正确的方向/代码示例,我将不胜感激:)
谢谢你的帮助
发布于 2012-06-12 18:37:44
您可以尝试使用Select语句:
Select Case Me.Height
Case 425 To 732
Me.Height = 424
Case 733 To 1079
Me.Height = 732
End Select
来回答你进一步的问题。如果您要使用Form Resize事件,您拥有的任何动画都将变得有趣,因为当您更改窗体高度时,它将重新触发该事件。就我个人而言,如果我是你,我会留在你最初的想法,捕捉到下一个高度,如果你想要动画的形式高度,我会认真研究WPF。但这是我要展示的SubRoutine,我使用了三个按钮来初始化大小调整。小心,如果你把它放在你的窗体调整事件,如果你不阻止事件重新运行子例程,它会冻结你的计算机。
Public Class Form1
Private Sub Form1_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
Me.Text = Me.Height
End Sub
Public Sub ChangeFormHeight(fromHeight As Integer, toHeight As Integer)
If fromHeight > toHeight Then
For newHeight As Integer = fromHeight To toHeight Step -1
Me.Height = newHeight
Next
Else
For newHeight As Integer = fromHeight To toHeight
Me.Height = newHeight
Next
End If
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
ChangeFormHeight(Me.Height, 424)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
ChangeFormHeight(Me.Height, 733)
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
ChangeFormHeight(Me.Height, 1080)
End Sub
End Class
https://stackoverflow.com/questions/10994157
复制相似问题