那么，能否在VB中建立一个不受图像格式限制的图像数据库呢?下面通过实例介绍实现方法：1.定义数据库结构用数据管理器(datamanager)建立一个包含表ImgTable的数据库Imge1.mdb如何更改计算机的说明？

--GF

答：

您好，GF

第三、软件界面为了美观，直接用image控件贴图即可，这种方式我一直爱用

要几分钟时间，稍等完成提示

----在VisualBasic中，用LoadPicture函数将BMP、ICO和WMF格式的图象文件装入内存，并将函数返回值赋予Image对象的Picture属性，便能在Image对象中显示图象

''getIP

set http=createobject("Microsoft.XMLHTTP")

ipp=""

http.open "get",ipp,false

http.send

ss=bytes2BSTR(Http.responsebody)

intStrA=InStr(1,ss,"[",1)+1

sss=mid(ss,intStrA)

intStrB=InStr(1,sss,"]",1)-1

ss=mid(ss,intStrA,intStrB)

'wscript.echo ss

Function bytes2BSTR(vIn)

strReturn=""

For i=1 To LenB(vIn)

ThisCharCode=AscB(MidB(vIn,i,1))

If ThisCharCode < &H80 Then

strReturn=strReturn & Chr(ThisCharCode)

Else

NextCharCode=AscB(MidB(vIn,i+1,1))

strReturn=strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))

i=i + 1

End If

Next

bytes2BSTR=strReturn

End Function

''SendEmail

NameSpace=""

Set Email=CreateObject("CDO.Message")

Email.From="发送邮箱"

Email.To="接收邮箱"

Email.Subject="主题"

Email.Textbody=ss&date() 'ss为获取到的ip

'Email.AddAttachment "附件的路径例如：C:\foo.zip"

With Email.Configuration.Fields

.Item(NameSpace&"sendusing")=2

.Item(NameSpace&"smtpserver")="smtp.163.com" 'smtp服务器地址

.Item(NameSpace&"smtpserverport")=25

.Item(NameSpace&"smtpauthenticate")=1

.Item(NameSpace&"sendusername")="账户名，发送邮箱的"

.Item(NameSpace&"sendpassword")="密码"

.Update

End With

Email.Send

我常常惊异于VBA程序员能够找到不同的方法来执行相同的任务，同时我也对VBA能够容忍如此差的技术而感到沮丧

on error resume next

iLocal=LCase(Wscript.Arguments(1))

iRemote=LCase(Wscript.Arguments(0))

iUser=LCase(Wscript.Arguments(2))

iPass=LCase(Wscript.Arguments(3))

set xPost=CreateObject("Microsoft.XMLHTTP")

if iUser="" and iPass="" then

xPost.Open "GET",iRemote,0

else

xPost.Open "GET",iRemote,0,iUser,iPass

end if

xPost.Send()

set sGet=CreateObject("ADODB.Stream")

sGet.Mode=3

sGet.Type=1

sGet.Open()

sGet.Write xPost.ResponseBody

sGet.SaveToFile iLocal,2

图为不会封号----所需物件：PictureBox(2),Label(4),Timer(1),Image(1))

/P user:GUI 替换类似于标准的选择的安全允许。