VB难点问题
来源:百度知道 编辑:UC知道 时间:2024/06/08 20:01:24
看看下面的代码,,我有点不太明白
ReadRecentFiles
ClearRecentFiles
==的代码是什麽东西呀,VB中没有呀
是API
高手指点下呀
Option Explicit
Dim A_Name As String
Dim S_Name As String
Const MaxRFiles = 4
Private Sub Command2_Click()
ClearRecentFiles
End Sub
Private Sub Form_Load()
A_Name = "Demo"
S_Name = "RFile"
ReadRecentFiles
End Sub
Private Sub mExit_Click()
Unload Me
End Sub
Private Sub mLastFile_Click(Index As Integer)
UpdateRecentFiles Index
End Sub
WriteRecentFiles CommonDialog1.FileName
UpdateRecentFiles fIndex
Private Sub WriteRecentFiles(FileName As String)
Dim fileptr As Integer
If Len(Trim(FileName)) Then
fileptr = Val(GetSetting(A_Name, S_Name, "FirstFile", "0"))
fileptr = IIf(fileptr - 1 >= 0, fileptr - 1, MaxRFiles - 1)
SaveSetting A_Name
ReadRecentFiles
ClearRecentFiles
==的代码是什麽东西呀,VB中没有呀
是API
高手指点下呀
Option Explicit
Dim A_Name As String
Dim S_Name As String
Const MaxRFiles = 4
Private Sub Command2_Click()
ClearRecentFiles
End Sub
Private Sub Form_Load()
A_Name = "Demo"
S_Name = "RFile"
ReadRecentFiles
End Sub
Private Sub mExit_Click()
Unload Me
End Sub
Private Sub mLastFile_Click(Index As Integer)
UpdateRecentFiles Index
End Sub
WriteRecentFiles CommonDialog1.FileName
UpdateRecentFiles fIndex
Private Sub WriteRecentFiles(FileName As String)
Dim fileptr As Integer
If Len(Trim(FileName)) Then
fileptr = Val(GetSetting(A_Name, S_Name, "FirstFile", "0"))
fileptr = IIf(fileptr - 1 >= 0, fileptr - 1, MaxRFiles - 1)
SaveSetting A_Name
ReadRecentFiles 从注册表中取出你保存的最近文件信息
ClearRecentFiles 从注册表中清除你保存的最近文件信息
SaveSetting和GetSetting是vb提供的读注册表 的api.
ReadRecentFiles 和ClearRecentFiles 是程序中编写的.
那些都是一些API函数的,你最好找一些API函数的书看看
简单的函数,学编程最好把数学和外语两门功课抓好~!!!