這個(gè)簡(jiǎn)單,我以前用VB6就寫(xiě)過(guò)一個(gè)類(lèi)似的程序。 不過(guò)這個(gè)程序需要提供命令行參數(shù)喲。
創(chuàng)新互聯(lián)建站專(zhuān)注于山陽(yáng)企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè)公司,商城網(wǎng)站開(kāi)發(fā)。山陽(yáng)網(wǎng)站建設(shè)公司,為山陽(yáng)等地區(qū)提供建站服務(wù)。全流程按需設(shè)計(jì),專(zhuān)業(yè)設(shè)計(jì),全程項(xiàng)目跟蹤,創(chuàng)新互聯(lián)建站專(zhuān)業(yè)和態(tài)度為您提供的服務(wù)
就算用VB.NET編寫(xiě),也必須要有接收這個(gè)命令行參數(shù)的,不然無(wú)法實(shí)現(xiàn)顯示文件或文件夾路徑。
下面是注冊(cè)表文件的內(nèi)容,你也可以用程序來(lái)寫(xiě)入注冊(cè)表。
*表示所有文件,你可以隨便修改。
最后面的%1,表示當(dāng)前文件或文件夾
REGEDIT4
[HKEY_CLASSES_ROOT\*\shell\顯示名稱(chēng)]
[HKEY_CLASSES_ROOT\*\shell\顯示名稱(chēng)\command]
@="D:\\綠色軟件\\編程\\VB\\顯示名稱(chēng)\\顯示名稱(chēng).exe %1"
動(dòng)態(tài)生成的控件:
Private?Sub?UserControl1_Load(sender?As?System.Object,?e?As?System.EventArgs)?Handles?MyBase.Load
Dim?myPicture?=?New?System.Windows.Forms.PictureBox()
Me.Panel3.Controls.Add(myPicture)
myPicture.Size?=?New?System.Drawing.Size(115,?160)
myPicture.TabStop?=?False
myPicture.Name?=?"p"?
myPicture.Cursor?=?Cursors.Hand
AddHandler?myPicture.Click,?AddressOf?mypic_Click?'添加事件
End?Sub
處理事件的過(guò)程:
Private?Sub?mypic_Click()?'ByVal?id?As?String
Dim?bookInfo?As?New?BookInfo
bookInfo.Show()
Me.Parent.Enabled?=?False
通常都是設(shè)置一個(gè)字母,也就是Alt+某個(gè)字母。如圖
菜單字母
常見(jiàn)事件有鼠的標(biāo)單擊、雙擊、移動(dòng);
有鍵盤(pán)的鍵按下、鍵松開(kāi)、按鍵;
有窗體加載、窗體卸載等等。
分享文章:vb點(diǎn)虐
菜單增加 vb怎么添加菜單控件
轉(zhuǎn)載源于:http://m.rwnh.cn/article38/ddgdosp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供云服務(wù)器、品牌網(wǎng)站制作、網(wǎng)站收錄、品牌網(wǎng)站建設(shè)、全網(wǎng)營(yíng)銷(xiāo)推廣、網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容
營(yíng)銷(xiāo)型網(wǎng)站建設(shè)知識(shí)