¥é¥¸¥ª¥Ü¥¿¥ó¤Î½é´üÃÍÀßÄê †
¥Ú¡¼¥¸ | OpenOffice.org FAQ¤ÎÅÐÏ¿¥Ú¡¼¥¸ |
---|---|
Åê¹Æ¼Ô | Dyna |
ʬÎà | |
Í¥Àè½ç°Ì | |
¾õÂÖ | |
¥«¥Æ¥´¥ê¡¼ | |
Åê¹ÆÆü | 2010-11-17 11:30:11 (¿å) |
OS | Windows XP |
°Í¸¤¹¤ë¥Ú¡¼¥¸ | |
¥Ð¡¼¥¸¥ç¥ó |
¥á¥Ã¥»¡¼¥¸ †
²óÅú¥Ú¡¼¥¸¤Ç¤Ï¹ÔËö¤Ë¡Ö~¡×¤òÉղ乤ëɬÍפϤ¢¤ê¤Þ¤»¤ó |
¥é¥¸¥ª¥Ü¥¿¥óÁªÂò¤Ë¤è¤ê½èÍýʬ´ô¤ò¹Ô¤¦¤è¤¦¤Ê¥Þ¥¯¥íºîÀ®¤ò¹Ô¤Ã¤Æ¤¤¤ë½é¿´¼Ô¤Ç¤¹¡£
¤³¤Á¤é¤Î¥µ¥¤¥È¤ò»²¹Í¤Ë¤µ¤»¤ÆÄº¤¤Ê¤¬¤é¡¢¥°¥ë¡¼¥×²½¤·¤¿¥é¥¸¥ª¥Ü¥¿¥ó¤ËÉղùàÌܤÎ
ÀßÄê¤ò¹Ô¤¦·Á¤ÇÁªÂò½èÍý¤òºîÀ®¤·¤Æ¤ß¤Þ¤·¤¿¤¬¡¢½é´üµ¯Æ°¾õÂ֤ǤΥǥե©¥ë¥ÈÃͤÎÀßÄê
ÊýË¡¤¬¤ï¤«¤é¤ºº¤¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£
¥¤¥Ù¥ó¥È¤Î¥Õ¥¡¥¤¥ë¤ò³«¤¤¤¿ºÝ¤Ë¥é¥¸¥ª¥Ü¥¿¥ó¤ÎTrue°ÌÃÖµÚ¤Ó¡¢ÆâÍÆÃÍ¡ÊÉղùàÌܡˤË
·è¤áÂǤÁ¤Ç¥Ç¥Õ¥©¥ë¥ÈÃͤòÀßÄꤹ¤ë¤è¤¦¤ÊÊýË¡¤Ã¤Æ¤¢¤ê¤Þ¤¹¤«¡©
Ä´¤Ù¤Æ¤ß¤Æ¤âÍý²ò¤Ç¤¤ë¤â¤Î¤¬¤¢¤ê¤Þ¤»¤ó¤Ç¤·¤¿¤Î¤Ç¡¦¡¦¡¦¡£
ÊýË¡¤¬¤¢¤ê¤Þ¤·¤¿¤é¡¢¤´½õ¸À´ê¤¤¤Þ¤¹¡£ ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£
ɸ½à¥¹¥Æ¡¼¥¿¥¹ †
¤Ï¤Ë¤ã? (2010-11-17 18:09:14 (¿å))
¥Õ¥©¡¼¥à¥³¥ó¥È¥í¡¼¥ë¤Î°À¤òÀßÄꤹ¤ë¥À¥¤¥¢¥í¥°¤Ç¡¢É¸½à¥¹¥Æ¡¼¥¿¥¹¤ÎÃͤò¡ÖÁªÂò¤µ¤ì¤Æ¤¤¤Þ¤¹¡×¤Ë¤·¤Þ¤¹¡£
°ú¤Â³¤¤Ç¡¦¡¦¡¦m(__)m †
Dyna (2010-11-17 20:57:09 (¿å))
¤´²óÅú¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
ÀßÄê¤ò¹Ô¤¦¤Î¤Ï¥í¡¼¥É»þ¤Ë¥Ç¥Õ¥©¥ë¥È¤È¤·¤¿¤¤Êª¤À¤±¤Ç¤¢¤Ã¤Æ¤¤¤Þ¤¹¤«¡©
½Å¤Í½Å¤Í¤Ç¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¤¬¡¢¥í¡¼¥É»þ¤Î½é´üÃÍ¡ÊÆâÉôÃ͡ˤòBASIC¤Î
¥½¡¼¥¹Æâ¤Ç¼èÆÀ¤¹¤ëµ½ÒÊýË¡¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£
¥¤¥Ù¥ó¥È¤Î¥Õ¥¡¥¤¥ë¤ò³«¤¤¤¿ºÝ¤Ë¥Ç¥Õ¥©¥ë¥ÈÃͤòÊÑ¿ô¤Ë»ý¤¿¤»¤ë¤Ë¤Ï
¤É¤Î¤è¤¦¤Ëµ½Ò¤ò¤·¤¿¤é¤è¤¤¤Ç¤·¤ç¤¦¤«¡©
¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡Ê´À¡Ë
°ú¤Â³¤¤ª´ê¤¤¤·¤Þ¤¹¡£
Re: °ú¤Â³¤¤Ç¡¦¡¦¡¦m(__)m †
M.Kamataki (2010-11-17 21:42:53 (¿å))
¤Ï¤Ë¤ã?¤µ¤ó¤ÎOOoBasic Wiki¥µ¥¤¥È¤Î°Ê²¼¤Î¥Ú¡¼¥¸¤Ï¤´Í÷¤Ë¤Ê¤ê¤Þ¤·¤¿¤«¡£
OOoBasic/Dialog/OptionButton
http://hermione.s41.xrea.com/pukiwiki/pukiwiki.php?OOoBasic%2FDialog%2FOptionButton
¥°¥ë¡¼¥×¥Ü¥Ã¥¯¥¹¤Ï¥¦¥£¥¶¡¼¥É¤Ç¤âÀßÄê²Äǽ †
M.Kamataki (2010-11-17 21:34:29 (¿å))
¥é¥¸¥ª¥Ü¥¿¥ó¡Ê¥ª¥×¥·¥ç¥ó¥Ü¥¿¥ó¡Ë¤ò¥°¥ë¡¼¥×²½¤¹¤ëÊýË¡¤È¤ÏÊ̤˽é¤á¤«¤é¥°¥ë¡¼¥×¥Ü¥Ã¥¯¥¹¤òºîÀ®¤¹¤ëÊýË¡¤â¤¢¤ê¤Þ¤¹¡£¤Û¤Ü¡¢¤³¤Î¥Ú¡¼¥¸¤Ç¤Ï;Ã̤Ǥ¹¤¬¡¢°ì±þ½ñ¤¤¤Æ¤ª¤¤Þ¤¹¡£
faq/4/1460¡Öʸ¾Ï¤ÎÀèÆ¬¤Ë¡É¥ìÅÀ¡É¤òÆþ¤ì¤é¤ì¤ë¥Ü¥Ã¥¯¥¹¤òÃÖ¤¤¿¤¤¡×¤Î¥³¥á¥ó¥È¡Ö¥é¥¸¥ª¥Ü¥¿¥ó¤Ï¥°¥ë¡¼¥×¥Ü¥Ã¥¯¥¹¤Ç¡×¤Ë¥°¥ë¡¼¥×¥Ü¥Ã¥¯¥¹¤ÎºîÀ®Î㤬¤¢¤ê¤Þ¤¹¡£
°Ê²¼¤Î²èÌ̤Τ褦¤Ë¡Ö¥³¥ó¥È¥í¡¼¥ë¤ÎÁªÂò¡×¥Ð¡¼¤Î¡Ö¥°¥ë¡¼¥×¥Ü¥Ã¥¯¥¹¡×¥Ü¥¿¥ó¤ò¥ª¥ó¤Ë¤·¤Æ¡¢¥°¥ë¡¼¥×¥Ü¥Ã¥¯¥¹¤òºîÀ®¤¹¤ë¤È¡Ö¥°¥ë¡¼¥×¹½À®Í×ÁÇ¥¦¥£¥¶¡¼¥É¡×¤¬µ¯Æ°¤·¤Þ¤¹¡£
¡Ö¥°¥ë¡¼¥×¹½À®Í×ÁÇ¥¦¥£¥¶¡¼¥É¡×¤Î°Ê²¼¤Î²èÌ̤ǡ֤Ϥ¤¡¢°Ê²¼¤Î¤È¤ª¤ê¤Ç¤¹¡×¤Î¥É¥í¥Ã¥×¥À¥¦¥ó¥ê¥¹¥È¤Ç¥é¥¸¥ª¥Ü¥¿¥ó¤Î¥¢¥¤¥Æ¥à¤òÁª¤Ö¤È¡¢¤½¤ì¤¬¤Ï¤Ë¤ã?¤µ¤ó¤Î»ØÅ¦¤µ¤ì¤¿É¸½à¥¹¥Æ¡¼¥¿¥¹¤ÎÃͤò¡ÖÁªÂò¤µ¤ì¤Æ¤¤¤Þ¤¹¡×¤Ë¤Ê¤ê¤Þ¤¹¡£
¾å¤Î²èÌ̤Τ褦¤Ë¡Ö¥¢¥¤¥Æ¥à3¡×¤òÁª¤Ù¤Ð¡¢°Ê²¼¤Î²èÌ̤Τ褦¤ËºîÀ®¤µ¤ì¤¿¥°¥ë¡¼¥×¥Ü¥Ã¥¯¥¹¤ÎÃæ¤Î¥é¥¸¥ª¥Ü¥¿¥ó¤ÎÁªÂò¾õÂ֤ϡ֥¢¥¤¥Æ¥à3¡×¤È¤Ê¤ê¤Þ¤¹¡£
¤Ê¤ª¡¢¾å¤Î²èÌ̤ǡ֥¢¥¤¥Æ¥à1¡×¤òÁª¤ó¤Ç¥Õ¥¡¥¤¥ë¤òÊݸ¤¹¤ë¤È¡¢º£Å٤ϥ³¥ó¥È¥í¡¼¥ë¦¤Îɸ½à¥¹¥Æ¡¼¥¿¥¹¤ÎÀßÄê¤Ï̵»ë¤µ¤ì¤Æ¡¢Êݸ¾õÂÖ¤¬ºÆ¸½¤µ¤ì¤Þ¤¹¡£
¤³¤Î¤è¤¦¤Êưºî¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
ɸ½à¥¹¥Æ¡¼¥¿¥¹¤ÎÁàºî¤Ë¤Ä¤¤¤Æ †
Dyna (2010-11-18 11:27:04 (ÌÚ))
M.Kamataki ¤µ¤ó~
Èó¾ï¤Ë¤´ÃúÇ«¤Ê²òÀâ¡¢¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£~
Áᮡ¢¤Ï¤Ë¤ã?¤µ¤ó¤Î¥µ¥¤¥È¤Î»²¾È¤È¡¢¤´¶µ¼øÄº¤¤Þ¤·¤¿¥°¥ë¡¼¥×¥Ü¥Ã¥¯¥¹¤ò~
»î¤·¤Æ¤ß¤Þ¤·¤¿¡£~
½é´üÀßÄê¤È¤·¤Æ¤Ï¹Ô¤¨¤Þ¤·¤¿¤¬¡¢¤¤¤Þ¤¤¤Á½èÍýȽÄê¤Ë»ÈÍѤ¹¤ë°Ù¤ÎState¤Î~
½¦¤¤Êý¡õ¥»¥Ã¥È¤Î»ÅÊý¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£~
getState¡¢setState¤Ç¹Ô¤¤¤¿¤¤¤³¤È¤¬¼Â¸½¤Ç¤¤½¤¦¤Êµ¤¤¬¤¹¤ë¤Î¤Ç¤¹¤¬¡¢~
¤ï¤«¤ê¤Þ¤·¤¿¤é¡¢Basicµ½ÒÎã¤ò¶µ¤¨¤Æ¤¤¤¿¤À¤±¤Þ¤»¤ó¤Ç¤·¤ç¤¦¤«¡£¡£¡£~
¡StateÃͤòȽÄê¤Ë»ÈÍѤ¹¤ë°Ù¤Îµ½Ò~
¢¥Õ¥¡¥¤¥ë¤Î³«¤¤¤¿ºÝ¤Ëɸ½à¥¹¥Æ¡¼¥¿¥¹¤Î¼èÆÀ~
¤¬²ò¤ì¤ÐÁ°¤Ø¿Ê¤á¤½¤¦¤Ê´¶¤¸¤Ç¤¹¡£~
¥ÉÁǿͤʤâ¤Î¤Ç¡¢¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£µ¹¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£
¥É¥¥å¥á¥ó¥È¤ÎÊݸ¤Ç¾õÂÖ»ØÄ꤬¤ê¤Ê¤¤¾ì¹ç †
¤Ï¤Ë¤ã? (2010-11-19 01:48:55 (¶â))
¥É¥¥å¥á¥ó¥È¤ò³«¤¤¤¿»þ¤Ê¤É¤Î¥¤¥Ù¥ó¥È¤Ë¼¡¤Î¥Þ¥¯¥í¤ò³ä¤êÅö¤Æ¤Þ¤¹¡£°Ê²¼¤Î¥³¡¼¥É¤Ç¤Ï¥Õ¥©¡¼¥àµ¡Ç½¤Ç³ÈÄ¥¤µ¤ì¤Æ¤¤¤ëÊýË¡¤òÍøÍѤ·¤Æ¤¤¤Þ¤¹¡£
ChooseRadioValue ´Ø¿ô¤Ç»ØÄꤷ¤¿¥é¥¸¥ª¥Ü¥¿¥ó¥°¥ë¡¼¥×¤Î¤¦¤Á¤ÎÆÃÄê¤ÎÃͤ˳ä¤êÅö¤Æ¤é¤ì¤¿¤â¤Î¤òÁªÂò¤µ¤»¤Þ¤¹¡£
GetRadioValue ´Ø¿ô¤Ç¥é¥¸¥ª¥Ü¥¿¥ó¥°¥ë¡¼¥×¤Ç¸½ºßÁªÂò¤µ¤ì¤Æ¤¤¤ë¤â¤Î¤Ë³ä¤êÅö¤Æ¤é¤ì¤¿Ãͤò¼èÆÀ¤·¤Þ¤¹¡£
RefValue ¥×¥í¥Ñ¥Æ¥£¤Ï¥°¥ë¡¼¥×ºîÀ®¥À¥¤¥¢¥í¥°¤Ç»ØÄꤷ¤¿ÃͤòÊÝ»ý¤·¤Æ¤¤¤Þ¤¹¡£
Const RADIO_GROUP_1 As String = "RadioGroup1" Sub DocumentLoadEvent(ev) ' oDoc = ThisComponent oDoc = ev.Source oController = oDoc.getCurrentController() oSheet = oDoc.getSheets().getByIndex(0) oForm = oSheet.getDrawPage().getForms().getByIndex(0) ' ÃͤòÀßÄê ChooseRadioValue(oForm, RADIO_GROUP_1, "2") ' Ãͤò¼èÆÀ sValue = GetRadioValue(oForm, RADIO_GROUP_1) msgbox sValue End Sub Function GetRadioValue(oForm As Object, _ sRadioGroupName As String) As String Dim sFound As String Dim oControlModels() As Object oForm.getGroupByName(sRadioGroupName, oControlModels) For i = 0 To UBound(oControlModels) step 1 oControlModel = oControlModels(i) 'If oControlModel.State = 1 Then If oControlModel.CurrentValue = 1 Then sFound = oControlModel.RefValue Exit For End If Next GetRadioValue = sFound End Function Function ChooseRadioValue(oForm As Object, _ sRadioGroupName As String, nRefValue As String) Dim oControlModels() As Object oForm.getGroupByName(sRadioGroupName, oControlModels) For i = 0 To UBound(oControlModels) step 1 oControlModel = oControlModels(i) If oControlModel.RefValue = nRefValue Then oControlModel.State = 1 Exit For End If Next End Function
ɸ½à¥¹¥Æ¡¼¥¿¥¹¤ÏÊݸ»þ¤ËÁªÂò¤µ¤ì¤Æ¤¤¤¿¹àÌܤˤʤë¤È»×¤¤¤Þ¤¹¡£
¾åµ¤ÎÊýË¡¤Ç¥é¥¸¥ª¥Ü¥¿¥ó¤òÀÚ¤êÂØ¤¨¤ë¤È¥¤¥Ù¥ó¥È¤¬È¯À¸¤¹¤ë¤«¤É¤¦¤«³Îǧ¤·¤Æ¤¤¤Þ¤»¤ó¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤Þ¤·¤¿ †
Dyna (2010-11-19 15:08:16 (¶â))
¤Ï¤Ë¤ã? ¤µ¤ó
Àµ¤Ë¹Ô¤¤¤¿¤«¤Ã¤¿»ö¤¬¼ÂÁõ¤Ç¤¤Þ¤·¤¿¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
»²¹Í¥³¡¼¥É¤ò¸«¤Æ¡¢ÁÛÁü¤·¤Æ¤¤¤¿¤â¤Î¤è¤êÍÚ¤«¤Ë¹©Éפ¬É¬ÍפǤ·¤¿¤Î¤Ç¥Ó¥Ã¥¯¥ê¤·¤Þ¤·¤¿¡£
¾¤Î¥¤¥Ù¥ó¥È¤â³Îǧ¤·¤Þ¤·¤¿¤¬¡¢¤¦¤Þ¤¯Æ°¤¤¤Æ¤¯¤ì¤Æ¤¤¤ë¤è¤¦¤Ç¤¹¡£