如何在運行時改單行文本框為多行文本框?

[CatchWind]

我用了如下代碼, 無效,但編輯時文本框變成右對齊了

Option Explicit

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const ES_AUTOVSCROLL = &H40
Private Const ES_MULTILINE = &H4
Private Const ES_WANTRETURN = &H1000
Private Const GWL_EXSTYLE = (-20)

Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Const WS_TABSTOP = &H10000
Private Const WS_VSCROLL = &H200000

Private Sub Command1_Click()
Dim rtn As Long

rtn = GetWindowLong(Text1.hWnd, GWL_EXSTYLE)
rtn = rtn Or ES_MULTILINE Or WS_VSCROLL Or ES_WANTRETURN
SetWindowLong Text1.hWnd, GWL_EXSTYLE, rtn
End Sub

[小泽zz]

可以改 MultiLine = True

在程序中是不能改的~~只读属性

[fishmans]

要真有这样的需求就自已做个OCX好了

[CatchWind]

自己做已測試過,能實現運行時動態設置MultiLine ,原理是當其屬性改變銷毀原對象再重新生成,但很多屬性要重新映射, 太麻煩了.

[CatchWind]

是不是文本框的ES_MULTILINE 屬性只能在創建時使用, 不能在創建后更改?

[sdrcxzy]

有可能吧。不行了，被你的繁体字搞晕了。

[byeshuang]

MULTILINE 屬性是只读属性，只能在设计时设置，运行时不能设置。

[liubeiqi]

MULTILINE属性，好像不可以在程序中动态去修改

[lingll]

最简单的做法,用两个文本框

[kmlxk0]

@_@我猜是不是ES_LEFT的缘故

hwndedit = CreateWindow("EDIT",
NULL,
WS_CHILD|WS_VISIBLE|WS_VSCROLL|WS_HSCROLL|ES_LEFT|ES_MULTILINE
|ES_AUTOVSCROLL|ES_AUTOHSCROLL,
0,0,0,0,
hwnd,
(HMENU)ID_EDITCHILD,
hinst,
NULL) ;

从http://community.csdn.net/Expert/topic/3785/3785814.xml?temp=.2626001 Copy过来的

[CatchWind]

看來是不行的了, 結貼

[threenewbee]

微软的 Notepad 就是两个TextBox，控制是否自动换行。