精华内容
下载资源
问答
  • 你不能图片框对任何东西都没有用,除了为不知道如何显示自己的人显示一张图像外。 每张图片一盒,您可以通过将所有图片绘制成一张大图片并显示它,或者有很多盒子,或通过进行绘画活动来解决此问题。
  • VB6.0 在图片框中显示PNG图片

    热门讨论 2011-11-10 09:44:48
    VB6.0 在图片框中显示PNG图片
  • VB使用API内存绘制曲线再显示图片框上,CPU资源消耗小,效率高,比Line方法快5倍! 1、内存创建绘图设备场景 2、设置内存设备场景属性 3、内存设备场景上绘制曲线 4、通过BitBlt将内存设备场景覆盖到...
  • VB使用API内存绘制曲线再显示图片框
  • 摘要:VB源码,图形处理,真彩图像,图片框 VB图片框显示32位真彩色动态的ANI图像的代码,原来32位真彩是用4个字节来表示一个像素的,而24位真彩用3个字节表示一个像素,但这两种真彩显示的颜色数都是2的24次方,所不同...
  • 如何显示图片.把jpg格式的图片在vb中显示操作的例子,最简单的方法。
  • VB图片添加到ComboBox中显示,以此来增强ComboBox外观,其实不只是外观漂亮了,而且用户体验也上升了,若要实现类似功能的话,本代码是个很好的参考。
  • 问题here很好地解释了如何将图片框图像转换为VB6的字节数组.我想反过来并从字节数组加载我的图片框图像.我找到了部分解决方案here,它使用以下代码Public Function ArrayToPicture(inArray() As Byte,Offset As ...

    问题

    here很好地解释了如何将图片框图像转换为VB6中的字节数组.

    我想反过来并从字节数组加载我的图片框图像.

    我找到了部分解决方案here,它使用以下代码

    Public Function ArrayToPicture(inArray() As Byte,Offset As Long,Size As Long) As IPicture

    ' function creates a stdPicture from the passed array

    ' Offset is first item in array: 0 for 0 bound arrays

    ' Size is how many bytes comprise the image

    Dim o_hMem As Long

    Dim o_lpMem As Long

    Dim aGUID(0 To 3) As Long

    Dim IIStream As IUnknown

    aGUID(0) = &H7BF80980 ' GUID for stdPicture

    aGUID(1) = &H101ABF32

    aGUID(2) = &HAA00BB8B

    aGUID(3) = &HAB0C3000

    o_hMem = GlobalAlloc(&H2&,Size)

    If Not o_hMem = 0& Then

    o_lpMem = GlobalLock(o_hMem)

    If Not o_lpMem = 0& Then

    CopyMemory ByVal o_lpMem,inArray(Offset),Size

    Call GlobalUnlock(o_hMem)

    If CreateStreamOnHGlobal(o_hMem,1&,IIStream) = 0& Then

    Call OleLoadPicture(ByVal ObjPtr(IIStream),0&,aGUID(0),ArrayToPicture)

    End If

    End If

    End If

    End Function

    如何将偏移量和大小传递给此函数?

    展开全文
  • vb6直接读取bmp图片显示的源码 vb6分析bmp图片 vb6处理bmp图片
  • 1、VB 2、WEBBROWSER1 控件 3、定位网页的图片元素 4、获取图片元素超链
  • VB获取指定网址下网页的所有链接及图片,比如实例是抓取163首页上的所有链接及图片,每个链接都有抓到,当然JS和IFRAME的除外,图片也可以抓取并显示出来,不过你的网速如果慢的话,那需要耐心等待了。程序用到了...
  • VB在image控件中显示png

    热门讨论 2011-08-25 13:57:58
    VB代码用GDI实现将png显示到image.
  • 点击按钮,图片框中显示 Dim xx, yy, px, py, al, l, a Dim dx Picture1.Scale (0, 0)-(640, 200) dx = 640 For py = 0 To dx Step 5 al = 2 * PI * (py - 20) / 360 l = PI * Sin(al) For a = 0 To 6 * PI ...
  • 本程序演示了在VB中用Access数据库储存图片,并且显示出来的功能。
  • '把图片显示图片框(Pictrure1) With iStm .Type = adTypeBinary '数据类型为二进制数 .Open .LoadFromFile "" & sFile & "" '保存图片 End With End Sub Sub ReadFile() '定义读出图片程序 If Trim(Text1.Text) ...

    展开全部

    Dim i As Integer

    Dim str As String

    Dim conn As ADODB.Connection

    Dim iStm As ADODB.Stream

    Dim iRe As ADODB.Recordset

    Dim n As Integer

    Private Sub Form_Load()

    '‘----------------------------

    Picture1.Picture = LoadPicture(App.Path + "\界面素材\加载图片.jpg")

    str = "Provider=SQLOLEDB;data Source= 192.168.12.67 ; Initial Catalog=服装销售32313133353236313431303231363533e4b893e5b19e31333330346533系统;User Id= sa ;Password= 5332852 "

    Set conn = New ADODB.Connection

    conn.Open str

    n = Val(Trim(Text1.Text))

    End Sub

    Sub SaveFile() '定义读入图片程序

    On Error Resume Next '重复保存同一幅图片会出错提示,忽略,保持程序运行的流畅性。

    Set iStm = New ADODB.Stream '读取文件到内容

    Dim sFile As String

    '数据库支持PNG图片,但VB的image、picture控件不支持PNG格式的图片。

    CommonDialog1.Filter = "JPG|*.jpg|位图|*.bmp|GIF|*.gif"

    CommonDialog1.ShowOpen

    If CommonDialog1.FileName = "" Then

    Exit Sub

    End If

    sFile = CommonDialog1.FileName

    Picture1.Picture = LoadPicture(sFile) '把图片显示到图片框(Pictrure1)

    With iStm

    .Type = adTypeBinary '数据类型为二进制数

    .Open

    .LoadFromFile "" & sFile & "" '保存图片

    End With

    End Sub

    Sub ReadFile() '定义读出图片程序

    If Trim(Text1.Text) = "" Then

    MsgBox "图片编号为空", vbInformation, "提示"

    Exit Sub

    End If

    Set iRe = New ADODB.Recordset

    iRe.Open "select * from img where 编号=" & n, conn, adOpenKeyset, adLockReadOnly '注意此处数值型参数n的语法形式

    On Error GoTo Err

    Set iStm = New ADODB.Stream

    With iStm

    .Mode = adModeReadWrite

    .Type = adTypeBinary

    .Open

    .Write iRe("photo") '读取图片字段数据

    .SaveToFile App.Path & "\temp1.jpg" '保存图片。注意,图片也可以保存为其他格式。

    End With

    Picture1.Picture = LoadPicture(App.Path & "\temp1.jpg") '读取图片到图片框(Pictrure1)

    iRe.Close '关闭对象

    iStm.Close

    Kill App.Path & "\temp1.jpg" '删除临时文件

    Exit Sub

    Err:

    MsgBox "此图片编号不存在", vbInformation, "提示"

    End Sub

    Private Sub Command1_Click() '读入图片

    Call ReadFile

    End Sub

    Private Sub Command2_Click() '读出图片

    Call SaveFile

    End Sub

    Private Sub Command3_Click() '图片另存

    If Trim(Text1.Text) = "" Then

    MsgBox "图片编号为空", vbInformation, "提示"

    Exit Sub

    End If

    If Picture1.Picture = 0 Then

    MsgBox "图片为空,请读出图片", vbInformation, "提示"

    Exit Sub

    End If

    Set iRe = New ADODB.Recordset

    iRe.Open "select * from img where 编号=" & n, conn, adOpenKeyset, adLockReadOnly

    Set iStm = New ADODB.Stream

    If iRe("photo").ActualSize = 0 Then '注意判断语句

    MsgBox "相片为空,请重新选择!", vbInformation, "提示"

    Exit Sub '退出

    End If

    CommonDialog1.Filter = "JPG|*.jpg|GIF|*.gif|位图|*.bmp"

    CommonDialog1.ShowSave

    If CommonDialog1.FileName = "" Then

    Exit Sub

    End If

    sFile = CommonDialog1.FileName

    On Error GoTo Err '利用出错提示进行删除保存操作(类似于覆盖)

    With iStm

    .Mode = adModeReadWrite

    .Type = adTypeBinary

    .Open

    .Write iRe("photo") '读取图片字段数据

    .SaveToFile sFile '保存到路径

    Exit Sub

    End With

    Err:

    Dim Result As Integer

    Result = MsgBox("文件名重复,请重新输入新的文件名。否则,将覆盖源文件!", vbYesNo + vbInformation, "提示")

    If Result = vbYes Then

    Kill sFile '先删除,后保存。

    iStm.Write iRe("photo")

    iStm.SaveToFile sFile

    End If

    End Sub

    Private Sub Command5_Click()

    Set iRe = New ADODB.Recordset '打开保存文件的表

    Dim P As String

    P = MsgBox("添加成功!是否保存?", vbQuestion + vbOKCancel, "系统消息")

    If P = vbOK Then

    With iRe

    .Open "Select * from A人员信息 WHERE 工号='" + Text2 + "'", conn, adOpenKeyset, adLockOptimistic

    .Fields("图片") = iStm.Read 'iStm把载入的图片传递给iRe.Fields("photo"):img表的photo字段

    .Update

    End With

    Else

    Picture1.Picture = LoadPicture(App.Path + "\界面素材\加载图片.jpg")

    End If

    End Sub

    Private Sub Form_Unload(Cancel As Integer) '退出

    conn.Close

    Set conn = Nothing

    End Sub

    2Q==

    已赞过

    已踩过<

    你对这个回答的评价是?

    评论

    收起

    展开全文
  • 不管是图片框不够大,还是窗口不够大,或者是图片框的visible属性为false,甚至是程序窗口最小化……总之只要图片框显示不出来的部分就没有数据(可能是为了节约内存吧,显示不出来就把数据清除了)。 解决办法: ...
    这个名字不知道起什么好。
    本来做的东西是把屏幕截屏并保存到图片框里,然后再把图片框里的某点的颜色输出,但是必须要求该点在图片框中能显示出来。
    不管是图片框不够大,还是窗口不够大,或者是图片框的visible属性为false,甚至是程序窗口最小化……总之只要图片框显示不出来的部分就没有数据(可能是为了节约内存吧,显示不出来就把数据清除了)。

    解决办法:
    就是打开picturebox的AutoRedraw功能,这个功能以前做的一个东西也用到过,虽然不知道具体的原理是什么,反正这个属性设为true之后,图片框的图片就算没完全显示出来,但是整个内容都会存在。

    这个方法是在网上找了半天,碰巧试出来的,所以有点激动,在此记录一下——AutoRedraw这个属性功能还真不小。
    展开全文
  • VB6.0图片浏览器.rar

    2019-07-10 11:50:52
    VB图片浏览器(练习FileListbox、Image控件的使用),可打开文件列表框中显示扩展名为.BMP、.JPG、.ICO、.CUR的文件,不但能浏览你电脑上的图片,也能帮助初学者了解DriveListbox,DirListbox,FileListbox,Image等...
  • 但是光支持Alpha通道也不能解决所有事情,比如说让这个图片框动态调节透明度就不行了(是不是太矫情了,微软明明提供了GDI+这么强大的东西……),下面就介绍一下在VB.NET可以是图片框透明的两种方法(两种方法的原理都...

    在很多的UI设计上,透明处理作为一个又炫又实用的方法受到很多人的喜爱,就像曾经VB6.0版本的图片框不支持Alpha通道直接导致不支持透明效果让很多地方不得不用底色相同来模仿透明效果,实在是让人头疼,在.NET里让图片框可以支持透明不得不说一件让人高兴的事.

    但是光支持Alpha通道也不能解决所有事情,比如说让这个图片框动态调节透明度就不行了(是不是太矫情了,微软明明提供了GDI+这么强大的东西……),下面就介绍一下在VB.NET中可以是图片框透明的两种方法(两种方法的原理都是利用GDI+使图片透明,然后放到背景色为透明色的图片框中实现的)

    第一种方法:利用Bitmap.LockBits方法配合Marshal.Copy方法将图片转为一维数组,操作一维数组比操作二维数组要快得多,并且少了SetPixel和GetPixel,效率提高不是一丁点,下面的方法将写在PictureBox的Paint事件里

    BitmapTemp = New Bitmap(Bitmaps.Width, Bitmaps.Height) '创建一个新 BITMAP,用来进行编辑
    BitmapTemp = Bitmaps.Clone 'Bitmaps是源图像,制作一个浅表副本赋值给另一个Bitmap用来操作
    Dim data As BitmapData '声明一个位图属性对象
    data = BitmapTemp.LockBits(New Rectangle(0, 0, Bitmaps.Width, Bitmaps.Height), ImageLockMode.ReadWrite, Imaging.PixelFormat.Format32bppArgb) '在内存中锁定图片,并转换成非托管数据(可编辑的一维数组)
    Dim bytes As Integer = data.Width * data.Height * 4 '计算图片长度(乘4是因为一个像素有4个字节的信息 ARGB)
    Dim rgbValues(bytes - 1) As Byte
    Dim ptr As IntPtr = data.Scan0 '获得图像的第一位地址
    System.Runtime.InteropServices.Marshal.Copy(ptr, rgbValues, 0, bytes) '复制流到 二进制数组
    For i = 0 To bytes - 1 Step 4
    If rgbValues(i + 3) <> 0 Then 'i+3是因为这个一维数组每4个元素为一个像素,排列方式为BGRA,第四位是Alpha通道信息
    If OPacitys < 0 Then
    OPacitys = 0
    ElseIf OPacitys > 255 Then
    OPacitys = 255
    End If
    (i + 3) = OPacity '设置透明度(此处的OPacity是外面设置的一个属性,最大为255最小为0 因为是一个字节)
    End If
    Next
    System.Runtime.InteropServices.Marshal.Copy(rgbValues, 0, data.Scan0, rgbValues.Length) '将非托管内存重新分配到托管区域,组成图片原来的二维数组
    BitmapTemp.UnlockBits(data) '解锁
    e.Graphics.DrawImage(BitmapTemp, 0, 0, Bitmaps.Width, Bitmaps.Height) '绘到 控件上

    使用这种方法亲测可以使图片框做到透明(其实就vb.net教程是图片透明了),不过效率一般,并且最好使用带有Alpha通道的图片,也就是PNG,不过其他图片也是可以的,因为在LockBits时已经强制转成4个字节的图片信息了

    展开全文
  • 内容索引:VB源码,图形处理,vb实例源码,图片浏览器,目录遍历 VB小实例,自动目录遍历,列出目录的所有图片,可以选择是否只显示JPG图片,点击图片后右侧方框显示图片大图,这都是些基础的操作,作为一个...
  • VB在窗体水平、垂直移动图像,可让一幅JPG沿水平方向、垂直方向、对角线方向窗体移动,最后复位图像,主要是让大家了解一下在Vb窗体内操控图像的一些实用操作。上图是运行界面。
  • 命令按钮的设置,图片框中图片的导入,图片的显示与隐藏设置
  • VB 图片查看器,可以浏览bmp图像,属于比较简单的那种哦,或许你可以从中学习到关于图像解析方面的基础知识。演示了加载图片,将图片显示图片框中,并配合做好滚动条的控制操作,程序运行界面如演示截图所示。
  • 利用VB图片框实现屏幕的滚动

    千次阅读 2014-02-12 15:58:42
    对于学习使用VB来编程的电脑爱好者来说,可能会遇到这样一...我们知道VB图片框是用来显示图形的,但它还有许多其它用途,比如可以用来创建一些动画图形等。其实对于上面的问题我们也可以利用图片框来巧妙地解决。方法
  • VB6.0载入PNG格式图片

    2020-12-22 12:42:47
    展开全部给你一个示例吧,显示PNG到e69da5e6ba903231313335323631343130323136353331333335313739FORM上,用GDI的:PrivateDeclareFunctionGdiplusStartupLib"gdiplus"(tokenAsLong,inputbufAsGdiplusStartupInput,...
  • 图片框1 计时器1 按钮1 文本框1 Imports unity3d 是VB.NET使用nity3d制作调用3D时使用用的可以去 代码如下 Imports unity3d Public Class Form1 Dim Nom As Integer '自动更换图片的名称 Private Sub Form1_...
  • 摘 要:VB 数据库中图像数据的存取对初学者来说是个难点,文章总结了绑定图片控件、存储图片文件路径、 利用PropertyBag 对象与Byte 数组中转三种较为简便的方法以供初学者参考。
  • MFC对话框点击按钮打开bmp图片显示在picture,同时可以另存
  • VB6.0让图片自适应Picture图片框大小

    万次阅读 2013-07-18 15:17:31
    Picture的AutoSize属性设为True的话可以让图片框...如果仅仅是为了显示的话,那么用Image图像框就可以满足需求了,但是我还想获取图片中某个点的颜色。Picture1.Point(x,y)可以获取Picture1的(x,y)坐标处的颜色(注意单
  • 关于VB6代码显示PNG图片的问题

    千次阅读 2013-11-11 18:23:02
    vb6中显示png图片,主要代码来自于 http://www.vbforums.com/showthread.php?509292-RESOLVED-png-files-in-Visual-Basic的【Using_Ping_In_VB.ZIP】例子。 本人对【Using_Ping_In_VB.ZIP】的代码做了相关修改以...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 9,561
精华内容 3,824
关键字:

vb在图像框中显示图片