日记首页
|
列表
|
添加日记
|
管理登陆
标题：vba中，复合框直接显示第一个选项
<div><span style="background-color: rgb(248, 248, 248); font-size: 14px;"><font face="-apple-system, BlinkMacSystemFont, Segoe UI, Helvetica, Arial, sans-serif, Apple Color Emoji, Segoe UI Emoji">vba中，复合框（复选框）直接显示第一个选项</font></span></div><div><span style="font-family: -apple-system, BlinkMacSystemFont, "Segoe UI", Helvetica, Arial, sans-serif, "Apple Color Emoji", "Segoe UI Emoji"; font-size: 14px; background-color: rgb(248, 248, 248);">在VBA中，可以通过设置</span><code style="--un-rotate:0; --un-rotate-x:0; --un-rotate-y:0; --un-rotate-z:0; --un-scale-x:1; --un-scale-y:1; --un-scale-z:1; --un-skew-x:0; --un-skew-y:0; --un-translate-x:0; --un-translate-y:0; --un-translate-z:0; --un-pan-x: ; --un-pan-y: ; --un-pinch-zoom: ; --un-scroll-snap-strictness:proximity; --un-ordinal: ; --un-slashed-zero: ; --un-numeric-figure: ; --un-numeric-spacing: ; --un-numeric-fraction: ; --un-border-spacing-x:0; --un-border-spacing-y:0; --un-ring-offset-shadow:0 0 rgba(0,0,0,0); --un-ring-shadow:0 0 rgba(0,0,0,0); --un-shadow-inset: ; --un-shadow:0 0 rgba(0,0,0,0); --un-ring-inset: ; --un-ring-offset-width:0px; --un-ring-offset-color:#fff; --un-ring-width:0px; --un-ring-color:rgba(147,197,253,0.5); --un-blur: ; --un-brightness: ; --un-contrast: ; --un-drop-shadow: ; --un-grayscale: ; --un-hue-rotate: ; --un-invert: ; --un-saturate: ; --un-sepia: ; --un-backdrop-blur: ; --un-backdrop-brightness: ; --un-backdrop-contrast: ; --un-backdrop-grayscale: ; --un-backdrop-hue-rotate: ; --un-backdrop-invert: ; --un-backdrop-opacity: ; --un-backdrop-saturate: ; --un-backdrop-sepia: ; box-sizing: border-box; border-width: 0px; border-style: solid; font-size: 12px; font-family: ui-monospace, SFMono-Regular, "SF Mono", Menlo, Consolas, "Liberation Mono", monospace; padding: 0.2em 0.4em; margin: 0px; background-color: rgba(175, 184, 193, 0.2); border-radius: 6px;">ComboBox</code><span style="font-family: -apple-system, BlinkMacSystemFont, "Segoe UI", Helvetica, Arial, sans-serif, "Apple Color Emoji", "Segoe UI Emoji"; font-size: 14px; background-color: rgb(248, 248, 248);">控件的</span><code style="--un-rotate:0; --un-rotate-x:0; --un-rotate-y:0; --un-rotate-z:0; --un-scale-x:1; --un-scale-y:1; --un-scale-z:1; --un-skew-x:0; --un-skew-y:0; --un-translate-x:0; --un-translate-y:0; --un-translate-z:0; --un-pan-x: ; --un-pan-y: ; --un-pinch-zoom: ; --un-scroll-snap-strictness:proximity; --un-ordinal: ; --un-slashed-zero: ; --un-numeric-figure: ; --un-numeric-spacing: ; --un-numeric-fraction: ; --un-border-spacing-x:0; --un-border-spacing-y:0; --un-ring-offset-shadow:0 0 rgba(0,0,0,0); --un-ring-shadow:0 0 rgba(0,0,0,0); --un-shadow-inset: ; --un-shadow:0 0 rgba(0,0,0,0); --un-ring-inset: ; --un-ring-offset-width:0px; --un-ring-offset-color:#fff; --un-ring-width:0px; --un-ring-color:rgba(147,197,253,0.5); --un-blur: ; --un-brightness: ; --un-contrast: ; --un-drop-shadow: ; --un-grayscale: ; --un-hue-rotate: ; --un-invert: ; --un-saturate: ; --un-sepia: ; --un-backdrop-blur: ; --un-backdrop-brightness: ; --un-backdrop-contrast: ; --un-backdrop-grayscale: ; --un-backdrop-hue-rotate: ; --un-backdrop-invert: ; --un-backdrop-opacity: ; --un-backdrop-saturate: ; --un-backdrop-sepia: ; box-sizing: border-box; border-width: 0px; border-style: solid; font-size: 12px; font-family: ui-monospace, SFMono-Regular, "SF Mono", Menlo, Consolas, "Liberation Mono", monospace; padding: 0.2em 0.4em; margin: 0px; background-color: rgba(175, 184, 193, 0.2); border-radius: 6px;">ListIndex</code><span style="font-family: -apple-system, BlinkMacSystemFont, "Segoe UI", Helvetica, Arial, sans-serif, "Apple Color Emoji", "Segoe UI Emoji"; font-size: 14px; background-color: rgb(248, 248, 248);">属性来显示第一个选项</span></div><div><font face="Arial"><span style="font-size: 14px;"><br></span></font></div><div><font face="Arial"><span style="font-size: 14px;">Private Sub UserForm_Initialize()</span></font></div><div><br></div><div><font face="Arial"><span style="font-size: 14px;"> With xsName</span></font></div><div><font face="Arial"><span style="font-size: 14px;"> .AddItem "张靖萱"</span></font></div><div><font face="Arial"><span style="font-size: 14px;"> .AddItem "关楚新"</span></font></div><div><font face="Arial"><span style="font-size: 14px;"> .AddItem "李佳一"</span></font></div><div><font face="Arial"><span style="font-size: 14px;"> </span></font></div><div><font face="Arial"><span style="font-size: 14px;"> <b>.ListIndex = 0 ' 设置显示第一个选项</b></span></font></div><div><font face="Arial"><span style="font-size: 14px;"> .Font.Size = 14 ' 设置字体大小为14号</span></font></div><div><font face="Arial"><span style="font-size: 14px;"> End With</span></font></div><div><font face="Arial"><span style="font-size: 14px;"> </span></font></div><div><font face="Arial"><span style="font-size: 14px;"> End Sub</span></font></div>
