| 网站首页 | 文章中心 | 电子书下载 | 矢量图库 | 视频教程 | 素材下载 | 程序代码下载 | JS代码 | 论坛 | 
常用软件类：
 |杀毒安全 |联络聊天 |网络软件 |多媒体类 |系统工具 |图形图像 |系统工具 |应用软件 |行业软件
开发设计类：
 |动画制作 |图像处理 |3D设计 |操作系统 |站长学院 |网络相关 |WEB设计 |数据库类 |程序开发
Visual Basic编程常见问题
作者：佚名    文章来源：网络    点击数：    更新时间：2006-11-24
　



　　如何用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下调试通过。

　　如何判断目前文件资源管理器中，文件名称之扩展文件名是显示或隐藏？

　　由于我在集团性的资讯处工作，所负责的公司系统有的是属于外点，例如润泰建设有个单位是行销业务处，他们的工作是卖公司盖的房子，所以他们的业务人员平常都是待在各工地的接待中心，我替他们开发的销售系统在工地的部份是属于单机作业的，使用 Access 资料库，每一个星期资料回传总公司一次。

　　业务人员由于流动性大，不太了解系统，有时候，系统出了问题，业务人员又搞不清楚状况，于是我会要求他们将资料库 sale.mdb 回传公司，结果，常闹笑话，原来他们回传公司的，常常不是 sale.ldb 就是 sale.exe，为什么呢？ 原因很简单，因为他们的文件资源管理器中，设定了将扩展文件名隐藏起来，结果只看到三个不同图示的 sale 文件 (分别是 Sale.mdb、Sale.ldb、Sale.exe)，不太会操作的业务人员根本分不清楚那一个图示的 sale 文件才是资料库文件案！

　　我们在 VB 的程序中要如何判断，目前文件资源管理器中的设定是否显示扩展文件名呢？

Private Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer
Private Function HasExtension(sFileName As String) As Long
　Dim sTemp As String
　Dim lTemp As Long

　sTemp = String(1, 0)
　lTemp = GetFileTitle(sFileName, sTemp, Len(sTemp))
　If lTemp < 0 Then HasExtension = -1: Exit Function
　sTemp = String(lTemp, 0)
　Call GetFileTitle(sFileName, sTemp, Len(sTemp))

　If (Left$(Right$(Left$(sTemp, lTemp - 1), 4), 1)) = "." Then
　　HasExtension = 1
　Else
　　HasExtension = 0
　End If
End Function

　　若有显示扩展文件名，返回值是 1，否则返回0。

上一页  [1] [2] [3] [4] [5] [6] [7] 


  • 上一篇文章：

  • 下一篇文章： 没有了
    • 相关文章