精华内容
下载资源
问答
  • LoadPicture函数用法示例

    千次阅读 2016-04-14 10:38:00
    VB语言中LoadPicture函数用法示例: 本例使用 LoadPicture 函数将图片加载到窗体的 PictureBox 控件并从控件上清除掉该图片。 要试用此例,将 PictureBox 控件添加入 Form 对象,然后将以下代码粘贴到 Form 的声明...

    VB语言中LoadPicture函数用法示例:

    本例使用 LoadPicture 函数将图片加载到窗体的 PictureBox 控件并从控件上清除掉该图片。

    要试用此例,将 PictureBox 控件添加入 Form 对象,然后将以下代码粘贴到 Form  的声明部分,然后运行此例,单击 Form 。

    Private Sub Form_Click()    
     Dim Msg As String   ' 声明变量。    
     On Error Resume Next   ' 设置错误句柄。   
      Height = 3990     
    Width = 4890   ' 设置高度和宽度。    
     Picture1.Picture = LoadPicture("C:\Windows\Web\Wallpaper\Windows\img0.jpg", vbLPCustom, vbLPColor, 32, 32)     
    If Err Then         
    Msg = "Couldn't find the .cur file."         
    MsgBox Msg   ' 显示错误消息。      
       Exit Sub   ' 如果发生错误则退出。    
     End If    
     Msg = "Choose OK to clear the bitmap from the form."     
    MsgBox Msg     
    Picture1.Picture = LoadPicture()   '清除 picturebox。
    End Sub

    LoadPicture 函数,将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。

    转载于:https://www.cnblogs.com/gyc19920704/p/5390154.html

    展开全文
  • LoadPicture 函数

    千次阅读 2005-04-13 09:23:00
    如果你装载图片只用关心第一个参数,路径。 如果是光标和图标文件的话: ... 语法 LoadPicture([filename], [size], [colordepth],[x,y]) LoadPicture 函数语法有下列部分: 部分 描述 filename 可选的。字符
    如果你装载图片只用关心第一个参数,路径。 
    
    如果是光标和图标文件的话:
    LoadPicture 函数
       

    将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。

    语法

    LoadPicture([filename], [size], [colordepth],[x,y])

    LoadPicture 函数语法有下列部分:

    部分 描述 
    filename 可选的。字符串表达式指定一个文件名。可以包括文件夹和驱动器。如果未指定文件名,LoadPicture 清除图象或 PictureBox 控件。 
    size 可选变体。如果 filename 是光标或图标文件,指定想要的图象大小。 
    colordepth 可选变体。如果 filename 是一个光标或图标文件,指定想要的颜色深度。 
    x 可选变体,如果使用 y ,则必须使用。如果 filename 是一个光标或图标文件,指定想要的宽度。在包含多个独立图象的文件中,如果那样大小的图象不能得到时,则使用可能的最好匹配。只有当 colordepth 设为 vbLPCustom 时,才使用X 和 Y值。For icon files 255 is the maximum possible value 
    y 可选变体,如果使用 x, 则必须使用。如果 filename 是一个光标或图标文件,指定想要的高度。在包含多个独立图象的文件中,如果那样大小的图象不能得到时,则使用可能的最好匹配。For icon files 255 is the maximum possible value 


    设置值

    size 的设置值为:

    常量 值 描述 

    vbLPSmall 0 系统小图标。 
    vbLPLarge 1 系统大图标,由视频驱动程序决定。 
    vbLPSmallShell 2 外壳小图标大小,由“控制面板”中的 Display Properties 对话框中 Appearance 选项卡上的 Caption Buttons 的大小设置决定。 
    vbLPLargeShell 3 外壳大图标大小,由“控制面板”中的 Display Properties 对话框中 Appearance 选项卡上的图标大小设置决定。 
    vbLPCustom 4 自定义大小,由 x 和 y 参数提供值。 


    colordepth 的设置值为:

    常量 值 描述 

    vbLPDefault 0 如果使用指定文件,则为最佳可用匹配。 
    vbLPMonochrome 1 2 色。 
    vbLPVGAColor 2 16 色。 
    vbLPColor 3 256 色。 


    说明

    Visual Basic 可以识别的图形格式有:位图 (.bmp) 文件、图标 (.ico) 文件、光标 (.cur) 文件,行程编码 (.rle) 文件、元 (.wmf) 文件、增强的元文件 (.emf), GIF(.gif) 文件以及 JPEG (.jpg) 文件。

    赋值不带参数的 LoadPicture 将清除窗体、图片框及图象控件中的图形。

    为了加载在 PictureBox 控件和 Image 控件中显示的图形或加载作为窗体背景的图形,必须将 LoadPicture 的返回值赋给要显示该图片的对象的 Picture 属性。例如:

    Set Picture = LoadPicture("PARTY.BMP")
    Set Picture1.Picture = LoadPicture("PARTY.BMP")

    如果要将图标赋予窗体,则要把 LoadPicture 函数的返回值赋给 Form 对象的 Icon 属性:

    Set Form1.Icon = LoadPicture("MYICON.ICO")

    图标也可以被赋予除 Timer 控件和 Menu 控件外的其它控件的 DragIcon 属性,例如:

    Set Command1.DragIcon = LoadPicture("MYICON.ICO")

    使用 LoadPicture 可将图形文件载入到系统剪贴板,如下所示:

    Clipboard.SetData LoadPicture("PARTY.BMP")
    展开全文
  • imgUrl="/skins/nopic.gif"objUrl=server.MapPath(imgUrl)on error resume next防止加载图片出错 set objPic=loadPicture(objUrl)通过绝对路径来取得图片的属性 if err then PicHeight1=68 PicWidth1=68 else 

    <%

    imgUrl="/skins/nopic.gif"

    objUrl=server.MapPath(imgUrl)

    on error resume next'防止加载图片出错
            set objPic=loadPicture(objUrl)'通过绝对路径来取得图片的属性
      if err then
          PicHeight1=68
       PicWidth1=68
      else
             PicWidth=round(objPic.width/26.4583)'26.4583什么?这是一个像素转换系数
             PicHeight=round(objPic.height/26.4583)

             if PicWidth>68 or PicHeight>68 then'68是显示的最大值
               if PicHeight>PicWidth then
                 PicHeight1=68
                 PicWidth1=round(PicWidth*(68/PicHeight))'缩小的倍数
               else
                 PicWidth1=68
                 PicHeight1=round(PicHeight*(68/PicWidth))'缩小的倍数
               end if
       else
        PicHeight1=68
        PicWidth1=68
             end if
      end if

    %>

    展开全文
  • VB 用Picture属性加载图片 VB 用Picture属性加载图片
  • VB 动态改变图像框Image的Stretch属性,用户通过自定义的两款代码,可随意改变image的长度和宽度大小,不过本源码将此两种操作封装在按钮事件,用户只需单击按钮,即可放大或缩小image框,动态改变了Image的...
  • VB中PictureBox控件使用教程

    千次阅读 2016-09-01 12:58:00
    它可以加载图片、显示文字、画图外,它还能与Frame对象一样,在自己本身里头加载其它的对象而自成一个小群组,用PictureBox可以仿真出任何对象的外观,PictureBox是VB基本控件里变化最多,功能最多,也是令人最想去...

    PictureBox对象可以说是任何对象的原始型态,它可以加载图片、显示文字、画图外,它还能与Frame对象一样,在自己本身里头加载其它的对象而自成一个小群组,用PictureBox可以仿真出任何对象的外观,PictureBox是VB基本控件里变化最多,功能最多,也是令人最想去征服它的一个物件。

     

    *在执行阶段,可以用VB的函数来帮PictureBox加载图片:

    Command1_Click()

    Picture1.Picture = LoadPicture("E:\MyGif\AniGif0562.gif")

    End Sub

     

    *在PictureBox里画图:

    PSet方法:PSet不只是用在PictureBox上,也可以用在窗体上,PSet最主要功用用就是在某一点位置上画一个点,用法是:

    Object.PSet(X,Y), Color: Private Sub Command1_Click()

    Picture1.PSet(500,260),RGB(128,0,255)          'RGB函数是以红色、绿色、蓝色来表示颜色,详情请到函数指令参考

    End Sub

    若颜色省略,则以PictureBox预设的颜色。

    范例:满天繁星:

    Private Sub Timer1()_Timer

    Randomize

    X = Int(Rnd * Picture1.ScaleWidth)

    Y = Int(Rnd * Picture1.ScaleHeight)

    R = Int(Rnd * 256)

    G = Int(Rnd * 256)

    B = Int(Rnd * 256)

    Picture1.PSet (X, Y), RGB(R, G, B)

    End Sub

    Line方法:Line方法专门用来画直线的工具,在窗体上也可以使用,用法:

    Object.Line(X1,Y2)-(X2,Y2), Color, BF

    Color在Line里与PSet一样是可以被省略的,在Color后方若是加入B则画出的不是线条,而是一个空心矩形,若是BF,则画出来的是实心矩形。

    Private Sub Command1_Click()

    Picture1.Line(50,50)-(500,750)

    End Sub

    Private Sub Command1_Click()

    Picture1.Line(50,50)-(500,750), ,B

    End Sub

    Private Sub Command1_Click()

    Picture1.Line(50,50)-(500,750), ,BF

    End Sub

    Circle方法:Circlr方法专门用来画圆,窗体上也是可以使用,用法:

    Object.Circle(X,Y), R, Color, 起始角度, 终止角度, 椭圆率

     

    Private Sub Command1_Click()

    Picture1.Circle(1000, 1000), 800

    End Sub

     

    Private Sub Command1_Click()

    Const PI = 3.1415926535

    Picture1.Circle (1000, 1000), 800, , PI / 4, 3 * PI / 4

    End Sub

    若是设定起始角度与终止角度,画出来的圆会变成弧,而角度单位使用的是弧度,也就是说,180。=3.1415926535...

    Private Sub Command1_Click()

    Const PI = 3.1415926535

    Picture1.Circle (1000, 1000), 800, , -PI / 4, -3 * PI / 4

    End Sub

    若是起始角或终止角使用负数,它们还由由圆心画直线到起始角或终止角,这样就可以画出扇形。

    Private Sub Command1_Click()

    Picture1.Circle (1000, 1000), 800, , , , 0.75

    End Sub

    椭圆率则是圆的Y轴与X轴的比值,也就是 Y/X ,可以画出椭圆形。

    范例:在PictureBox里,拖曳产生一个圆

    (一般)

    Dim Dx As Single, Dy As Single

    Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 1 Then

    Dx = X

    Dy = Y

    End If

    End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 1 Then

    Picture1.Cls

    Picture1.Line (Dx, Dy)-(X, Y)

    Picture1.Circle (Dx, Dy), (((Dx - X) ^ 2 + (Dy - Y) ^ 2) ^ 0.5)

    End If

    End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 1 Then

    Picture1.Cls

    Picture1.AutoRedraw = True

    Picture1.Circle (Dx, Dy), (((Dx - X) ^ 2 + (Dy - Y) ^ 2) ^ 0.5)

    Picture1.AutoRedraw = False

    End If

    End Sub

    Cls方法:Cls方法,就是清除屏幕上对象所在范围的内容,窗体也适用,若已存在内存里的内容,则无法消除,用法:Object.Cls,范例在上面的画圆范例里。

    Point方法:Point就是读取PictureBox某一点上的颜色数值,传回值是长整数型态,在窗体上也适用,用法:传回值 = Object.Point

    Private Sub Picture1 

    AutoRedraw属性:上面的PSet、Line、Circle是VB所提供的,画图在屏幕上的方法,因此只要对象移出屏幕外,或是对象被其它窗口或对象给盖着,刚才所画的图会不件,若在绘图时,把AutoRedraw设为True,则可把图绘入内存,即使用Cls方法也清除不掉,范例在上面的画圆范例里头。

    想要把用VB函数在PictureBox里所画的图给存起来时(把AutoRedraw设为True时所绘的图才能存盘),VB提供了SavePicture方法,用法是SavePicture Object.Picture, 存档名。

    Private Sub Command1_Click()

    SavePicture Picture1.Picture, "C:\Windows\Temp\Tmp.Bmp"

    End Sub

    SavePicture只能存BMP格式的,请别异想天开把扩展名改成JPG或GIF,存起来的图仍是BMP格式的图。

    PaintPicture方法:PaintPicture方法,可以把某个物计内的图转贴到另一个物件上,但要有一个前题,这个图是用Picture属性加载进来的图才可以,用法:

    Object.PaintPicture 来源对象.Picture, Object.X, Object.Y, 图在Object上的宽度, 图在Object上的高度, 来源对象X起始位置, 来源对象起始Y位置, 来源对象上的宽度, 来源对象上的高度, 贴图模式

    Private Sub Command1_Click()

    Picture1.PaintPicture Picture2.Picture, 0, 0         '原尺寸转印

    End Sub

    ●若是改变了图在Object上的宽与高,可以改变图形的缩放,Picture2内的图被放大转贴到Picture1里。

    Private Sub Command1_Click()

    Picture1.PaintPicture Picture2.Picture, 0, 0, 750, 600

    End Sub

    Print方法:Print可以在PictureBox上打印文字,窗体也适用,用法:Object.Print 资料。

    Private Sub Command1_Click()

    MyLng = 1234567

    Picture1.Print "今天天气真好"

    Picture1.Print "MyLng = " & MyLng

    End Sub

    CurrentX与CurrentY属性:设定或传回目前PictureBox上画笔所在的位置,窗体也适用。

    Private Sub Command1_Click()

    Picture1.CurrentX = 500

    Picture1.CurrentY = 350

    Picture1.Print "今天天气真好"

    End Sub

     

     

    摘录自:http://www.cnblogs.com/rosesmall/p/5048705.html

    转载于:https://www.cnblogs.com/tgds/p/5829394.html

    展开全文
  • VB6.0 创建一个右键菜单,为了便于用户使用“粘贴”功能,特此自定义了一个右键菜单,在这个右键菜单用户可选择粘贴,直接从剪帖板粘贴内容到本窗口。以下是相关的代码:  Private Sub Picture1_MouseDown...
  • VB中对EXCEL的各种操作

    万次阅读 多人点赞 2017-02-08 15:20:15
    VB操作excel方法汇总 Private Sub Command3_Click()    Dim i As Long  Dim j As Long  Dim objExl As Excel.Application '声明对象变量  Me.Mouse...
  • VB App.Path的使用

    千次阅读 2012-09-04 07:48:20
    程序开启文件时,若没有指定文件的目录,则所开启的将是「目前目录」的文件,但目前目录是经常改变的,如果指定目录,则将来安装程序时,被开启的文件必须安装于指定目录,比较没有弹性。  解决以上问题的方法...
  • 资源文件在VC应用程序应用十分广泛,在VB应用却很少提及它。其实在开发VB应用程序时,一样可以将要用到的字符串、位图、图标和其它类型的数据等做成一个资源文件。因为这样做至少有以下几个优点:(1)提高性能...
  • Option Explicit Global Const mm = 567 Global Const cm = 567 Global Const NM_PP_Ofs = 0 '36 Global Const Gray = &HC0C0C0 Global Scala As Single Global Const ANTEPRIMA = 0 Global Const STAMPANTE = 1 ...
  • 不使用LoadPicture函数在Pure VB中加载Windows位图 描述 对于那些对位图文件格式感兴趣的人,这就是您所需要的。 首先,本模块显示了如何在Pure VB中加载Windows位图文件,这意味着根本没有API调用,并且不使用基本...
  • 将图片存入数据库的方法演示,含完整实例源码,这里的数据库为Access,图片格式为bmp或ico。... Image1.Picture = LoadPicture(Text1(2).Text)  Image2.Picture = LoadPicture(Text1(2).Text)  End If  End Sub
  • VB6.0编译环境能打开excel ,但生成exe文件后,就报错![图片说明](https://img-ask.csdn.net/upload/201705/17/1495000293_517657.jpg) ``` Option Explicit Dim newxls As New Excel.Application Dim ...
  • Vb中VSFlexGrid控件的应用

    千次阅读 2015-03-10 18:15:48
    将数据库的内容写入下拉框 O.A(rs, FieldList, KeyField, BackColor)   CausesValidation 目标事件确认 O.A = False|True   Cell 选择部分的相应准则值 O.A(准则, Row1, Col1, Row2, Col2) = ...
  • Set LoadPicture = VB.LoadPicture(strFileName) Err.Clear End Function 使用方法: Set 控件名.Pictue = LoadPicture(图片网络路径) 上面这个是无缓存加载的 下面这个是下载到...
  • RX2 As Long, RY2 As Long, Pic As New StdPicture Dim ReturnWidth As Long, ReturnHeight As Long Set Pic = LoadPicture(URL) P.AutoRedraw = True If (Pic.Width > P.ScaleWidth Or Pic.Height > P.ScaleHeight...
  • VB-判断并获取打开文件的路径,本例以打开一个图片文件为例,显示图片的路径信息,要实现这一功能,请参看以下代码:  Private Sub Command1_Click()  On Error Resume Next  With CommonDialog1  '设置初始化...
  • 清空回收站代码 VB.txt

    2019-09-06 15:31:50
    Begin VB.Form Form1 Caption = "清空回收站" ClientHeight = 2595 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 Icon = "Form1.frx":0000 LinkTopic = "Form1" ScaleHeight = 2595 ScaleWidth = ...
  • 一个基于VB 的万年历,万年历日历显示节日、农历、星座等信息,可前进、后退查看某一天信息。编写时候用到了不少VB类,源码公开,对学习来说相当有参考价值。 Private Sub Image2_Click(Index As Integer) ...
  • VB加载图片

    2014-10-29 20:49:30
    对图片用VB进行加载到数据库 从数据库读图片 Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim mstream As ADODB.Stream szConString = "Provider=sqloledb.1;Persist Security Info=False;User ...
  • vb窗体设计

    2011-12-19 10:58:16
    Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image7.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg")...
  • VB图形控件pictureBox和Image控件

    千次阅读 2020-09-16 10:39:02
    注意,图片的地址放在LoadPicture(“地址”)函数,并放在英文状态的双引号之。 步骤五:运行程序,测试效果。单击不同的按钮,以观察图片和控件的变化效果,思考它们之间的区别。 通过这个案例,可以发现在不同...
  • VB电子相册

    2015-06-14 21:10:52
    VB电子相册 电子相册 1、数据库连接 Public conn As ADODB.Connection Public Sub conDB() Set conn = New ADODB.Connection conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & App...
  • VB中的时间知识大家好,今天是2020年2月29日。二月份是全年最特殊的一个月份,因为这个要么是28天,要么是29天。今年是闰年,所以2月份有29天。傍晚,很多朋友都在朋友圈发文纪念。在《钢铁是怎样炼成的》有句...
  • VB中Image控件如何加载网络图片

    万次阅读 2011-12-31 21:31:59
    Set LoadPicture = VB.LoadPicture(strFileName) Err.Clear End Function Private Sub Command1_Click() Image1.Picture = LoadPicture("http://img.baidu.com/img/logo-zhidao.gif") End Sub
  • 放大缩小还原图片,VB6.0源代码编写

    热门讨论 2009-06-15 15:21:14
    放大缩小还原图片,VB6.0源代码编写,Image1.Picture = LoadPicture("3800.jpg")
  • VS2019VB代码 : Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load PictureBox1.Image = Image.FromFile("C:\Users\hasee\Desktop\中国居民平衡膳食宝塔.jpg") End Sub VB6代码: ...
  • 在win10下看一下vb6能不能用; 在设计界面;在窗体上添加一个Drive控件,一个Dir控件,一个File控件,一个PictureBox控件; Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 770
精华内容 308
热门标签
关键字:

vb中loadpicture