|
三、一个快速注册 DLL 及 OCX 的方法
有时候我们在 VB 中要引用某一个 DLL 或 OCX 时，会出现文件未注册的讯息，这时，我们可以使用人工注册的方法，也就是直接在命令列中使用 regsvr32.exe 来做，做法如下：
文件注册：C:\Windows\System\Regsvr32.exe C:\Windows\System\Test.ocx
取消注册：C:\Windows\System\Regsvr32.exe /u C:\Windows\System\Test.ocx
这些动作我们也可以直接写到程序中，使用 Shell 来执行，但是我现在要说的，都不是上面提到的方法！
注意看罗！方法如下：
1、在资源管理器中找到 C:\Windows\System\Regsvr32.exe 并【复制】 ( 按鼠标右键选复制 )
2、将目录移到 C:\Windows\SendTo 后，执行【贴上快捷方式】 ( 按鼠标右键选贴上快捷方式 )
3、将快捷方式名称改成【REGISTER】
4、OK
现在，如果您想替某一个文件做注册动作，例如：C:\Windows\System\Test.ocx，您只要打开资源管理器，找到 C:\Windows\System\Test.ocx，按鼠标右键选【传送到】【REGISTER】即可完成注册动作了！
注：有一个地方要注意的是，Regsvr32.exe 只能注册 32 位的文件！如果要用它来注册 16 位的文件，会有错误讯息产生。
四、如何用TextBox打开和保存文件
作为轻量级的控件，TextBox控件使用率很高，但相关的资料极少谈及如何用TextBox控件打开和保存文件，大都采用回避的态度，对VB初学者带来很多不便。笔者近日为友人做一个英文朗读软件，按友人的要求，软件要能象MS的记事本那样能打开和保存文档。其实实现方法并不复杂，现将心得写出来，希望对大家有帮助。如果您有更好的方法，请来信：handanfang@163.net。
'新建标准EXE，加入一个TextBox控件，一个公共对话框，两个菜单。
'打开
Private Sub mnuOpen_Click() CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*" CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Text1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode) Close #1 End Sub '保存Private Sub mnuSave_Click() On Error Resume Next CommonDialog1.Filter ="文档文件(*.txt)|*.txt|所有文件(*.*)|*.*" CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text Close 1 End Sub TextBox只支持打开64K以下的文件，建议最好设置出错处理。 以上程序在PWin98、VB6.0下调试通过。 |
正在阅读：vb高手搜集-常见问题总结4(终章)vb高手搜集-常见问题总结4(终章)
2005-06-20 09:59
出处：
责任编辑：moningfeng
键盘也能翻页，试试“← →”键
