- 博客(7)
- 资源 (1)
- 收藏
- 关注
原创 图片保存为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 387
原创 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 239
原创 读.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
原创 延时
Dim Dtime As DateDtime = DateAdd("s", Interval2, Now)延时Interval1 sDo While Dtime > Now DoEventsLoop sleep 是中断程序,不接收任何事件。
2009-05-14 16:25:00 369
原创 查找进程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 309
原创 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 290
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人