（解答）实现VC++6.0种的平面按钮
'VC++6.0中可以把按钮设置成平面的样式，但是VB中却没有。我们可以利用代码实现。
'加一个按钮Command1
Option Explicit
'API 以及常数的声明
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Sub Form_Load()
Dim lStyle As Long '存储按钮的样式
lStyle = GetWindowLong(Command1.hwnd, GWL_STYLE) '获得按钮原来的样式
lStyle = lStyle Or 1342275584 '加入平面按钮的样式，数字“1342275584”是取得的VC++6.0编写的程序中平面按钮的样式
SetWindowLong Command1.hwnd, GWL_STYLE, lStyle '把新样式赋予按钮
Command1.Refresh '按钮刷新，以保证看到效果。
End Sub
问题点数：0、回复次数：7Top
1 楼viena（维也纳N02）回复于 2005-02-02 11:36:04 得分 0
多谢楼主！Top
2 楼wzzwwz（皮皮鲁）回复于 2005-02-02 14:11:52 得分 0
倒，怎么我的两个这样帖子都是你顶的阿。多谢！Top
3 楼wzzwwz（皮皮鲁）回复于 2005-02-03 08:56:48 得分 0
帖子不热啊Top
4 楼libralibra（食食物者为俊杰: U don't try, U don't know）回复于 2005-02-03 10:11:58 得分 0
多谢多谢,很好使Top
5 楼zedk（）回复于 2005-02-03 10:50:25 得分 0
友情路过Top
6 楼joa（星辉）回复于 2005-02-03 13:41:23 得分 0
请问有没办法把combobox设成平面的?象form 2.0中的样子Top
7 楼wzzwwz（皮皮鲁）回复于 2005-02-03 14:29:30 得分 0
这个就不知道啦Top
