本示例演示ds开放式下拉列表控件中加入一个rdp远程桌面控件。

先在vs工具箱中添加com控件microsoft rdp client control,后面的version版本可以适当高点。

然后将rdp控件拖到窗体中,再拖出一个ds开放式下拉列表控件。

 

编写代码:

private sub form1_load(sender as object, e as eventargs) handles mybase.load
        ds开放式下拉列表3.内置控件 = rdp
        ds开放式下拉列表3.dropdownwidth = 650
        ds开放式下拉列表3.dropdownheight = 520
    end sub

    private sub form1_shown(sender as object, e as eventargs) handles me.shown
        with rdp
            .desktopwidth = 640
            .desktopheight = 480
            .username = "administrator"
            .connect()
        end with
    end sub

  运行后,点击ds开放式下拉列表控件