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 "不是图片...

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

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

这是习惯吧,通常在输出之前清空窗口的情况较多,不过你确定不需要清空的话去掉也无妨。cls除了清空还会把输出坐标恢复到原点,不然下一次刷新时会写到下一行。

好的程序来了,自己写的,已经验证OK!!! Private Sub Command1_Click() Picture1.Picture = LoadPicture("C:\123.jpg") End Sub 你在窗体上添加一个Picture控件,一个Command按钮,然后把上面的代码复制进去,运行看结果吧!!! 注意:你首先要把123.jpg...

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

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

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