|
马上注册,结交更多同行朋友,交流,分享,学习。
您需要 登录 才可以下载或查看,没有帐号?注册
x
Dim options As Integer
Dim leftAlign As Integer
Dim controlType As Integer
Dim ctrl1 As PropertyManagerPageControl
controlType = swPropertyManagerPageControlType_e.swControlType_Label
leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
ctrl1 = PMPgroup.AddControl(PMPlabelID, controlType, PMPlabelstr, leftAlign, options, "")
ctrl1.Top = 10
PMPLabel = ctrl1 |
|