RichTextBox中設定和取消自動換行

2021-08-22 01:18:45 字數 1084 閱讀 8781

public const wm_user = &h400

public const em_settargetdevice = (wm_user + 72)

public declare function getdc lib "user32" (byval hwnd as long) as long

public declare function sendmessage lib "user32" alias "sendmessagea" _

(byval hwnd as long, _

byval wmsg as long, _

byval wparam as long, _

lparam as any) as long

public sub autoswitchline(byref richtext as richtextbox, byval bswitch as boolean)

if bswitch then

'設定 richtextbox 自動換行

call sendmessage(richtext.hwnd, em_settargetdevice, _

getdc(richtext.hwnd), richtext.width / 15)

if richtext.rightmargin = 0 then

richtext.rightmargin = 1

else

richtext.rightmargin = 0

end if

else

'設定 richtextbox 不自動換行

call sendmessage(richtext.hwnd, em_settargetdevice, 0, 1)

end if

end sub

呼叫方法:

autoswitchline richtextbox1, false

上面的**使richtextbox1不自動換行。

上面的是比較正規的方法,如果簡單的話,下面兩句**就可以了:

richtextbox1.multiline=true

richtextbox1.rightmargin=10000

RichTextBox中設定和取消自動換行

public const wm user h400 public const em settargetdevice wm user 72 public declare function getdc lib user32 byval hwnd as long as long public declar...

WPF中RichTextBox設定文字的樣式

richtextbox的內容操作方式,選中richtextbox的內容方法 textrange range richtextbox1.selection 獲取選中項 string text range.text 選中的文字內容 range.start 獲取選中的開始位置 range.end 獲取選中...

設定RichTextBox的Tab鍵顯示的寬度

設定richtextbox的tab鍵顯示的寬度 windows form中的richtextbox控制項可以用於顯示rtf格式的文件,許多應用程式用它來提供簡單的文字編輯功能。然而,richtextbox有乙個麻煩的地方,那就是它的tab鍵預設佔8個字元寬,有沒有辦法調整?google了半天,有的人...