Office中国论坛/Access中国论坛

标题: 红尘如烟驾校系统代码求解释1 [打印本页]

作者: nancy66317 时间: 2014-4-28 10:38
标题: 红尘如烟驾校系统代码求解释1
求解释代码含义？？
Private Sub Form_Load()
Dim strPathName As String

'如果当前目录下存在和数据库同名的位图图片，则将其设为背景图片
strPathName = CurrentProject.FullName
strPathName = Left$(strPathName, InStrRev(strPathName, ".")) & "bmp"
If Dir(strPathName) <> "" Then Me.Picture = strPathNameEnd Sub

作者: access学习交流 时间: 2014-4-28 10:49
本帖最后由 access学习交流于 2014-4-28 10:55 编辑

这个不是已给出注释了吗？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)