7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tImgList As New System.Windows.Forms.ImageList
tImgList.ImageSize = New Size(1, 1)
Dim tBar As New System.Windows.Forms.ToolBar
With tBar
.ImageList = tImgList
.Buttons.Add("LongButtonTest")
.Buttons.Add("Short")
.TextAlign = ToolBarTextAlign.Right
End With
Me.Controls.Add(tBar)
End Sub