SchemeStyle属性 | 效果风格及说明 |
0 | Windows XP Blue Scheme Button Style |
1 | Windows XP Olive Green Scheme Button Style |
2 | Windows XP Silver Scheme Button Style |
3 | Windows Flat Scheme Button Style |
4 | Windows Hover Scheme Button Style |
5 | Netscape Scheme Button Style |
6 | Java Scheme Button Style |
7 | Windows OLD 3.x Scheme Button Style |
8 | Office XP Blue Scheme Button Style |
9 | Office XP OliveGreen Scheme Button Style |
10 | Office XP Silver Scheme Button Style |
11 | Office XP SystemColor Scheme Button Style |
12 | WindowsXP InternetExplorer Scheme Button Style |
13 | Gradient Scheme Button Style (渐变色背景风格) |
14 | Alien Scheme Button Style (具有金属质感的按钮) |
15 | Bitmap Pattern Scheme Button Style (实现按钮的背景,独立于按钮本身的Picture) |
Private Sub Form_Load() BSE1.SchemeStyle = 0 BSE1.EndSubClassing BSE1.InitSubClassing End Sub |
Private Sub Option1_Click(Index As Integer) BSE1.SchemeStyle = Index BSE1.EndSubClassing BSE1.InitSubClassing End Sub |
If BSE1.EngineStarted Then BSE1.EndSubClassing '卸载BSE控件 End If Unload Me |