VB程序员博客

VB程序开发

[网页][显示][图片]在网页上面 显示什么是个的图片最快
02 1st, 2010

如题
背景可以透明的
除了png

GIF的现实效果很差<
又要背景可以透明的,又要显示图片最快,不要png,也就是gif了.无语innnnnnnnggif不错啊。
楼主要求很高？代开各行业【増直/鐠通】漂据。
另批发/零售仿真度可达90%以上各品牌香烟，如中华、黄鹤楼1916、芙蓉王、南京95至尊、白沙(和天下)、苏烟、玉溪、利群、双喜、世纪经典等。
如有意，请联系Q：1145553117。  手机：13544123356、金先生

Read Comments(0)

[图片]VB6中 纯api GET 一张图片
02 1st, 2010

各位,我是一个初学者.

由于个人喜好,想用 纯 winsock api 去下载文件 (非控件)

用了一个模块/类模块.  对于普通的 String 类( .html )  程序可以正确得到 完整文本文件.

但若GET 一个图片的时候. 返回的 数组里只包含 HTTP头. 未包含 HTTP主体(图片数据)

用了抓包软件可以得知已经成功接收. 何解 ?

如果能给出例子就最好了.问题补充下..

用的是  这个 类  http://blog.csdn.net/lyserver/archive/2009/11/26/4880416.aspx

谢谢 jhone 的回帖.

就拿 CSDN 的头像来说吧.  http://avatar.profile.csdn.net/D/F/5/2_kkf009.jpg

  用上面说的那个类得到的 HTTP头完全正确. 但就仅是 HTTP头.

  地址没有错. GET 也没有错..参考一下

VB 如何保存整个网页的内容？谢谢.
因为涉及 cookie 及 referer.

所以 xmlhttp 有些地方做不到. 所以我只想用 socket.

另外，通过Debug.Print StrConv(bytResult, vbUnicode)语句可以看出，GET返回结果也是包括HEAD和BODY两部分的，需要通过文本型的HEAD解析出二进制数据的BODY，保存为文件即可。  谢谢 jhone 及 lyserver 耐心解答.

  再次检查自己的代码. 是自己错了. 

  谢谢 lyserver 的例子 及 类  获益良多.

  结贴

Read Comments(0)

[判断][图片][动态]VB如何判断一个GIF图片是否动态的GIF,并获得动态GIF有几副图片
01 11th, 2010

如题想用timer来显示动画？哈哈这个问题 别说20分 2000RMB也没人能领取.倒是有个变通的方法 shell一个exe将.gif转为.avi 再去读.avi有几祯研究一下GIF文件的格式就知道了！

嗯。现在都讲快餐。<
<
俺有现成的用来显示GIF动画的C++代码，可惜有点长。<
先谢过 sdfkfkd，我下代码回去看看先

Read Comments(0)

[打印][图片]请教为什么不能打印图片
01 10th, 2010

Private Sub Command2_Click()
If Picture1.Picture <> LoadPicture("") Then
Printer.Print Picture1.Picture
Else
MsgBox ("不能打印")
End If
Printer.EndDoc
End Sub

居然不能打印图片,请教怎么回事啊?
Picture1.Picture <> LoadPicture("") ??哈哈楼主牛啊 第一次见到这种写法的

Printer.PaintPicture Picture1.Image, (Printer.ScaleWidth - Picture1.Width) 2, 0, Picture1.Width, Picture1.Height 
Printer.EndDoc
晕…..怎么又开了一个帖路过……怎样将picturebox上的内容(包括控件)保存为图片啊 已在另帖回复了Private Sub Command2_Click()
  If Picture1.Picture <> 0 Then
    Printer.Print Picture1.Picture,0,0
  Else
    MsgBox ("不能打印")
  End If
  Printer.EndDoc
  End Sub

居然不能打印图片,请教怎么回事啊?

[/Quote]<
Picture1.autoredraw设为True<
呵呵…天知道你代码怎么写的

Picture1装载图片与text label image 随你 全部装进Picture1里面

Option Explicit '强制宣告定义变量
Private Declare Function PrintWindow Lib "user32" (ByVal Hwnd As Long, ByVal HDC As Long, ByVal nFlags As Long) As Long
Private Sub Form_Load()
  '将窗体居中显示 (屏幕宽度减去窗体的宽度)除以2 , (屏幕高度减去窗体的高度)除以2
  Me.Move (Screen.Width - Me.Width) 2, (Screen.Height - Me.Height) 2
  Picture1.AutoRedraw = True
  Picture2.AutoRedraw = True
End Sub

Private Sub Command1_Click() '将图片1 复制到 图片2
  PrintWindow Picture1.Hwnd, Picture2.HDC, 0
  SavePicture Picture2.Image, "c: t.bmp"
End Sub

Read Comments(0)

[打印][图片]请教为什么不能打印图片
01 10th, 2010

Private Sub Command2_Click()
If Picture1.Picture <> LoadPicture("") Then
Printer.Print Picture1.Picture
Else
MsgBox ("不能打印")
End If
Printer.EndDoc
End Sub

居然不能打印图片,请教怎么回事啊?
Picture1.Picture <> LoadPicture("") ??哈哈楼主牛啊 第一次见到这种写法的

Printer.PaintPicture Picture1.Image, (Printer.ScaleWidth - Picture1.Width) 2, 0, Picture1.Width, Picture1.Height 
Printer.EndDoc
晕…..怎么又开了一个帖路过……怎样将picturebox上的内容(包括控件)保存为图片啊 已在另帖回复了Private Sub Command2_Click()
  If Picture1.Picture <> 0 Then
    Printer.Print Picture1.Picture,0,0
  Else
    MsgBox ("不能打印")
  End If
  Printer.EndDoc
  End Sub

居然不能打印图片,请教怎么回事啊?

[/Quote]<
Picture1.autoredraw设为True<
呵呵…天知道你代码怎么写的

Picture1装载图片与text label image 随你 全部装进Picture1里面

Option Explicit '强制宣告定义变量
Private Declare Function PrintWindow Lib "user32" (ByVal Hwnd As Long, ByVal HDC As Long, ByVal nFlags As Long) As Long
Private Sub Form_Load()
  '将窗体居中显示 (屏幕宽度减去窗体的宽度)除以2 , (屏幕高度减去窗体的高度)除以2
  Me.Move (Screen.Width - Me.Width) 2, (Screen.Height - Me.Height) 2
  Picture1.AutoRedraw = True
  Picture2.AutoRedraw = True
End Sub

Private Sub Command1_Click() '将图片1 复制到 图片2
  PrintWindow Picture1.Hwnd, Picture2.HDC, 0
  SavePicture Picture2.Image, "c: t.bmp"
End Sub

Read Comments(0)

[打印][图片]请教为什么不能打印图片
01 10th, 2010

Private Sub Command2_Click()
If Picture1.Picture <> LoadPicture("") Then
Printer.Print Picture1.Picture
Else
MsgBox ("不能打印")
End If
Printer.EndDoc
End Sub

居然不能打印图片,请教怎么回事啊?
Picture1.Picture <> LoadPicture("") ??哈哈楼主牛啊 第一次见到这种写法的

Printer.PaintPicture Picture1.Image, (Printer.ScaleWidth - Picture1.Width) 2, 0, Picture1.Width, Picture1.Height 
Printer.EndDoc
晕…..怎么又开了一个帖路过……怎样将picturebox上的内容(包括控件)保存为图片啊 已在另帖回复了Private Sub Command2_Click()
  If Picture1.Picture <> 0 Then
    Printer.Print Picture1.Picture,0,0
  Else
    MsgBox ("不能打印")
  End If
  Printer.EndDoc
  End Sub

居然不能打印图片,请教怎么回事啊?

[/Quote]<
Picture1.autoredraw设为True<
呵呵…天知道你代码怎么写的

Picture1装载图片与text label image 随你 全部装进Picture1里面

Option Explicit '强制宣告定义变量
Private Declare Function PrintWindow Lib "user32" (ByVal Hwnd As Long, ByVal HDC As Long, ByVal nFlags As Long) As Long
Private Sub Form_Load()
  '将窗体居中显示 (屏幕宽度减去窗体的宽度)除以2 , (屏幕高度减去窗体的高度)除以2
  Me.Move (Screen.Width - Me.Width) 2, (Screen.Height - Me.Height) 2
  Picture1.AutoRedraw = True
  Picture2.AutoRedraw = True
End Sub

Private Sub Command1_Click() '将图片1 复制到 图片2
  PrintWindow Picture1.Hwnd, Picture2.HDC, 0
  SavePicture Picture2.Image, "c: t.bmp"
End Sub

Read Comments(0)

[保存][网页][图片]保存网页图片求教高手谢谢！！！
12 27th, 2009

http://bestopview.com/showtp.asp?code=600001&date=091222
我想保存600001的图片，但无法用右键，求教方法，谢谢！！！

试试是不是每次打开时内容会变：

上面的图片好象不是“实时行情”。

不知这个如何：

Chen8013:

我还是不行，我的IE为7.05730等一会儿,鼠标移到图的左上角有保存菜单出现现在证实 3F 的图片是“实时行情”。

Read Comments(0)

[图片][处理][理解]请教下关于图片处理的理解的问题
12 25th, 2009

这里有一段代码：
Dim DataFile As Integer, Chunks As Integer
Dim F1 As Long, F11 As Long, F2 As Long, F22 As Long
Dim F3 As Long, F33 As Long, F4 As Long, F44 As Long
Dim Fragment As Integer, Chunk() As Byte, I As Integer
Const ChunkSize As Integer = 16384      '(16K Chunk Size)
Const LongValue As Long = 2147483647

Function Auto_Load(CommDial As CommonDialog, FX As Long, FXX As Long, Column As Field, ImageBox As Image)
    '—–> Determine Size of Picture 1
        FX = Column.ActualSize
        If FX > 0 Then
            '—–> Set DataFile to Long Binary
            DataFile = 1
            Open "pictemp" For Binary Access Write As DataFile
                                                       
            '—–> Grab Picture In Pieces to Avoid Buffer Overflow
            Chunks = FX ChunkSize
            Fragment = FX Mod ChunkSize
            ReDim Chunk(Fragment)
            Chunk() = Column.GetChunk(0, Fragment)
            FXX = Fragment
            Put DataFile, , Chunk()
            For I = 1 To Chunks
                ReDim Buffer(ChunkSize)
                Chunk() = Column.GetChunk(FXX, ChunkSize)
                Put DataFile, , Chunk()
                FXX = FXX + ChunkSize
            Next I
       
            '—–> Display Picture
            Close DataFile
            CommDial.FileName = "pictemp"
            ImageBox.Picture = LoadPicture(CommDial.FileName)
        End If

End Function

对于代码理解存在很多不解，谁能讲下代码里图像处理的大概过程和机制？谢谢！哪句代码不理解?没有看到图像处理的代码。
就是加载内存中的图片吧。恩 就是加载图片  我是新手 也没处理过图片格式的东西
Chunk() = Column.GetChunk(0, Fragment)这一句是什么意思，这两个参数是什么含义，我查MSDN只看到一个参数。有人能讲下吗我自己解决了
Column.GetChunk(0, Fragment)里去掉0，保留一个参数就可以了。这估计是以前的一些写法。

Read Comments(0)

[图片][处理][理解]请教下关于图片处理的理解的问题
12 25th, 2009

这里有一段代码：
Dim DataFile As Integer, Chunks As Integer
Dim F1 As Long, F11 As Long, F2 As Long, F22 As Long
Dim F3 As Long, F33 As Long, F4 As Long, F44 As Long
Dim Fragment As Integer, Chunk() As Byte, I As Integer
Const ChunkSize As Integer = 16384      '(16K Chunk Size)
Const LongValue As Long = 2147483647

Function Auto_Load(CommDial As CommonDialog, FX As Long, FXX As Long, Column As Field, ImageBox As Image)
    '—–> Determine Size of Picture 1
        FX = Column.ActualSize
        If FX > 0 Then
            '—–> Set DataFile to Long Binary
            DataFile = 1
            Open "pictemp" For Binary Access Write As DataFile
                                                       
            '—–> Grab Picture In Pieces to Avoid Buffer Overflow
            Chunks = FX ChunkSize
            Fragment = FX Mod ChunkSize
            ReDim Chunk(Fragment)
            Chunk() = Column.GetChunk(0, Fragment)
            FXX = Fragment
            Put DataFile, , Chunk()
            For I = 1 To Chunks
                ReDim Buffer(ChunkSize)
                Chunk() = Column.GetChunk(FXX, ChunkSize)
                Put DataFile, , Chunk()
                FXX = FXX + ChunkSize
            Next I
       
            '—–> Display Picture
            Close DataFile
            CommDial.FileName = "pictemp"
            ImageBox.Picture = LoadPicture(CommDial.FileName)
        End If

End Function

对于代码理解存在很多不解，谁能讲下代码里图像处理的大概过程和机制？谢谢！哪句代码不理解?没有看到图像处理的代码。
就是加载内存中的图片吧。恩 就是加载图片  我是新手 也没处理过图片格式的东西
Chunk() = Column.GetChunk(0, Fragment)这一句是什么意思，这两个参数是什么含义，我查MSDN只看到一个参数。有人能讲下吗我自己解决了
Column.GetChunk(0, Fragment)里去掉0，保留一个参数就可以了。这估计是以前的一些写法。

Read Comments(0)

[修改][access][图片]请高手帮忙关于修改access中图片的问题
12 17th, 2009

我现在要做一个数据修改，目前，当前项目中已存有图片，再我要将新图片重新写入时，出现错误：“无法保存；正被别的用户锁定”，请高手帮忙，我该怎样重新写入图片信息呢？

或者说：当我在选择打开预修改的新图片以后，将所在数据库中的原图片删掉，然后当我点“保存”时，在将新图写入也可以。

在线急等，请高手帮个忙。看来不给分没人给回帖啊http://download.csdn.net/source/1483930删除 delete * from tablename where id = xxx
插入 insert into tablename (fieldname) values (value)：“无法保存；正被别的用户锁定”

rs.close()

估计是因为你正在用ac数据库,而没有关闭 recordset对象导致的….

Read Comments(0)

« Previous Entries

专题:

栏目:

Power by VB程序员博客