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