sender就是你要的button了,不需要什么index,要計(jì)算index,則通過(guò)sender去判斷
為拉薩等地區(qū)用戶(hù)提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù),及拉薩網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)、外貿(mào)營(yíng)銷(xiāo)網(wǎng)站建設(shè)、拉薩網(wǎng)站設(shè)計(jì),以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專(zhuān)業(yè)、用心的態(tài)度為用戶(hù)提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶(hù)的要求,就會(huì)得到認(rèn)可,從而選擇與我們長(zhǎng)期合作。這樣,我們也可以走得更遠(yuǎn)!
sub sub1(sender as object,e as eventargs)
sender.text="button1"’設(shè)置所點(diǎn)擊button控件的text屬性。
end sub
addhandler button.click, addressof sub1
Public?Class?Form1
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?a()?As?Byte?=?System.IO.File.ReadAllBytes("record.db")
For?Index?As?Integer?=?a.GetLowerBound(0)?To?a.GetUpperBound(0)?-?3
If?a(Index)?=?56?AndAlso?a(Index?+?1)?=?57?AndAlso?a(Index?+?2)?=?58?AndAlso?a(Index?+?3)?=?59?Then
Debug.Print(Index.ToString)?'輸出byte串位置
End?If
Next
End?Sub
End?Class
剛學(xué),不知道有沒(méi)有直接在數(shù)組中搜索一串元素的方法。
你是不是應(yīng)該對(duì)最大值和最小值賦初值(比如把 r(1) 賦給最大值和最小值)呢?不然最小值默認(rèn)初始值是‘0’,后面的判斷就不起作用了。你可以加個(gè)斷點(diǎn)試試,他們的初始值是多少。。。
先把strA排序,
ind = 2
if len(strA) = 0 then return
strB(1) = strA(1)
for each s in strA
if (strA(ind) strA(ind - 1) then
count = 0
strB(ind) = strA(ind)
else
strB(ind) = strA(ind - 1)
end if
ind = ind + 1
next s
vb語(yǔ)法忘了。。。大概是這么個(gè)意思吧。。。。 排序N LOG N,后面是線性的N,所以總共是NLOGN
'''這個(gè)函數(shù)功能就是用來(lái)把數(shù)組轉(zhuǎn)為string的格式'''如byte()={1,2,3,4,5,6}轉(zhuǎn)化后變?yōu)?,1,2,3,4,5,6,"Function ByteArrayToString(bytes() As Byte) As String Dim s As String = "" For i As Integer = 0 To bytes.Length s = Convert.ToString(bytes(i)) "," Next Return “," sEnd Function Sub Search()Dim a as byte()={1,2,3,4,5,6}
Dim b as byte()={2,3,4}
Dim astr As String = ByteArrayToString(a)Dim bstr As String = ByteArrayToString(b)Dim index As Integer = astr.IndexOf(bstr) '這個(gè)index就是b數(shù)組在a數(shù)組的位置,下標(biāo)從0開(kāi)始,不過(guò)記得處理下逗號(hào),因?yàn)檫@時(shí)候是字符串。'''如果index小于0說(shuō)明沒(méi)有匹配內(nèi)容End Sub 現(xiàn)在說(shuō)明下ByteArrayToString為什么要在字符串開(kāi)頭加個(gè)",",如果不加,可能出現(xiàn)a="1,23,4,5,6,", b="3,4,5,",結(jié)果導(dǎo)致查詢(xún)位置錯(cuò)誤,匹配了a的位置
先遍歷數(shù)組:
for?i?=?0?to?Ubound(數(shù)組)
...
next
再把中間的...替換成:
if?數(shù)組(i)?=?特定的字符?then?msgbox?"找到鳥(niǎo),當(dāng)前是:數(shù)組"??i
文章標(biāo)題:vb.net數(shù)組查找 VB中數(shù)組
文章網(wǎng)址:http://jinyejixie.com/article36/hpchsg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站排名、搜索引擎優(yōu)化、品牌網(wǎng)站設(shè)計(jì)、網(wǎng)站策劃、網(wǎng)站建設(shè)、建站公司
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話(huà):028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)