|
bsp; Protected Overrides Sub OnFontChanged(ByVal e As System.EventArgs) ''''让基控件更新文本框 MyBase.OnFontChanged(e) ''''重绘控件 RedrawControls() End Sub ''''重绘控件 Private Sub RedrawControls() ''''控件宽度 Dim width As Integer = Me.ClientRectangle.Width ''''获得工作区宽 ''''以按钮的高度来确定控件高度 Dim btnSide As Integer = Button1.Height Dim btnwidth As Integer = Button1.Width If Me.ClientRectangle.Height <> btnSide Then ''''设置控件工作区的大小 ''''Me.SetClientSizeCore(btnwidth, btnSide) Me.SetClientSizeCore(width, btnSide) ''''这里使用工作区的宽是因为：按钮和picturebox可以调整宽度 ''''上面的语句激发了嵌套的Resize事件，因此需要立即退出，如果不退出,就会反复调用进入死循环 Exit Sub End If ''''调整子控件的大小 ''''Txt.SetBounds(0, 0, width, btnSide) ''''Btn.SetBounds(width - 19, 2, 17, btnSide - 4) Me.PictureBox1.SetBounds(0, 0, width, btnSide) Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage Me.Button1.SetBounds(0, 0, width, btnSide) End Sub End Class
上一页 [1] [2] [3]
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
