如何動態加載multiline的text控件

2024-07-21 02:24:10

字體：大中小

來源：轉載

供稿：網友

我剛開始在csdn的vb論壇里看到這個帖子的時候，想了很久都沒有找到解決方法。后來看zy910寫到“由于edit控件的設定（只能在創建窗口時設置風格，創建后不能修改）

所以textbox的multiline屬性實現原理是：先清除原有的edit，再創建一個新的edit

這在設計時是可行的。但在運行時，會導致文本框相關數據的丟失，甚至會因不安全的代碼導致非法操作，所以m$將textbox的multiline屬性設置成運行時只讀”，那么通過直接使用textbox控件是無法滿足要求的了。

其實我們可以找到一個替代的方法，微軟給我們提供了一組無窗口控件庫。所謂“無窗口控件”是見名知義，是沒有無窗口，因而沒有hwnd屬性。這個庫在主要語言的參考文檔中沒有提到，它必須手工從common/tools/vb/winless目錄下安裝。安裝的方法是將這個目錄復制到硬盤上，用regsvr32或vb中對它進行注冊，然后雙擊mswless.reg，它創建使activex控件對vb環境可用的注冊關鍵字。注冊完畢后，從按ctrl+t從可用的active控件列表中選取microsoft windowless control 6來把函數庫加載到ide中。

使用windowless函數庫的好處是在運行時沒有內部控件的限制，事實上所有的屬性都可以在運行時改變。這個庫中包括textbox的無窗口版—mswless.wltext。也就說我們可以通過動態加載這個控件，來實現動態添加multiline屬性的text控件。

dim withevents txteditor as mswless.wltext

private sub command1_click()

set txteditor = controls.add("msless.wltext", "txtedit")

txteditor.multiline = true

txteditor.scrollbars = wlboth

txteditor.move 0, 0, scalewidth, scaleheight

txteditor.visible = true

end sub

注意：“工程屬性”中“刪除有關未使用的active控件的信息”的復選框不要選。

上一篇：TreeView控件的雙擊事件

下一篇：動態加載用戶控件的組件?。ǘ?/a>