用VB6建立带光栅的超级开始菜单

　　原理

　　由于windows自身并未提供这项接口函数，因此我们必须从分析菜单的实质入手，我认为任何菜单实质上是一个没有标题栏的窗体，菜单项目是某些控件（如标签控件），通过监测鼠标是否移动到控件上而相应的改变控件的背景色和填充色，从而达到相应的目的，当然另外一项关键是如何制造出那一个倒立着的写着“windows98”字样的标题，这需要我们调用复杂的系统函数来实现。

　　实践

　　（1）运行vb6，建立一个标准exe工程，添加命名为form1的窗体，放上一个command控件“command1”，caption=“开始”，调整到适当的位置,双击窗体，写入以下代码：

　　Private Sub Command1_Click()
　frmTest.Show ‘当开始按钮被点击时激活超级菜单
End Sub
Private Sub Form_Load()
　Me.left = (Screen.Width － Me.Width) / 2
　Me.tOp = (Screen.Height － Me.Height) / 2 ‘窗体位置居中
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　If frmTest.Visible = True Then
　　Unload frmTest
　End If ‘当鼠标离开菜单时卸载菜单
End Sub
Private Sub Form_Unload(Cancel As Integer)
　End ‘结束程序
End Sub

　　（2） 添加命名为frmtest的窗体，添加一个picturebox控件，命名为piclogo，采用默认值就行了，添加控件数组label1（1－－6）（读者可以根据自己的需要添加）,caption=“菜单项目”，添加一个image控件，将它的图片设计为自己喜欢的图片，移动窗体和图片到适当位置，双击窗体，写入以下代码：