(3)工程(P)——这栏的大部分项目都可以在上面图tp4的（5）中操作，这里只提二个偶用到的项目：（见“工程”图）
    引用——这是偶要在软件中提供与“QQ交友”链接时要加载的“控件”。点击此项，会弹出“引用—工程1”对话框（见“引用”图），移动滑块到“windows script host object model”项，前面打上勾（见红三角）后点“确定”即完成了该控件的“加载”工作。（链接QQ交友的其它代码以后再讲）
    工程1属性(E)——这是一个重要设置的项目。点击此栏，弹出“工程1—工程属性”对话框（见“工程属性”图）。当您的软件中有多个窗体时，在这个属性可以任意选定哪个窗体是首先启动的窗体（见红三角位置）;如要先启软件“封面”或“进度条”等，都要在这里确定。
    其它的内容《奥运邮集》软件没用到，这儿就不讲了。

(4)工具(T)——《奥运邮集》软件用的该栏的唯一功能是“菜单编器(M)”（见工具图红三角）。点击此处，弹出“菜单编辑器”的对话框（见菜单编辑器图）。
    编辑举例如下：在(1)框内容输入奥运邮集(Y)，然后在(2)框内输入英文代码“oy”；
                  当输入下一行内容时，要点击(3)位置的“下一个(N)”钮；
                  由于“第1届、第2届......”是“奥运邮集(Y)”菜单下面的子菜单目录，所以要点一下在(5)位置的向右“→”箭头钮（即右移一位），然后再输入第1届和代码xj1；
    灰色失效栏：“第6届”奥运会因第一次世界大战而未举办，所以“第6届”应是灰色，处于“失效”状态，即将(6)位置的“有效(E)”钮前面的勾去掉。
    提示：a)凡窗体菜单栏上的各项（见主页图），如奥运邮集、奥运话史、奥运与中国......等各栏编辑时都要靠最左端（与“奥运邮集(Y)”对齐）；
          b)如果“第1届”的下面还有子菜单，如第1页，第2页等，则通过“→”箭头钮，将它们的位置再右移一位；
    完成“菜单目录”编辑后，就点确定，结果如“主页图”所示。

2、工具条——编《奥运邮集》软件主要用到工具条的三个按钮，即“保存工程”、“启动”和“结束”（见工具条图中红三角所示）。
    “保存工程”钮：这是最常用，而又经常出“状况”的钮。该钮是将软件编辑结果“存盘”。但不是说每次只有在退出VB6时才去存盘的“钮”。每当编完成一段代码或调试，就要及时“点”它一下，保存前面已完成的内容。偶就是没有做到这一点，时常忘了及时“存盘”，当电脑出现意外而卡机、重启动等，未能保存前面的结果，就会前功尽弃，后悔不已。
    “启动”钮——当您需要看一下自己的编辑效果时，就点此钮。如果代码有问题，无法正常运行程序，会弹出各类出错提示。所以每完成一段代码或软件一项功能时，就需要验证一下前面所编代码是否正常。所以，不要累积太多太久才去验证，错误多了，查找出错原因也不容易。
     “结束”钮——就是关闭前面“启动”的程序，如果运行程序出错，必需按此钮，退出运行的程序，才能进一步调试代码。
     提示：工具条上的其它“钮”有何功能，您可以点击试试。各人的习惯不同，偶只是常用以上三个钮而已。

[[it] 本帖最后由 jrs123 于 2008-3-31 13:26 编辑 [/it]]

五、《奥运邮集》软件的“积木”项目
    可以说，该“邮集”软件就是各组代码“积木”式搭建成的，为了不耽误您的宝贵时间，偶将用到的“积木”列举如下，如不合您的口胃就不必往下看了：
    1、窗体页面——如何实现超长页面的结构，滚动条的代码及窗体的居中；
    2、多工程结构——夏季29届，冬季20届奥运邮票集为什么不用单工程，而用多工程，各exe文件如何跳接及进度条等；
    3、悬浮窗体——为了进入各届奥运邮集的操作方便，采用了“悬浮窗体”。此外，向用户提供友好界面的两种不同操作模式；
    4、窗体中的邮票——如何实现邮票不变形的放大与缩小，并可以由滚轮来操作；
    5、页面中的文字说明——留言式的奥运问答题、简介、趣文、标题、信息发布等不同格式的实现；
    6、子窗体的结构——子窗体的几种不同结构格式；
    7、实现与网站及QQ交谈的链接；
    8、软件的加密——《奥运邮集1-10届》是不加密的解压直接可以运行，而夏季11届以后采用了电子注册加密方式，即一个注册码只能用在一台电脑上；
    说明：7楼的系统图中（3）-（10）项不再单独讲解，而是结合到上面的“积木”一起讲，希望这样的“教学工艺”能得到您的认可。
          此外，在讲解过程中偶还会向您推荐一些收集到的好用的代码及免费的软件；如抓图软件，制作图标软件，压缩图片软件及CHM帮助文件制作软件等。
    本教材如有不足和错误之处，敬请各位高手批评指正。更希望软件中还未解决的问题在此论坛能得到帮助和解决。
    下图为第三届奥运会软件示例；（第二届奥运会因第一次世界大战而停办）

[[it] 本帖最后由 jrs123 于 2008-6-8 08:41 编辑 [/it]]

顶。支持！

谢谢“刨子头”的支持，谢谢各位网友的支持，偶会尽力把这套教材写好，欢迎大家多提宝贵意见！

六、《奥运邮集》软件窗体页面的结构
    1、邮票图片的载体——考虑到《奥运邮集》邮票的数量大，所以每个页面要尽量多的放置邮票，偶采用了如下操作和页面的结构选择：
    第一步：启动VB6系统，屏幕出现如7楼所示的系统图；
    第二步：点击“工具箱”上的“Frame”控件，见页面结构图中（4）；此时鼠标形成十字，在Form1窗体内拖出一个“Frame1”的控件，见页面结构图中（5）。为了满足奥运邮集软件的需要，偶对“Frame1”控件的属性作如下的设置：(见Frame1属性图)
    控件名称，见(1)：未变更；
    控件底图，见(2)：各页可选不同底色；
    BackColor，见(3):选0-None为边框不可见（若选1-Fixed Single为边框可见）；
    Caption，见(4):为空。经(3)(4)两项属性选定后，页面上就见不到此控件的名称和边框线了（见XJ7图）；
    Enabled，见(5):选True，即表示当鼠标移到该控件上时，鼠标会显示属性ToolTipText，见(7)上面所设置的字体，如“点击邮票放大”的提示；
    Height，见(6)：这可以按需要来确定此控件的高度。应注意的是此高度不能大于32000，否则运行软件时会出现“溢出”错误；
    此外，所有页面的宽度Width，见(8)统一选定为15200；
    提示：关于高、宽的单位将取决于“窗体Form”属性中ScaleMode的参数设定。本软件是选用默认的1-Twip；（偶曾吃过这个亏，各窗体不一致，结果各页高度和宽度都乱套了）

2、超长页面——有两个主要问题要解决；
    (1)在这页面上能放多少枚邮票，能放多少条文字解说框？其实就是一个窗体上允许“控件”的极限是多少的问题？
    原先设计时，每枚邮票下面都配有文字说明，但后来因控件数受到限制，也就作罢；
    (2)滚动条——滚动条是超长页面必须解决的问题。其实，一般的页面也需要设置“滚动条”。为此，偶花了很多的时间和精力，并在网友的帮助下完成的这一工作。
    说起来，“滚动条”在HTML网页制作上，是不成问题的问题，而在VB6上为什么这么麻烦！难道这是微软要弃它的一个原因？
    到现在，偶还不知道所选用的这个“滚动条”方案是否是最佳选择，所以在这里发表也希望起到“抛砖引玉”的效果。
     《奥运邮集》软件的滚动条——“抛砖引玉篇”（之一）
    https://bbs.bccn.net/viewthread.php?tid=207347&extra=page%3D1&frombbs=1
    将偶《奥运邮集》“滚动条”代码在此发帖，抛砖引玉,希望看到更好更简捷的方案!
    条件:在窗体上放一个高32000,宽15200的Frame控件,再从工具箱拖放水平与垂直二个滚动条,各属性设置如图所示:(图内的红色所示数据是经过一番调试后得出的)；
    垂直滚动条VScrollBar——（1）滚动条的高（2）鼠标点击空白区时滚动条移动快慢值（见滚动条示例图）（3）与窗体左边缘距离（4）移动最大值（5）鼠标点击两端黑三角箭头，滚动条移动快慢值（见滚动条示例图）（6）与窗体顶端距离（7）滚动条的宽
    水平滚动条HScrollBar——（1）滚动条的垂直方向的高（即条宽）（2）鼠标点击空白区时滚动条移动快慢值（见滚动条示例图）（3）与窗体左边缘距离（4）移动最大值（5）鼠标点击两端黑三角箭头，滚动条移动快慢值（见滚动条示例图）（6）与窗体顶端距离（7）滚动条的总宽度（长度）

[[it] 本帖最后由 jrs123 于 2008-4-12 08:29 编辑 [/it]]

3、窗体的居中——就是处于不同的分辨率的屏幕，窗体都显示在屏幕的中央。看似容易的问题，但在偶的奥运邮集软件始终未能解决,多个论坛上已经发了不少有关的帖子,也有不少高手介入，至今还没有解决。
    在VB6中令窗体的居中常用二种方法：一是从属性StartUpPpsition中选“2-屏幕中心”（或用鼠标将窗体拖至屏幕中心，见屏幕中心属性图的红三角所示）；另一种是用代码：frame.left=(form.width-frame.width)/2等代码;
    在《奥运邮集》软件中这些方法却不能见效。为此，偶再次将这个问题放在《奥运邮集》软件的窗体居中问题——“抛砖引玉篇”（之二），希望能得到解决。详见:
          https://bbs.bccn.net/thread-199571-1-1.html

[[it] 本帖最后由 jrs123 于 2008-4-11 20:41 编辑 [/it]]
已解决窗体居中的解决方案如下
Private Sub form_resize()
        Frame1.Left = (Me.ScaleWidth - Frame1.Width) / 2 '采用这段代码窗体居中问题就解决了,
End Sub

[[it] 本帖最后由 jrs123 于 2008-6-15 13:08 编辑 [/it]]