测试.width出错
这是啥原因?
我已经用了最新的20版
因为控件是测试版的?
还是因为我的其他参数设置不正确,你能上传完整的测试工程吗?
- Private Sub Command1_Click()
- Dim nLineHeight As Long
-
- nLineHeight = 100
- Me.TXTextControl1.Height = nLineHeight
- MsgBox Me.TXTextControl1.Height, , "当前行高"
-
- nLineHeight = 200
- Me.TXTextControl1.Height = nLineHeight
- MsgBox Me.TXTextControl1.Height, , "当前行高"
-
- nLineHeight = 20
- Me.TXTextControl1.Height = nLineHeight
- MsgBox Me.TXTextControl1.Height, , "当前行高"
-
- End Sub
复制代码
这段代码,测试了,也只有第一次时,起作用,似乎也没按我的意图完成工作? |