十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
描述不够清楚,也没有图。你的界面是什么界面,是窗体还是其他的什么。
创新互联建站主营介休网站建设的网络公司,主营网站建设方案,成都App制作,介休h5小程序制作搭建,介休网站营销推广欢迎介休等地区企业咨询
如果是窗体,他会让你导入图片,作为资源存在工程里面。
如果不是,你先要把背景图片放到资源里再调用。
又或者你的界面图片被别的控件挡住了,你需要将别的控件的backcolor属性改为transparent。
总之你想问什么问题,你得描述清楚。
哈哈 api吧 ,何不用vb点虐 呢 抱着vb6写程序不高效的
下面是 网上copy的(没测过,不通过请不要骂人!)用apiPrivate Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As LongPrivate Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As LongPrivate Type SHITEMID cb As Long abID As ByteEnd TypePrivate Type ITEMIDLIST mkid As SHITEMIDEnd TypePrivate Sub Form_Click() Dim R As Long, Path As String Dim IDL As ITEMIDLIST R = SHGetSpecialFolderLocation(100, 0, IDL) If R = 0 Then Path = Space(255) R = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path) R = InStr(Path, vbNullChar) If R 0 Then Path = Left(Path, R - 1) End If Else Path = "" End If Print PathEnd Sub
一种采用绝对路径比如"provider=Microsoft.jet.oledb.4.0;Data source= c:/xxx/AAA.mdb"
第二种采用当前exe所在路径
"provider=Microsoft.jet.oledb.4.0;Data source= “+Application.StartupPath + "\\"+”AAA.mdb"