DSAPI WIN7风格

在winform项目中,有时需要将ui变成适应vista/windows7/8/10的风格,通过"选用"以下代码来使你的ui支持系统主题渲染.

注:该功能不支持xp,建议使用ds控件库中的win7风格控件。

新建工程，添加相关控件，复制粘贴以下代码即可

public class form1
 
    private sub button1_click(sender as object, e as eventargs) handles button1.click
        dsapi.win7特性.任务栏特效.设置任务栏进度(me.handle, 50, 100)
        '*******缩略图按钮标识id至少应200以上,以避免系统冲突
        '------------------
        dim itm1 as new dsapi.win7特性.任务栏缩略图.缩略图控制按钮
        with itm1
            .标记 = dsapi.win7特性.任务栏缩略图.缩略图按钮状态.启用
            .标识id = 500
            .标志组合 = dsapi.win7特性.任务栏缩略图.缩略图按钮标志.提示 + dsapi.win7特性.任务栏缩略图.缩略图按钮标志.图标 + dsapi.win7特性.任务栏缩略图.缩略图按钮标志.标记
            .图标 = my.resources.d__32_.gethicon
            .提示 = "上一首"
        end with
        '------------------
        dim itm2 as new dsapi.win7特性.任务栏缩略图.缩略图控制按钮
        with itm2
            .标记 = dsapi.win7特性.任务栏缩略图.缩略图按钮状态.启用
            .标识id = 501
            .标志组合 = dsapi.win7特性.任务栏缩略图.缩略图按钮标志.提示 + dsapi.win7特性.任务栏缩略图.缩略图按钮标志.图标 + dsapi.win7特性.任务栏缩略图.缩略图按钮标志.标记
            .图标 = my.resources.d__41_.gethicon
            .提示 = "暂停"
        end with
        '------------------
        dim itm3 as new dsapi.win7特性.任务栏缩略图.缩略图控制按钮
        with itm3
            .标记 = dsapi.win7特性.任务栏缩略图.缩略图按钮状态.启用
            .标识id = 502
            .标志组合 = dsapi.win7特性.任务栏缩略图.缩略图按钮标志.提示 + dsapi.win7特性.任务栏缩略图.缩略图按钮标志.图标 + dsapi.win7特性.任务栏缩略图.缩略图按钮标志.标记
            .图标 = my.resources.d__31_.gethicon
            .提示 = "播放"
        end with
        '------------------
        dim itm4 as new dsapi.win7特性.任务栏缩略图.缩略图控制按钮
        with itm4
            .标记 = dsapi.win7特性.任务栏缩略图.缩略图按钮状态.启用
            .标识id = 503
            .标志组合 = dsapi.win7特性.任务栏缩略图.缩略图按钮标志.提示 + dsapi.win7特性.任务栏缩略图.缩略图按钮标志.图标 + dsapi.win7特性.任务栏缩略图.缩略图按钮标志.标记
            .图标 = me.icon.tobitmap.gethicon
            .提示 = "帮助"
        end with
        dsapi.win7特性.任务栏特效.添加缩略图控制按钮(me.handle, new dsapi.win7特性.任务栏缩略图.缩略图控制按钮() {itm1, itm2, itm3, itm4})
        addhandler dsapi.win7特性.任务栏特效.缩略图按钮被点击, addressof itmclick
    end sub
 
    private sub form1_load(sender as object, e as eventargs) handles mybase.load
        dsapi.win7特性.任务栏特效.初始化(me)
        dsapi.控件相关.form窗体.窗体支持鼠标拖动(me, true)
        me.forecolor = color.fromargb(255, 2, 2, 2)
        for each s as string in [enum].getnames(listview1.view.gettype)
            combobox1.items.add(s)
        next
        combobox1.selectedindex = 0
        for each s as string in [enum].getnames(gettype(dsapi.win7特性.任务栏缩略图.任务栏进度条状态))
            combobox2.items.add(s)
        next
        combobox2.selectedindex = 0
    end sub
    sub itmclick(id as integer)
        select case id
            case 500
                msgbox("点击了上一首")
            case 501
                msgbox("点击了暂停")
            case 502
                msgbox("点击了播放")
            case 503
                msgbox("点击了帮助")
        end select
    end sub
 
    private sub form1_shown(sender as object, e as eventargs) handles me.shown
        treeview1.expandall()
    end sub
 
    private sub combobox1_selectedindexchanged(sender as object, e as eventargs) handles combobox1.selectedindexchanged
        listview1.view = combobox1.selectedindex
    end sub
 
    private sub linklabel1_linkclicked(sender as object, e as linklabellinkclickedeventargs) handles linklabel1.linkclicked
        try
            process.start("systempropertiesadvanced.exe")
        catch 
        end try
    end sub
 
    private sub button2_click(sender as object, e as eventargs) handles button2.click
        if form2.visible = true then exit sub
        form2.show()
        dsapi.win7特性.在指定窗体指定区域显示源窗体缩略图(form2.handle, new rectangle(0, 0, me.width, me.height), me.handle, false, 255)
    end sub
 
    private sub trackbar1_scroll(sender as object, e as eventargs) handles trackbar1.scroll
    end sub
 
    private sub button3_click(sender as object, e as eventargs) handles button3.click
        dsapi.win7特性.设置窗体为磨砂透明效果(me)
    end sub
 
    private sub button4_click(sender as object, e as eventargs) handles button4.click
        dsapi.win7特性.使控件应用win7资源管理器风格(me)
    end sub
 
    private sub trackbar1_valuechanged(sender as object, e as eventargs) handles trackbar1.valuechanged
        dsapi.win7特性.任务栏特效.设置任务栏进度(me.handle, trackbar1.value, trackbar1.maximum)
 
    end sub
 
    private sub combobox2_selectedindexchanged(sender as object, e as eventargs) handles combobox2.selectedindexchanged
        dsapi.win7特性.任务栏特效.设置任务栏进度条状态(me.handle, getv(combobox2.selecteditem.tostring))
    end sub
    private function getv(s as string) as integer
        dim ints() as integer = [enum].getvalues(gettype(dsapi.win7特性.任务栏缩略图.任务栏进度条状态))
        for each t as integer in ints
            if [enum].getname(gettype(dsapi.win7特性.任务栏缩略图.任务栏进度条状态), t) = s then
                return t
            end if
        next
        return 0
    end function
end class