2、奥运简介——这是拖出Label文字框后将文字输入到属性中的Caption栏中。（页面上的“趣文”、“标题”也都是用这种方式。）
    当鼠标移到该文字框上，会出现一行文字提示，如“点击此栏更详细”，是Label文字框属性ToolTipText，将文字输入到栏内即可。
    此外，当鼠标点击该栏，还会弹出更详细的说明窗体(见图),这是由下面代码来实现的。如编辑时，双击“奥运简介”文字栏，光标跑到下面的代码上：
    Private Sub Label4_Click() '单击Label4事件；
    Load xj1sm '弹出xj1sm窗体（见图）
    xj1sm.Show
    End Sub
    “奥运简介”框是拖出Text1框，此框的属性可以决定以下几个内容：（见图）
    框内字体字型与字号选择属性——Font
    框内底色属性——Color
    框内字体颜色——ForeColor

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

在制作《奥运邮集》软件过程中采用了几个软件，今将抓图软件介绍如下，因有的软件过大（5.82M）无法上传，需要的请留信箱；
    抓图软件HyperSnap-DX简介： （有注册机）
    HyperSnap-DX 是个有名的屏幕抓图工具（见图），它不仅能抓住标准桌面程序还能抓取 DirectX, 3Dfx Glide 游戏和视频或 DVD 屏幕图。
    本程序能以 20 多种图形格式（包括：BMP, GIF, JPEG, TIFF, PCX 等）保存并阅读图片。可以用热键或自动记时器从屏幕上抓图。
    功能还包括：在所抓的图像中显示鼠标轨迹，收集工具，有调色板功能并能设置分辨率，还能选择从 TWAIN 装置中（扫描仪和数码相机）抓图。
    ---== HyperSnap-DX v5.20.01 汉化注册版安装提示 ==---
    1：解压后运行HS5Setup52001.exe安装原版程序；
    2：再运行HB-HysnapDx52001-NW.exe安装汉化补丁。
    3：内附KeyGen.exe为注册机：
    注册提示：(也可按"注册全攻略"的示图提示进行注册)
    1：要选择“Purchase single licenses”--Next 才可获得您的机器码
    2：复制机器码到注册机，得到注册码后复制注册完成：）wdte

介绍Macromedia Fireworks V8.0软件（有注册机）
    数码相机拍摄的图片或用抓图软件抓取高质量的图片，通常为bmp格式，其容量常在1M以上，有没有能将其容量压缩而不降低图像质量的方法呢？
    偶找到了Macromedia Fireworks V8.0软件，方法很简单，见图。将bmp图像格式转换为其它格式(如jpg或gif)压缩容量而不降低图像质量；
    该软件自身rar容量达88M，在此无法上传，请见谅！想要的请留信箱
 十一、子窗体的结构
    《奥运邮集》软件的子窗体有以下几种不同结构格式；（见下图）
    1、带圆角的子窗体——在子窗体内形成窗体圆角用下面一组代码：
    Option Explicit
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3

As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal Hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Sub Form_Load()
    Dim hr As Long
    Dim dl As Long
    Dim usew As Long
    Dim useh As Long
    usew = Me.Width / Screen.TwipsPerPixelX
    useh = Me.Height / Screen.TwipsPerPixelY
    hr = CreateRoundRectRgn(0, 0, usew, useh, 80, 80)
    dl = SetWindowRgn(Me.Hwnd, hr, True)
End Sub
    2、带滚动条的文字框控件TextBox——当文字框内的文字较多时，可以通过滚动条看到全文。设置步骤如下：
    第一步：在窗体中拖出TextBox大小适中的文字框；（见带圆角的子窗体图中的“文字框”）
    第二步：在TextBox的属性中，MultiLine设为Ture(多行显示)；ScrollBars设为2-Vertical(垂直滚动条)；
    第三步：点击属性“Text”，在打开的框内粘贴上（输入）文字内容；
    第四步：通过属性“Font”设置字号与字体，“ForeColor”设置字体的颜色；
    3、可用鼠标滚轮放大缩小的窗体（见鼠标滚轮放大缩小窗体图）——关于鼠标滚轮事件的代码前面(45#)已经介绍过了，这里不再重复。

[[it] 本帖最后由 jrs123 于 2008-5-30 11:48 编辑 [/it]]

1、软件发布信息——就是在软件上设一个能向用户发送信息的文字框。
    偶在《奥运邮集》的主页面的右下角有个信息发布小窗体（见图1），以及在每一届的第一页上都有一个“最新信息”发布栏（见图2）。
    制作方法如下：
   （1）先添加Mirosoft Internet Transfer Control 6.0 (sp6)控件
   （2）若是固定的文字框，即在窗体上拖出Text1文字框，其属性：
        ScrollBars取2-Vertial（垂直滚动条）；
        MultiLine取True(多行显示)
        Locked取True(锁定文字)
   （3）代码：(放在:Private Sub Form_Load()内)
        Text6.Text = Inet1.OpenURL("http://www.) <!--将各届所有的新信息txt文件都放在XX文件夹内-->
重要提示:在页面上要拖出Inet控件!(见图)

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

2、登陆网站——在软件上放一个按钮(或图片)，用户随时点击访问某个网站。提供两种方法供参考：
    （1）第一种方法，就一句代码：Shell "explorer.exe http://www.  （这方法代码少而精，但不足的是登陆网站时，网站的页面是处于最小化状态，即在屏幕最下面的任务栏上）
    （2）第二种方法：一个控件+一组声明+一组代码：（这个方法比较麻烦，但优点是登陆的网站是显示最大化页面，《奥运邮集》均采用这种方法）
    '一个控件：向窗体内拖一个控件ComboBox并在属性属性Text中放进网址，如http://www.(见图)
    '一组声明：
    Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal Hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    Private Const SW_SHOW = 5  
    '一组代码：
    Private Sub Command1_Click() '点击按钮1即登陆网站
    Dim web As String '链接网站用,网址放在Combo1的属性Text中
    web = Combo1.Text
    ShellExecute 0&, vbNullString, web, vbNullString, vbNullString, 0
    End Sub

3、与QQ交谈——这也有多种方法，下面介绍二种：
    （1）第一种方法：（需加载 windows script host object model，见图,打开“工程”菜单,点“引用”）代码如下：
     Dim iw1 As New WshShell '声明
    Private Sub command1_Click() '点击此钮与QQ交谈
    On Error Resume Next
    If getQQpath = "" Then
        MsgBox "你没有安装QQ，请先安装QQ", vbOKOnly Or vbInformation, Me.Caption
        Exit Sub
    Else
        iw1.Run "tencent://message/?uin=791465768&Site=jrs123&Menu=yes" '791465768是QQ号，jrs123是昵称
    End If
    End Sub
    '判断是否安装QQ
    Private Function getQQpath() As String
    getQQpath = iw1.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
    End Function
    （2）第二种方法：加二个文件和一组代码。需要的二个文件（见下图），一组代码如下：
    Private Sub Command1_Click() '点击此钮与QQ交谈
    Dim TempName As String
    TempName = App.Path & "\timwp tencent://message/?uin=791465768&Site=jrs123&Menu=yes"""
    Shell TempName, vbHide
    End Sub

十三、软件的形成与图标的制作
    1、软件的形成：
    由于奥运邮集各届都是生成exe文件格式，可独立运行的，而且所有控件都是VB6自带的，可以制作成不用安装的“绿色”exe软件。
    各届exe文件的形成很简单，调试完成后，打开“文件”菜单，选“生成xj1.exe（K）”即可（见图）。
    将各届的exe文件放在一个“奥运邮集”文件夹内，再将该文件夹压缩为“奥运邮集.rar”文件，就可以上传、下载了。

2、图标的制作：
    历届的奥运会是在不同的国家举办，所以图标可用各国的国旗，这里要用到的是一个制作图标软件（见附件）。下面向大家介绍该软件的使用方法：
    （1）双击“图标生成器Version”，启动后如图1；
    （2）用鼠标从旗子的左上右拖到右下角，放开鼠标键后弹出图2；
    （3）点“导出”钮，弹出图3，若不作任何修改，就存盘；
    （4）选图标格式：点存盘后弹出图4，一般选8位256色；
     至此，完成了国旗图标的制作。

3、exe选用新的图标：
    有了新图标之后，从程序中调用它，形成exe文件后就有新图标了。具体方法如下：
    （1）在窗体form1的属性中选中icon项，点击此项右边钮（见新图标1）；
    （2）在弹出的新图标对话框中选一个图标（见新图标2），点打开后即完成新图标制作了；

完成后的《奥运邮集》软件全体成员：