红尘如烟驾校系统代码求解释1

nancy66317 · 发表于 2014-4-28 10:38:58

求解释代码含义？？
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:44

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

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

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] 红尘如烟驾校系统代码求解释1

群介绍
主题无相 (随机显示版	同地区群块其他地区)