VB高手进 这个程序怎样修改才能运行啊【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：109,619贴子：
VB高手进 这个程序怎样修改才能运行啊收藏
Selection.Cut "剪切选中的图文框&&&& For k = 1 To 10 "粘贴10次&&&& Selection.Paste&&&& Next&&&& Selection.MoveLeft Unit:=wdItem "选中第1个图文框&&&& With Selection.Frames(1)&&&& .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端.RelativeVerticalPosition = wdRelativeVerticalPositionMargin&&&& End With&&&& Selection.MoveLeft Unit:=wdItem "选中第2个图文框&&&& With Selection.Frames(1)&&&& .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin.VerticalPosition = wdFrameBottom "垂直相对于页边距、低端.RelativeVerticalPosition = wdRelativeVerticalPositionMargin&&&& End With&&&& Selection.MoveLeft Unit:=wdItem "选中第3个图文框&&&& With Selection.Frames(1)&&&& .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin.VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米.RelativeVerticalPosition = wdRelativeVerticalPositionPage&&&& End With&&&& Selection.MoveLeft Unit:=wdItem "选中第4个图文框&&&& With Selection.Frames(1)&&&& .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin.VerticalPosition = CentimetersToPoints(17.7) "垂直相对于页面、17.7厘米.RelativeVerticalPosition = wdRelativeVerticalPositionPage&&&& End With&&&& Selection.MoveLeft Unit:=wdItem "选中第5个图文框&&&& With Selection.Frames(1)&&&& .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin.VerticalPosition = wdFrameCenter "垂直相对于页边距、居中.RelativeVerticalPosition =wdRelativeVerticalPositionMargin&&&& End With&&&& Selection.MoveLeft Unit:=wdItem "选中第6个图文框&&&& With Selection.Frames(1)&&&& .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin.VerticalPosition = wdFrameCenter "垂直相对于页边距、居中.RelativeVerticalPosition =wdRelativeVerticalPositionMargin&&&& End With&&&& Selection.MoveLeft Unit:=wdItem "选中第7个图文框&&&& With Selection.Frames(1)&&&& .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin.VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米.RelativeVerticalPosition = wdRelativeVerticalPositionPage&&&& End With&&&& Selection.MoveLeft Unit:=wdItem "选中第8个图文框&&&& With Selection.Frames(1)&&&& .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin.VerticalPosition = CentimetersToPoints(6.4) "垂直相对于页面、6.4厘米.RelativeVerticalPosition = wdRelativeVerticalPositionPage&&&& End With&&&& Selection.MoveLeft Unit:=wdItem "选中第9个图文框&&&& With Selection.Frames(1)&&&& .HorizontalPosition = wdFrameRight "水平相对于页边距、右侧.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端.RelativeVerticalPosition = wdRelativeVerticalPositionMargin&&&& End With&&&& Selection.MoveLeft Unit:=wdItem "选中第10个图文框&&&& With Selection.Frames(1)&&&& .HorizontalPosition = wdFrameLeft "水平相对于页边距、左侧.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin.VerticalPosition = wdFrameTop "垂直相对于页边距、顶端.RelativeVerticalPosition = wdRelativeVerticalPositionMargin&&&& End With
登录百度帐号vb及coreldraw编程高手请进 - CPC中文印刷社区
CorelDRAW设计软件及合版印刷区 CorelDRAW及其插件魔镜、FreeHand、QuarkXPress等平面设计、图文设计、广告设计、排版软件、合版印刷的使用经验和技巧。
vb及coreldraw编程高手请进
等级: 一袋长老
Uid: 198256
注册日期: , 13:27
1 个帖子获得 1 次感谢
现金: 25金币
资产: 25金币
vb及coreldraw编程高手请进
coreldraw中的宏代码vba是vb的子集，但在coreldraw中写的宏代码没有安全性，无法加密，如果能写成vb代码或者dll函数，则能编译成exe文件或者dll函数，那么就不会轻易被人和谐，当然，用汇编反编译是另一个话题了，我只想请手谈一下如何用vb来封装现有的宏代码，我在vb中改动了一些变量声明，引用了coreldraw库,代码是可以运行的，但如何让它成为和coreldraw关联的程序，或者让它成为coreldraw的一个插件？
等级: 六袋长老
Uid: 350890
注册日期: , 22:11
55 个帖子获得 73 次感谢
现金: 1392金币
资产: 1432金币
vba可以设置密码的，这算不算。。
等级: 一袋长老
Uid: 198256
注册日期: , 13:27
1 个帖子获得 1 次感谢
现金: 25金币
资产: 25金币
vba的密码太脆弱，形同虚设，没有什么作用，只能防止看不懂代码的人，其实也是不需要防的人。
等级: 小兄弟
Uid: 555301
注册日期: , 13:51
0 个帖子获得 0 次感谢
可以用visual studio编译成exe的插件嘛
corel官方貌似有个SDK的手册。楼主可以研究下
等级: 一袋长老
Uid: 198256
注册日期: , 13:27
1 个帖子获得 1 次感谢
现金: 25金币
资产: 25金币
四楼说的对，用visual studio应该是正规做法，可我百度结果好象studio的sdk只支持C++，难道在vb及vba中辛苦写的代码都要扔掉从头来，或者我还没找到studio中用vb和应用程序接口的方法。
您不可以发表主题
您不可以回复帖子
您不可以上传附件
您不可以编辑自己的帖子
论坛禁用 HTML 代码
律师声明：本站内容，均具有版权，未经书面授权，禁止转载，严禁镜像，违者承担一切后果！
&nbsp 广告联系：
&nbsp 申办企业会员 &nbsp 站务管理：软件疑难&nbsp&nbsp文件设计制作印刷&nbsp&nbsp金币代卖&nbsp&nbsp程序开发
&nbsp&nbsp 魔镜销售
Powered by vBulletin& Version 3.8.11 Beta 2Copyright &2000 - 2018, vBulletin Solutions, Inc.
Copyright & 2017vb高手请进9
本回答由提问者推荐
var sogou_ad_id=731547;
var sogou_ad_height=160;
var sogou_ad_width=690;VB高手进，VB怎么封装单文件？_百度知道
VB高手进，VB怎么封装单文件？
我举个例子，比如有很多TXT、SWF、JPG的文件，我想VB设计个界面，里面全是按钮，点击一下就可以运行我设置的某一个文件，然后可以把这些文件和VB的exe文件集合起来，组成一个单文件。...
我举个例子，比如有很多TXT、SWF、JPG的文件，我想VB设计个界面，里面全是按钮，点击一下就可以运行我设置的某一个文件，然后可以把这些文件和VB的exe文件集合起来，组成一个单文件。然后要使用是点击exe，然后界面点击运行。我说的够详细了么。VB能做到吗？高手速度帮助啊！！！
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
匿名用户知道合伙人
VB能做到 就是点击运行
编完程序可以生成文件
就是你说的EXE文件了
我很久没用了
已经有点生疏了
只能给你说那么多
匿名用户知道合伙人
你需要一个vb打包软件，vb本身也有，但是不是太好用，百度查一下vb打包工具就能查到
匿名用户知道合伙人
你说的是程序管理系统吗？
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb高手帮帮忙_百度知道
vb高手帮帮忙
1、以解释方式执行程序的过程是边逐条解释边逐条执行，不生成：A)目标程序B)源程序C)连接程序D)库文件2、结构化程序设计的三种基本结构共同特点是：A)不能嵌套使用B)只能用来写简单的...
1、 以解释方式执行程序的过程是边逐条解释边逐条执行，不生成：A) 目标程序
C) 连接程序
2、 结构化程序设计的三种基本结构共同特点是：A) 不能嵌套使用
B) 只能用来写简单的程序C) 只有一个入口和一个出口
D) 有多个入口和多个出口
3、 Visual basic 程序设计语言属于：A) 面向过程的语言
B) 面向对象的语言C) 面向问题的语言
D) 面向机器的语言
4、 下列关于设置控件属性的叙述正确的是（）。A) 用户必须设置属性值，否则属性值为空B) 所有的属性值都可以有用户随意设置C) 属性值不必一一重新设置D) 不同控件的属性项都完全一样
5、 表达式right(&Beijing&,4)的值是（）。A) Beij
B) jingC) eiji
6、 下列程序段的执行结果为（）。X=2.4:Z=3:K=5Print &A(&;X+Z*K;&)&A) A(17)
B) A(17.4)C) A(18)
D) A(2.4+3*5)
7、 表达式A% * B&-D#\2.0+C!的结果为（）。A) 整型
B) 长整型C) 单精度型
D) 双精度型
8、 下列叙述不正确的是（）。A) 注释语句是非执行语句，仅对程序的有关内容起注释作用
它不被解释和编译B) 注释语句可以放在代码中的任何位置C) 注释语句不能放在续行符的后面D) 代码中加入注释语句的目的是提高程序的可读性
9、 如果要在文本框中输入字符时，只显示某个字符如(*)，应设置文本框的（）属性。A) Caption
PassWordCharC) Text
10、 下列程序段的执行结果为（）。X=2Print X+1;X+1A) 3 3
B) X+1 X+1C) 3 4
D) 2+1 2+1
11、 语句Print&Sgn(-26)=&;Sgn(-20)的输出结果为（）。A) Sgn(-26)=26
B) Sgn(-26)=-26C) Sgn(-26)=+1
D) Sgn(-26)=-1
12、 显示“请输入一个正整数”且标题为“标题1”,输入框的内容默认为1的输入框的语句是（）。A) A=inputbox(&请输入一个正整数&)B) A=inputbox(&请输入一个正整数&，&标题1&，&1&)C) A=inputbox(&1&,&标题1&,&请输入一个正整数&)D) A=inputbox(&请输入一个正整数&，&1&，&标题1&)
13、 将文本框的（）属性设置为True，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的的宽度时自动换行。A) MultiLine
B) Scorllbars
D) Enabled
14、 在设计阶段，在属性窗口中设置MultiLine属性为True的文本框的text属性值时，通过按下（）组合键实现文本的换行。A) Enter
B) Alt+Enter
C) Ctrl+Enter
Ctrl+Shift+Enter
15、 如果将文本框的（）属性设置为True，则运行时不能对文本框的内容进行编辑。A) Locked
B) MultiLineC) Visible
D) Tabstop
16、 如果将文本框的Locked属性设置为True，则以下说法正确的是（）。A) 此时在属性窗口不能修改文本框的Text属性B) 运行时用户不能在界面上修改文本框的内容C) 在程序代码中不能修改文本框的内容D) 以上均不对
17、 如果将文本框的Enable属性设置为False，则运行时（）。A) 文本框中的文本将变成灰色，此时用户不能将光标置于文本框上B) 文本框中的文本将变成灰色，此时用户能将光标置于文本框上，但用户不能修改文本框的内容C) 文本框中的文本将变成灰色，但用户能修改文本框的内容D) 文本框中的文本将正常显示，用户能将光标置于文本框上，但用户不能修改文本框的内容
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
factor_hg知道合伙人
采纳数：506
获赞数：1249
ADBBB BDBBADBAAA DA
<span class="wgt-replyer-all-uname
" data-href="https://zhidao.baidu.com/usercenter?uid=201c05ebdiex43知道合伙人
<span class="wgt-replyer-all-card-name3 wgt-replyer-all-card-names" data-href="https://zhidao.baidu.com/usercenter?uid=201c05ebdiex43
采纳数：124
获赞数：183
又是这种东西。数据流图比代码更重要。至于与数据库交互的代码，只要能达到功能就可了。可要是把数据的流向弄乱了，没人救得了你。先规划好数据走向。然后分块建立代码并调试到基本实现功能，然后按照你预先规划好的结构拼装。最后整体调试到没什么大的BUG，就算完工。非常典型的软件工程开发模式。
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。