| 共 223 篇文章 |
|
Split函数。Split函数的语法是：Split(expression[, delimiter[, count[, compare]]])Split函数返回一个下标从零开始的一维字符串数组，它包含字符串(expression)里指定数目(count)的子字符串。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组delimiter参数是可选的。如果delimiter是一个... 阅1182 转21 评0 公众公开 09-08-23 06:57 |
阅459 转17 评0 公众公开 09-08-13 19:19 |
阅1956 转28 评0 公众公开 09-08-13 19:10 |
阅394 转15 评0 公众公开 09-08-13 18:48 |
Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As String)Private Sub Command1_Click() Call SHAddToRecentDocs(2, vbNullString)End Sub''如果程序设计需要往"文档"菜单中添加文件,只需把vbNullString改为文件的路径,如"c:\windows\a.txt"vb实现多线... 阅19892 转476 评0 公众公开 09-08-13 18:42 |
Visual Basic对象使用使用对象。下表列出了在 Visual Basic 中可能用到的几种类型的对象： 对象从何而来Visual Basic 中的每个对象都是用类定义的。考虑把下列对象放入 Visual Basic 窗体： 1.Microsoft Excel Chart 对象 2.Microsoft Excel Worksheet 对象 3.Microsoft Word Document 对象 可用这些对象... 阅697 转37 评0 公众公开 09-08-10 16:32 |
文本控件的通知消息应用)控件是"文本框控件"的简称,它通常用于输入和编辑文字。Function GetVisibleLines(CTextBox As TextBox) As Long Dim rc As RECT Dim hDC&, lfont&, oldfont& Dim di&, lc& Dim tm As TEXTMETRIC lc = SendMessage(CTextBox.hwnd, EM_GETRECT, 0, rc) lfont = SendMessage(CTextBox.h... 阅661 转10 评0 公众公开 09-08-10 16:15 |
用VB来实现这个程序，首先要解决的是如何方便地进行字符串处理，VB中原有的函数InStr和Mid，使用起来并不方便，我利用这两个函数编写出一个新的函数：StrHead，该函数根据指定的断点字符将字符串截断，断点前的字符串被返回，后面部分保留在原字符串中，该函数可以完成大部分字符串操作。Public Sub RepFile(ByVal sFn As String, ByVal dFn As... 阅1659 转57 评0 公众公开 09-08-09 14:44 |
filenum = FreeFileOpen strSourceFile For Binary As #filenumfileContents = Space(LOF(filenum))Get #filenum, , fileContentsClose filenumfileInfo = Split(fileContents, vbCrLf)''取出源文件行数，按照回车换行来分隔成数组。Sub 提取奇数位数据(strSourceFile As String, strTargetFile As String)Dim filenum As IntegerDim f... 阅785 转19 评0 公众公开 09-08-09 14:40 |
Function QSZ(XX As String) As StringDim i&, zifu As String * 1 ''一个字符为单位i = Len(XX)For x = 1 To izifu = Mid(XX, x, 1) ''一个个地截取字符If zifu Like "[0-9]" Then ''循环i次,如果数字的,提取QSZ = QSZ &zifu ''整合End If. 阅357 转14 评0 公众公开 09-08-08 20:38 |
