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

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

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

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

用错误陷阱 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) 另...

先创建一个窗口,两个COMMAND控件,一个Picture1图片控件,相关代码如下: Private Sub Command1_Click() '加载Picture1.Picture = LoadPicture("c:\aa.jpg")End SubPrivate Sub Command2_Click() '清空Picture1.Picture = NothingEnd Sub

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim nBrush As New SolidBrush(Color.Red) Dim font As New Font("宋体", 12) Dim bmp As Bitmap = Bitmap.FromFile("c:\123.j...

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

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