①编写Form1的Load事件,使程序启动时commandbutton显示为您说设置的风格,这里采用第一种风格,即Windows
XP Blue风格。代码如下:
Private Sub Form_Load() BSE1.SchemeStyle =
0 BSE1.EndSubClassing BSE1.InitSubClassing End Sub
②添加option控件数组的事件,使可以根据选择option来转换commandbutton的不同风格。
Private Sub Option1_Click(Index As Integer) BSE1.SchemeStyle =
Index BSE1.EndSubClassing BSE1.InitSubClassing End
Sub ③编写退出程序的代码,再Command4的Click事件中加入如下代码:
If BSE1.EngineStarted Then BSE1.EndSubClassing
'卸载BSE控件 End If Unload Me
到这里,这个简单的演示程序就完成了,是不是很简单呢?只要短短的几行代码就可以实现如此酷的按钮。快按下F5,看看效果吧(如图3)。