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...

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

Private Sub Picture1_Click() For n = 1 To 6 For i = 1 To n x = x & i Picture1.Print x & Space(1); Next i x = "" Picture1.Print Next n End Sub

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...

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

从你的自定义坐标系来看,你的横坐标的可见范围是100到50,这也就是说凡是x大于100或小于50的数据就无法显示在Picture1中,因此你的整条Y轴都无法出现(因为x=0)。从你的后续程序来看,应该是这样才正确: Picture1.Scale (100, 0)-(0, 35) 另...

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

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

Option Explicit Private Sub Command1_Click() '里面的是图片的路径改自己的 Picture1 = LoadPicture("d:\wy.bmp") Picture1.Cls Picture1.AutoRedraw = True Picture1.PaintPicture Picture1.Picture, 0, 0, 2000, 3000, , , , , vbSrcCopy Pi...

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

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