如何在运行时向UserForm添加无边界文本框

Question

我想问为什么在运行时添加新的文本框时，设置为.BorderStyle的fmBorderStyleNone不能工作？我想要一个没有大纲的文本框，但是在代码运行之后，仍然有一个大纲。

 Dim txtB1 As TextBox
 Dim i

 For i = 0 To 5
     Set txtB1 = Frame12.Controls.Add("Forms.TextBox.1")
     With txtB1
         .Name = "chkDemo" & i
         .TextAlign = fmTextAlignCenter
         .Height = 20
         .Width = 36
         .Left = 444
         .Top = 10 * i * 2
         .BackStyle = fmBackStyleTransparent
         .BorderStyle = fmBorderStyleNone '---> this isn't working.
         .Font.Name = "Calibre"
         .Font.Size = 11
     End With
 Next i

Answer 1

您仍然看到大纲的原因是，默认情况下，文本框中插入的特效是“凹陷”。您还需要更改该属性：

   .SpecialEffect = fmSpecialEffectFlat