📄 readmevb.htm
字号:
<TD WIDTH="80%" VALIGN="TOP">
<P>一个数值表达式，决定了自动换行的方式，如设置部分中所示。</TD>
</TR>
</TABLE>
<B><P>ColWordWrapOptionHeader 属性</P>
</B><P>返回或设置一个值，这个值指出了在列标头中文本如何进行换行。</P>
<B><P>语法</P>
</B><I><P>object</I>.<B>ColWordWrapOptionHeader(</B><I>BandNumber, BandColIndex</I><B>)</B> = <I>integer</I></P>
<P> <B>ColWordWrapOptionHeader </B>属性的语法包括下列这些部分： </P>
<TABLE BORDER CELLSPACING=1 CELLPADDING=7 WIDTH=559>
<TR><TD WIDTH="20%" VALIGN="TOP">
<P>部分</TD>
<TD WIDTH="80%" VALIGN="TOP">
<P>说明</TD>
</TR>
<TR><TD WIDTH="20%" VALIGN="TOP">
<I><P>object</I></TD>
<TD WIDTH="80%" VALIGN="TOP">
<P>一个对象表达式,其值为分层 FlexGrid 控件。</TD>
</TR>
<TR><TD WIDTH="20%" VALIGN="TOP">
<I><P>BandNumber</I></TD>
<TD WIDTH="80%" VALIGN="TOP">
<P>长整数。要获得/设置其自动换行信息的带区号。这个值必须在 0 到 Bands - 1 的范围之内。</TD>
</TR>
<TR><TD WIDTH="20%" VALIGN="TOP">
<I><P>BandColIndex</I></TD>
<TD WIDTH="80%" VALIGN="TOP">
<P>长整数。要获得/设置其自动换行信息的列号。这个可选参数的默认值是 *1，指出该带区中的所有列。有效值为 *1 到 Cols *1。</TD>
</TR>
<TR><TD WIDTH="20%" VALIGN="TOP">
<I><P>integer</I></TD>
<TD WIDTH="80%" VALIGN="TOP">
<P>一个数值表达式，决定了自动换行的方式，如设置部分中所示。</TD>
</TR>
</TABLE>
<B><P>设置值</P>
</B><P> <I>integer </I>的设置值可以是：</P>
<TABLE BORDER CELLSPACING=1 CELLPADDING=7 WIDTH=559>
<TR><TD WIDTH="35%" VALIGN="TOP">
<B><P>常数</B></TD>
<TD WIDTH="10%" VALIGN="TOP">
<B><P>值</B></TD>
<TD WIDTH="55%" VALIGN="TOP">
<B><P>说明</B></TD>
</TR>
<TR><TD WIDTH="35%" VALIGN="TOP">
<B><P>flexSingleLine</B></TD>
<TD WIDTH="10%" VALIGN="TOP">
<P>0</TD>
<TD WIDTH="55%" VALIGN="TOP">
<P>(默认) 只在单行上显示文本。</TD>
</TR>
<TR><TD WIDTH="35%" VALIGN="TOP">
<B><P>flexWordBreak</B></TD>
<TD WIDTH="10%" VALIGN="TOP">
<P>1</TD>
<TD WIDTH="55%" VALIGN="TOP">
<P>在单词之间自动断开重起一行</TD>
</TR>
<TR><TD WIDTH="35%" VALIGN="TOP">
<B><P>flexWordEllipsis</B></TD>
<TD WIDTH="10%" VALIGN="TOP">
<P>2</TD>
<TD WIDTH="55%" VALIGN="TOP">
<P>截断超出矩形区域的文本并添加上省略号。</TD>
</TR>
<TR><TD WIDTH="35%" VALIGN="TOP">
<B><P>flexWordBreakEllipsis</B></TD>
<TD WIDTH="10%" VALIGN="TOP">
<P>3</TD>
<TD WIDTH="55%" VALIGN="TOP">
<P>在行之间断开单词并在文本超出矩形区域的情况下添加省略号。</TD>
</TR>
</TABLE>
<!------------------------------------------------------>
<!-- Controls4 -->
<!-- -->
<h4><a name="Controls4"></a>分层的 FlexGrid 控件： ColIsVisible 和 RowIsVisible 属性是只读的</h4>
<P> <B>ColIsVisible</B> 和 <B>RowIsVisible </B>属性是只读的属性，且不能通过编程来进行设置。可以使用这些属性来测试一行或者一列是否可见，如果适当的话，也可以用来隐藏该行或列，如下所示： </P>
<pre><blockquote><FONT FACE="Courier" SIZE=2>
With MSHFlexGrid1
If .ColIsVisible(1) Then .ColWidth(1) = 0
If .RowIsVisible(1) Then .RowHeight(1) = 0
End With
</FONT></blockquote></pre>
<B><P>分层的 FlexGrid 控件： GridLines、GridLinesBand、GridLinesFixed、GridLinesHeader、GridLinesIndent、和 GridLinesUnpopulated 属性的其它设置</P>
</B>
<P>下列属性拥有两种另外的设置：GridLines、GridLinesBand、GridLinesFixed、GridLinesHeader、GridLinesIndent、GridLinesUnpopulated 属性。这些属性的可能设置请见下表： </P>
<TABLE BORDER CELLSPACING=1 CELLPADDING=7 WIDTH=559>
<TR><TD WIDTH="35%" VALIGN="TOP">
<B><P>常数</B></TD>
<TD WIDTH="10%" VALIGN="TOP">
<B><P>值</B></TD>
<TD WIDTH="55%" VALIGN="TOP">
<B><P>说明</B></TD>
</TR>
<TR><TD WIDTH="35%" VALIGN="TOP">
<B><P>flexGridDashes</B></TD>
<TD WIDTH="10%" VALIGN="TOP">
<P>4</TD>
<TD WIDTH="55%" VALIGN="TOP">
<P>虚线。将单元之间的线的类型设置为虚线。</TD>
</TR>
<TR><TD WIDTH="35%" VALIGN="TOP">
<B><P>flexGridDots</B></TD>
<TD WIDTH="10%" VALIGN="TOP">
<P>5</TD>
<TD WIDTH="55%" VALIGN="TOP">
<P>点画线。 将单元之间的线的类型设置为点画线。</TD>
</TR>
</TABLE>
<B><P>说明</P>
</B><P>除了 flexGridNone、flexGridFlat、flexGridInset 和 flexGridRaised 之外，还可以使用这些设置值。</P>
<!------------------------------------------------------>
<!-- Controls5 -->
<!-- -->
<h4><a name="Controls5"></a>DataRepeater 控件：对公共属性进行设置只影响当前的控件</h4>
<P>当创建一个将用于 <B>DataRepeater</B> 控件中的用户控件的时候，请注意，该控件的公有属性将仅被设置在当前的控件上 (即输入焦点所在的“活动”控件)。例如，如果在运行时打开一个用户控件的 Font 属性，重新设置该属性 (如下面的例代码所示)将仅仅影响 <B>DataRepeater</B> 控件中的当前控件。而不会影响那些重复控件的字体。</P>
<pre><blockquote><FONT FACE="Courier" SIZE=2>
Private Sub Command1_Click()
'只有当前控件的字体受到影响。
DataRepeater1.RepeatedControl.FontName = "Courier"
End Sub
</FONT></blockquote></pre>
<P>用户控件中的相应的代码类似于以下的代码： </P>
<pre><blockquote><FONT FACE="Courier" SIZE=2>
Public Property Get FontName() As String
FontName = txtProductName.Font.Name
End Property
Public Property Let FontName(ByVal newFontName As String)
txtProductName.Font.Name = newFontName
End Property
</FONT></blockquote></pre>
<br>
<B><P>TabStrip 控件：只有在 Style 属性 = TabFlatButtons 时，分隔符才会显示出来</P>
</B>
<P>当 <B>Style</B> 属性被设置为 <B>TabFlatButtons</B> 时，分隔符只出现在 <B>TabStrip</B> 控件上。以下是一个例子： </P>
<pre><blockquote><FONT FACE="Courier" SIZE=2>
Private Sub Form_Load()
With TabStrip1
.Style = tabFlatButtons
.Separators = True
End With
End Sub
</FONT></blockquote></pre>
<br>
<!------------------------------------------------------>
<!-- Controls6 -->
<!-- -->
<h4><a name="Controls6"></a>数据报表设计器：事件处理代码中的错误</h4>
<P>在标题为<font color="#007f00">数据报表事件</font>主题的显示如何处理异步错误的代码中存在一个错误。有关的详细信息，请选择<b>仅搜索标题</b>进行 <a href="#Critical2">在线搜索</a>，在 MSDN 库的 Visual Studio 6.0 文档中查找 "数据报表事件"。</P>
<P>包含错误的代码位于标题为“Error 事件或 Asynchronous 事件”的主题中。</P>
<P>该段代码遗漏了一条“Select Case ErrObj.ErrorNumber”语句。正确的代码应该是： </P>
<pre><blockquote><FONT FACE="Courier" SIZE=2>
Private Sub DataReport_Error(ByVal JobType As _ MSDataReportLib.AsyncTypeConstants, ByVal Cookie As Long, _
ByVal ErrObj As MSDataReportLib.RptError, ShowError As Boolean)
Select Case ErrObj.ErrorNumber
Case rptErrPrinterInfo ' 8555
MsgBox "发生了一个打印错误。 " & _
"您可能没有安装打印机。"
ShowError = False
Exit Sub
Case Else ' 处理其它情况。
ShowError = True
End Select
End Sub
</FONT></blockquote></pre>
<br>
<!------------------------------------------------------>
<!-- Controls7 -->
<!-- -->
<h4><a name="Controls7"></a>RichTextBox 控件： SelPrint 方法拥有新的参数</h4>
<P> <B>SelPrint </B>方法现在拥有第二个，可选的参数。其语法和组成部分的描述显示如下： </P>
<B><P>语法</P>
</B><I><P>object</I>.<B>SelPrint(</B><I>lHDC</I> <B>As Long</B>, [<I>vStartDoc</I>]<B>)</B></P>
<P> <B>SelPrint </B>方法的语法包括以下这些部分： </P>
<TABLE BORDER CELLSPACING=1 CELLPADDING=7 WIDTH=559>
<TR><TD WIDTH="20%" VALIGN="TOP">
<B><P>部分</B></TD>
<TD WIDTH="80%" VALIGN="TOP">
<B><P>说明</B></TD>
</TR>
<TR><TD WIDTH="20%" VALIGN="TOP">
<I><P>object</I></TD>
<TD WIDTH="80%" VALIGN="TOP">
<P>一个值为 <B>RichTextbox</B> 控件的对象表达式。</TD>
</TR>
<TR><TD WIDTH="20%" VALIGN="TOP">
<I><P>lHDC</I></TD>
<TD WIDTH="80%" VALIGN="TOP">
<P>长整数。计划用来打印该控件内容设备的设备环境。</TD>
</TR>
<TR><TD WIDTH="20%" VALIGN="TOP">
<I><P>vStartDoc</I></TD>
<TD WIDTH="80%" VALIGN="TOP">
<P>Boolean 类型.指出了控件关于 <I>startdoc</I> 和 <I>enddoc</I> 打印机控件操作的行为，如设置部分所示。</TD>
</TR>
</TABLE>
<B><P>设置</P>
</B><P> <I>vStartDoc </I>的设置可以是：</P>
<TABLE BORDER CELLSPACING=1 CELLPADDING=7 WIDTH=559>
<TR><TD WIDTH="21%" VALIGN="TOP">
<B><P>常数</B></TD>
<TD WIDTH="9%" VALIGN="TOP">
<B><P>值</B></TD>
<TD WIDTH="71%" VALIGN="TOP">
<B><P>说明</B></TD>
</TR>
<TR><TD WIDTH="21%" VALIGN="TOP">
<B><P>True</B></TD>
<TD WIDTH="9%" VALIGN="TOP">
<P>-1</TD>
<TD WIDTH="71%" VALIGN="TOP">
<P>(默认) 控件保持其初始方式并发送 <I>startdoc</I> 和 <I>enddoc</I> 命令到打印机。</TD>
</TR>
<TR><TD WIDTH="21%" VALIGN="TOP">
<B><P>False</B></TD>
<TD WIDTH="9%" VALIGN="TOP">
<P>0</TD>
<TD WIDTH="71%" VALIGN="TOP">
<P>控件不发送 <I>startdoc</I> 和 <I>enddoc</I> 命令，但是仅发送 <I>startpage</I>和 <I>endpage</I> 命令到打印机。</TD>
</TR>
</TABLE>
<B><P>说明</P>
</B><P>添加这个参数的目的是改善当打印机以非默认方式进行打印的情况。当激活 <B>SelPrint</B> 方法后， Visual Basic 和 RichTextBox 控件都将向打印机发送 <I>startdoc</I> 和 <I>enddoc</I> 命令，这样将产生一对嵌套的 <I>startdoc</I>/<I>enddoc</I> 命令。有的打印机将仅仅响应第一对命令，这样一来，当 RichTextbox 控件发送出第二对命令的时候，打印机将变成禁止状态。在这种情况下，将 <I>vStartDoc</I> 参数设置为 <B>False</B> 可以阻止第二对命令的发送。</P>
<!------------------------------------------------------>
<!-- Controls8 -->
<!-- -->
<h4><a name="Controls8"></a>可以在 Tools 目录下获得 Visual Basic 5 版的 MSChart 控件</h4>
<P>仅对原先版本的 Visual Basic 的用户而言： </P>
<P> Visual Basic 5.0x 版的 MSChart 控件现在包括在 Visual Basic 中。如果开发人员需要一个 Visual Basic 5 版的 Chart 控件，而且又已经安装了原先发布的版本的 MSChart 控件，请⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -