描述 返回一个百分比格式（乘以100）的表达式，后面有%符号。 语法 FormatPercent( Expression [ , NumDigitsAfterDecimal [ , IncludeLeadingDigit [ , UseParensForNegativeNumbers [ , GroupDigits ]]]] ) FormatPercent 函数语法有如下几部分： 部分 描述 Expression 必...

本示例使用 FreeFile 函数来返回下一个可用的文件号。在循环中，共打开五个输出文件，并在每个文件中写入一些数据。 Dim MyIndex, FileNumberFor MyIndex = 1 To 5 ' 循环五次。 FileNumber = FreeFile ' 取得未使用的文件号。 Open TEST MyIndex For Output As #FileNumber...

本示例使用 FV 函数计算某项投资的未来价值，计算时给定每期的利率（ APR / 12 ），投资的总期数（ TotPmts ），每期的投资额（ Payment ），已投资的现额（ PVal ）及付款方式（以数值表示期初或期末付款（ PayType ））。请注意，因为 Payment 代表支付出去的现金，故其为...

本示例使用 Mid 语句来得到某个字符串中的几个字符。 Dim MyString, FirstWord, LastWord, MidWordsMyString = Mid Function Demo 建立一个字符串。 FirstWord = Mid(MyString, 1, 3) ' 返回 Mid 。 LastWord = Mid(MyString, 14, 4) ' 返回 Demo 。 MidWords = Mid(MyStrin...

在多数情况下，特别是在源支持两种以上的格式或花费大量时间创建数据时，可能会希望只在目标请求数据时再将数据放入 DataObject 对象。但是，可在开始拖动操作时使用 OLEStartDrag 事件中的 SetData 方法将数据放入 DataObject 对象。例如： Private Sub txtSource_OLEStart...

根据位置的不同， effect 参数可能会相应变化，以指示当前可接受的拖放效果。 有了 OLEDragOver 事件中的 state 参数，就可对数据进入、经过以及离开目标控件诸状态作出响应。例如，当源数据进入目标控件时，将 state 参数设置为 vbEnter。 在放下目标边界内移动拖动源时将...

若希望改变 OLE 拖放操作中缺省的鼠标视觉性能，可在目标端操作 OLEDragOver 事件并在源端操作 OLEGiveFeedback 事件。 在拖放操作期间，OLE 拖放提供自动视觉反...

有时可能需要向 DataObject 对象查询放到目标的数据的类型。可在 IfThen 语句中用 GetFormat 方法指定目标控件所能接受的数据类型。若 DataObject 对象中的数据兼容，则完成了放操作。 Private Sub txtTarget_OLEDragDrop(Data As _ VB.DataObject, Effect As Long, Button...

条件编译已选择的 Visual Basic 代码块。 语法 #If expression Then statements [ #ElseIf expression-n Then [ elseifstatements ]] [ #Else [ elsestatements ]] #End If #If...Then...#Else 指令的语法具有以下几个部分： 部分 描述 expression 必要。包含一个或多个条件...

用来定义 Visual Basic 的条件编译常数。 语法 #Const constname = expression #Const 编译指令的语法具有以下几个部分： 部分 描述 constname 必要； Variant ( String )。常数；名称要遵守变量命名的约定。 expression 必要。文字、其他的条件编译常数或包含除了 Is 以外...