½Ð±Ð¦U¦ì¥ý¶i¦hÓOptionButton³]©w
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 1# acdx
If TypeName(opt2) = "OptionButton" then '¥ý½T©wopt2¬OOptionButton±±¨î¶µ
If opt2.Value Then '¤~¯à½T©w¥¦¦³ValueÄÝ©Ê
flg = True
PR_Index = opt2.Caption
Exit For
End If
End if |
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 5# acdx
·í§ÚªºUserform¸Ì¦³¦hÓframe§t¦³OptionButton®É¸Ó¦p¦óÁקKµ{¦¡¨C¦¸³£¥Ñ²Ä¤@Ó(OptionButton11)¶}©lÀˬd?
µ{¦¡¤£·|±q²Ä¤@ÓÀˬd
For Each opt2 In Frame28.Controls
³o¬O¹ï©Ò¦³¦bFrame28¤º³¡ªº±±¨î¶µ¡A°£«D§AªºFrame5¤S¦bFrame28¤º³¡¡A§_«hÀ³¸Ó¤£·|¦³§A»¡ªº±¡ªp¡C
¨º¡A°²³]Frame5¯uªº¦bFrame28¤º³¡¡A
§A¥u·QÀˬdFrame28¤º²Ä¤@¼hªºOptionButton(¤£§t¤lFrame¤º³¡ªºOptionButton)
¥i¥H¥Î..
For Each opt2 In Frame28.Controls
If opt2.parent is Frame28 and TypeName(opt2) = "OptionButton" then
³o¼Ë¥h¿z¿ï |
|
|
|
|
|
|