home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD1097710262000.psc / frmAbout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-09-11  |  10.4 KB  |  333 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H00000000&
  4.    Caption         =   "Program By:  Jerry Barnes and John  Cunningham"
  5.    ClientHeight    =   3030
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   5550
  9.    HelpContextID   =   20
  10.    Icon            =   "frmAbout.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3030
  15.    ScaleWidth      =   5550
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.Timer Timer1 
  18.       Interval        =   1500
  19.       Left            =   0
  20.       Top             =   2520
  21.    End
  22.    Begin VB.PictureBox Picture1 
  23.       BorderStyle     =   0  'None
  24.       Height          =   15
  25.       Left            =   0
  26.       ScaleHeight     =   15
  27.       ScaleWidth      =   4695
  28.       TabIndex        =   4
  29.       Top             =   0
  30.       WhatsThisHelpID =   20
  31.       Width           =   4695
  32.    End
  33.    Begin VB.Label lblEmail 
  34.       AutoSize        =   -1  'True
  35.       BackColor       =   &H00000000&
  36.       Caption         =   "johnpc@ids.net"
  37.       BeginProperty Font 
  38.          Name            =   "MS Sans Serif"
  39.          Size            =   9.75
  40.          Charset         =   0
  41.          Weight          =   700
  42.          Underline       =   -1  'True
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       ForeColor       =   &H0080FF80&
  47.       Height          =   240
  48.       Index           =   1
  49.       Left            =   2160
  50.       MouseIcon       =   "frmAbout.frx":0442
  51.       MousePointer    =   99  'Custom
  52.       TabIndex        =   9
  53.       ToolTipText     =   "Send Email To John Cunningham"
  54.       Top             =   2400
  55.       WhatsThisHelpID =   20
  56.       Width           =   1620
  57.    End
  58.    Begin VB.Label Label6 
  59.       BackColor       =   &H00000000&
  60.       Caption         =   "Send Email:"
  61.       BeginProperty Font 
  62.          Name            =   "MS Sans Serif"
  63.          Size            =   9.75
  64.          Charset         =   0
  65.          Weight          =   700
  66.          Underline       =   0   'False
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       ForeColor       =   &H0080FF80&
  71.       Height          =   255
  72.       Left            =   600
  73.       TabIndex        =   8
  74.       Top             =   2400
  75.       WhatsThisHelpID =   20
  76.       Width           =   1335
  77.    End
  78.    Begin VB.Label Label5 
  79.       Alignment       =   2  'Center
  80.       AutoSize        =   -1  'True
  81.       BackColor       =   &H00000000&
  82.       Caption         =   " ADO Code Generator"
  83.       BeginProperty Font 
  84.          Name            =   "MS Sans Serif"
  85.          Size            =   13.5
  86.          Charset         =   0
  87.          Weight          =   700
  88.          Underline       =   -1  'True
  89.          Italic          =   0   'False
  90.          Strikethrough   =   0   'False
  91.       EndProperty
  92.       ForeColor       =   &H000000FF&
  93.       Height          =   360
  94.       Left            =   1256
  95.       TabIndex        =   7
  96.       Top             =   600
  97.       WhatsThisHelpID =   20
  98.       Width           =   3090
  99.    End
  100.    Begin VB.Image Image1 
  101.       Height          =   480
  102.       Left            =   480
  103.       Picture         =   "frmAbout.frx":074C
  104.       Top             =   240
  105.       WhatsThisHelpID =   20
  106.       Width           =   480
  107.    End
  108.    Begin VB.Label Label3 
  109.       BackColor       =   &H00000000&
  110.       Caption         =   "Send Email:"
  111.       BeginProperty Font 
  112.          Name            =   "MS Sans Serif"
  113.          Size            =   9.75
  114.          Charset         =   0
  115.          Weight          =   700
  116.          Underline       =   0   'False
  117.          Italic          =   0   'False
  118.          Strikethrough   =   0   'False
  119.       EndProperty
  120.       ForeColor       =   &H0080FF80&
  121.       Height          =   255
  122.       Left            =   600
  123.       TabIndex        =   6
  124.       Top             =   1920
  125.       WhatsThisHelpID =   20
  126.       Width           =   1335
  127.    End
  128.    Begin VB.Label Label2 
  129.       BackColor       =   &H00000000&
  130.       Caption         =   "Go to Web Page:"
  131.       BeginProperty Font 
  132.          Name            =   "MS Sans Serif"
  133.          Size            =   9.75
  134.          Charset         =   0
  135.          Weight          =   700
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       ForeColor       =   &H0000FFFF&
  141.       Height          =   255
  142.       Left            =   184
  143.       TabIndex        =   5
  144.       Top             =   1440
  145.       WhatsThisHelpID =   20
  146.       Width           =   1815
  147.    End
  148.    Begin VB.Label Label4 
  149.       AutoSize        =   -1  'True
  150.       BackColor       =   &H00000000&
  151.       Caption         =   " By:  Jerry Barnes and John  Cunningham"
  152.       BeginProperty Font 
  153.          Name            =   "MS Sans Serif"
  154.          Size            =   12
  155.          Charset         =   0
  156.          Weight          =   700
  157.          Underline       =   -1  'True
  158.          Italic          =   0   'False
  159.          Strikethrough   =   0   'False
  160.       EndProperty
  161.       ForeColor       =   &H00FFFFFF&
  162.       Height          =   300
  163.       Left            =   240
  164.       TabIndex        =   3
  165.       Top             =   1080
  166.       WhatsThisHelpID =   20
  167.       Width           =   4965
  168.    End
  169.    Begin VB.Label lblEmail 
  170.       AutoSize        =   -1  'True
  171.       BackColor       =   &H00000000&
  172.       Caption         =   "jerry_m_barnes@hotmail.com"
  173.       BeginProperty Font 
  174.          Name            =   "MS Sans Serif"
  175.          Size            =   9.75
  176.          Charset         =   0
  177.          Weight          =   700
  178.          Underline       =   -1  'True
  179.          Italic          =   0   'False
  180.          Strikethrough   =   0   'False
  181.       EndProperty
  182.       ForeColor       =   &H0080FF80&
  183.       Height          =   240
  184.       Index           =   0
  185.       Left            =   2160
  186.       MouseIcon       =   "frmAbout.frx":0A56
  187.       MousePointer    =   99  'Custom
  188.       TabIndex        =   2
  189.       ToolTipText     =   "Send Email To Jerry Barnes"
  190.       Top             =   1920
  191.       WhatsThisHelpID =   20
  192.       Width           =   3090
  193.    End
  194.    Begin VB.Label lblURL 
  195.       AutoSize        =   -1  'True
  196.       BackColor       =   &H00000000&
  197.       Caption         =   "http://users.ids.net/~johnpc"
  198.       BeginProperty Font 
  199.          Name            =   "MS Sans Serif"
  200.          Size            =   9.75
  201.          Charset         =   0
  202.          Weight          =   700
  203.          Underline       =   -1  'True
  204.          Italic          =   0   'False
  205.          Strikethrough   =   0   'False
  206.       EndProperty
  207.       ForeColor       =   &H0000FFFF&
  208.       Height          =   240
  209.       Left            =   2104
  210.       MouseIcon       =   "frmAbout.frx":0D60
  211.       MousePointer    =   99  'Custom
  212.       TabIndex        =   1
  213.       ToolTipText     =   "Open John Cunningham'sWeb Page"
  214.       Top             =   1440
  215.       WhatsThisHelpID =   20
  216.       Width           =   2835
  217.    End
  218.    Begin VB.Label Label1 
  219.       Alignment       =   2  'Center
  220.       AutoSize        =   -1  'True
  221.       BackColor       =   &H00000000&
  222.       Caption         =   "SQL Statement and"
  223.       BeginProperty Font 
  224.          Name            =   "MS Sans Serif"
  225.          Size            =   13.5
  226.          Charset         =   0
  227.          Weight          =   700
  228.          Underline       =   -1  'True
  229.          Italic          =   0   'False
  230.          Strikethrough   =   0   'False
  231.       EndProperty
  232.       ForeColor       =   &H000000FF&
  233.       Height          =   360
  234.       Left            =   1425
  235.       TabIndex        =   0
  236.       Top             =   120
  237.       WhatsThisHelpID =   20
  238.       Width           =   2700
  239.    End
  240. Attribute VB_Name = "frmAbout"
  241. Attribute VB_GlobalNameSpace = False
  242. Attribute VB_Creatable = False
  243. Attribute VB_PredeclaredId = True
  244. Attribute VB_Exposed = False
  245. Option Explicit
  246. Sub Sleep(Seconds As Double)
  247.    Dim TempTime As Double
  248.    TempTime = Timer
  249.    While Timer - TempTime < Seconds
  250.       DoEvents
  251.       If Timer < TempTime Then
  252.          TempTime = TempTime - 24# * 3600#
  253.       End If
  254.    Wend
  255. End Sub
  256. Private Sub Form_Activate()
  257. TextEffect Me, "", 12, 12, , 128, 0, RGB(&H80, 0, 0)
  258. End Sub
  259. Private Sub Form_Load()
  260. lblEmail(0) = email1
  261. lblEmail(1) = email2
  262. lblURL = URL
  263. Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
  264. End Sub
  265. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  266. 'lblURL.ForeColor = &HFFFF&      'yellow
  267. 'lblEmail.ForeColor = &H808000  'green
  268. End Sub
  269. Private Sub Form_Unload(Cancel As Integer)
  270. Dim i As Integer
  271.         i = Me.Height
  272.     While i >= Picture1.Height
  273.         i = i - 40
  274.         If i > Picture1.Height Then
  275.             Me.Height = i
  276.         Else
  277.             Me.Height = Picture1.Height
  278.         End If
  279.         
  280.         DoEvents
  281.     Wend
  282.     i = Me.Top
  283.     i = Me.Top
  284.     While i > 0
  285.         Me.Move Me.Left, i, Me.Width, Me.Height
  286.         i = i - 50
  287.         DoEvents
  288.         
  289.     Wend
  290.     i = Me.Left
  291.     While i < Screen.Width
  292.         Me.Move i, 0, Me.Width, Me.Height
  293.         i = i + 105
  294.         DoEvents
  295.        
  296.     Wend
  297. End Sub
  298. Private Sub lblEmail_Click(Index As Integer)
  299. Select Case Index
  300.     Case 0
  301.         sendemail1
  302.     Case Else
  303.         sendemail2
  304. End Select
  305. End Sub
  306. Private Sub lblEmail_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  307. Select Case Index
  308.     Case 0
  309.         lblEmail(0).ForeColor = &HFF8080        'hyperlink blue
  310.         Label3.ForeColor = &HFF8080
  311.         
  312.     Case Else
  313.         lblEmail(1).ForeColor = &HFF8080        'hyperlink blue
  314.         Label6.ForeColor = &HFF8080
  315.         
  316.     End Select
  317. End Sub
  318. Private Sub lblURL_Click()
  319. gotoweb
  320. End Sub
  321. Private Sub lblURL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  322.   lblURL.ForeColor = &HFF8080        'hyperlink blue
  323.   Label2.ForeColor = &HFF8080
  324. End Sub
  325. Private Sub Timer1_Timer()
  326.     lblEmail(0).ForeColor = &H80FF80   '&H808000
  327.     lblEmail(1).ForeColor = &H80FF80   '&H808000
  328.     Label3.ForeColor = &H80FF80   '&H808000
  329.     Label6.ForeColor = &H80FF80   '&H808000
  330.     lblURL.ForeColor = &HFFFF&
  331.     Label2.ForeColor = &HFFFF&
  332. End Sub
  333.