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

