vb.net 如何制作多圖動畫 最好用循環(huán)語句~

很簡單啊，軟糖給你代碼

創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站建設(shè)、網(wǎng)站設(shè)計、烏翠網(wǎng)絡(luò)推廣、成都微信小程序、烏翠網(wǎng)絡(luò)營銷、烏翠企業(yè)策劃、烏翠品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎；創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供烏翠建站搭建服務(wù)，24小時服務(wù)熱線：13518219792，官方網(wǎng)址：www.cdcxhl.com

For?i?=?1?To?9999

Dim?名稱?As?String?=?String.Format("Img{0}.png",?編號)?'會返回Img1.png,Img2.png...

picturebox1.Image?=?Bitmap.FromFile(名稱)

Next

滿意請采納，謝謝。

vb.net 怎樣設(shè)置背景圖片，也就是一個動態(tài)按鈕效果！

難道我這VS安裝的盜版的？

你的意思就是

button不能設(shè)置背景圖片？

不可能吧？

你不要誤導(dǎo)我，哥。

回答：

不是不能設(shè)置背景圖片哈，關(guān)鍵是你要設(shè)置那個控件的背景圖片哈，這才是關(guān)鍵！比如說你要設(shè)置網(wǎng)頁的，那么就修改網(wǎng)頁的。如果要設(shè)置button的，就修改button的賽。

就是實現(xiàn)一個動態(tài)按鈕的效果，當(dāng)鼠標(biāo)移動到按鈕上，背景變換成另外一張圖

VB.NET菜單設(shè)計初級入門[2]

二．MainMenu類 MenuItem類和ContextMenu類

雖然使用菜單設(shè)計器能夠設(shè)計出各種菜單 但要真正掌握VB NET中的菜單編程 還必須了解并靈活使用MainMenu類 MenuItem類和ContextMenu類 其中MainMenu類和ContextMenu類所起的作用是相似的 它們的作用是提供一個菜單項容器 里面可以存放各種菜單項

MainMenu類表示的是下拉菜單的結(jié)構(gòu) 里面存放的菜單項其實就是MenuItem實例 在創(chuàng)建完MainMenu實例后 必須要把此實例綁定到要顯示此菜單的Form中 下拉菜單才能夠顯示 而要實現(xiàn)這種綁定其實非常簡單 只需把MainMenu實例分配給Form的Menu屬性就可以了

ContextMenu類表示當(dāng)用戶在控件或窗體的特定區(qū)域上單擊鼠標(biāo)右鍵時彈出的菜單結(jié)構(gòu) 可視控件和Form窗體一般都有ContextMenu屬性 要顯示ContextMenu實例 只需把ContextMenu實例分配給要顯示此彈出菜單的可視組件或Form窗體的ContextMenu 屬性就可以了 多個組件可共同使用一個ContextMenu實例 MenuItem類表示的是MainMenu和ContextMenu中的每一個菜單項 顯示創(chuàng)建的MenuItem實例 必須使用MainMenu或ContextMenu中的 Add 方法把MenuItem實例加入 若要創(chuàng)建子菜單 可以使用父MenuItem實例的 Add 方法把MenuItem實例添加到其MenuItems屬性中

MenuItem類還提供一些屬性用以設(shè)定菜單項的外觀和功能 若要顯示菜單項旁邊的選中標(biāo)記 可以使用Checked 屬性 Shortcut屬性可用于設(shè)定此菜單項對應(yīng)的鍵盤組合鍵

下面就通過下面一個示例來具體了解上面三個類的使用方法 三．使用MainMenu類 MenuItem類和ContextMenu類動態(tài)創(chuàng)建菜單

下面就利用mainMenu類 MenuItem類和ContextMenu類動態(tài)創(chuàng)建圖 所示的由菜單設(shè)計器設(shè)計出的菜單 其中包括下拉菜單和彈出菜單 下面是具體步驟

啟動Visual Studio Net

選擇菜單【文件】|【新建】|【項目】后 彈出【新建項目】對話框

將【項目類型】設(shè)置為【Visual Basic項目】

將【模板】設(shè)置為【W(wǎng)indows應(yīng)用程序】

在【名稱】文本框中輸入【動態(tài)創(chuàng)建菜單】

在【位置】的文本框中輸入【E:\VS NET項目】 然后單擊【確定】按鈕 這樣在 E:\VS NET項目 目錄中就產(chǎn)生了名稱為 動態(tài)創(chuàng)建菜單 的文件夾 并在里面創(chuàng)建了名稱為 動態(tài)創(chuàng)建菜單 的項目文件

把Visual Studio Net的當(dāng)前窗口切換到【Form vb（設(shè)計）】窗口 并從【工具箱】中的【W(wǎng)indows窗體組件】選項卡中往Form 窗體中拖入下列組件 并執(zhí)行相應(yīng)操作

二個Button組件 名稱分別為Button 和Button 并在這二個組件拖入窗體后 分別設(shè)定這二個組件的 Text 屬性值為 創(chuàng)建下拉菜單 和 創(chuàng)建彈出菜單 之后再分別雙擊 這樣Visual Basic Net會在Form vb中分別產(chǎn)生這二個組件的Click事件對應(yīng)的處理代碼

把Visual Basic Net的當(dāng)前窗口切換到Form vb的代碼編輯窗口 并用下拉代碼替換Form vb中的Button 的Click事件對應(yīng)的處理代碼 下拉代碼的作用是動態(tài)創(chuàng)建圖 中的下拉菜單

Private Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MainMenu As MainMenu = New MainMenu ( )　 創(chuàng)建一個MainMenu實例　Dim myMenuItem As MenuItem = New MenuItem ( )　Dim myMenuItem As MenuItem = New MenuItem ( )　Dim myMenuItem As MenuItem = New MenuItem ( )　Dim myMenuItem As MenuItem = New MenuItem ( )　myMenuItem Text = 文件(F) 　myMenuItem Text = 新建(N) 　myMenuItem Text = 　myMenuItem Text = 打開(O) 　 創(chuàng)建四個MenuItem實例 并進行相應(yīng)設(shè)置　myMenuItem MenuItems Add ( myMenuItem )　myMenuItem MenuItems Add ( myMenuItem )　myMenuItem MenuItems Add ( myMenuItem )　 以myMenuItem 是myMenuItem myMenuItem 和myMenuItem 的父菜單項　MainMenu MenuItems Add ( myMenuItem )　 在MainMenu實例中加入MainItem實例　Me Menu = MainMenu 　 把MainMenu 指派給Form的的Menu屬性 這樣下拉菜單才能夠顯示　Button Enabled = FalseEnd Sub　

用下列代碼替換Form vb中的Button 的Click事件對應(yīng)的處理代碼 下拉代碼的作用是動態(tài)創(chuàng)建圖 中的彈出菜單

Private Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim ContextMenu As ContextMenu = New ContextMenu ( )　 創(chuàng)建一個ContextMenu實例　Dim myMenuItem As MenuItem = New MenuItem ( )　Dim myMenuItem As MenuItem = New MenuItem ( )　Dim myMenuItem As MenuItem = New MenuItem ( )　myMenuItem Text = 拷貝(C) 　myMenuItem Text = 剪切(X) 　myMenuItem Text = 粘貼(V) 　 創(chuàng)建三個MenuItem實例 并進行相應(yīng)設(shè)置　ContextMenu MenuItems Add ( myMenuItem )　ContextMenu MenuItems Add ( myMenuItem )　ContextMenu MenuItems Add ( myMenuItem )　 在ContextMenu 中加入MenuItem　Me ContextMenu = ContextMenu 　 把ContextMenu 指派給Form的ContextMenu屬性 顯示彈出菜單　Button Enabled = FalseEnd Sub

至此【動態(tài)創(chuàng)建菜單】項目的全部工作就完成了 單擊快捷鍵 F 運行程序 單擊程序中的【創(chuàng)建下拉菜單】按鈕 則創(chuàng)建出圖 所示的下拉菜單 單擊程序中的【創(chuàng)建彈出菜單】 則動態(tài)創(chuàng)建出圖 所示的彈出菜單

如果您要創(chuàng)建的菜單中的菜單項還有子菜單 可以根據(jù)菜單項中的父子關(guān)系 把子菜單項加入到父菜單項 然后再把父菜單項加入上一級的菜單項或MainMenu和ContextMenu實例中 下面代碼作用是創(chuàng)建圖 所示的下拉菜單 如果是彈出菜單 其做法類似

Private Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim ContextMenu As ContextMenu = New ContextMenu ( )　 創(chuàng)建一個ContextMenu實例　Dim myMenuItem As MenuItem = New MenuItem ( )　Dim myMenuItem As MenuItem = New MenuItem ( )　Dim myMenuItem As MenuItem = New MenuItem ( )　myMenuItem Text = 拷貝(C) 　myMenuItem Text = 剪切(X) 　myMenuItem Text = 粘貼(V) 　 創(chuàng)建三個MenuItem實例 并進行相應(yīng)設(shè)置　ContextMenu MenuItems Add ( myMenuItem )　ContextMenu MenuItems Add ( myMenuItem )　ContextMenu MenuItems Add ( myMenuItem )　 在ContextMenu 中加入MenuItem　Me ContextMenu = ContextMenu 　 把ContextMenu 指派給Form的ContextMenu屬性 顯示彈出菜單　Button Enabled = FalseEnd Sub

圖 動態(tài)創(chuàng)建存在子菜單的下拉菜單

四． Net Frame Work SDK 為在VB Net繪制菜單提供的工具

Net Frame Work SDK為Visual Basic Net實現(xiàn)個性化菜單提供了許多工具 其中最重要是二個事件及其參數(shù) DrawItem事件和其中的DrawItemEventArgs參數(shù) MeasureItem事件和其中的MeasureItemEventArgs參數(shù)

DrawItem事件和其中的DrawItemEventArgs參數(shù)

DrawItem事件是當(dāng)菜單項的OwnerDraw屬性設(shè)置為True并且發(fā)出繪制菜單項的請求時才發(fā)生 個性化菜單制作的處理方法就是在此事件中完成的 在DrawItem事件處理程序中將接收一個 DrawItemEventArgs類型的參數(shù) 它包含與此事件相關(guān)的數(shù)據(jù) 這些數(shù)據(jù)對繪制菜單是很重要的 表 是DrawItemEventArgs類型參數(shù)提供特定于此事件的信息

　表 DrawItemEventArgs類型參數(shù)提供DrawItem事件特定的信息

MeasureItem事件和其中的MeasureItemEventArgs參數(shù)

觸發(fā)MeasureItem事件必須將菜單項的OwnerDraw屬性設(shè)置為True 個性化菜單制作可通過此事件來獲取 設(shè)定菜單項的大小等 MeasureItem事件處理程序中接收一個MeasureItemEventArgs類型的參數(shù) 此參數(shù)對獲取 設(shè)定菜單項的大小是非常重要的 表 是MeasureItemEventArgs類型參數(shù)提供MeasureItem事件的特定信息

表 是MeasureItemEventArgs類型參數(shù)提供MeasureItem事件的特定信息

lishixinzhi/Article/program/net/201311/15453

VB.NET 動態(tài)創(chuàng)建picturebox后如何用其image屬性

這樣了：

CType(Me.Controls("PictureBox11"), PictureBox).Image = My.Resources.image1

Find 返回數(shù)組，元素類型為Object。

Item() 可以把控件名作關(guān)鍵字，但也返回Object。這個方法是默認(rèn)的，可以省略。

CType 轉(zhuǎn)換引用類型。

大概如此，我是2008，沒vb6那般的控件數(shù)組。