 加好友  发短信
等级：七尾狐
帖子：1732
积分：11266
威望：0
精华：0
注册：2011/12/15 22:06:00
|
 Post By：2015/4/16 10:25:00 [显示全部帖子]
封装成函数，返回btnAdd1
Dim btnAdd1 As New C1Input.C1ButtonWith btnAdd1 .Name = Args(0) .Text = Args(1) .TabIndex = 0 .Font = New Font("微软雅黑",10) .Location = New System.Drawing.Point(20, 28) .Size = New System.Drawing.Size(68, 70) .VisualStyle = C1Input.VisualStyle.Office2010Blue .VisualStyleBaseStyle = C1Input.VisualStyle.Office2010Blue .TextAlign = ContentAlignment.BottomCenter .Image = GetImage("Accept.png") .TextAlign = ContentAlignment.BottomCenter .ImageAlign = ContentAlignment.TopCenter End WithAddHandler btnAdd1.Click, AddressOf Button_Click
|
|
