DS控件库 在Combobox中嵌入远程桌面

时间:2022-04-22 18:31:41

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

先在VS工具箱中添加COM控件Microsoft RDP Client Control,后面的Version版本可以适当高点。

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

DS控件库 在Combobox中嵌入远程桌面

DS控件库 在Combobox中嵌入远程桌面

编写代码:

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开放式下拉列表控件

DS控件库 在Combobox中嵌入远程桌面