如何从Me.ActiveControl获取属性值

Question

我使用_Keydown处理程序进行了子句划分，在不同的情况下它应该表现不同。为此我在子类中有代码，如下所示：

If Me.ActiveControl.GetType Is GetType(TextBox) Then

End if

内部IF我必须检查文本框是否是多行的，所以我试试：

If Me.ActiveControl.GetType Is GetType(TextBox) Then
   If Me.ActiveControl.Multiline = True Then ...

但是没有（程序看不到我文本框的属性）。

如何在这种情况下获取“Multiline”等属性（来自Me.ActiveControl）？

Answer 1

你还需要把它投射到实际的控制类型......

即：

If Me.ActiveControl.GetType Is GetType(TextBox) Then
   If CType(Me.ActiveControl, TextBox).Multiline = True Then ...

Answer 2

我就是这样做的：

If Me.ActiveControl Is TextBox Then
  If DirectCast(Me.ActiveControl, TextBox).MultiLine Then
     'your code here
  End If
End If