【学生信息管理系统】优化篇（五）

1、在VB中如何实现MDI窗体的背景图随窗口的大小而变化
在MDI主窗体内添加一个picturebox控件，然后在这个picturebox中添加一个image控件。
Picture1的属性：
1.Align=top
2.Appearance=flat
3.BordeStyle=None
4.TabStop=false

Image1的属性：
1.Stretch=true

在MDI窗体的resize事件中添加如下代码：
Private Sub MDIForm_Resize()
    Me.Picture1.Height = Me.Height
End Sub

在Picture1控件的resize事件中添加如下代码：
Private Sub Picture1_Resize()
    Me.Image1.Move 0, 0, Me.Picture1.Width, Me.Picture1.Height
End Sub
完成上述步骤之后不要忘记在Picture box和image里添加照片,，记得是都填呦~

2、VB 子窗体被PictureBox控件挡住无法显示
问题：在程序中，子窗体位于MDI窗体中，而Picturebox和MDI属于同一级别，所以子窗体被Picturebox覆盖
解决方法：
函数——SetParent函数
Private Declare FunctionSetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParentAs Long) As Long
函数功能：该函数改变某个子窗口的父窗口。
参数：
hWndChild:子窗口句柄
hWndNewParent:新的父窗口句柄
如果该参数是NULL，则桌面窗口就成为新的父窗口。
返回值：如果函数成功，返回值为子窗口的原父窗口句柄；如果函数失败，返回值为NULL。
代码如下：
Private Sub about_Click()
    SetParent frmAbout.hWnd, fMainForm.hWnd
    frmAbout.Show
End Sub
注意：每个子窗体都要修改

3、VB 调整MSHFlexGrid各列列宽和字体大小
——解决方法
右键属性——字体

4、在数据库中修改数据类型时，本来只想把电话号码的位数10改成11，没想到遇到了下列问题
![这里写图片描述](https://img-blog.csdn.net/20180617101452590?watermark/2/text/aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VsbGVuNTIwMw==/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70)
问题不大，很容易解决，解决方法如下
![这里写图片描述](https://img-blog.csdn.net/20180617101510374?watermark/2/text/aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VsbGVuNTIwMw==/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70)
![这里写图片描述](https://img-blog.csdn.net/20180617101518253?watermark/2/text/aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VsbGVuNTIwMw==/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70)

5、添加完所有文本框全部清空
如何一次性清空一个窗体上的所有文本框？
解决方法： 
Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox Then   '是否为文本框TextBox
            ctrl.Text = ""
        End If
    Next