<p><span style="font-weight:700;"><span style="font-size:16px;">Font 属性</span></span></p>
<p><span style="line-height:1.78571;">这个属性返回一个字体对象</span></p>
<p class="label" style="font-size:12px;">语法</p>
<p><span class="emp"><i>object</i></span>.<b>Font</b>[ = <span class="emp"><i>Font</i></span>]</p>
<p><span style="font-weight:700;"><span style="font-weight:700;"><span style="font-weight:700;">Font</span></span></span>属性的语法包含下面部分：</p>
<table class="MsoNormalTable" border="1" cellpadding="0" style="width:650px;"><tbody><tr><td width="29%" valign="top"><p class="MsoNormal"><span style="font-weight:700;"><span style="font-size:9pt;font-family:宋体;">部分</span></span><span style="font-size:9pt;font-family:宋体;"></span></p>
</td>
<td width="71%" valign="top"><p class="MsoNormal"><span style="font-weight:700;"><span style="font-size:9pt;font-family:宋体;">描述</span></span><span style="font-size:9pt;font-family:宋体;"></span></p>
</td>
</tr>
<tr><td width="29%" valign="top"><p class="MsoNormal"><span class="emp"><i><span style="font-size:9pt;">object</span></i></span><span style="font-size:9pt;font-family:宋体;"></span></p>
</td>
<td width="71%" valign="top"><p class="MsoNormal">对象表达式，其值是“应用于”列表中的一个对象。</p>
</td>
</tr>
<tr><td width="29%" valign="top"><p class="MsoNormal"><span class="emp"><i><span style="font-size:9pt;">Font</span></i></span><span style="font-size:9pt;font-family:宋体;"></span></p>
</td>
<td width="71%" valign="top"><p class="MsoNormal">一个对象表达式，指定对象的字体属性</p>
</td>
</tr>
</tbody>
</table>
<p><br />
</p>
<p class="label" style="font-size:12px;">说明</p>
<p>使用对象的Font属性来标识要使用其属性的特定Font对象。</p>
<p><span style="font-weight:700;"></span><span style="font-weight:700;"></span><span style="font-weight:700;"></span><span style="font-weight:700;"></span><span style="font-weight:700;"></span></p>
<pre class="prettyprint lang-vb">Private Sub CmbNodeFont_AfterUpdate()
Dim oNode As Node
Dim oFont As New StdFont
Set oNode = TreeView0.SelectedItem
If oNode Is Nothing = False Then
With oFont
.Name = Nz(Me.CmbNodeFont.Value, "Arial")
.Bold = Me.ChkNodeBold
.Size = 11
End With
Set oNode.Font = oFont
Set oNode = Nothing
Set oFont = Nothing
End If
End Sub<div></div>
</pre>
<div><br />
</div>
- Access树控件介绍
- 微软树控件的缺点
- 版本兼容出错
- 不支持64位的Office
- Access树控件的优点
- Access扩展控件库--树控件的创建和添加节点
- Access扩展控件库--树控件节点图标
- Access扩展控件库--树控件常用属性
- Appearance 属性（ActiveX 控件）
- BackColor 属性（ActiveX 控件）
- BackPicture 属性（ActiveX 控件）
- BorderStyle 属性（ActiveX 控件）
- Checkboxes 属性
- Container 属性（ActiveX 控件）
- DropHighlight 属性（ListView 和 TreeView 控件）
- EditBox 属性（ActiveX 控件）
- Enabled 属性（ActiveX 控件）
- Font 属性（ActiveX 控件）
- FullRowSelect 属性（ActiveX 控件）
- Height 属性（ActiveX 控件）
- Access扩展控件库--树控件常用方法
- AboutBox 方法
- AddImage 方法
- AddImageGroup 方法
- CollapseAllNode 方法
- Create 方法
- Echo 方法
- ExpandAllNode 方法
- GetVisibleCount 方法
- HitTest 方法（ListView 和 TreeView 控件）
- Move 方法
- Refresh 方法
- SetFocus 方法
- Access扩展控件库--树控件常用事件
- AfterLabelEdit 事件（ListView 和 TreeView 控件）
- BeforeLabelEdit 事件（ListView 和 TreeView 控件）
- Click 事件
- Collapse 事件（TreeView 控件）
- DblClick 事件
- Expand 事件（TreeView 控件）
- GotFocus 事件
- KeyDown 事件
- KeyPress 事件
- KeyUp 事件
- Access树控件注意问题
- Access树控件（treeview) 64位Office下出现横向滚动条不会自动定位的解决办法
- Access中国树控件 在win10电脑 节点行间距太小的解决办法
- 详细属性和事件