网址链接器.frm

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4185
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6105
   LinkTopic       =   "Form1"
   ScaleHeight     =   4185
   ScaleWidth      =   6105
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame2 
      Caption         =   "请选择网站"
      Height          =   1635
      Left            =   180
      TabIndex        =   1
      Top             =   2400
      Width           =   5715
      Begin VB.Label Label1 
         Caption         =   "Label1"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   255
         Index           =   2
         Left            =   2190
         MouseIcon       =   "网址链接器.frx":0000
         MousePointer    =   99  'Custom
         TabIndex        =   8
         Top             =   720
         Width           =   1515
      End
      Begin VB.Label Label1 
         Caption         =   "Label1"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   255
         Index           =   1
         Left            =   4080
         MouseIcon       =   "网址链接器.frx":0442
         MousePointer    =   99  'Custom
         TabIndex        =   7
         Top             =   720
         Width           =   1515
      End
      Begin VB.Label Label1 
         Caption         =   "Label1"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   255
         Index           =   0
         Left            =   300
         MouseIcon       =   "网址链接器.frx":0884
         MousePointer    =   99  'Custom
         TabIndex        =   6
         Top             =   720
         Width           =   1515
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "请选择类别"
      Height          =   2115
      Left            =   180
      TabIndex        =   0
      Top             =   120
      Width           =   5715
      Begin VB.OptionButton Option1 
         Caption         =   "门户"
         Height          =   315
         Index           =   3
         Left            =   3240
         TabIndex        =   5
         Top             =   420
         Width           =   1395
      End
      Begin VB.OptionButton Option1 
         Caption         =   "软件"
         Height          =   315
         Index           =   2
         Left            =   780
         TabIndex        =   4
         Top             =   1320
         Width           =   1395
      End
      Begin VB.OptionButton Option1 
         Caption         =   "硬件"
         Height          =   315
         Index           =   1
         Left            =   3240
         TabIndex        =   3
         Top             =   1320
         Width           =   1395
      End
      Begin VB.OptionButton Option1 
         Caption         =   "求职"
         Height          =   315
         Index           =   0
         Left            =   780
         TabIndex        =   2
         Top             =   420
         Width           =   1395
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Label1_Click(Index As Integer)
    If Kind = "qz" Then
        Select Case Index
            Case 0
                Address = "http://www.cjol.com"
                Call Link
            Case 1
                Address = "http://www.51job.com"
                Call Link
            Case 2
                Address = "www.job168.com"
                Call Link
        End Select
    Else
        If Kind = "mf" Then
            Select Case Index
                Case 0
                    Address = "http://www.sina.com.cn"
                    Call Link
                Case 1
                    Address = "http://www.163.com"
                    Call Link
                Case 2
                    Address = "http://www.sohu.com"
                    Call Link
            End Select
        Else
            If Kind = "rj" Then
                Select Case Index
                    Case 0
                        Address = "http://www.csdn.net"
                        Call Link
                    Case 1
                        Address = "http://www.newhua.com.cn"
                        Call Link
                    Case 2
                        Address = "http://www.goldseal.com.cn"
                        Call Link
                End Select
            Else
                If Kind = "yj" Then
                    Select Case Index
                        Case 0
                            Address = "http://www.yeskey.com"
                            Call Link
                        Case 1
                            Address = "http://www.pchome.net"
                            Call Link
                        Case 2
                            Address = "http://www.pconline.com.cn"
                            Call Link
                    End Select
                End If
            End If
        End If
    End If
End Sub

Private Sub Option1_Click(Index As Integer)
    Select Case Index
        Case 0
            Kind = "qz"
            Label1(0).Caption = "中国人才热线"
            Label1(0).ToolTipText = "http://www.cjol.com"
            Label1(1).Caption = "前程无忧"
            Label1(1).ToolTipText = "http://www.51job.com"
            Label1(2).Caption = "南方人才网"
            Label1(2).ToolTipText = "http://www.job168.com"
        Case 3
            Kind = "mf"
            Label1(0).Caption = "新浪"
            Label1(0).ToolTipText = "http://www.sina.com.cn"
            Label1(1).Caption = "网易"
            Label1(1).ToolTipText = "http://www.163.com"
            Label1(2).Caption = "搜狐"
            Label1(2).ToolTipText = "http://www.sohu.com"
        Case 2
            Kind = "rj"
            Label1(0).Caption = "程序员大本营"
            Label1(0).ToolTipText = "http://www.csdn.net"
            Label1(1).Caption = "华军软件园"
            Label1(1).ToolTipText = "http://www.newhua.com.cn"
            Label1(2).Caption = "硅谷动力"
            Label1(2).ToolTipText = "http://www.goldseal.com.cn"
        Case 1
            Kind = "yj"
            Label1(0).Caption = "天极网"
            Label1(0).ToolTipText = "http://www.yeskey.com"
            Label1(1).Caption = "电脑之家"
            Label1(1).ToolTipText = "http://www.pchome.net"
            Label1(2).Caption = "太平洋信息网"
            Label1(2).ToolTipText = "http://www.pconline.com.cn"
    End Select
End Sub