本科毕业设计(论文) 读书报告（读书笔记）

系 ( 院 )： 信息科学与工程学院 课题名称： 学生信息管理系统

专业(方向)：计算机科学与技术（应用） 班 级： 计本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 Time >= #12:00:00 AM# And Time <#12:00:00 PM# Then RightNow = Morning ElseIf Time >= #12:00:00 PM# And Time <#6:00:00 PM# Then RightNow = Afternoon ElseIf Time >= #6:00:00 PM# Then RightNow = Evening End If End Sub

读书笔记四 一．Java访问权限饰词（access specifiers） Java有public、protect、friendly、private四种访问权限，并且这四访问权限的访问范围越来越小。 1． friendly 1） 果一个class内的数据成员或方法没有任何权限饰词，那么它的缺省访问权限就是friendly。同一个package内的其它所有classes都可以访问friendly成员，但对package以外的classes则形同private。 2）对于同一个文件夹下的、没有用package的classes，Java会自动将这些classes初见为隶属于该目录的default package，可以相互调用class中的friendly成员。如以下两个class分别在同一个文件夹的两个文件中，虽然没有引入package，但隶属于相同的default package。 class Sundae{ //以下两个方法缺省为friendly Sundae(){} Void f() {System.out.println(“Sundae.f()”); } public class IceCream{ public static void main(String[] args){ Sundae x = new Sundae(); x.f(); } } 2． public：可以被任何class调用 3． private：private成员只能在成员所属的class内被调用，如： class Sundae{ private Sundae(){} //只能在Sundae class中被调用 Sundae(int i) {} static Sundae makASundae() { return new Sundae(); } } public class IceCream{ public static void main(String[] args){ // Sundae class中构造函数Sundae()是private， // 所以不能用它进行初始化 //Sundae x = new Sundae(); Sundae y = new Sundae(1);//Sundae(int)是friendly，可以在此调用 Sundae z = Sundae.makASundae(); } } 4． protected：具有friendly访问权限的同时，又能被subclass（当然包括子孙类，即子类的子类）所访问。即，既能被同一package中的classes访问，又能被protected成员所在class的subclass访问。 二．Class的访问权限 1．Class同样具有public、protect、friendly、private四种访问访问权限： 1）public：在任何地方都可被使用 2）protect、private：除了它自己，没有任何class可以使用，所以class不能是 protected或private（inner class除外） 3） friendly：同一个package中的classes能用 读书笔记五 用鼠标锁定计算机 你可以轻轻点击两下鼠标，就锁定自己的 Windows XP 系统。请先在桌面上点击鼠标右键，创建一个新的快捷方式，然后再填写项目位置的时候， 输入“rundll32.exe user32.dll,LockWorkStation”。 然后再给这个快捷方式取一个你喜欢的名字，比如“锁定计算机”。就是这么简单----现在，你只需要用鼠标双击这个快捷方式，你的电脑就会马上被锁定。如果你觉得这还不够简单的话，同时按住键盘上的“Windows 键（有XP图标的那个）”和“L”键，将会有同样的效果。 关于注册表: 一:修改Internet Explorer主页 HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command\"C:\Program Files\Internet Explorer\iexplore.exe" www.hao123.com 屏蔽Alt+F4键 Dim BooleanCloseAllow As Boolean Private Sub Command1_Click() BooleanCloseAllow = True Unload Me End Sub Private Sub Form_Unload(Cancel As Integer) Cancel = Not BooleanCloseAllow End Sub 注意:Alt+F4会触发卸载事件Form_Unload;而End不会. Round函数 返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。 Round(expression [,numdecimalplaces]) Round函数语法有如下几部分：