vb
文章平均质量分 73
mayanyan930
这个作者很懒,什么都没留下…
展开
-
vb 错误号
错误号含义 3无 GoSub 返回5无效的过程调用或参数6溢出7内存溢出9下标越界10该数组被固定或暂时锁定11原创 2009-05-08 17:15:00 · 1577 阅读 · 0 评论 -
vb 字符描述
常数 等于 描述 vbCrLf Chr(13) + Chr(10) 回车符与换行符结合 vbCr Chr(13) 回车符 vbLf Chr(10) 换行符 vbNewLine Chr(13) + Chr(10) 平台指定的新行字符;适用于当前平台 vbNullChar Ch原创 2009-05-14 16:10:00 · 292 阅读 · 0 评论 -
查找进程MSN
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long Private Declare Function Process32First Lib "kernel32" (ByVal hSnapsho原创 2009-05-14 16:23:00 · 311 阅读 · 0 评论 -
延时
Dim Dtime As DateDtime = DateAdd("s", Interval2, Now)延时Interval1 sDo While Dtime > Now DoEventsLoop sleep 是中断程序,不接收任何事件。原创 2009-05-14 16:25:00 · 372 阅读 · 0 评论 -
读.txt文件
CommonDialog1.CancelError = TrueOn Error GoTo errhandlerDim res As StringDim Str1 As StringStr1 = App.Path & "/save" & "/振值/" & Dateres = Dir(Str1, vbDirectory) 判断有没有"str1"文件If res = "" Then 没有该文件原创 2009-05-14 16:29:00 · 367 阅读 · 0 评论 -
listview
ListView1.ListItems.ClearDim lvw As ListItemFor i = 0 To 9 Set lvw = ListView1.ListItems.Add(, , Format(FreqValue(i).Freq / (WaveNum / 1000), "###0.0#")) lvw.ListSubItems.Add , , Format(FreqVal原创 2009-05-14 16:39:00 · 240 阅读 · 0 评论 -
图片保存为word ,bmp
图片保存为wordDim MyWord As ObjectDim NewDoc As ObjectPicture4.Width = 11955Picture4.Height = 3735BitBlt Picture4.hDC, 0, 0, Picture4.Width, Picture4.Height, Picture1.hDC, 10, 140, vbSrcCopyPicture4.Pict原创 2009-05-14 16:41:00 · 388 阅读 · 0 评论