用字符串保存兩個(gè)數(shù)據(jù),當(dāng)然只有你這種辦法,另外提供你其它思路:
站在用戶(hù)的角度思考問(wèn)題,與客戶(hù)深入溝通,找到德化網(wǎng)站設(shè)計(jì)與德化網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗(yàn),讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個(gè)性化、用戶(hù)體驗(yàn)好的作品,建站類(lèi)型包括:成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、空間域名、虛擬空間、企業(yè)郵箱。業(yè)務(wù)覆蓋德化地區(qū)。
1. flexcell增加兩列,這兩列隱藏不顯示,額外數(shù)據(jù)可以從這兩列讀取
2. 用自定義類(lèi)型數(shù)組,保存這兩列數(shù)據(jù),數(shù)組順序和表格一樣,或者數(shù)組中增加一個(gè)ID元素,與表格對(duì)應(yīng)
字符串的操作應(yīng)用
[vb]
Module Module
Sub Main()
定義 個(gè)字符串變量
Dim str str str As String
給str str 付初值
str = Hello : str = World
Console WriteLine( 方法Concat )
連接一個(gè)或多個(gè)字符串
Console WriteLine( str ={ } str ={ } String Concat(str str )={ } str str String Concat(str str ))
判斷字符串中是否具有相同的值返回類(lèi)型為布爾型
Console WriteLine( 方法Equals )
Console WriteLine( str ={ } str ={ } String Equals(str )={ } str str str Equals(str ))
在字符串中指定索引位置插入指定的字符串
Console WriteLine( 方法Insert )
str = : str = aaa
Console WriteLine( str ={ } str ={ } str Insert( str )={ } str str str Insert( str ))
左右對(duì)齊字符串中的字符
Console WriteLine( 方法PadLeft/PadRight )
str = World : str = 世界
Console WriteLine( str ={ } str )
Console WriteLine( str PadLeft( * )={ } str PadRight( * )={ } str PadLeft( * ) str PadRight( * ))
Console WriteLine( str ={ } str )
Console WriteLine( str PadLeft( * )={ } str PadRight( * )={ } str PadLeft( * ) str PadRight( * ))
找出指定字符串或字符轉(zhuǎn)在此字符串中的第一個(gè) 最后一個(gè)匹配項(xiàng)的索引位置
Console WriteLine( 方法IndexOf/LastIndexOf )
str = Visual Basic NET ASP NET C# NET
Console WriteLine( str ={ } str )
Console WriteLine( str IndexOf( NET )={ } str LastIndexOf( NET )={ } str IndexOf( NET ) str LastIndexOf( NET ))
將字符串中的字符復(fù)制到字符串?dāng)?shù)組
Console WriteLine( 方法ToCharArray )
str = str ToCharArray(str IndexOf( NET ) )
Console WriteLine( str ={ } str )
Console WriteLine( str ToCharArray(str IndexOf( NET ) )={ } str )
在指定字符串?dāng)?shù)組的每個(gè)元素之間串聯(lián)指定的分隔符 產(chǎn)生單個(gè)串聯(lián)的字符串
Console WriteLine( 方法Join )
Dim myArray( ) As String
myArray( ) = I : myArray( ) = am : myArray( ) = a : myArray( ) = student
For i As Integer = To
Console Write( myArrat({ })={ } i myArray(i))
Next
Console WriteLine()
Console WriteLine( String Join( * myArray)={ } String Join( * myArray))
此字符串中刪除指定個(gè)數(shù)字符
Console WriteLine( 方法Remove )
str =
Console WriteLine( str ={ } str Remove( )={ } str str Remove( ))
將此字符串指定字符串字符的所有匹配項(xiàng)代替為其他指定字符串
Console WriteLine( 方法Replace )
str =
str = abc
Console WriteLine( str ={ } str ={ } str ={ } str Replace(str str )={ } str str str str Replace(str str ))
從此字符串檢索字符串
Console WriteLine( 方法SubString )
Console WriteLine( str ={ } str Substring( )={ } str str Substring( ))
Console ReadLine()
End Sub
lishixinzhi/Article/program/net/201311/13956
直接For就行了
Dim ctl As Control
Dim lbl as Label
For Each ctl In Me.Controls
If ctl.GetType.ToString = "System.Windows.Forms.Label" Then
lbl = CType(ctl,Label)
'得到一個(gè)Label,可以對(duì)它進(jìn)行賦值操作了
Msgbox lbl.Name
End If
Next
字符串加變量?還是用類(lèi)似于VB6的控件數(shù)組方便些:
Dim lbl() = { Label1, Label2, Label3, .... } '先將窗體上的Label控件定義為數(shù)組
i=1
lbl(i).Text = "xxxx" '然后當(dāng)作控件數(shù)組來(lái)用
請(qǐng)參考下面的代碼,希望能幫到你。
假設(shè)在richtextbox1中查找字符串"你是誰(shuí)":
Dim start As Integer = richtextbox1.Find("你是誰(shuí)", 0, RichTextBoxFinds.MatchCase)
if (start = 0) {
richtextbox1.SelectionStart = start
richtextbox1.SelectionLength = "你是誰(shuí)".Length
}