nynw.net
当前位置:首页 >> vB PiCturE1显示图片问题 >>

vB PiCturE1显示图片问题

Private Sub Timer1_Timer() static i as integer i=(i+1) mod 2 if i=0 then Picture1.Picture = LoadPicture(App.Path & "\pictures\MgI.jpg") else Picture1.Picture = LoadPicture(App.Path & "\pictures\MgI1.jpg") end if End Sub Private...

1) 保存 D:\1.Txt 文件程序如下: Dim FileNum As Long Dim fileName As String fileName = "D:\1.Txt" FileNum = FreeFile() Open fileName For Output As FileNum Print #FileNum, "C:\Document and Setting\Administrator\桌面\psb.pjg" Close...

事实上建议使用 Image 控件。 Image 控件因为不能使用 hDC 和 hWnd 操作,占用内存少,重绘快。里面有一个 Stretch 属性,设置为 True 就是图片将就 Image,False 就是 Image 将就图片(估计也是用 PaintPicture 函数画的……参数不同而已)。 注...

用图片框控件(或窗体)的PaintPicture方法可实现: Picture1.PaintPicture LoadPicture("要显示的图片路径及名称"), x1, y1, w1, h1, x2, y2, w2, h2 x1和y1是Picture1中绘制图片的左上角坐标,通常是0,0; w1和h1是Picture1中绘制图片的宽和高...

步骤/方法 >01 打开VB,建立标准EXE。 >02 建立一个图像框,名字改为p1,建立一个命令按钮。 >03 双击命令按钮,进入代码编辑器, p1.Picture = LoadPicture("D:\My Documents\新建文件夹 (2)\1.jpg") >04 点击运行, >05 点击命令按钮,图片显示...

用错误陷阱 Private Sub Command1_Click() On Error GoTo ERRPROC '指示如果发生错误就跳到ERRPROC:这句 pic1.Picture = LoadPicture("dsf") Exit Sub '必须加这句,否则无论如何都会“报错” ERRPROC: If Err.Number = 381 Then MsgBox "不是图片...

Private Sub Form_Load() Image1.Picture = LoadPicture("e:\1.jpg")End Sub Form_Load 中写代码就可以的。

vb 打印 Picture1的print1.是图片控件; form1.Print 是在窗体上输出,也可以直接Print Picture1.Print 是在Picture1上输出 ,而不再窗体上输出。 Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境...

'先在工程中引用Microsoft Excel 11.0 Object Library On Error Resume Next Dim objExcel As Excel.Application Dim objWorkBook As Excel.Workbook Set objExcel = GetExcelApp Set objWorkBook = objExcel.Workbooks.Add() '设置活动工作表 D...

Image1.Picture=Picture1.picture'将Image1的图片设为Picture1的图片

网站首页 | 网站地图
All rights reserved Powered by www.nynw.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com