如何在运行时向用户窗体添加无边框文本框答案

【问题标题】：How to add a borderless textbox to a UserForm at runtime如何在运行时向用户窗体添加无边框文本框
【发布时间】：2018-12-16 23:02:06
【问题描述】：

我想问一下为什么在运行时添加新文本框时.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

【问题讨论】：

标签： vba textbox ms-word userform

【解决方案1】：

您仍然看到轮廓的原因是，默认情况下，会插入一个带有特殊效果“凹陷”的文本框。您还需要更改该属性：

   .SpecialEffect = fmSpecialEffectFlat

【讨论】：