CommandButton1.Locked = True
CommandButton2.Locked = True
CommandButton3.Locked = True
CommandButton4.Locked = True
CommandButton5.Locked = True
CommandButton6.Locked = True
CommandButton7.Locked = True
CommandButton8.Locked = True
CommandButton9.Locked = True
CommandButton10.Locked = True
謝謝:)
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 152.78.254.244
> -------------------------------------------------------------------------- <
作者: Dumkas (冬之旅人的雪蹤) 看板: Visual_Basic
標題: Re: [問題] 怎麼濃縮這一串東西??
時間: Fri Feb 7 12:03:24 2003
※ 引述《b85012007 (KGB)》之銘言：
: CommandButton1.Locked = True
: CommandButton2.Locked = True
: CommandButton3.Locked = True
: CommandButton4.Locked = True
: CommandButton5.Locked = True
: CommandButton6.Locked = True
: CommandButton7.Locked = True
: CommandButton8.Locked = True
: CommandButton9.Locked = True
: CommandButton10.Locked = True
: 謝謝:)
用物件陣列
然後用迴圈
--
「願原力與你同在。」
─歐比旺‧肯諾比《星際大戰》
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 61.216.80.123
> -------------------------------------------------------------------------- <
作者: b85012007 (KGB) 看板: Visual_Basic
標題: Re: [問題] 怎麼濃縮這一串東西??
時間: Fri Feb 7 15:58:14 2003
※ 引述《Dumkas (冬之旅人的雪蹤)》之銘言：
: ※ 引述《b85012007 (KGB)》之銘言：
: : CommandButton1.Locked = True
: : CommandButton2.Locked = True
: : CommandButton3.Locked = True
: : CommandButton4.Locked = True
: : CommandButton5.Locked = True
: : CommandButton6.Locked = True
: : CommandButton7.Locked = True
: : CommandButton8.Locked = True
: : CommandButton9.Locked = True
: : CommandButton10.Locked = True
: : 謝謝:)
: 用物件陣列
: 然後用迴圈
是降子嗎??
Fora=1to10
Array("CommandButton"a).locked=true
Next a
再請問一下
Private Sub CommandButton1_Click()
CommandButton1.Caption = "X"
CommandButton1.Locked = True
P(1, 1, 1) = 1
Call AfterClick
End Sub
Private Sub CommandButton2_Click()
CommandButton2.Caption = "X"
CommandButton2.Locked = True
P(1, 1, 2) = 1
Call AfterClick
End Sub
Private Sub CommandButton3_Click()
CommandButton3.Caption = "X"
CommandButton3.Locked = True
P(1, 1, 3) = 1
Call AfterClick
End Sub
Private Sub CommandButton4_Click()
CommandButton4.Caption = "X"
CommandButton4.Locked = True
P(1, 1, 4) = 1
Call AfterClick
End Sub
這可以濃縮嗎
如果我把物件名稱分別改成
111
112
113
114
可以有辦法把名稱轉換成P(x,y,z)嗎
thank you!!
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 152.78.254.244
> -------------------------------------------------------------------------- <
作者: virdust2003 (天氣好心情好大家好) 看板: Visual_Basic
標題: Re: [問題] 怎麼濃縮這一串東西??
時間: Fri Feb 7 18:52:36 2003
哈哈,
你可試試,要改喔
Dim x As Control
For Each x In Me.Controls
If TypeOf x Is CommandButton Then
if instr(x.name,"XXXXXXXX") then x.lock = True
end if
Next
但還是用物件陣列才好,我只是提一下有這種方法
※ 引述《b85012007 (KGB)》之銘言：
: ※ 引述《Dumkas (冬之旅人的雪蹤)》之銘言：
: : 用物件陣列
: : 然後用迴圈
: 是降子嗎??
: Fora=1to10
: Array("CommandButton"a).locked=true
: Next a
: 再請問一下
: Private Sub CommandButton1_Click()
: CommandButton1.Caption = "X"
: CommandButton1.Locked = True
: P(1, 1, 1) = 1
: Call AfterClick
: End Sub
: Private Sub CommandButton2_Click()
: CommandButton2.Caption = "X"
: CommandButton2.Locked = True
: P(1, 1, 2) = 1
: Call AfterClick
: End Sub
: Private Sub CommandButton3_Click()
: CommandButton3.Caption = "X"
: CommandButton3.Locked = True
: P(1, 1, 3) = 1
: Call AfterClick
: End Sub
: Private Sub CommandButton4_Click()
: CommandButton4.Caption = "X"
: CommandButton4.Locked = True
: P(1, 1, 4) = 1
: Call AfterClick
: End Sub
: 這可以濃縮嗎
: 如果我把物件名稱分別改成
: 111
: 112
: 113
: 114
: 可以有辦法把名稱轉換成P(x,y,z)嗎
: thank you!!
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 140.113.93.174
> -------------------------------------------------------------------------- <
作者: virdust2003 (天氣好心情好大家好) 看板: Visual_Basic
標題: Re: [問題] 怎麼濃縮這一串東西??
時間: Fri Feb 7 18:53:10 2003
你沒有msdn嗎/
去看一下
index屬性
※ 引述《b85012007 (KGB)》之銘言：
: ※ 引述《Dumkas (冬之旅人的雪蹤)》之銘言：
: : 用物件陣列
: : 然後用迴圈
: 是降子嗎??
: Fora=1to10
: Array("CommandButton"a).locked=true
: Next a
: 再請問一下
: Private Sub CommandButton1_Click()
: CommandButton1.Caption = "X"
: CommandButton1.Locked = True
: P(1, 1, 1) = 1
: Call AfterClick
: End Sub
: Private Sub CommandButton2_Click()
: CommandButton2.Caption = "X"
: CommandButton2.Locked = True
: P(1, 1, 2) = 1
: Call AfterClick
: End Sub
: Private Sub CommandButton3_Click()
: CommandButton3.Caption = "X"
: CommandButton3.Locked = True
: P(1, 1, 3) = 1
: Call AfterClick
: End Sub
: Private Sub CommandButton4_Click()
: CommandButton4.Caption = "X"
: CommandButton4.Locked = True
: P(1, 1, 4) = 1
: Call AfterClick
: End Sub
: 這可以濃縮嗎
: 如果我把物件名稱分別改成
: 111
: 112
: 113
: 114
: 可以有辦法把名稱轉換成P(x,y,z)嗎
: thank you!!
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 140.113.93.174
> -------------------------------------------------------------------------- <
作者: Dumkas (冬之旅人的雪蹤) 看板: Visual_Basic
標題: Re: [問題] 怎麼濃縮這一串東西??
時間: Fri Feb 7 20:22:24 2003
你把第一個物件設定好Name屬性
複製物件貼到表單上，按是
這樣一直貼出來的東西Name相同
但以Index分別
如果第一個叫做cmdExample的話
就是cmdExample(0)、cmdExample(1)...(一維陣列)
就可以用For迴圈跑陣列啦...只要三行
--
「願原力與你同在。」
─歐比旺‧肯諾比《星際大戰》
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 61.216.80.123
※ 編輯: Dumkas 來自: 61.216.80.123 (02/07 20:30)