Visual Basic
关注
分享
扫一扫
文章平均质量分 52
SkyZone_H
这个作者很懒，什么都没留下…
展开
-
VB发送邮件代码（不使用任何控件）
On Error GoTo errinfoNameSpace = "http://schemas.microsoft.com/cdo/configuration/"Set Email = CreateObject("CDO.Message")Email.From = "61912原创 2011-07-26 10:36:22 · 6292 阅读 · 0 评论 -
VB压缩图片（不失真）
Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As ByteEnd TypePrivate Type GdiplusStartupInput原创 2011-07-26 10:36:34 · 2738 阅读 · 2 评论 -
VB截图代码（超高质量）
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long,原创 2011-07-26 10:36:42 · 2370 阅读 · 2 评论