用RichTextBox控件
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_SETREADONLY = &HCFPrivate Sub Command1_Click()
Dim retval As Long
RichTextBox1.LoadFile "c:\temp\abc.rtf", rftrtf
retval = SendMessage(RichTextBox1.hwnd, EM_SETREADONLY, True, ByVal 0&)
End Sub
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_SETREADONLY = &HCFPrivate Sub Command1_Click()
Dim retval As Long
RichTextBox1.LoadFile "c:\temp\abc.rtf", rftrtf
retval = SendMessage(RichTextBox1.hwnd, EM_SETREADONLY, True, ByVal 0&)
End Sub
解决方案 »
- VB6.0获取系统月份问题?
- 大家好 ,在VB引用 microsoft Internet Control API 如何调用打印当前网页呢?
- 怎样写dll,使得在vb中将一个byte数组传进去,在dll中修改这个数组内容?急!!!
- 这里的人只用office的VBA吗?有没有人用过BO下的VBA呢?
- 假如我用程序启动了一个word ,如何获得它的hWnd-窗口句柄
- 紧急求助!如何用VB编一简易的同学录
- 此环境中不允许操作?
- 安装
- 在在 VB6光 盘 的 \Common\Tools\Vb\Controls目 录 中 可 以 找 到 Dbgrid.reg
- 请问VB如何获得文件的修改日期,谢谢
- 如何将键盘响应由datagrid 控件移交给mshflexgrid
- 用vb自带的安装程序打包,能否包含 .chm的文件
richtextbox1.lock=true
搞定