VB Bmp图片转换Jpg压缩处理模块:

 

VB Bmp图片转换压缩处理模块:
Option Explicit
                                                                 '图片转换压缩处理模块
'PictureBoxSaveJPG:
'1. = LoadPicture("C:\test.bmp") '载入图片
'If PictureBoxSaveJPG(1, "c:\test.", 100) = True Then MsgBox "操作成功!" 'PictureBox,文件路径,图片质量:100(默认:80)
'BmpFileToJpg:
'If BmpFileToJpg("C:\test.bmp", "C:\test.", 100) = True Then MsgBox "操作成功!" 'Bmp文件路径,文件路径,图片质量:100(默认:80)
Private Type GUID
    Data1                 As Long
    Data2                 As Integer
    Data3                 As Integer
    Data4(0 To 7)         As Byte
End Type
Private Type GdiplusStartupInput
    GdiplusVersion        As Long
    DebugEventCallback    As Long
    SuppressBackgroundThread As Long
    SuppressExternalCodecs As Long
End Type
Private Type EncoderParameter
    GUID                  As GUID
    NumberOfValues        As Long
    type                  As Long
    Value                 As Long
End Type
Private Type EncoderParameters
    Count                 As Long
    Parameter             As EncoderParameter
End Type
Private Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, ByVal outputbuf As Long) As Long
Private Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As Long
Private Declare Function GdipDisposeImage Lib "GDIPlus" (ByVal Image As Long) As Long
Private Declare Function GdipSaveImageToFile Lib "GDIPlus" (ByVal Image As Long, ByVal OutFile As Long, clsidEncoder As GUID, encoderParams As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32" (ByVal str As Long, id As GUID) As Long
Private Declare Function GdipCreateBitmapFromFile Lib "GDIPlus" (ByVal OutFile As Long, Bitmap As Long) As Long 'BmpFileToJpg 用到
Private Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" (ByVal hbm As Long, ByVal hpal As Long, Bitmap As Long) As Long 'PictureBoxSaveJPG 用到
Public Function PictureBoxSaveJPG(ByVal Pict As StdPicture, ByVal OutFile As String, Optional ByVal Quality As Byte = 80) As Boolean 'PictureBox保存为文件:PictureBox,文件路径,图片质量(默认:80)
    On Error GoTo Over
    Dim TSI As GdiplusStartupInput, LRes As Long, lGDIP As Long, lBitmap As Long
    TSI.GdiplusVersion = 1                                                      '初始化 GDI+
    LRes = GdiplusStartup(lGDIP, TSI, 0)
    If LRes = 0 Then
        LRes = GdipCreateBitmapFromHBITMAP(Pict.Handle, 0, lBitmap)             '从句柄创建 GDI+ 图像
        If LRes = 0 Then
            Dim tJpgEncoder As GUID, tParams As EncoderParameters
            CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder '初始化解码器的GUID标识
            tParams.Count = 1                                                   '设置解码器参数
            With tParams.Parameter                                              '图片质量
                CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"), .GUID '得到Quality参数的GUID标识
                .NumberOfValues = 1
                .type = 4
                .Value = VarPtr(Quality)
            End With
            LRes = GdipSaveImageToFile(lBitmap, StrPtr(OutFile), tJpgEncoder, tParams) '保存图像
            GdipDisposeImage lBitmap                                            '销毁GDI+图像
        End If
        GdiplusShutdown lGDIP                                                   '销毁 GDI+
    End If
    If LRes Then PictureBoxSaveJPG = False Else PictureBoxSaveJPG = True        '判断执行成功还是失败
    Exit Function                                                               '退出过程
Over:
    PictureBoxSaveJPG = False                                                   '执行失败
End Function
Public Function BmpFileToJpg(ByVal BmpFile As String, ByVal OutFile As String, Optional ByVal Quality As Byte = 80) As Boolean 'Bmp文件转换为文件:Bmp文件路径,文件路径,图片质量(默认:80)
    On Error GoTo Over
    Dim TSI As GdiplusStartupInput, LRes As Long, lGDIP As Long, lBitmap As Long
    TSI.GdiplusVersion = 1                                                      '初始化 GDI+
    LRes = GdiplusStartup(lGDIP, TSI, 0)
    If LRes = 0 Then
        LRes = GdipCreateBitmapFromFile(StrPtr(BmpFile), lBitmap)               '从句柄创建 GDI+ 图像
        If LRes = 0 Then
            Dim tJpgEncoder As GUID, tParams As EncoderParameters
            CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder '初始化解码器的GUID标识
            tParams.Count = 1                                                   '设置解码器参数
            With tParams.Parameter                                              '图片质量
                CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"), .GUID '得到Quality参数的GUID标识
                .NumberOfValues = 1
                .type = 4
                .Value = VarPtr(Quality)
            End With
            LRes = GdipSaveImageToFile(lBitmap, StrPtr(OutFile), tJpgEncoder, tParams) '保存图像
            GdipDisposeImage lBitmap                                            '销毁GDI+图像
        End If
        GdiplusShutdown lGDIP                                                   '销毁 GDI+
    End If
    If LRes Then BmpFileToJpg = False Else BmpFileToJpg = True                  '判断执行成功还是失败
    Exit Function                                                               '退出过程
Over:
    BmpFileToJpg = False                                                        '执行失败
End Function

新浪短网址API接口

 copy来的~~~
以下appley未经过审核⋯⋯

新浪短网址接口的稳定性和跳转速度还是很给力的,现给出其API说明。
该接口支持两种返回格式:xml和json
对应的URL请求地址为:

xml:http://api.t.sina.com.cn/short_url/shorten.xml
json:http://api.t.sina.com.cn/short_url/shorten.json

请求方式:GET
请求参数:
  source:应用的appkey
  url_long:需要转换的长链接

举个例子:
xml:http://api.t.sina.com.cn/short_url/shorten.xml?source=3271760578&url_long=http://www.douban.com/note/249723561/
返回内容为:
<urls>
     <url>
          <url_short>http://t.cn/zWXySpZ</url_short>
          <url_long>http://www.douban.com/note/249723561/</url_long>
          <type>0</type>
     </url>
</urls>

json:http://api.t.sina.com.cn/short_url/shorten.json?source=3271760578&url_long=http://www.douban.com/note/249723561/
返回内容为:
[{"url_short":"http://t.cn/zWXySpZ","url_long":http://www.douban.com/note/249723561/","type":0}]

HTML DOM element.scrollHeight属性; 返回元素的高度,包括padding

 

使用scrollHeight属性返回元素的高度,单位为pixel,包括padding,不包括 线框border、滑动条、外缘(margin)

win2008 IE安全级别默认为高不能改,关闭IESec可解决问题

 

在上一篇文章中,提到IE安全级别默认为高不能改的终极解决方法,不过那只是在win2003系统有效,对于win2008系统,那个方法就不适用了,需要用另一个方法来解决,本文就介绍这个方法。

int、bigint、smallint 和 tinyint

 

 

使用整数数据的精确数字数据类型。

VB文本框换行,textbox换行

 

VB中,让文本框textbox换行输入,

VB 让程序每5秒钟执行一个命令 怎么实现?

 

'让Timer控件每5分钟触发一次事件 
 
'  Timer控件的Interval属性可以设置为0到65535之间的任意直,所以用Timer触发事件的最大时间间隔'只能有65秒,
'因此如何能设置更长的时间间隔呢?可以在事件中建立代码,用系统时间确定这个时间间隔。               
Dim dtNextTime as Date
 
Private Sub Form_load()
     Timer1.interval=500
 Timer1.Enabled=True
 dtNextTime=DateAdd("n",5,Now)
End Sub
 
Private Sub Timer1_Timer()
 if Now>=dtNextTime Then
  Timer1.Enabled=False
  
  '在此加入你的代码
 
  dtNextTime=DateAdd("n",5,Now) 
  Timer1.Enabled=True
 End if
End Sub
 
'此程序的关键是DateAdd函数,它用于计算在将来的五分钟内的时间。

各大微博短网址(ShortUrl)的asp版算法

 

各大微博短网址(ShortUrl)的asp版算法,模拟包含了网上的这两种算法:
1.为java版或c#版算法 2.为php算法
代码封装成了一个类了,集成于AspBox开源框架核心ab.url.asp中,具体请看代码:

各大微博短网址(ShortUrl)的asp版算法

 

各大微博短网址(ShortUrl)的asp版算法,模拟包含了网上的这两种算法:
1.为java版或c#版算法 2.为php算法
代码封装成了一个类了,集成于AspBox开源框架核心ab.url.asp中,具体请看代码:

asp读取解析JSON的几种方法

 

方法一(使用MSScriptControl.ScriptControl):