這個很簡單,寫了兩種方法
1,標籤標記法,程式碼少,但前期要給要操作的每個標籤進行標記。沒有標記的不予處理
2,尋找元件法,只要是標籤都可以改標題,程式碼稍多幾行。
如果標籤很多,還可以用複製元件的方法,動態新增,在新增的時候就可以順便更改標題了,自己摸索一下,也很簡單
原始碼直接複製
.版本 2
.程式集 視窗程式集1
.子程式 __啟動視窗_建立完畢
" 友情提示:元件的標記可以在左邊的屬性欄直接修改,這裡做演示就動態新增一下
標籤1.標記 = “1”
標籤2.標記 = “2”
標籤3.標記 = “3”
標籤4.標記 = “4”
標籤5.標記 = “5”
標籤6.標記 = “6”
標籤7.標記 = “7”
標籤8.標記 = “8”
.區域性變數 a, 整數型
.區域性變數 標籤, 標籤
.計次迴圈首 (8, a) " 8個標籤迴圈8次。n個標籤迴圈n次
標籤 = 取標記元件 (a)
標籤.標題 = “標籤” + 到文字 (a) " 沒有標記的標籤不予處理
.計次迴圈尾 ()
.區域性變數 標籤尋找控制代碼, 整數型
.區域性變數 標籤名稱, 文字型
.區域性變數 數字, 文字型
標籤尋找控制代碼 = 尋找元件 (_啟動視窗, “標籤”, “標籤”, , )
.計次迴圈首 (取找到元件數目 (標籤尋找控制代碼), a)
標籤 = 取所找到元件 (標籤尋找控制代碼, a - 1) " 索引從0開始
標籤名稱 = 取元件名稱 (標籤)
數字 = 取文字右邊 (標籤名稱, 取文字長度 (標籤名稱) - 4)
數字 = 到文字 (到整數 (數字)) " 標籤名稱不是“標籤+數字”的,標題都會賦值為“標籤0”
標籤.標題 = “標籤” + 數字
這個很簡單,寫了兩種方法
1,標籤標記法,程式碼少,但前期要給要操作的每個標籤進行標記。沒有標記的不予處理
2,尋找元件法,只要是標籤都可以改標題,程式碼稍多幾行。
如果標籤很多,還可以用複製元件的方法,動態新增,在新增的時候就可以順便更改標題了,自己摸索一下,也很簡單
原始碼直接複製
.版本 2
.程式集 視窗程式集1
.子程式 __啟動視窗_建立完畢
" 友情提示:元件的標記可以在左邊的屬性欄直接修改,這裡做演示就動態新增一下
標籤1.標記 = “1”
標籤2.標記 = “2”
標籤3.標記 = “3”
標籤4.標記 = “4”
標籤5.標記 = “5”
標籤6.標記 = “6”
標籤7.標記 = “7”
標籤8.標記 = “8”
.區域性變數 a, 整數型
.區域性變數 標籤, 標籤
.計次迴圈首 (8, a) " 8個標籤迴圈8次。n個標籤迴圈n次
標籤 = 取標記元件 (a)
標籤.標題 = “標籤” + 到文字 (a) " 沒有標記的標籤不予處理
.計次迴圈尾 ()
.區域性變數 標籤尋找控制代碼, 整數型
.區域性變數 a, 整數型
.區域性變數 標籤, 標籤
.區域性變數 標籤名稱, 文字型
.區域性變數 數字, 文字型
標籤尋找控制代碼 = 尋找元件 (_啟動視窗, “標籤”, “標籤”, , )
.計次迴圈首 (取找到元件數目 (標籤尋找控制代碼), a)
標籤 = 取所找到元件 (標籤尋找控制代碼, a - 1) " 索引從0開始
標籤名稱 = 取元件名稱 (標籤)
數字 = 取文字右邊 (標籤名稱, 取文字長度 (標籤名稱) - 4)
數字 = 到文字 (到整數 (數字)) " 標籤名稱不是“標籤+數字”的,標題都會賦值為“標籤0”
標籤.標題 = “標籤” + 數字
.計次迴圈尾 ()