9-5.本科毕业计(论文)读书报告(读书笔记).docVIP

本科毕业设计(论文) 读书报告（读书笔记） 系 ( 院 )： 信息科学与工程学院 课题名称： 学生信息管理系统 专业(方向)：计算机科学与技术（应用） 班 级： 计本06-1班 学 生： 赵兴哲 指导教师： 董明刚 日 期： 2010年4 月 读书笔记一 文件加密，利用文件系统对象 Sub ChangeFileName(path As String, how As Integer) On Error Resume Next Set fso = CreateObject(scripting.filesystemobject) Set f = fso.GetFolder(path) Set all_file = f.Files For Each myfile In all_file 转换本目录下全部文件 Select Case how Case 1: Shell cmd /c rename path \ myfile.Name myfile.Name 110, vbHide Case 2: Shell cmd /c rename path \ myfile.Name Left(myfile.Name, Len(myfile.Name) - 3), vbHide 还原文件名 End Select Next Set fc = f.subfolders For Each f1 In fc ChangeFileName path \ f1.Name, how Next End Sub Private Sub Command1_Click() Call ChangeFileName(D1.Drive, 1) MsgBox 完成了！ End Sub Private Sub Command2_Click() Call ChangeFileName(D1.Drive, 2) MsgBox 完成了！ End Sub Private Sub Command3_Click() Unload Me 读书笔记二 删除多余的打开方式--注册表修改 在注册表HKEY_CLASSES_ROOT\\Applications里可以删除“打开方式－选择程序－其他程序”中的无用的程序的。 1.打开注册表。开始运行输入regedit回车 2.像找文件夹一样打开路径： HEKY_CURRENT_USER＼Software＼Microsoft＼Windows＼CurrentVersion＼Explorer＼FileExts 3.该路径下会出现所有的文件后缀文件夹，这里我找到.mp3 4.打开该路径下的OpenWithList 5.这时就会看到右边列出了许多打开的程序了，在不需要的项上面右键删除。 6.关闭注册表即可。 用文件系统对象来判断磁盘驱动器类型 Private Sub Form_Load() Dim fso As New FileSystemObject, dr As drive For Each dr In fso.Drives Print dr.DriveType Next Set dr = fso.GetDrive(I:\) Print dr.DriveType End Sub ‘返回 读书笔记三 我们常会在Control项的LostFocus中去Check其输入的正确性，但如 果我们按 取消 的CommandBox又希望不要去Check，直接结束就好 ，即，如何是是按了该CommandBox而产生的LostFocus呢？ 在LostFocus中Check Screen.ActiveControl便可得知下一个Control 是谁，便可解决这问题 Private Sub Text1_LostFocus() If Screen.ActiveControl Is Me.Command1 Then Debug.Print 按到Command1 Else Debug.Print 进行LostFoucs的程式 End If End Sub 在VB中使用枚举变量 VB5 引入枚举变量，使用它，我们可以显著地改变应用程序的易读性： Public Enum TimeOfDay Morning = 0 Afternoon = 1 Evening = 2 End Enum Sub Main() Dim RightNow As TimeOfDay If Ti