technofantasy

摘要： 'InsertsthepictureatthecurrentinsertionpointPublicFunctionInsertPicture()FunctionInsertPicture(RTBAsRichTextBox,picAsStdPicture)DimstrRTFallAsStringDimlStartAsLongWithRTB.SelText=Chr(&H9D)&.Se... 阅读全文

摘要： Properties - all sizes are in twipsxLeft - Position of the left edge of the tableisCentered - Set to True to center the tableRows - Sets or returns the number of rows in the tableColumns - Sets or ret... 阅读全文

摘要： Public Sub SetSubScript()Sub SetSubScript(RTB As RichTextBox)Dim iPos As LongDim strRTF As String With RTB If .SelCharOffset >= 0 Then 'subscript the current selection ... 阅读全文

摘要： Public Sub HighLight()Sub HighLight(RTB As RichTextBox, lColor As Long)'add new color to color table'add tags \highlight# and \highlight0'where # is new color numberDim iPos As LongDim strRTF As Strin... 阅读全文

摘要： visual basic code: Dim iPos As LongDim strInsert As StringDim strRTF As StringDim lStart As Long'assumes that strInsert contains the RTF code that you want to insert'and that the current cursor posit... 阅读全文