vb操作word图片保存参数 word保存传入参数
vb调用word
在VB6.0中，操作word，使用它强大的查找、替换、删除、复制、翦切功能。
还可以把特定字符替换成图片。
有了它你就可以使用数据库中的内容或图片文件替换word文件中的特定字符。
只要把下列内容复制到写字板中，另存为SetWord.cls文件，然后在把它添加到工程中，就可以使用了。
VERSION 1.0 CLASS BEGIN MultiUse = -1 "True Persistable = 0 "NotPersistable DataBindingBehavior = 0 "vbNone DataSourceBehavior = 0 "vbNone MTSTransactionMode = 0 "NotAnMTSObject END Attribute VB_Name = ＂SetWord＂ Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Private mywdapp As Word.Application Private mysel As Object"属性值的模块变量 Private C_TemplateDoc As String Private C_newDoc As String Private C_PicFile As String Private C_ErrMsg As Integer Public Event HaveError() Attribute HaveError.VB_Description = ＂出错时激发此事件.出错代码为ErrMsg属性＂"***************************************************************"ErrMsg代码：1-word没有安装 2 - 缺少参数 3 - 没权限写文件" 4 - 文件不存在""*************************************************************** Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0) As Integer Attribute ReplacePic.VB_Description = ＂查找FindStr，并替换为PicFile所指向的图片文件，替换次数由time参数确定，为0时，替换所有＂"********************************************************************************" 从Word.Range对象mysel中查找所有FindStr，并替换为PicFile图像" 替换次数由time参数确定，为0时，替换所有"******************************************************************************** If Len(C_PicFile) = 0 Then C_ErrMsg = 2 Exit Function End If Dim i As Integer Dim findtxt As Boolean mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = ＂＂.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True) If Not findtxt Then ReplacePic = 0 Exit Function End If i = 1 Do While findtxt mysel.InlineShapes.AddPicture FileName:=C_PicFile If i = Time Then Exit Do i = i + 1 mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True) Loop ReplacePic = i End Function Public Function FindThis(FindStr As String) As Boolean Attribute FindThis.VB_Description = ＂查找FindStr，如果模板中有FindStr则返回True＂ If Len(FindStr) = 0 Then C_ErrMsg = 2 Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = ＂＂.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory FindThis = mysel.Find.Execute End Function Public Function ReplaceChar(FindStr As String, RepStr As String, Optional Time As Integer = 0) As Integer Attribute ReplaceChar.VB_Description = ＂查找FindStr，并替换为RepStr，替换次数由time参数确定，为0时，替换所有＂"********************************************************************************" 从Word.Range对象mysel中查找FindStr，并替换为RepStr" 替换次数由time参数确定，为0时，替换所有"******************************************************************************** Dim findtxt As Boolean If Len(FindStr) = 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = RepStr.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With If Time > 0 Then For i = 1 To Time mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=wdReplaceOne) If Not findtxt Then Exit For Next If i = 1 And Not findtxt Then ReplaceChar = 0 Else ReplaceChar = i End If Else mysel.Find.Execute Replace:=wdReplaceAll End If End Function Public Function GetPic(PicData() As Byte, FileName As String) As Boolean Attribute GetPic.VB_Description = ＂把图像数据PicData，存为PicFile指定的文件＂"********************************************************************************" 把图像数据PicData，存为PicFile指定的文件"*********************************************...
VB中把存好的数据再读回来并画成图
Dim s() As Double"原来的Dim zj() As string "原来的Dim strTemp0 As string"++++新加的+++++Dim strTemp1 As string"++++新加的+++++++".............略写原内容。
。
。
。
。
...Do While Not EOF(1) " 循环至文件尾。
Line Input #1, strTemp1 " ++++改过strTemp0= strTemp0 & Trim(strTemp1) &； ＂|＂ " ++++改过Loopzj= Split(strTemp0， ＂|＂) "++++加的redim s( Lbound(zj) to Ubound(zj) ） "++++加的for i= Lbound(zj) to Ubound(zj) "++++加的s(i)=val(zj(i))next"读写数据的改进，主要是类型不对，Split是产生数组 要有分界符，数组重定义也要注意，"还有数据类型的要匹配，其余部分未看，也不知有无问题"........
怎么把输出在VB窗口界面上内容直接存为TXT或WORD文件
是这样，如果你想保存所有的输出内容为txt文件要用open命令。
这个命令在不同的v版本中用法不太一样，Open pathname Fo mode [Access access] [lock] As [#]filenume [Len=eclength]举个例子： open ＂c:\aa.txt＂ fo output as #1 pint #1, ＂asdfasdf ＂ close #1 将＂asdfasdf ＂ 保存到＂c:\aa.txt＂，输出语句pint #1，（在这儿可以用变量）比如fom1.text1.text是保存本窗体文本框中的内容。
详细用法建议去msdn中查看。
也可以在搜索引擎中搜v open，就可以查到了。
关于网页操作我用VB处理网页：对于网页中的文本框、按钮,可以这...
对于一个高分问题，楼主应该尽最大努力让大家明白你的问题，希望说的更详细一些，如果大家弄不清你问的是什么，那么回答肯定没什么用的。
根据你的问题，我觉得应该是手动点击的mouseve事件可能会给某个参数赋值，后面打开下一级菜单时会有一个判断，如果得不到这个参数的值，程序会出错。
希望对你有用！
【vb画图板】用VB编写简单画图程序要求：类似WINDOWS自带画图...
提供下面的文章希望能帮上你的忙： --用VB6.0编写俄罗斯方块 摘要 Visual Basic是微软公司力推的编程工具，它具有易学易用、编程简单、程序集成化程度高等特点，是许多开发人员的首选开发工具。
而“俄罗斯方块”又是一种很受欢迎的电子游戏，在手机、掌上游戏机、电子辞典以及计算机中经常见到。
此游戏有很多变种。
都非常的受欢迎，所以我在毕业论文的方向上选择了用v编写俄罗斯方块。
，因为v在游戏开发方面有以下的优点： 1.是开发工具。
能迅速创建用户界面。
2.功能强大。
能处理所有复杂的应用程序。
3.有专业水准的绘图功能。
4.轻松管理位图图片 5.BASIC语言扩展借口能自定义数据类型和类 6.能调用 Windows API。
可以方便的让我完成在俄罗斯方块的图形方面的设计。
本文通过设计俄罗斯方块游戏来掌握VB程序设计语言的基本语法、编程思想，掌握Windows下编程的基本知识。
本文阐述了该游戏的结构、设计思想及主要算法，并附有相应源代码。
关键词：Visual Basic；俄罗斯方块；可视化；面向对象； 目录 摘要 关键词 第一章 绪论 1.1课题背景 1.2 v程序设计的概况 1.3 v对游戏的开发 1.4 俄罗斯方块概述 1.5 本文主要研究内容 第二章 俄罗斯方块的程序实现 2.1 引言 2.2 需求分析 2.3 界面的设计 2.3.1 单打主界面设计 2.3.2 双打主界面设计 2.3.3 游戏选项界面的设计 2.3.4 游戏排行榜界面的设计 2.4 菜单的设计 2.4.1 菜单编辑器的使用 2.4.2 本程序菜单的设计 2.5 程序设计思路及实现方法 2.5.1 图形的基本生成 2.5.2 设计方块的旋转 2.5.3 设计方块的移动 2.5.4 设计方块的下落速度 2.5.5 下一块方块的显示 2.5.6 方块的消去与计分 2.5.7 选项菜单中各选项的设计 2.5.8 排行榜的设计 2.5.9双打中的语句设计 2.6 程序说明书 结论 致谢 参考文献 第一章 绪论 1.1课题背景 一台能够运行复杂游戏的电脑完全能够处理其他事情。
一个好的电脑游戏需要发挥电脑的极限能力，包话快速处理数据能力，产生图形和动画能力，以及创建逼真声音效果能力。
只有性能优异的电脑才能够胜任当今高强度的游戏。
同样，一个能够编写商业化电脑游戏的程序员也能够编写其他类型的软件，尤其是考虑到如今的应该程序更加注重其中的图形和动画及声音效果。
因此游戏编程一样存在着重大的意义与实际用途。
1.2 v程序设计的概况 v是提供可视化的编程序工具。
用传统的高级语言编程序，主要的工作是设计算法和编写程序。
程序的各种功能和显示结果都要由程序语句来实现。
而用Visual Basic开发应用程序，包括两部分工作：一是设计用户界面：二是编写程序代码。
Visual Basic向程序设计人员提供图形对象（窗体、控件、菜单等）进行应用程序的界面设计。
例如程序设计人员可以根据用户的需要在屏幕上画出用户界面。
在传统的程序中，为了在屏幕上显示出一个图形，就必须编写一大段程序语句。
而VB使屏幕设计变得十分简单。
VB提供一个“工具箱”，内放若干个“控件”。
程序设计者可以自由地从工具箱中取出所需控件，放到窗体中所指定位置，而不为此写一大段程序。
也就是说，屏幕上的用户界面是用VB提供的可视化设计工具直接“画”出来的，而不是用程序“写”出来的。
设计用户界面如同用各种不同的印章在一张纸上盖出不同的图形来。
被认为是最难为的界面设计，就这样轻而易举的被VB解决了。
VB还提供了画图的基本工具，可以直接画点、直线、矩形、圆、椭圆等，并由这些元素组成各种图形。
Visual Basic程序采取“事件驱动”方式。
在设计好用户界面后才开始编程。
这是VB中的编程与传统编程方法不同的地方。
传统的编程方法是：根据程序实现的功能，写出一个完整的程序（包括一个主程序和若干子程序）。
在执行时，从第一个语句开始，直到结束语句为止。
在执行过程中，除了需要用户输入数据时暂停外，程序开始运行后不停顿的按程序中指定的顺序执行各指令，直到程序结束。
因此程序设计者必须十分周到地考虑到程序运行中和每一个细节。
因此对编写应用程序的程序设计人员提出了较高的要求。
Visual Basic改变了程序机制，没有传统意义上和主程序使程序执行的基本方法是由“事件”来驱动子程序（在VB中将“子程序”称为“过程”）的运行。
程序设计人员只需分别编写出这样一些单个的过程即可。
一般来说，每个过程要实现的功能是单一的，过程规模一般不会太大。
也就是说，把原来一个由统一控件的，包罗万象的大程序分解为许多个独立的，小规模的过程，分别由“事件”来驱动执行。
程序人员的编程难度大降低了。
1.3 VB对游戏的开发 VB对游戏的开发除了图形需要用到VB的基本画图工具外，还要用到类的定义。
这样图形才会以随机的形式出现。
在VB中建立一个类要使用Class Module（类模块）.一个类模块相当于一个简单的程序对象.当一个类模块建立起来后，我们就可以在程序的其他窗体中，定义一个类的实例，然后就像使用一个对象一样访问它的属性。
这样我们在定义一个图形的生成和随机移动时，就只需要定义一个随机变量就可以来控制图形了。
1.4 俄罗斯方块概述 俄罗斯方块是一款风靡全球的电视游戏机和掌上游戏机游戏，...
VB打开文件问题.在窗体上有一个Command1名称为＂打开＂按
在文件 path.txt 里写入一行 D:\download\MP3 （使用者可以改为需要的路径） 把这个文件和你的程序放在同一个文件夹里。
在VB程序： Private Sub Command1_Click() Dim path As String Open App.path & ＂\path.txt＂ For Input As #1 Input #1, path Close #1 Shell ＂explorer ＂ & path, vbNormalFocus End Sub ---------------------------------------------- 两个按钮打开两个文件夹 （如果你有更多个按钮要打开多个文件夹，也可照此办理） 在文件 path.txt 里写入 D:\download\mp3 D:\download\rmvb 把这个文件和你的程序放在同一个文件夹里。
在VB程序： Private Sub Command1_Click() GetFolder 1 End Sub Private Sub Command2_Click() GetFolder 2 End Sub Sub GetFolder(n As Long) Dim path As String, i As Long Open App.path & ＂\path.txt＂ For Input As #1 For i = 1 To n Input #1, path Next i Close #1 Shell ＂explorer ＂ & path, vbNormalFocus End Sub
文件的扩展名有那些,各是是什么意思？如exe,gif,mp3
下面是文件扩展名的简要列表和他们的说明：压缩和打包文件：.bz2—bzip2压缩文件.gz—gzip压缩文件.tar—tar打包文件.tbz—tar打包并用bzip压缩的文件.tgz—tar打包并用gzip压缩的文件.文件格式.au—audio文件.gif—GIF图象文件.html/.htm—HTML文件.jpg—JPEG图象文件.pdf—文档的电子图象；PDF代表PortableDocumentFormat.png—PNG图象（PortableNetworkGraphic的缩写）.ps—PostScript文件；打印格式文件.txt—纯文本文件.wav—audio文件.xpm—图象文件 系统文件.conf—配置文件.lock—lock文件；用来判断一个程序或者设备是否在被使用.rpm—RedHatPackageManager文件，用来安装程序，软件和脚本文件.c—c源程序代码文件.cpp—C 源程序代码文件.h—C或者C 程序的头文件.o—程序目标文件.pl—Perl脚本.so—类库文件.tcl—TCL脚本 扩展名 文件类型 打开方式 .aiff 声音文件 Windows media Player .!!! Netants 暂存文件 Netants .ani 动画鼠标 .arj 压缩文件 ARJ .avi 电影文件 Windows media Player .awd 传真文档 .bak 备份文件 .bas Basic 语言 Basic .bat DOS批处理文件 .bin MAC 二进制码文件 Stuffit Expander .bmp 图象文件 画图/看图软件 .cab 压缩文件 Winzip .cdr Corel图画文件 Corel Draw .chk Scandisk检察后制作的文件 可以删掉 .com DOS命令文件 自执行 .cpx Cryptapix加密图片文件 Cryptapix .cur 静态鼠标 .dbf 数据库文件 dBase, FoxBase, Access .dll 应用程序扩展 .doc 文档文件 Word .dwg AutoCAD文件 AutoCAD .eps Illustrator 图画文件 Adobe Illustrator .exe 执行文件 自执行 .fon 字体文件 .gb 国标码文件 南极星文字处理 .get Getright 暂存文件 .gif 256色图象文件 画图/看图软件 .gz 可供UNIX或LINUX使用的压缩文件 Winzip .hqx Macintosh 文件 Stuffit Expander .htm 网页 浏览器 .html 网页 浏览器 .ico 图标 .ini 配置设置 笔记本或WordPad .ipx IPX演示文件 浏览器加装IPX 插件 .jiff 图象文件 画图/看图软件 .jpeg 压缩过的图象文件 画图/看图软件 .jpg 压缩过的图象文件 画图/看图软件 .js javascript .lnk 快捷方式连接文件 连接文件的相应程序 .m3u Winamp播放列表 Winamp .mid 声音文件 Windows media Player .mov Quicktime影像文件 Quick Time .mp3 压缩音乐文件 Winamp .mpeg 影像 Windows media Player .mpg 影像 Windows media Player .njx 南极星文档 南极星文字处理 .pcb 电子电路图设计文件 Protel PCB .pdf 便携式文档格式，SupFree0内含图片文字等等 Adobe Acrobat, Adobe Acrobat Reader .pm5 PageMaker 5 排版文件 Page Maker .ppt Power Point 文件 Microsoft Power Point .ps GhostScript .psd Photoshop文件 Adobe Photoshop .pub Publisher排版文件 Microsoft Publisher .qt Quicktime影像文件 Quick Time .ra Real Audio声音文件 Real Audio .ram Real Audio影像文件 Real Audio .rar 压缩文件 Winrar .rsf Richwin 字体文件 .sch 电子原理图设计文件 Protel Schematic .scr 屏保文件 .sea Macintosh 启动文件 .sit 压缩 Stuffit Expander .swf Flash动画文件 浏览器加装Macromedia flash 插件 .sys 系统文件 .tar UNIX压缩文件 Winzip .tif 高质量图象文件 画图/看图软件 .tiff 高质量图象文件 画图/看图软件 .tmp 暂存文件 可以删掉 .ttf 字体文件 .txt 纯文本文件 笔记本或全部文字处理系统 .vbs Visual Basic 编程文件 Microsoft Viasual Basic .viv VIVO影像文件 浏览器加装VIVO 插件 .vqf 压缩声音文件 Yamaha SoundVQ Player .wav 未压缩的声音文件 Windows media Player .wk1 Lotus 123 试算软件文件 Lotus 123, Excel .wq1 Q-Pro 试算软件文件 Q-Pro, Excel .wri Write文字文档 Word .xls Excel 试算软件文件 Microsoft Excel .Z UNIX压缩文件 Winzip .zip 压缩文件 Winzip
全国计算机等级考试二级内容
计算机2级VF考试范围 第一部分 计算机应用基础 【教学目标】 掌握和了解计算机应用的基本常识，具有使用Windows操作系统和使用计算机硬件和软件的初步能力；具有使用字处理软件建立和编辑文档的能力；具有制作电子表格和演示文稿的初步能力；具有在互联网上进行信息检索、浏览和信息交流的能力。
【考试范围】 一、计算机文化知识 1.计算机文化的概念，计算机的历史和发展趋势（了解）。
2.计算机系统的构成及其工作原理，微型计算机的组成（了解）。
3.数据、信息和编码的概念（了解），数制和不同数制间的数值转换（掌握） 4.数据库的基本概念及其应用（了解）。
5.计算机多媒体技术及其应用（了解）。
6.计算机系统的维护（了解），计算机病毒的预防和清除（掌握）。
7.知识产权及软件保护（了解）。
8. 计算机网络基础知识（了解）。
二、操作系统 1.操作系统的基本概念和分类（了解）。
2.Windows操作系统的基本概念、基本操作、文件管理和系统设置（掌握）。
3.Windows操作系统的网络配置及其应用（了解）。
4.Windows操作系统中常用工具软件的使用（了解）。
三、MS Office的使用（WPS Office参照执行） 1.掌握Word的基本操作，掌握文字、段落、表格、图形以及页面的设置和编排。
2.掌握Excel的基本操作，能根据需求选择数据类型，建立电子表格，并完成数据的统计、计算和格式化处理。
3.掌握PowerPoint的基本使用方法，能在演示文稿中插入文字、图片、音频、视频等对象，设置超链接、动画和放映方式。
第二部分 数据库系统及程序设计 【教学目标】 具备数据库系统的基础知识，掌握关系数据库的基本原理。
具有使用Visual FoxPro或Microsoft Access 命令进行数据库管理、编制程序和调试程序的能力。
基本掌握可视化程序设计中有关对象、属性、事件和方法等基本概念，掌握使用可视化工具（如：表单、控件、菜单、报表、数据库、表等）进行程序设计的方法，并通过编写事件响应代码实现程序设计所规定的任务。
掌握一定的数据库程序设计技巧和方法。
使学生具有能够使用Visual FoxPro或Microsoft Access开发小型数据库应用系统的能力。
【考试范围】 一、数据库的基础知识（掌握） 1.基本概念：数据库、数据模型、数据库管理系统、数据库系统、类和对象、事件、方法。
2.关系数据库：关系模型、关系模式、关系运算、关系、元组、属性、域、主关键字和外部关键字。
3.Visual FoxPro或Microsoft Access的工作方式， Windows版本数据库的特点和主要文件类型。
各种设计器和向导的功能。
4.基本数据元素：数据类型、运算符、常量、变量、表达式。
二、数据库的基本操作（掌握） 1.数据库（表）的建立、修改与维护。
2. 数据库（表）记录的浏览、编辑修改、检索与统计； 3. 多个数据库（表）的操作。
4.创建数据库，向数据库添加或从数据库删除表。
5.建立视图与数据查询： （l）查询文件的建立、执行与修改。
（2）视图文件的建立、查看与修改。
（3）建立多表查询。
三、Visual Foxpro的项目管理器、设计器和向导的使用（掌握） 1.使用项目管理器：使用＂数据＂选项卡。
使用＂文档＂选项卡。
2.使用表单设计器：使用表单的常用控件进入界面设计，设定数据环境。
3.使用菜单设计器：建立主选项。
设计子菜单。
设定菜单选项程序代码。
4.使用报表设计器：生成快速报表。
修改报表布局。
设计分组报表。
设计多栏报表。
5.使用应用程序向导来建立应用程序。
6. Microsoft Access应参照上面1-5中的内容来进行窗体设计、菜单设计、报表设计和模块设计。
四、Visual FoxPro或VBA程序设计（掌握） 1.命令文件的建立与运行：程序文件的建立。
简单的交互式输入输出命令。
应用程序的调试与执行。
2.结构化程序设计：顺序结构、选择结构和循环结构程序设计。
3.过程与过程调用：子程序设计与调用。
过程与过程文件。
局部变量和全局变量、过程调用中的参数传递。
4. Microsoft Access应参照上面1-3中的内容使用VBA进行程序设计。
五、关系数据库标准语言 SQL server和常用的SQL语句（Select,Update,Insert和Delete）（了解） * 说 明 1.考试方式 考试全部采用机试方式，考生答题环境为Windows下的浏览器（例如IE）。
在机试环境下，对于考生的实际操作能力有较高的要求，特别是文件的保存，文件的下载和上传，信息（文字和图片等）的复制和粘贴等。
2.考试题型 第一部分 计算机应用基础：单项选择题（20小题，共20分） 第二部分 高级语言程序设计：编程题（3~5题，共80分） 一、Visual FoxPro基础知识1、基本概念： 数据库、数据模型、数据库管理系统、类和对象、事件、方法。
2、关系数据库 （l）关系数据库：关系模型、关系模式、关系、元组、属性、域、主关键字和外部关键字。
（2）关系运算：选择、投影、连接。
（3）数据的一致性和完整性：实体完整性、域完整性、参照完整性。
3、 Visual FoxPro系统特点与工作方式： （1）Windows版本数据库的特点。
（2）数据类型和主要文件类型。
（3）各种设计器和向导。
（4）工作方式：交互方式（命令方式、可视化操作）和程序运行方式。
4、 Visual FoxPro的基本...