12 mayanyan930

尚未进行身份认证

我要认证

暂无相关简介

等级
TA的排名 52w+

图片保存为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

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

读.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

延时

 Dim Dtime As DateDtime = DateAdd("s", Interval2, Now)延时Interval1 sDo While Dtime > Now   DoEventsLoop sleep 是中断程序,不接收任何事件。 

2009-05-14 16:25:00

查找进程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

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

vb 错误号

错误号含义  3无 GoSub 返回5无效的过程调用或参数6溢出7内存溢出9下标越界10该数组被固定或暂时锁定11

2009-05-08 17:15:00
勋章 我的勋章
    暂无奖章