用一個全局變量保存這個1.jpg,如變量a,你按按鈕2時,可以簡單的在a中插入一個"A",如a.SubString(0, a.Length-4) "A" a.SubString(a.Length-4),這樣就能把例如"C:/Images/1.jpg"變成"C:/Images/1A.jpg"
創(chuàng)新互聯(lián)建站長期為超過千家客戶提供的網(wǎng)站建設(shè)服務(wù),團隊從業(yè)經(jīng)驗10年,關(guān)注不同地域、不同群體,并針對不同對象提供差異化的產(chǎn)品和服務(wù);打造開放共贏平臺,與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為瀘溪企業(yè)提供專業(yè)的成都網(wǎng)站建設(shè)、成都做網(wǎng)站,瀘溪網(wǎng)站改版等技術(shù)服務(wù)。擁有十載豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。
Public?Class?Form1
Dim?pArray?As?New?ArrayList()
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
For?i?=?1?To?7?'7個picturebox變數(shù)組?
Dim?pic?As?New?PictureBox()
pic.Image?=?Image.FromFile(Application.StartupPath??"\image\rred.jpg")
pArray.Add(pic)
Next?'改變第二個背景圖片?
Me.BackgroundImage?=?CType(pArray(1),?PictureBox).Image
'pArray(1).BackgroundImage?=?Image.FromFile(Application.StartupPath??"\image\rred.jpg")
End?Sub
End?Class
REM?假設(shè)存在Image類型變量img?
Dim?bmp?As?Bitmap?=?CType(img,?Bitmap)?'先將Image類型強制轉(zhuǎn)換為Bitmap類型?
bmp.Save("C:\1.png",?System.Drawing.Imaging.ImageFormat.Png)?'以PNG格式存儲到C:\1.png
Dim curSqlstr As String = "INSERT INTO Picture(picture_id, picture_area)" _
"VALUES('" (i + 1).ToString() "','@picture_area ')"
你看這句中的,'@picture_area ')",多個單引號了,被當成VARCHAR處理了.去了單引號才是變量.
Public Class Form1
Private TPS As Integer
Private TPPath() As String '定義不確定元素個數(shù)組,及動態(tài)數(shù)組
Private Sub LoadPhoto()
'將圖片路徑及圖片名加載到數(shù)組
Dim JS As Integer '計數(shù)用
For Each foundFile As String In My.Computer.FileSystem.GetFiles(CurDir() "\職員圖片")
TPS = TPS + 1 '將圖片數(shù)存入變量中
Next
ReDim TPPath(TPS - 1) '確定數(shù)組大小
For Each FoundFile As String In My.Computer.FileSystem.GetFiles(CurDir() "\職員圖片")
'將圖片路徑存入數(shù)組
TPPath(JS) = FoundFile
JS = JS + 1
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadPhoto()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = TPPath.Length '獲取數(shù)組大小
Label1.Text = TPPath(1) '獲取數(shù)組中第2個元素的值
End Sub
VB.NET中的變量在使用前要進行聲明。即便不進行顯式聲明,VB也會進行隱式聲明。
本題中應(yīng)該這樣使用:
Dim a1 As String = TextBox1.Text
System.Diagnostics.Process.Start("IExplore.exe", a1)
變量是存儲值的名稱??墒褂米兞縼泶鎯?shù)字,例如建筑物的高度,或者存儲單詞,例如人的名字。簡單地說,可使用變量表示程序所需的任何信息。
你可能會問:“既然我可以使用信息,為什么要用變量?” 正如其名稱所表示的,變量可以隨著程序的運行而改變其表示的值。例如,您可以寫一個程序來跟蹤桌子上罐里的軟心豆粒糖的數(shù)目。因為糖是要被吃掉的,所以罐里軟心豆粒糖的數(shù)目可能會隨著時間的推移而改變。您可以使用一個可隨時間變化的變量來表示軟心豆粒糖的數(shù)目,而無需在每次想吃糖時重新編寫程序。
分享名稱:vb.net圖片變量的簡單介紹
標題鏈接:http://vcdvsql.cn/article38/hsdcsp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供靜態(tài)網(wǎng)站、網(wǎng)站策劃、做網(wǎng)站、移動網(wǎng)站建設(shè)、企業(yè)網(wǎng)站制作、服務(wù)器托管
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)