用一個(gè)全局變量保存這個(gè)1.jpg,如變量a,你按按鈕2時(shí),可以簡(jiǎn)單的在a中插入一個(gè)"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)建站長(zhǎng)期為超過(guò)千家客戶提供的網(wǎng)站建設(shè)服務(wù),團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年,關(guān)注不同地域、不同群體,并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù);打造開放共贏平臺(tái),與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為瀘溪企業(yè)提供專業(yè)的成都網(wǎng)站建設(shè)、成都做網(wǎng)站,瀘溪網(wǎng)站改版等技術(shù)服務(wù)。擁有十載豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(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個(gè)picturebox變數(shù)組?
Dim?pic?As?New?PictureBox()
pic.Image?=?Image.FromFile(Application.StartupPath??"\image\rred.jpg")
pArray.Add(pic)
Next?'改變第二個(gè)背景圖片?
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類型強(qiáng)制轉(zhuǎn)換為Bitmap類型?
bmp.Save("C:\1.png",?System.Drawing.Imaging.ImageFormat.Png)?'以PNG格式存儲(chǔ)到C:\1.png
Dim curSqlstr As String = "INSERT INTO Picture(picture_id, picture_area)" _
"VALUES('" (i + 1).ToString() "','@picture_area ')"
你看這句中的,'@picture_area ')",多個(gè)單引號(hào)了,被當(dāng)成VARCHAR處理了.去了單引號(hào)才是變量.
Public Class Form1
Private TPS As Integer
Private TPPath() As String '定義不確定元素個(gè)數(shù)組,及動(dòng)態(tài)數(shù)組
Private Sub LoadPhoto()
'將圖片路徑及圖片名加載到數(shù)組
Dim JS As Integer '計(jì)數(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個(gè)元素的值
End Sub
VB.NET中的變量在使用前要進(jìn)行聲明。即便不進(jìn)行顯式聲明,VB也會(huì)進(jìn)行隱式聲明。
本題中應(yīng)該這樣使用:
Dim a1 As String = TextBox1.Text
System.Diagnostics.Process.Start("IExplore.exe", a1)
變量是存儲(chǔ)值的名稱??墒褂米兞縼?lái)存儲(chǔ)數(shù)字,例如建筑物的高度,或者存儲(chǔ)單詞,例如人的名字。簡(jiǎn)單地說(shuō),可使用變量表示程序所需的任何信息。
你可能會(huì)問(wèn):“既然我可以使用信息,為什么要用變量?” 正如其名稱所表示的,變量可以隨著程序的運(yùn)行而改變其表示的值。例如,您可以寫一個(gè)程序來(lái)跟蹤桌子上罐里的軟心豆粒糖的數(shù)目。因?yàn)樘鞘且怀缘舻模怨蘩镘浶亩沽L堑臄?shù)目可能會(huì)隨著時(shí)間的推移而改變。您可以使用一個(gè)可隨時(shí)間變化的變量來(lái)表示軟心豆粒糖的數(shù)目,而無(wú)需在每次想吃糖時(shí)重新編寫程序。
分享名稱:vb.net圖片變量的簡(jiǎn)單介紹
標(biāo)題鏈接:http://jinyejixie.com/article38/hsdcsp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供靜態(tài)網(wǎng)站、網(wǎng)站策劃、做網(wǎng)站、移動(dòng)網(wǎng)站建設(shè)、企業(yè)網(wǎng)站制作、服務(wù)器托管
聲明:本網(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)