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

步骤/方法 >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 "不是图片...

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

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

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

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

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

把图片编译成RES文件后试下LoadResPicture吧。 在VB里,点“外接程序”再点“外接程序管理器”,把VB资源编辑器勾选上 选择启动加载 重启VB,会看到工具栏上有一个类似注册表的图标,点开它,再点击图标是一个仙人掌的按钮,加入一个位图,再保存资...

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