{"id":7532,"date":"2016-10-23T18:12:52","date_gmt":"2016-10-23T09:12:52","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=7532"},"modified":"2016-10-23T18:12:52","modified_gmt":"2016-10-23T09:12:52","slug":"%e3%83%aa%e3%83%9c%e3%83%b3%e3%83%bb%e3%82%ab%e3%82%b9%e3%82%bf%e3%83%9e%e3%82%a4%e3%82%badropdown%e8%a6%81%e7%b4%a0%e3%81%ae%e5%88%9d%e6%9c%9f%e9%a0%85%e7%9b%ae%e3%82%92%e6%8c%87%e5%ae%9a%e3%81%99","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=7532","title":{"rendered":"[\u30ea\u30dc\u30f3\u30fb\u30ab\u30b9\u30bf\u30de\u30a4\u30ba]dropDown\u8981\u7d20\u306e\u521d\u671f\u9805\u76ee\u3092\u6307\u5b9a\u3059\u308b\u3002"},"content":{"rendered":"

MSDN \u30d5\u30a9\u30fc\u30e9\u30e0\u306b\u300c\u30ea\u30dc\u30f3:\u30c9\u30ed\u30c3\u30d7\u30c0\u30a6\u30f3\u30ea\u30b9\u30c8\u306blabel\u521d\u671f\u5024\u3092\u8868\u793a<\/a>\u300d\u3068\u3044\u3046\u8cea\u554f\u304c\u3042\u308a\u307e\u3057\u305f\u3002
\nExcel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u305f\u3068\u304d\u306b\u3001\u30ab\u30b9\u30bf\u30de\u30a4\u30ba\u3057\u305f\u30c9\u30ed\u30c3\u30d7\u30c0\u30a6\u30f3\u306e\u521d\u671f\u5024\u3092\u6307\u5b9a\u3057\u305f\u3044\u3001\u3068\u3044\u3046\u8cea\u554f\u3067\u3059\u3002<\/p>\n

\u3053\u3046\u3044\u3063\u305f\u5834\u5408\u306f\u3001dropDown\u8981\u7d20\u306egetSelectedItemID<\/span>\u5c5e\u6027\u306e\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u3067\u5b50\u8981\u7d20\u306eid\u3092\u6307\u5b9a\u3001\u3082\u3057\u304f\u306fgetSelectedItemIndex<\/span>\u5c5e\u6027\u306e\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u3067\u5b50\u8981\u7d20\u306e\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3092\u6307\u5b9a\u3059\u308b\u3053\u3068\u3067\u5bfe\u5fdc\u53ef\u80fd\u3067\u3059\u3002<\/p>\n

\u5b50\u8981\u7d20\u306eid\u3092\u6307\u5b9a\u3059\u308b\u5834\u5408<\/h4>\n
<?xml version="1.0" encoding="utf-8"?>\r\n<customUI xmlns="http:\/\/schemas.microsoft.com\/office\/2006\/01\/customui">\r\n  <ribbon>\r\n    <tabs>\r\n      <tab id="tabSample" label="Sample Tab">\r\n        <group id="grpSample" label="Sample Group">\r\n          <dropDown id="ddnSample" label="Sample" getSelectedItemID="ddnSample_getSelectedItemID">\r\n            <item id="itm1" label="Item 01" \/>\r\n            <item id="itm2" label="Item 02" \/>\r\n            <item id="itm3" label="Item 03" \/>\r\n          <\/dropDown>\r\n        <\/group>\r\n      <\/tab>\r\n    <\/tabs>\r\n  <\/ribbon>\r\n<\/customUI><\/pre>\n
Option Explicit\r\n\r\nPublic Sub ddnSample_getSelectedItemID(control As IRibbonControl, ByRef returnedVal)\r\n  returnedVal = "itm2"\r\nEnd Sub<\/pre>\n
\"dropdown_getselecteditemid_01\"<\/p>\n
\u5b50\u8981\u7d20\u306e\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3092\u6307\u5b9a\u3059\u308b\u5834\u5408<\/h4>\n
<?xml version="1.0" encoding="utf-8"?>\r\n<customUI xmlns="http:\/\/schemas.microsoft.com\/office\/2006\/01\/customui">\r\n  <ribbon>\r\n    <tabs>\r\n      <tab id="tabSample" label="Sample Tab">\r\n        <group id="grpSample" label="Sample Group">\r\n          <dropDown id="ddnSample" label="Sample" getSelectedItemIndex="ddnSample_getSelectedItemIndex">\r\n            <item id="itm1" label="Item 01" \/>\r\n            <item id="itm2" label="Item 02" \/>\r\n            <item id="itm3" label="Item 03" \/>\r\n          <\/dropDown>\r\n        <\/group>\r\n      <\/tab>\r\n    <\/tabs>\r\n  <\/ribbon>\r\n<\/customUI><\/pre>\n
Option Explicit\r\n\r\nPublic Sub ddnSample_getSelectedItemIndex(control As IRibbonControl, ByRef returnedVal)\r\n  returnedVal = 2\r\nEnd Sub<\/pre>\n
\"dropdown_getselecteditemid_02\"<\/p>\n
dropDown\u8981\u7d20\u306e\u5b50\u8981\u7d20\u3092\u52d5\u7684\u306b\u8a2d\u5b9a\u3059\u308b\u5834\u5408<\/h4>\n
\u4e0a\u8a18\u4f8b\u3067\u306fdropDown\u8981\u7d20\u306e\u5b50\u8981\u7d20\u3068\u3057\u3066item\u8981\u7d20\u3092\u5b9a\u7fa9\u3057\u307e\u3057\u305f\u304c\u3001getItemCount\u3001getItemID\u3001getItemLabel\u3068\u3044\u3063\u305f\u5c5e\u6027\u306e\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u3092\u4f7f\u3046\u3053\u3068\u3067\u3001\u3053\u308c\u3089\u3092\u52d5\u7684\u306b\u8a2d\u5b9a\u3059\u308b\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u3002<\/p>\n
<?xml version="1.0" encoding="utf-8"?>\r\n<customUI onLoad="rbnSample_onLoad" xmlns="http:\/\/schemas.microsoft.com\/office\/2006\/01\/customui">\r\n  <ribbon>\r\n    <tabs>\r\n      <tab id="tabSample" label="Sample Tab">\r\n        <group id="grpSample" label="Sample Group">\r\n          <dropDown id="ddnSample" label="Sample" \r\n                    getItemCount="ddnSample_getItemCount"\r\n                    getItemID="ddnSample_getItemID"\r\n                    getItemLabel="ddnSample_getItemLabel"\r\n                    getSelectedItemID="ddnSample_getSelectedItemID"\r\n                    onAction="ddnSample_onAction" \/>\r\n        <\/group>\r\n      <\/tab>\r\n    <\/tabs>\r\n  <\/ribbon>\r\n<\/customUI><\/pre>\n
Option Explicit\r\n\r\nPrivate itm As Variant\r\n\r\nPublic Sub rbnSample_onLoad(ribbon As IRibbonUI)\r\n  '\u30c9\u30ed\u30c3\u30d7\u30c0\u30a6\u30f3\u3068\u3057\u3066\u8a2d\u5b9a\u3059\u308b\u9805\u76ee\u3092\u914d\u5217\u306b\u683c\u7d0d\u3057\u307e\u3059\u3002\r\n  itm = Array("\u30ea\u30f3\u30b4", "\u30d0\u30ca\u30ca", "\u30d1\u30a4\u30ca\u30c3\u30d7\u30eb", "\u30a4\u30c1\u30b4")\r\nEnd Sub\r\n\r\nPublic Sub ddnSample_getItemCount(control As IRibbonControl, ByRef returnedVal)\r\n  '\u914d\u5217\u306e\u8981\u7d20\u6570\u304b\u3089\u30c9\u30ed\u30c3\u30d7\u30c0\u30a6\u30f3\u306e\u9805\u76ee\u6570\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\r\n  returnedVal = UBound(itm) + 1\r\nEnd Sub\r\n\r\nPublic Sub ddnSample_getItemID(control As IRibbonControl, index As Integer, ByRef returnedVal)\r\n  '\u30c9\u30ed\u30c3\u30d7\u30c0\u30a6\u30f3\u306e\u5404\u9805\u76ee\u306eID\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\r\n  returnedVal = "itm" & index\r\nEnd Sub\r\n\r\nPublic Sub ddnSample_getItemLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)\r\n  '\u914d\u5217\u306b\u683c\u7d0d\u3057\u305f\u6587\u5b57\u5217\u304b\u3089\u30c9\u30ed\u30c3\u30d7\u30c0\u30a6\u30f3\u306e\u5404\u9805\u76ee\u306e\u30e9\u30d9\u30eb\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\r\n  returnedVal = itm(index)\r\nEnd Sub\r\n\r\nPublic Sub ddnSample_getSelectedItemID(control As IRibbonControl, ByRef returnedVal)\r\n  '\u30c7\u30d5\u30a9\u30eb\u30c8\u3067\u9078\u629e\u3055\u308c\u308b\u30c9\u30ed\u30c3\u30d7\u30c0\u30a6\u30f3\u306e\u9805\u76ee\u3092ID\u3067\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n  returnedVal = "itm2"\r\nEnd Sub\r\n\r\nPublic Sub ddnSample_onAction(control As IRibbonControl, id As String, index As Integer)\r\n  MsgBox "id:" & id & vbNewLine & _\r\n         "index:" & index & vbNewLine & _\r\n         itm(index), vbInformation + vbSystemModal\r\nEnd Sub<\/pre>\n
\"dropdown_getselecteditemid_03\"<\/p>\n
\n
\n