描述不夠清楚,也沒有圖。你的界面是什么界面,是窗體還是其他的什么。
創(chuàng)新互聯(lián)是網(wǎng)站建設(shè)專家,致力于互聯(lián)網(wǎng)品牌建設(shè)與網(wǎng)絡(luò)營銷,專業(yè)領(lǐng)域包括網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站建設(shè)、電商網(wǎng)站制作開發(fā)、微信小程序定制開發(fā)、微信營銷、系統(tǒng)平臺(tái)開發(fā),與其他網(wǎng)站設(shè)計(jì)及系統(tǒng)開發(fā)公司不同,我們的整合解決方案結(jié)合了恒基網(wǎng)絡(luò)品牌建設(shè)經(jīng)驗(yàn)和互聯(lián)網(wǎng)整合營銷的理念,并將策略和執(zhí)行緊密結(jié)合,且不斷評(píng)估并優(yōu)化我們的方案,為客戶提供全方位的互聯(lián)網(wǎng)品牌整合方案!
如果是窗體,他會(huì)讓你導(dǎo)入圖片,作為資源存在工程里面。
如果不是,你先要把背景圖片放到資源里再調(diào)用。
又或者你的界面圖片被別的控件擋住了,你需要將別的控件的backcolor屬性改為transparent。
總之你想問什么問題,你得描述清楚。
一種采用絕對(duì)路徑比如"provider=Microsoft.jet.oledb.4.0;Data source= c:/xxx/AAA.mdb"
第二種采用當(dāng)前exe所在路徑
"provider=Microsoft.jet.oledb.4.0;Data source= “+Application.StartupPath + "\\"+”AAA.mdb"
1 新建安裝部署項(xiàng)目
打開VS2005,點(diǎn)擊新建項(xiàng)目,選擇:其他項(xiàng)目類型-安裝與部署-安裝向?qū)?安裝項(xiàng)目),然后點(diǎn)擊確定。
2 安裝向?qū)?/p>
關(guān)閉后打開安裝向?qū)Вc(diǎn)擊下一步,或者直接點(diǎn)擊完成。
3 開始制作
安裝向?qū)瓿珊蠹纯蛇M(jìn)入項(xiàng)目文件夾:
雙擊"應(yīng)用程序文件夾"在右邊的空白處右擊,選擇添加-文件,將你的做的應(yīng)用程序的可執(zhí)行文件和相應(yīng)的類庫和組件添加進(jìn)來。然后右擊你的文件,創(chuàng)建快捷方式,然后把快捷方式分別復(fù)制或剪切到左邊的"用戶的'程序'菜單"和"用戶桌面"中。這樣安裝程序安裝完成后會(huì)在 "開始-所有程序"和"桌面"上生成程序的快捷方式。也可以直接在"用戶的'程序'菜單"和"用戶桌面"相應(yīng)目錄下新建快捷方式,然后定位到你的文件。
然后右擊左邊的"應(yīng)用程序文件夾"打開屬性對(duì)話框:將屬性中的"DefaultLocation"的路徑中的"[Manufacturer]"去掉,不然的話做好的安裝程序默認(rèn)安裝目錄會(huì)是"C:\Program Files\你的用戶名\安裝解決方案名稱";
然后打開解決方案管理器,右擊你的解決方案名稱,選擇屬性:打開的屬性頁中,選擇"系統(tǒng)必備", 在打開的系統(tǒng)必備頁中,在"指定系統(tǒng)必備安裝組件的位置"中選中如下選擇項(xiàng):從與我的應(yīng)用程序相同的位置下載系統(tǒng)必備組件。選上以后,在生成的安裝文件包中包含.NetFramework組件 。好了,這樣就完成99%了,然后點(diǎn)擊"生成-生成解決方案",生成成功!
我以前參考過的,希望對(duì)你有幫助。
安裝完成后自動(dòng)啟動(dòng)程序
1.新建一個(gè)空的項(xiàng)目InstallCompenent,步驟為:解決方案-右鍵添加-新建項(xiàng)目-選擇"空項(xiàng)目"-輸入名稱"InstallCompenent"-確定,完成項(xiàng)目的添加.
2.在InstallCompenent項(xiàng)目中右鍵-添加-新建項(xiàng)-選擇安裝程序類-輸入名稱"Installer",完成installer類的添加.
修改代碼為:
/// summary
/// 功能是做安裝項(xiàng)目主項(xiàng)目輸出
/// 實(shí)現(xiàn)安裝過程中的一些操作
/// 如:安裝完成后啟動(dòng)項(xiàng)目
/// /summary
[RunInstaller(true)]
public partial class Installer : Installer
{
/// summary
/// 應(yīng)用程序入口
/// /summary
public static void Main()
{
}
/// summary
/// 構(gòu)造函數(shù)
/// /summary
public ECSuitsInstaller()
{
InitializeComponent();
}
/// summary
/// 重寫安裝完成后函數(shù)
/// 實(shí)現(xiàn)安裝完成后自動(dòng)啟動(dòng)已安裝的程序
/// /summary
/// param name="savedState"/param
protected override void OnAfterInstall(IDictionary savedState)
{
base.OnAfterInstall(savedState);
Assembly asm = Assembly.GetExecutingAssembly();
string path = asm.Location.Remove(asm.Location.LastIndexOf("\\")) + "\\";
System.Diagnostics.Process.Start(path + "\\ECSuits.exe");
}
/// summary
/// 重寫安裝過程方法
/// /summary
/// param name="stateSaver"/param
public override void Install(IDictionary stateSaver)
{
base.Install(stateSaver);
}
/// summary
/// 重寫安裝之前方法
/// /summary
/// param name="savedState"/param
protected override void OnBeforeInstall(IDictionary savedState)
{
base.OnBeforeInstall(savedState);
}
/// summary
/// 重寫卸載方法
/// /summary
/// param name="savedState"/param
public override void Uninstall(IDictionary savedState)
{
base.Uninstall(savedState);
}
/// summary
/// 重寫回滾方法
/// /summary
/// param name="savedState"/param
public override void Rollback(IDictionary savedState)
{
base.Rollback(savedState);
}
}
3.在安裝項(xiàng)目中右鍵-添加項(xiàng)目輸出-選擇"項(xiàng)目"-InstallCompenent.
完成主輸出項(xiàng)目的添加.
4.打開自定義操作編輯器,在安裝-右鍵-添加自定義操作-選擇"應(yīng)用程序文件夾"-選擇"主輸出來自InstallCompenent",完成添加.
哈哈 api吧 ,何不用vb.net呢 抱著vb6寫程序不高效的
下面是 網(wǎng)上copy的(沒測過,不通過請(qǐng)不要罵人!)用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
本文題目:vb.net桌面路徑 vbnet打開文件路徑
網(wǎng)站路徑:http://chinadenli.net/article24/dogsoce.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供外貿(mào)建站、定制開發(fā)、微信公眾號(hào)、企業(yè)網(wǎng)站制作、搜索引擎優(yōu)化、品牌網(wǎng)站制作
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)