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

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

系 ( 院 )：信息科学与工程学院

课题名称：学生信息管理系统

专业(方向)：计算机科学与技术（应用）

班级：计本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 & "\" & & " " & & "110", vbHide

Case 2:

Shell "cmd /c rename " & path & "\" & & " " & Left(, Len() - 3), vbHide ''还原文件名

End Select

Next

Set fc = f.subfolders

For Each f1 In fc

ChangeFileName path & "\" & , 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 mand1 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(){}

V oid 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();

}