只需一步，快速开始
后使用快捷导航没有帐号？
社区广播台
查看: 783|回复: 20
我有这样一段代码，谁能帮我修改一下？？？
主题帖子听众
盐场学徒, 积分 527, 距离下一级还需 473 积分
盐场学徒, 积分 527, 距离下一级还需 473 积分
西秦金币0 个
在线时间0 小时
&meta http-equiv=&Content-Type& content=&text/html&#59; charset=gb2312&&
&meta name=&GENERATOR& content=&Microsoft FrontPage 4.0&&
&meta name=&quot[s:10]rogId& content=&FrontPage.Editor.Document&&
&title&脚本说明&/title&
&p align=&center&&&b&本栏目只限于注册用户使用&/b&&/p&
&p&& && && && && && && && && && && && &&&
&SCRIPT LANGUAGE=&JavaScript&&& && && && && && && && && && && && &&&
function pass()& && && && && && && && && && && && &&&
{& && && && && && && && && && && && &&&
var user1=&t& //用户名& && && && && && &
user2=&t& //密码& && && && && && && && && && && && &&&
var pass=document.myform.password.value& && && && && && && && && && && && &&&
var user=document.myform.user.value& && && && && && && && && && && && &&&
if (pass == user2&&user==user1)& && && && && && && && && && && &
{alert(&登录成功...欢迎你&)& && && && && && && && && && && && &&&
document.write(&&HTML&&)& && && && && && && && && && && && &&&
document.write(&&body bgcolor=’#fef4d9’&&)& &&&
document.write(&&p& &/p&&)& &&&// ?????????????????& && && && && && && && && && &
document.write(&&p& &/p&&center&&p&&font size=’5’color=’#008080’&欢迎进入文件下载栏目!!&/p&&p& &/p&&)& && && && && && && && && && && && &&&
document.write(&&p&&font size=’4’& &a href=’http://www.’&&请点击此处进入栏目&&/a&&br&&)& && && && && && && && && && && && &&&
document.write(&&/html&&)}& && && && && && && && && && && && &&&
else& && && && && && && && && && && && &&&
{& && && && && && && && && && && && &&&
alert(&登录失败&)}& && && && && && && && && && && && &&&
}& && && && && && && && && && && && &&&
function change()& && && && && && && && && && && && &&&
{& && && && && && && && && && && && &&&
document.bgColor=(’#fef4d9’)& && && && && && && && && && && && &&&
}& && && && && && && && && && && && &&&
& && && && && && && && && && && && &
&/SCRIPT&& && && && && && && && && && && && &&&
&font color=&red&&& && && && && && && && && && && && &&&
&center&& && && && && && && && && && && && &&&
&FORM name=&myform&&& && && && && && && && && && && && &&&
&h3&用户登录&/h3&& && && && && && && && && && && && &&&
用户名:& && && && && && && && && && && && && &
&INPUT TYPE=&text&name=&user&&& && && && && && && && && && && && && &
&br&& && && && && && && && && && && && && &
密&&码:& && && && && && && && && && && && && &
&input type=&password&name=&password&&& && && && && && && && && && && && && &
&br&& && && && && && && && && && && && && &
&input type=&button&Value=&进入&onClick=&pass()&&& && && && && && && && && && && && && &
&input type=&button&value=&重置&&& && && && && && && && && && && && && &
&/form&& && && && && && && && && && && && && &
&p&说明：如需注册的用户请致电&/p&& && && && && && && && && && &
&/center&& && && && && && && && && && &
&/body&& && && && && && && && && && && &&&
& && && && && && && && && && && &&&
&/html&& && && && && && && && && && && &&&
//我的意思是将这个单用户登录网页方式改成多用户登录，而且每个相关的登录者都有自己的特定用户名和密码。
//因为我对语言不了解，请详细说明一下，谢谢！
欢迎光临西秦会馆
主题帖子听众
制盐专家, 积分 8240, 距离下一级还需 1760 积分
制盐专家, 积分 8240, 距离下一级还需 1760 积分
铜板3310 枚
西秦金币0 个
在线时间241 小时
我有这样一段代码，谁能帮我修改一下？？？
你这个根本就没有加密，因为如果别人会点源码的，你那就相当于白设了，还是上次我说那个好点，既简单又好用。而且同样可以多用户哟。
七星电脑服务中心
服务热线：400-700--5694624
公益QQ群：1297466（A）、（主）、6305175（C）、（技术）
公司地址：自贡市川南机电市场313
主题帖子听众
天车操作工, 积分 4023, 距离下一级还需 977 积分
天车操作工, 积分 4023, 距离下一级还需 977 积分
铜板2578 枚
西秦金币0 个
在线时间3886 小时
我有这样一段代码，谁能帮我修改一下？？？
晕，把用户名和密码写在数据库或者文件里面吧
主题帖子听众
制盐专家, 积分 8240, 距离下一级还需 1760 积分
制盐专家, 积分 8240, 距离下一级还需 1760 积分
铜板3310 枚
西秦金币0 个
在线时间241 小时
我有这样一段代码，谁能帮我修改一下？？？
人家不用数据库的。
七星电脑服务中心
服务热线：400-700--5694624
公益QQ群：1297466（A）、（主）、6305175（C）、（技术）
公司地址：自贡市川南机电市场313
主题帖子听众
盐场杂役, 积分 181, 距离下一级还需 319 积分
盐场杂役, 积分 181, 距离下一级还需 319 积分
铜板-11 枚
西秦金币0 个
在线时间0 小时
我有这样一段代码，谁能帮我修改一下？？？
5~~~~~~~~~~~我想学编程
人生里，总有些人和事让你无法忘记，人生也仿佛总是充满了无奈，当你走错了一步，想回头时，却可能发现你已无路可走，在这个一开始就已经知道结局的游戏里，你将选择怎样度过呢？我————迷惘
主题帖子听众
天车操作工, 积分 3422, 距离下一级还需 1578 积分
天车操作工, 积分 3422, 距离下一级还需 1578 积分
铜板839 枚
西秦金币0 个
在线时间64 小时
我有这样一段代码，谁能帮我修改一下？？？
去这里下这个吧
.cn/javascript/password/password5.htm
主题帖子听众
制盐专家, 积分 8240, 距离下一级还需 1760 积分
制盐专家, 积分 8240, 距离下一级还需 1760 积分
铜板3310 枚
西秦金币0 个
在线时间241 小时
我有这样一段代码，谁能帮我修改一下？？？
楼上的给出的也太简单了嘛，那两个txt文件是可以打开的，那不就一样可以看到密码了哈，这不行，绝对不安全
七星电脑服务中心
服务热线：400-700--5694624
公益QQ群：1297466（A）、（主）、6305175（C）、（技术）
公司地址：自贡市川南机电市场313
主题帖子听众
盐场学徒, 积分 527, 距离下一级还需 473 积分
盐场学徒, 积分 527, 距离下一级还需 473 积分
西秦金币0 个
在线时间0 小时
我有这样一段代码，谁能帮我修改一下？？？
那么建成数据库形式的怎么做呢
主题帖子听众
吃口痰的猪
天车操作工, 积分 4296, 距离下一级还需 704 积分
天车操作工, 积分 4296, 距离下一级还需 704 积分
铜板1279 枚
西秦金币0 个
在线时间127 小时
我有这样一段代码，谁能帮我修改一下？？？
可以用xml做数据库，只要你的服务器支持
也可以在页面加入右键保护，使得无法在页面上点右键看源代码，因为在菜单栏里一样可以选“查看源文件”，所以你还需要用javascript的弹出窗口屏蔽掉菜单栏。这样对付一般的IE足够了。不过对于用用IE做内核的第三方浏览器还是没用哈，比如我用的“MYIE”
总之，不使用数据库的加密都是玄的，稍微有点HTML知识的人可以轻松破解
主题帖子听众
制盐专家, 积分 8240, 距离下一级还需 1760 积分
制盐专家, 积分 8240, 距离下一级还需 1760 积分
铜板3310 枚
西秦金币0 个
在线时间241 小时
我有这样一段代码，谁能帮我修改一下？？？
我以前跟mygood说那种绝对安全，只有穷举破解才行，或者破解服务器，否则成功性很小。
七星电脑服务中心
服务热线：400-700--5694624
公益QQ群：1297466（A）、（主）、6305175（C）、（技术）
公司地址：自贡市川南机电市场313
主题帖子听众
盐场学徒, 积分 527, 距离下一级还需 473 积分
盐场学徒, 积分 527, 距离下一级还需 473 积分
西秦金币0 个
在线时间0 小时
我有这样一段代码，谁能帮我修改一下？？？
其实我也很愿意为数据来做，但我对数据库又不熟。如果你们能教我怎么做，那就感激不尽啦！
当然了一定要告诉我在要数据库中建些什么，然后怎样连接数据，这样我才懂得起怎么做，因为我的确没做过嘛数据库这样的东东。谢谢啦！
主题帖子听众
吃口痰的猪
天车操作工, 积分 4296, 距离下一级还需 704 积分
天车操作工, 积分 4296, 距离下一级还需 704 积分
铜板1279 枚
西秦金币0 个
在线时间127 小时
我有这样一段代码，谁能帮我修改一下？？？
你要是不会编制后台程序，拿了数据库也没用啊。
appledown 什么方法说来听听
主题帖子听众
盐场学徒, 积分 527, 距离下一级还需 473 积分
盐场学徒, 积分 527, 距离下一级还需 473 积分
西秦金币0 个
在线时间0 小时
我有这样一段代码，谁能帮我修改一下？？？
那你给我说说大致的流程，我看我行不
主题帖子听众
吃口痰的猪
天车操作工, 积分 4296, 距离下一级还需 704 积分
天车操作工, 积分 4296, 距离下一级还需 704 积分
铜板1279 枚
西秦金币0 个
在线时间127 小时
我有这样一段代码，谁能帮我修改一下？？？
首先选择编制语言，asp就用sql server，php就用my sql，或者都用acseese（可能错了，忘了怎么拼写了，就是office捆绑的那个）也行
1.数据库建表
2.前台页面连接数据库
3.前台post密码验证等信息的时候查找数据库，如果有返回true，else false
4.关闭数据库连接
基本流程，要有注册等功能就更复杂一点，要会写入数据库，熟悉了也不难，几十行搞定
主题帖子听众
制盐专家, 积分 8240, 距离下一级还需 1760 积分
制盐专家, 积分 8240, 距离下一级还需 1760 积分
铜板3310 枚
西秦金币0 个
在线时间241 小时
我有这样一段代码，谁能帮我修改一下？？？
我据说的方法就是把网页文件名作为密码，在网页中打开“密码”＋“.htm”即可，所以在源文件中根本就看不到密码，也不会较验，只要密码正确就可以打开相应的网页，如果密码错误，也就是说目标网页根本不存在，就会调用出错网页进行显示，这样，不同的网页就有不同的密码，也就可以实现多用户操作了。爽不爽，而且源代码只有几行。
七星电脑服务中心
服务热线：400-700--5694624
公益QQ群：1297466（A）、（主）、6305175（C）、（技术）
公司地址：自贡市川南机电市场313
团购价：9元
原   价：25元
团购价：75元
原   价：100元
团购价：38元
原   价：48元
团购价：16元
原   价：22元
团购价：47元
原   价：49元
团购价：48元
原   价：88元
团购价：98元
原   价：128元
Copyright &
(http://bbs.zg163.net) 版权所有 All Rights Reserved.
本网互联网违法和不良信息举报：
B2- |蜀ICP备号-1|查看: 857|回复: 2
在线时间669 小时最后登录威望0 圈币0 贡献133 注册时间阅读权限30帖子主题精华0积分267UID3970312
注册会员, 积分 267, 距离下一级还需 33 积分
甜甜圈0 贡献133 精华0帖子
手贱，精简系统给删了，现在没有短信提示框，想装回去，那位好心人能提供一下，root以后用re管理器在/system/app这个文件夹里
在线时间471 小时最后登录威望20 圈币0 贡献111 注册时间阅读权限30帖子主题精华0积分327UID1387194
中级会员, 积分 327, 距离下一级还需 673 积分
甜甜圈0 贡献111 精华0帖子
下载刷机包 解压提取 不求人。
在线时间669 小时最后登录威望0 圈币0 贡献133 注册时间阅读权限30帖子主题精华0积分267UID3970312
注册会员, 积分 267, 距离下一级还需 33 积分
甜甜圈0 贡献133 精华0帖子
潇洒网虫 发表于
下载刷机包 解压提取 不求人。
thanks&&已经这样搞定了
Powered byVisual&Graph常见问题回答（FAQ）-- visual&graph专业图形系统-- 编程爱好者博客
快捷域名：
12.1.何谓设计态？
回答：我们常用的工具像 C#、Delphi、VB、PB、Jbuilder等都存在设计态，也就是可视化编程。还有AutoCAD、PowerPoin t、Flash等软件也都可以看作设计态。设计态的特点是，用户可以用鼠标编辑图形。
12.2.何谓运行态？
回答：我们常用的工具像 C#、Delphi、VB、PB、Jbuilder等都存在运行态，也就是开发完成后交付使用的部分。PowerPoint、F lash等软件也都有运行态，也就是播放的部分。像AutoCAD、PhotoShop这样的专门绘图工具是没有运行态的。运行态的特点是，用户不能任意编辑图形，但图形可以响应交互事件、图形可以动作。
12.3.支持硬件板卡接口么？
回答：VG是一个图形平台，不做硬件，如果图形想与硬件通讯，要自己开发相关的程序或DLL等功能库挂入VG作为VG的外部函数或内部函数，程序员可以通过VG来调用这些功能库了。因为图形提供了完善的I/O方法，程序员可以通过它把图形和硬件等连接起来。
12.4.支持数据库么？
回答：VG是一个图形平台，不包含数据库功能，但提供了数据库接口方案，因此，如果要实现和数据库的关联关系或者把图形存储到数据库，我们可以提供解决方案。
12.5.在浏览器中能用么？
回答：在浏览器中使用和其他语言环境中没什么差别，作为插件在客户端运行，当然，在IE中开发WEB应用需要用JavaScript或者VBScript语言进行控制VG。
12.6.绘图可能擅长，做表格可能太困难吧？
回答：有人觉得，VG的表格采用文字单元拼凑的方式实现，这样画一张表格太蹩脚、太不方便了。
&& VG制表其实非常容易，在整个画表过程中，和其他表格软件没什么差别。可以绘制几行几列的表格、移动线条、划线、单元合并、表格边框设定等。几分钟就可以绘制一张大表。这种表格的特殊之处在于，每个单元格都可以自由移动位置，此外，由于表格和图形混 排，因此可以插入图片、图表、棒图、饼图、曲线图等等。
&&& 事实上，VG曾经是一种专门的表格设计软件，只是由于现在侧重图形，所以很多人根据自己的经验以为无法用它制表，因为市场上很少有矢量绘图软件支持表格，在WEB上编辑与运行表格相当方便。
12.7.动态连接线问题,请问用c#做类似与visio的动态连接线，是把线设计为一个控件呢，还是直接在面板上画线？如果直接作为控件，控件的形状很难控制，因为这跟是动态线，可以任意变形的。但一般都是由横线和竖线组成。如果直接在面板上画线，又比较难实现拖动删除等操作。问题困扰很久，望大虾们能指点设计思路！有代码参考就更感激不尽了！
回答：有现成的LinkLine可以用，详情请查看小节10.12、图形拓扑连接的使用
12.8.在vg里如何使用定时器控件 ?现想用一定时器控制图元的角度变化，如何实现？另vg里如何创建一定时器控件呢？
回答：在lib\Controls.tbl里面有个定时器元件，此元件有个OnTimer事件，或者在每个Sheet类下是有Ontimer事件的。
12.9.VG下如何调用MSSQL语句并且如何保存MSSQL数值？想用VG去显示MSSQL中的数据,却不知道如何用VG去调用 MSSQL语句,并且用什么去保存MSSQL中找到的数据？
回答：vg是个图形系统，不处理数据库操作系统。但VG提供外部接口DLL扩展来数据库操作函数，但从系统设计思想看，因为数据库的连接资源非常宝贵，所以不建议VG直接数据库。
12.10.线的末端箭头问题：我在arrows.tbl添加空心三角形图元，然后在线的末端箭头属性中选中这个图元，为什么显示出来的是黑色的实心三角形啊？
回答：网纹Pattern设置成此自定义的空心三角形图元所在Sheet里面序号，详情查看小节10.10、自定义箭头与填充
12.11.线上图标问题 ：我用的是试用版VG，线上图标图库文件在什么位置，我可以在线上图标图库中添加自定义图标吗？
回答：在目录 dat\lineicon.tbl 的文件里定义。
12.12.关于数组：数组是不是只能一个一个的给数组中的每个元素赋值，不能一次就给所有的元素赋值，例如，la=array(10)
la={1,2,3} ？
回答：确实只能一个一个赋值
12.13.在使用vg.Execute( "SystemParams.GraphDriver = １" )后会在关闭ie时会异常出错，为什么？
回答：在IE关闭前必须运行恢复回来，用vg.Execute( "SystemParams.GraphDriver = 0" )
12.14.vg控件对象在web中与Div覆盖的问题 ：activex对象在网页中使用时，总是显示在最上面，覆盖掉了其它内容，如何解决 ？？
回答：调整位置和大小吧 ,还是这个对象的z-index值永远是最大的, 永远是在最上面的。
12.15.如何延长hint的提示时间?vg控件的hint时间大约只有2秒，如何延长hint的提示时间？没有找到hintwindow类，无法针对该类编程。
回答：用vg.Execute( "SystemParams.ShowHintDelay=5000" )设置它，默认为2秒。
12.16.vb中调用问题 我现在要用vb做一个电力上的模拟操作软件，在vb中怎么调用vg啊？比方说，在vb的窗口上绘制一个commond命令按钮， 单击此命令按钮时，就会出现vg的编辑画面？具体怎么实现啊？
回答：vgctrl1.Design( "文件名" )，详情可查看小节5.1、VB6
12.17.一个图元只有1个连接点，该连接点连接了多条line，如何从该图元得到这些连接的line？
回答：看LinksCount、Links[n]，详情查看小节10.12、图形拓扑连接的使用
12.18.在C#窗体程序里怎么判断一个元件被放到了绘图区上
回答：会触发OnAddUnit事件
12.19.关于选中图形对象的问题？ 目前鼠标选中图形（如rect)时，图形四周出现可调整大小的特征点，现在我想当鼠标点中图形，选中后，让图形背景色发生改变来表示当前图形背选中，而不想显示特征点框框？该怎么办？
回答：运行态实现即可,自己处理一下OnClick,设计态下不能如此 .
12.20.如果一张图 有多个圆之间要用线连接 因为圆很多都是直线不可能 要辟开那些圆 连接线能否做到能否自动弯曲 注:是根据配置文件做图 不是直接画 ?
回答：详情查看小节10.12、图形拓扑连接的使用
12.21.如何删除折线上的点？怎么用代码删除折线上的一个点，不通过DeletePoint()函数 ?
回答：先设置pointcount = pointcount - 1 ,然后依次把后面的顶点挪到前面去。 直接的方法就是自己写一个函数，调用，这样以后就很方便了。
12.22.VC中Text控件问题 :Text控件有个"运行只读"属性，在VC6中设为false没有办法在里面输入数据，同样的图在VB6中却可以正常输入，请问 该如何解决。
回答：处理premessage事件，把焦点还给vg
12.23.VC中怎么转换视图坐标? 我的VG是7.1版的，在VC中使用时发现ClientToView和ViewToClient这两个函数的参数为long型， 但帮助文档中却是一个Point结构,那么VC中应该怎样转换视图坐标?
回答：VG中的Point结构如下：
struct TDoublePoint
那个long是个指向TDoublePoint的指针。
12.24.请教Delphi中的Sheet里面的ClientToView小问题：
Sheet1 : IS
Sheet1 := vgctrlMap.ActiveS
Sheet1.ClientToView( Integer( @fp ) );
我想请问BASE大侠，上面的Sheet1.ClientToView是什么意思，是将当前可视的区域赋值给@fp吗？&
回答：不是，应该这样：
Sheet1 : IS
Sheet1 := vgctrlMap.ActiveS
fp.x := ClientW
fp.y := ClientH
Sheet1.ClientToView( Integer( @fp ) );
//取得窗口右下角所在的视图坐标
fp.x := ClientW
fp.y := ClientH
Sheet1.ClientToView( Integer( @fp ) );
//是右下角
12.25.asp.net页面中用C#直接控制vg 在vs2005中，控件为何不能添加到工具栏中。是不是在vs2005中只能通过jscript或vbscript才能控制vg ？ 在asp.net页面中能否利用c#语言直接控制vg？请给个例子！！！！
回答：可以先用vs2003创建画面（工具栏允许添加ActiveX) 然后用vs2005环境打开老版本的工程文件，具体为何vs2005无法把控件插入工具栏，原因可能是你的VS2005配置的原因。 vs2003中使用该控件的方法在source.zip里面有源代码示例。 c#、vb.net的例子。如果是在ASP.net下进行编程，那么只查看5.3、.net(vb.net,vc.net,C#,J#.....)和6.3.2、.net(asp.net)－中文编码问题,WEB编程下的Cilent端IE的控制只有jscript或vbscript才能控制vg。
12.26.如何删除图元的自定义属性 ？使用SetPropertyValue可以给元件添加属性，如果这个属性不需要了，用什么函数或方法来删除这个属性呢？
回答：不能删除属性。
12.27.UnitAtPoint() 问题，取得鼠标下所在的元件 如果使用UnitAtPoint（）得到的是一个元件，那么如何得到该元件中位于该点的单元？
回答：1种（封装）：在元件A中添加GetTheUnit如下：
public function GetTheUnit( x, y )
return UnitAtPoint( x, y, 0 )
end function
如果你用UnitAtPoint函数已经得到了这个元件A。
2种（循环）：
TheUnit = 0
while i & A.UnitCount
d = A.Units
if d.Contains( x, y ) then
&&& TheUnit = d
这里得到的TheUnit就是你要的。
12.28.GetFocusedText()问题 在设计态（design）下，可否使用GetFocusedText()？
如果可以，在VC++下如何使用？ 如果不可以，在VC++下如何获得拥有焦点的文字单元？我在VC++ 下的代码如下： VARIANT var = pvgCtrl-&Execute("d = GetFocusedText(); if d && 0 then ShowMessage(d.Text); else return 0 end if");
if(var.vt != VT_EMPTY) MessageBox("sfasfasf"); 第一行代码用于取有焦点的文字单元，并用showmessage测试； 第二行大名用于测试返回的结果；
回答：可以得到拥有焦点的文字单元，GetFocusedText()是脚本语言的函数，控件却没有。 这样就得用点办法： 例如，在vb中写下面的代码：
Set d = vgctrl1.Execute("d = GetFocusedText(); if d && 0 return ActiveS end if")
If d.Type = "text" Then
&&& d.Text = "HHHH"
12.29.请教如何将AUOTOCAD文件转换到vg格式?谢谢!
回答：VG正式版有专用CAD到VG图形的转换工具，转换效果非常好！
12.30.我是想问：静态图形控件系列 ，VG图形控件绘图版，相对于图形引擎绘图版，但不含内置脚本语言，适合开发常用绘图应用。 此版本，是开发常用绘图软件的最佳选择。例如房屋布置设计、施工绘图、简单CAD制图、绘制表格、图形建模、图形拓 扑分析、地图等。 这个的“一服务器”和“特别授权”有什么区别？
回答："一个服务器"就是用在“一个服务器”上的意思，非一个服务器的需求，都叫特别授权。
12.31.元件全部导入问题。如果我将所有需要使用的元件全部存放到“元件.tbl”文件中，我在程序中点元件按钮，弹出一元件列表界面，这些元件存放在什么容器？也就是说，可以象线上图标那样，先出来一个元件界面，再选择需要的元件。请base大侠赐教！
回答：打开arrowdlg.tbl，找到里面的arrows.tbl，把它改为"元件.tbl"，把arrowdlg.tbl另存为 " 元件选择窗口.tbl"
调用此对话盒的方式（这段代码是VG语法。 ）如下：
doc = Create( Handle, "元件选择窗口.tbl", false, false )
if doc.ShowModal() = 1 then
ret = doc.ActiveSheet.Element1.GetSelectedName()
' 这个ret就是返回的元件在arrows.tbl中的序号
doc.Free()
VG的变量不需要声明，直接使用，因为Create函数返回弹出窗口的视图类，所以，Doc就是视图类。
12.32.请问VG是否能够将线条、图形、元件等显示带立体效果？ 看了VG自带的lib和demo中的例子，有带立体感的例子，请问VG是否能够显示出立体效果？
回答：VG没有专门立体效果的功能，需要手工制作。VG带有阴影功能
例如，一个按钮，添加阴影的方法是在背后放一个暗色无边矩形，然后把它们组合。您也可以在阴影上放一个控制点，当鼠标拖动这个控制点的时候，可以让阴影的方向和长度发生改变等等（这需要处理调控点的OnNodeChange事件）
12.33.我将*.tbl中的所有元件，图形，线条名称都导入到了一个Combox中，我选择combox中的任意个名称，怎样将选中光标 移到对应的元件、图形、线条上？
回答：BeginUpdate()
ActiveSheet.Selection.Clear()
ActiveSheet.Selection.Add( ActiveSheet.UnitByName( "某图形的名字" ) )
EndUpdate()
12.34.在vgctrl1SelectChange事件中怎么使用Sender对象？ 如果使用这个Sender对象，也就是怎么控制当前选中的元件或图形的属性等信息。
回答：vgctrl1SelectChange(Sender: TObject);
Tvgctrl(Sender).
12.48.自定义元件loadfrombuffer 该怎么写？ NewUnit.LoadFromBuffer(‘&自定义元件名1 name="？？？？" lib="自定义元件库.tbl" bounds="654.,668." origin="661..5" protect="128" color="65535"/&
’); 对内建的元件上面的语句通过了，到自定义元件的时候出现错误， 应该怎么写？
回答：d = AddUnit( "element", 0, 0, 0, 0)
d.LoadFromBuffer( ................ )
12.36. loadfrombuff的问题 元件A
S=A.savetobuffer 然后
B=Addunit（'xxx',0,0,0,0）
B.loadfrombuffer(S)
B能够重现A的形状，但不能重现A的初始位置，这是什么原因? 如何实现完全的重现（包括拓扑连接关系）?
回答：调用页面的SaveToBuffer() 和LoadFromBuffer() 页面的savetobuffer和Loadfrombuffer没问题
12.37..net颜色转换方式 ？？？
回答：System.Drawing.C
int n = System.Drawing.ColorTranslator.ToWin32(cl)
12.38.请问，在VC下修改系统参数类，除了vgctrl1.Execute()这个手段，还有别的吗？ 用vgctrl1.Execute()这个手段实在不方便。
回答：系统参数是关系到整个系统所有文件的一些参数，例如DefaultPath（箭头、网纹、属性列表窗口等系统文件存放的路径） 如果写成形如： vgctrl1.DefaultPath = "c:\vg\dat\" 。那就表示只是针对vgctrl1这个视图控件进行设置了。以后势必还要对其他控件进行同样的设置......
12.39.请问如何用VC枚举一个页面的所有图元？
回答：例如用VC++ 6.0生成11对类库文件 ，然后用vc.net打开vc60创建的工程 ，GetActiveSheet()返回CSheet（页面类） ，页面上有UnitCount个图形 ，第一个图形是GetUnits(0)(基本图形类CUnit)，做一个循环遍历就可以了。
12.40.在入门教程里, 我要是拿vc写该怎么写啊，你给出了VB的修改属性的语句如下:
set d = vgctrl1.ActiveSheet.Units( 0 )
d.SetPropertyValue "circle1.BackColor", 255
d.SetPropertyValue "circle1.Pattern", 15
我们不仅可以对元件的属性进行直接读写，而且还可以通过SetPropertyValue操作元件内部图形的属性。
回答：CUnit d = vgctrl1.GetActiveSheet().Get_Units( 0 );
d.SetPropertyValue( "circle1.BackColor", 255 );
12.41.如何获得图形元素中的文字内容？
回答：AText = AUnit.GetPropertyValue( "text1" )
AString = AUnit.GetPropertyValue( "Text1.Text" )
12.42.怎么给连接线加箭头？ 我用控件在vb程序中用语句vgctrl1.NewUnit "Line", 5画了一条连接线，怎么给该线加箭头？，用程序怎么获得此对象啊？
回答：NewUnit返回值就是此对象 线条有StartArrow属性和EndArrow属性，这是起止箭头形状。
12.43.VG怎么才能导入其它作图工具绘制的矢量图？有没有现成工具将作图工具绘制的矢量图转换为VG能够使用的？
回答：选择编辑/粘贴emf图片功能、或VG的专门格式转换工具、VG.EXE的导入
12.44.请问，如何取消平移画面效果？在使用了movesheet（）函数后，如何才能将鼠标、选择状态还原回初始状态（加载图元时状态）？
回答：Edit()
12.45.因为图片太大，现在想在vg中实现漫游。请问有这方面的思路与例子嘛？ 请问平移画面是用movesheet() 移动图元是用什么？
回答：movesheet() 、moveselection()
12.46.在Vb程序中使用VG控件，VB程序中的变量能否与VG控件中的变量交互，例 如，在Vb中设置变量，当该变量值变化，是否能映射到VG控件中的变量？
回答：请参考source.zip包里面提供的vb例子
12.47.询问,VG帮助上Delphi的问题：FormCreate
procedure TForm1.FormCreate(Sender: TObject);
&& vgctrl1.Design( '' );
&& vgctrl2.Run( 'C:\Documents and Settings\LG\桌面\vg\lib\电力设备.tbl' );
&& vgctrl2.Library_ := True
procedure TForm1.SpeedButton1Click(Sender: TObject);
&&& vgctrl1.NewUnit('水平刀闸',1);
我就是按照帮助上原样照搬在DELPHI试验下,看能不能画出刀闸,为什么以上代码,运行过后,不能画出刀闸, 还有我从你们给的例子,运行可执行文件,也画不出东西呢, 请问应该怎么办我以上代码错误吗, 我就是想看看 怎么在自己程序上做出图
回答：不能在FormCreate里面写 ，必须在FormShow里面写，因为FormCreate的时候，窗口没有创建起来，而Design和Run函数需要窗口创建后才能运行
12.48.如何在元件的下方自动显示元件的名称.?
回答：目前无这个功能 ，代替办法：可在状态栏里面显示鼠标所在位置处的图形名称
处理OnMouseMove事件，根据ActiveSheet.UnitAtCursor( 0 )返回值就知道当前鼠标位置处的图形了。
12.49.在图形和元件直接设置连接出现的问题？我在delphi下,想在已经画好的折线的每个顶点上连接一个元件(相同的),已经把折线的linkmode:=2(是被连接者 ),每个元件中linkmode:=1(是连接者)请问如何设置连接啊,
这样设置为什么不行?
punit:=asheet.AddUnit('航路点',0,0,0,0);
punit.SetLink(aline,punit.Links[0],p0);
其中punit是元件,aline是被连接的折线？
回答：punit.setlink( aline, "dot", "p1" )
其中"dot"是元件中那个连接点的名字 "p1"是线条连接点的名字（第二个点） 请仔细阅读帮助中关于setlink的说明，详情查看小节10.12、图形拓扑连接的使用
12.50.想利用数据库中的两组数据为为点坐标使用vg画线,这些线是连起来的,数据库已连接好了,写了代码运行之后,为什么马上显示画线？
回答：首先建立一条线，然后对线上顶点进行赋值。最后调用线条的Refresh()函数
12.51.如何向一个函数中传参数？ Results = Array(6)
Results.Text = ValueArray
While i & Elements.Count
iUnit = UnitByName(Elements)
If iUnit && 0 then&&&&
&&& iUnit.Exequte("RefreshValue", CStr(Results))
一段脚本程序如上，其中iUnit 是从外部添加的。iUnit 中定义了一个函数RefreshValue用于刷新数据，现请问，如何在以上程序中调用此函数呢？
回答：这是在脚本中么？ 如果是在脚本中,如此即可：
iUnit.RefreshValue( Results ) 如果是在控件中，需要这样： vg.Execute( "unitname.RefreshValue( results )" ) 其中unitname是图形单元的名字 results是其中的参数。
12.52.在IE中，ActiveX控件定时调用GetURL更新数据，鼠标变为沙漏形，有何解决方法？
回答：是不是数据太多了，太多数据下载的话，应该规划好数据传输，另外可用下面的办法：
&vgctrl1.Execute( "cursors[4]=cursors[0]" ) ;
12.53.你们有没有导入SVG的工具或者代码?
回答：有，你在VG.EXE里面新建一个文件，然后点击菜单-&文件-&导入，选SVG格式。
12.54. 在time 的ontimer中这个写
dim ran as Random
text1.Text=ran.Next(100,1000)
为什么不对?
回答：dim ran as Random是什么语法？不是VG语法，请查看VG的语法帮助说明。
12.55.我要声明一个随机数,怎么做?
回答：Random 求一个随机整数 :text1.Text=Random(100,1000) VG的内部函数
12.56. 如何动态添加元件的属性?
回答：在VG脚本里，用：元件名.setpropertyvalue('属性名',属性值)进行增加与赋值属性。返回值用：元件名.getpropertyvalue('属性名')，详情请看帮助的setpropertyvalue。
12.57. 还有，在.NET下如何实现这样的功能：vgctrl1.AddFunction "EndRunning", "41", 48, AddressOf EndRunning? 在VB下是行的，但在.NET下会出错.
回答：.NET下面的函数与变量、对像都是托管代码，是访问不了他们的内存地址，所以.NET会出错,在.net、JAVA下不能直接操作地址,所以在.net下不能使用函数AddFunction。只能把功能函数放在一个DLL中，然后用VG声明DLL外部函数，而DLL必须是按WIN32API的dll标准？
12.58. VG正式网络版里面的vgserver.exe是做在网络认证服务的吗，它的端口是多少？
回答：vgserver监听端口1024,register（“IP”）时VG.dll调用Ry4Com.dll去和vgserver联系，知道是否取得VG使用权。如果后台的服务器是在路由后面的，那么应该把路由的端口1024开放并映射到后台服务器的1024端口上来
12.58. 如何在JS里面post一段VG的XML串到后台WEB服务器？
回答：JS代码如下：_form.column_value.value = vgctrl1.SaveToBuffer();
&&&&&&& _form.event.value = 'save';
&&&&&&& _form.submit();
就可以实现网上VG编辑图形，用JS脚本上传TBL入数据库了。
12.59. 如何判断图形是否在某个矩形范围内？
回答：Touches函数是Iunit图形单元类的：
bool=Touches(double,double,double,double)
四个参数分别表示这个矩形的左边、上边、右边、下边坐标（视图坐标）。
如果图形在这个矩形框内，返回true，否则返回false。
12.59.VC里如何用AddFcnction增加类的成员函数做为内部函数
回答：VC里面声明如下： void __stdcall CallByVG1( double x );
定义如下：void& __stdcall&& CReadwriteDlg::CallByVG1( double x )
&&& thisdlg-&SetDlgItemInt( IDC_EDIT1, (int)x );&&&
Addfunction增加函数如下：
&&& void (__stdcall CReadwriteDlg::*CallByVG1)(double a);
&&& CallByVG1=&CReadwriteDlg::CallByVG1;
&&& vgctrl1.AddFunction( "CallByVG", "12", '0', *(long*)(& CallByVG1) );
VG调用如下：
CallByVG(0,Sender.Value )
由于C++类中成员函数的this指针的默认声明，所以要声明时要多一个参数this.但VC函数使用this指针时，会有些问题，所以不推荐使用类成员函数。增加内部函数时应建议使用全局函数。
文章出自：
版权声明：编程爱好者网站为此博客服务提供商，如本文牵涉到版权问题，编程爱好者网站不承担相关责任，如有版权问题请直接与本文作者联系解决。谢谢！
您需要登录后才能评论，请}