谁帮我写一个这样的函数,共外部调用:参数为图片的路径,当把路径传进来后在别处调用这个函数会在窗体上加载这个路径的图片
函数里面没有图片控件
答案正确立即结贴
-
等级
本版专家分：7结帖率 94.74% -
vb已经有1年多没有接触了
谁帮我写一个这样的函数,共外部调用:参数为图片的路径,当把路径传进来后在别处调用这个函数会在窗体上加载这个路径的图片
函数里面没有图片控件
答案正确立即结贴展开阅读全文
-
等级
本版专家分：2590 -
'用Picture控件作为容器,不知是否这样?
Public Sub AddPic(PicFrame As PictureBox, PicPath As String)
PicFrame.Picture = LoadPicture(PicPath)
End Sub
'调用
Private Sub Command1_Click()
AddPic Picture1, "F:\photo\IMG_0003.jpg"
End Sub
-
等级
本版专家分：7
-
还有其它方法没有
能不能不拖控件 用代码来创建控件
然后在用你的方法???
-
等级
本版专家分：45786勋章
-
- 蓝花 2008年5月 VB大版内专家分月排行榜第三
-
-
借用 jieweibin 的代码:
Public Sub AddPic(PicPath As String)
dim pic as picturebox
set pic=controls.add("VB.PictureBox","pic")
with pic
.visible=true
.height=1600
.width=2000
.top=0
.left=0
end eith
set pic.Picture = LoadPicture(PicPath)
End Sub
Private Sub Command1_Click()
AddPic "F:\photo\IMG_0003.jpg"
End Sub
-
等级
本版专家分：21807勋章
-
- 红花 2007年8月 VB大版内专家分月排行榜第一
-
- 黄花 2008年5月 VB大版内专家分月排行榜第二
-
-
蓝花
2008年1月 VB大版内专家分月排行榜第三
2007年11月 VB大版内专家分月排行榜第三
-
-
看看真正的无控件版：
Option Explicit
Private Declare Function MulDiv Lib "kernel32" (ByVal nNumber As Long, ByVal nNumerator As Long, ByVal nDenominator As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Const LOGPIXELSX = 88
Private Const HIMETRIC_INCH = 2540
Public Sub PaintForm(ByVal Strpath As String, F As Form)
Dim pic As StdPicture
Set pic = LoadPicture(Strpath)
Dim nWidth, nHeight
nWidth = MulDiv(pic.Width, GetDeviceCaps(Me.hdc, LOGPIXELSX), HIMETRIC_INCH)
nHeight = MulDiv(pic.Height, GetDeviceCaps(Me.hdc, LOGPIXELSX), HIMETRIC_INCH)
pic.Render F.hdc, 0, 0, nWidth, nHeight, 0, pic.Height, pic.Width, -pic.Height, 0
F.Refresh '如果form1.autoredraw=true,哪么，这是必须的，如果＝false,有这一句就看不到
End Sub
用法:
PaintForm "路径.jpg", Me
-
等级
本版专家分：129844勋章
-
-
红花
2017年3月 VB大版内专家分月排行榜第一
2016年12月 VB大版内专家分月排行榜第一
2016年5月 VB大版内专家分月排行榜第一
2016年1月 VB大版内专家分月排行榜第一
2015年12月 VB大版内专家分月排行榜第一
2015年11月 VB大版内专家分月排行榜第一
2015年10月 MS-SQL Server大版内专家分月排行榜第一
2015年9月 VB大版内专家分月排行榜第一
2015年9月 MS-SQL Server大版内专家分月排行榜第一
2015年8月 VB大版内专家分月排行榜第一
2015年8月 MS-SQL Server大版内专家分月排行榜第一
2015年7月 VB大版内专家分月排行榜第一
2015年7月 MS-SQL Server大版内专家分月排行榜第一
2015年6月 VB大版内专家分月排行榜第一
2015年5月 VB大版内专家分月排行榜第一
2015年4月 VB大版内专家分月排行榜第一
2015年3月 VB大版内专家分月排行榜第一
2015年2月 VB大版内专家分月排行榜第一
2014年11月 VB大版内专家分月排行榜第一
2014年9月 VB大版内专家分月排行榜第一
2014年8月 VB大版内专家分月排行榜第一
2014年7月 VB大版内专家分月排行榜第一
2013年7月 VB大版内专家分月排行榜第一
2013年4月 VB大版内专家分月排行榜第一
2010年2月 VB大版内专家分月排行榜第一
2010年1月 VB大版内专家分月排行榜第一
2009年11月 VB大版内专家分月排行榜第一
2009年9月 VB大版内专家分月排行榜第一
2009年8月 VB大版内专家分月排行榜第一
2009年7月 VB大版内专家分月排行榜第一
2009年4月 VB大版内专家分月排行榜第一
2009年3月 VB大版内专家分月排行榜第一
2009年2月 VB大版内专家分月排行榜第一
2009年1月 VB大版内专家分月排行榜第一
2008年6月 VB大版内专家分月排行榜第一
2007年12月 VB大版内专家分月排行榜第一
2007年10月 VB大版内专家分月排行榜第一
2007年9月 VB大版内专家分月排行榜第一
-
-
黄花
2016年11月 VB大版内专家分月排行榜第二
2016年1月 MS-SQL Server大版内专家分月排行榜第二
2015年12月 MS-SQL Server大版内专家分月排行榜第二
2015年11月 MS-SQL Server大版内专家分月排行榜第二
2015年5月 MS-SQL Server大版内专家分月排行榜第二
2015年4月 MS-SQL Server大版内专家分月排行榜第二
2015年1月 VB大版内专家分月排行榜第二
2015年1月 MS-SQL Server大版内专家分月排行榜第二
2014年12月 VB大版内专家分月排行榜第二
2014年11月 MS-SQL Server大版内专家分月排行榜第二
2014年9月 MS-SQL Server大版内专家分月排行榜第二
2013年8月 VB大版内专家分月排行榜第二
2013年6月 VB大版内专家分月排行榜第二
2013年5月 VB大版内专家分月排行榜第二
2010年4月 VB大版内专家分月排行榜第二
2010年3月 VB大版内专家分月排行榜第二
2008年12月 VB大版内专家分月排行榜第二
2008年8月 VB大版内专家分月排行榜第二
2008年7月 VB大版内专家分月排行榜第二
2007年11月 VB大版内专家分月排行榜第二
-
-
蓝花
2017年1月 MS-SQL Server大版内专家分月排行榜第三
2015年6月 MS-SQL Server大版内专家分月排行榜第三
2015年3月 MS-SQL Server大版内专家分月排行榜第三
2015年2月 MS-SQL Server大版内专家分月排行榜第三
2014年12月 MS-SQL Server大版内专家分月排行榜第三
2014年10月 VB大版内专家分月排行榜第三
2014年10月 MS-SQL Server大版内专家分月排行榜第三
2014年8月 MS-SQL Server大版内专家分月排行榜第三
2013年9月 VB大版内专家分月排行榜第三
2013年3月 VB大版内专家分月排行榜第三
2012年5月 VB大版内专家分月排行榜第三
2012年4月 VB大版内专家分月排行榜第三
2010年10月 VB大版内专家分月排行榜第三
2010年8月 VB大版内专家分月排行榜第三
2010年7月 VB大版内专家分月排行榜第三
2009年5月 VB大版内专家分月排行榜第三
2008年9月 VB大版内专家分月排行榜第三
2008年4月 VB大版内专家分月排行榜第三
2008年2月 VB大版内专家分月排行榜第三
-
-
直接放在窗体中，否则用具体的窗体实例代替 Me
Public Sub ShowPicture(ByVal FilePath As String)
Set Me.Picture = LoadPicture(FilePath)
End Sub
-
等级
本版专家分：21807勋章
-
- 红花 2007年8月 VB大版内专家分月排行榜第一
-
- 黄花 2008年5月 VB大版内专家分月排行榜第二
-
-
蓝花
2008年1月 VB大版内专家分月排行榜第三
2007年11月 VB大版内专家分月排行榜第三
-
-
汗，Tiger_Zhao的最正确
-
等级
本版专家分：116 -
我觉得楼上各位code都好,简单实用更好!
- 我在CSDN参与的3000个帖子
2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
- WEB开发文档2 总结
http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx 怎样将后台生成的在内存中的图象显示到客户端 Microsoft IE WebControls下载地址 如何在DATAGRID中使用JAVASCRIPT脚本控制 DataGrid中连接到...
- 新编Windows API参考大全
书名：新编Windows API参考大全 作者：本书编写组 页数：981页 开数：16开 字数：2392千字 出版日期：2000年4月第二次印刷 出版社：电子工业出版社 书号：ISBN 7-5053-5777-8 定价：98.00元 内容简介 作为...
- Windows API参考大全
这些函数在程序员手中犹如“积木块”一样，可搭建出各种界面丰富、功能灵活的应 用程序。不过，由于这些函数结构复杂，所以往往难以理解，而且容易误用。 随着软件技术的不断发展，在Windows平台上出现了很
- BAT机器学习面试1000题系列（第1~305题）
BAT机器学习面试1000题系列 整理：July、元超、立娜、德伟、贾茹、王剑、AntZ、孟莹等众人。本系列大部分题目来源于...说明：本系列作为国内首个AI题库，首发于七月在线实验室公众号上：julyedulab，并部分更新...
- 基础
请问怎么得到一个函数的执行时间，单位毫秒！如何调试asp组件呀。用vc++调试编制的组件怎样画一个箭头？高分请教如何限制程序运行的方法？求助：通过编程DirectX抓屏------>masterz:再麻烦你一下，谢谢熟悉RichEdit...
- graphics.h头文件详解
Turbo C提供了非常丰富的图形函数, 所有图形函数的原型均在graphics. h中, 本节主要介绍图形模式的初始化、独立图形程序的建立、基本图形功能、图形窗口以及图形模式下的本输出等函数。另外, 使用图形函数时要确保有...
- 算法面试大全
本文原文链接： ... 整理：七月在线July、德伟、立娜、孟莹、贾茹等众人。本系列大部分题目来源于公开网络，且注明来源链接。 ...说明：本系列自2017年9月28日开始，每周持续更新。首发于七月在线实验室公众号上：...
- 【STM32小案例 01 】实现DHT11与0.96寸OLED的动态显示
学习STM32F103系列差不多快到两个月,本实验中的驱动都是自己写的库,几乎是0移植. 先贴图: (因为我近期在做的项目就是智慧猪栏,说白了就是物联网养猪,所以我这个显示屏提示的标题就是这个) 现在将具体项目是...
- BAT机器学习面试1000题系列
七月的博客还有很多数据结构基础知识，很多面试题，写的非常好，其七月在线app很多课程也很不错。） 整理：七月在线July、德伟、立娜、孟莹、贾茹等众人。本系列大部分题目来源于公开网络，且注明来源链接。 说明...
- Win32 API 函数列表1（格式有点乱）
西安邮电学院 徐兆元ID编号 函数名 函数说明 详细说明 Win16支持 Win9x支持 WinNT支持1 AbortDoc 终止一项打印作业 Yes Yes Yes2 AbortPath 终止或取消DC中的一切路径 No Yes Yes3 AbortPrinter ...
- C语言图形编程
C语言图形函数介绍篇 Turbo C提供了非常丰富的图形函数, 所有图形函数的原型均在graphics. h中, 本节主要介绍图形模式的初始化、独立图形程序的建立、基本图形功能、图形窗口以及图形模式下的文本输出等函数。另外,...
- 图像知识 太经典 膜拜
图像知识 图形图像 图形设备和系统 图形文件的显示 图形文件的格式 WINDOWS编程基础 WINDOWS图像编程 ...--------------------------------
- 前端面试题目搜集
最近读到一本与前端面试有关的书《前端程序员面试笔试宝典》，里面的内容很多都是高频的面试题，在此推荐给各位网友。 一、理论知识 1.1、前端 MV*框架的意义 早期前端都是比较简单，基本以页面为工作单元，...
- 深度学习基础知识整理
本文是在七月的BAT机器学习面试1000题系列进行修改。 前言 July我又回来了。...我们将通过这个系列索引绝大部分机器学习和深度学习的笔试面试题、知识点，它将更是一个足够庞大的机器学习和深...
- 机器学习复习
七月的博客还有很多数据结构基础知识，很多面试题，写的非常好，其七月在线app很多课程也很不错。 这只是部分题，后面还有题目。见http://mp.weixin.qq.com/s/C99b32MyrnEVggRAECetUA 本文原文链接： ...
- CSDN回帖得分大全（近两年）
√vs2005调用dll的时候Initialize()函数返回错误 [VC/MFC 基础类] 40 ylongwu 05-21 20:486 ylongwu06-28 13:42管理√为什么我创建登陆框之后，然后获取登陆框的数据时候总是出现非法操作！ [VC/MFC 界面] 40 ...
- 【《Real-Time Rendering 3rd》 提炼总结】(五) 第六章 · 纹理贴图及相关技术 The Texturing
在计算机图形学中，纹理贴图是使用图像、函数或其他数据源来改变物体表面外观的技术。这篇文章，将总结和提炼《Real-Time Rendering 3rd》（实时渲染图形学第三版）的第六章“Texturing（纹理贴图）”的内容，讲述...
- MiniGUI
目 录MiniGUI 体系结构 概览 引言 POSIX 线程 基于 PThread 的微客户/服务器结构 多线程通讯的关键数据结构——消息队列 面向对象技术在 MiniGUI 中的应用 未来考虑 多窗口管理和控件及控件类 引言 窗口Z序 窗口剪切...
- C语言图形函数
C语言图形函数 1.1 C 语言的产生与发展 C 语言是1972年由美国的Dennis Ritchie设计发明的, 并首次在UNIX操作系统 的 DEC PDP-11 计算机上使用。 它由早期的编程语言 BCPL( Basic Combind Programming Language)...
- [转]Turbo C图形函数
图形函数 图形函数 Turbo C提供了非常丰富的图形函数, 所有图形函数的原型均在graphics. h中, 本节主要介绍图形模式的初始化、独立图形程序的建立、基本图形功能、图形窗口以及图形模式下的文本输出等函数。另外, ...
- Unity3D 脚本参考
Unity3D 脚本参考 核心提示：一、脚本概览这是一...最常用的列在下面：Update：这个函数在渲染一帧之前被调用，这里是大 部分游戏行为代码被执行的地方，除了物理代码。FixedUpd... 一、脚本概览 这是一个关于Unit
- 机器学习面试题
BAT机器学习面试1000题系列 ...请简要介绍下SVMSVM，全称是support vector machine，中文名叫支持向量机。SVM是一个面向数据的分类算法，它的目标是为确定一个分类超平面，从而将不同的数...
- DirectX中文手册
DirectX中文手册 目 录 第一章 DirectX基础（初级篇） 第一节 什么是DirectX 一、什么是DirectX ？ 二、DirectX的组成部分 三、关于DirectDraw 四、为什么要使用DirectDraw?...一、编译库和运
- 《Deep Learning》中文翻译总结
前记：2015年，深度学习三大牛Yann LeCun、Yoshua Bengio和Geoffrey Hinton在最新的《Nature》... 摘要:深度学习是允许由多个处理层和多个抽样层学习数据表示的计算机模型。这些方法可以显著提高了最先进的语音识别,
- 大杂烩
今天一位十几年没见的朋友请我们去吃饭,吃完在他公司闲聊时无意中说起他一个朋友的父亲得了癌症，被医生宣布只能回家等死了，有人送来了一个偏方，家人就是：死马只当活马医，试着吃起了这个方子，没想到吃了几贴就...
- C++面试题
将构造函数写为private的，然后通过一个成员静态函数来调用构造函数即可:) 例: #include "iostream.h" class MySingleton { private: static MySingleton* _instance; MySingleton(){ cout ~MyS
- 谷歌三大核心技术
转自：http://blog.csdn.net/hguisu/article/details/7244798 转自：http://blog.csdn.net/hguisu/article/details/7244981 转自：... 本文转载了Google的三大核心技术，作为学习的记录需要的时候及
- 链接：MSDN UserNet等
Q我想知道如何在VC中实现可塌陷的PanelBar界面（类似于OutlookBar）？ T可塌陷的PanelBar界面比outlookbar更有吸引力，Windows XP左边的导航工具面版就是采用这种风格，采用这种风格的应用程序也越来越多，比如各种...