home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Mp3_player390621222001.psc / Mp3About.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-08-27  |  8.9 KB  |  285 lines
  1. VERSION 5.00
  2. Begin VB.Form Mp3About 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   3150
  5.    ClientLeft      =   3225
  6.    ClientTop       =   2700
  7.    ClientWidth     =   5535
  8.    ControlBox      =   0   'False
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    Picture         =   "Mp3About.frx":0000
  13.    ScaleHeight     =   3150
  14.    ScaleWidth      =   5535
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.Timer Timer2 
  17.       Enabled         =   0   'False
  18.       Interval        =   10
  19.       Left            =   600
  20.       Top             =   120
  21.    End
  22.    Begin VB.Timer Timer1 
  23.       Enabled         =   0   'False
  24.       Interval        =   10
  25.       Left            =   120
  26.       Top             =   120
  27.    End
  28.    Begin VB.Label Label9 
  29.       Alignment       =   2  'Center
  30.       BackStyle       =   0  'Transparent
  31.       Caption         =   "Thanks To:"
  32.       BeginProperty Font 
  33.          Name            =   "Timmons"
  34.          Size            =   9.75
  35.          Charset         =   0
  36.          Weight          =   700
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       ForeColor       =   &H0000FFFF&
  42.       Height          =   255
  43.       Left            =   120
  44.       TabIndex        =   8
  45.       Top             =   2280
  46.       Width           =   1095
  47.    End
  48.    Begin VB.Label Label8 
  49.       Alignment       =   2  'Center
  50.       BackStyle       =   0  'Transparent
  51.       Caption         =   "LLLArc@Home.Com"
  52.       BeginProperty Font 
  53.          Name            =   "Timmons"
  54.          Size            =   9.75
  55.          Charset         =   0
  56.          Weight          =   700
  57.          Underline       =   -1  'True
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       ForeColor       =   &H00FF0000&
  62.       Height          =   255
  63.       Left            =   1320
  64.       TabIndex        =   7
  65.       Top             =   1800
  66.       Width           =   3255
  67.    End
  68.    Begin VB.Label Label7 
  69.       Alignment       =   2  'Center
  70.       BackStyle       =   0  'Transparent
  71.       Caption         =   " Email:"
  72.       BeginProperty Font 
  73.          Name            =   "Timmons"
  74.          Size            =   9.75
  75.          Charset         =   0
  76.          Weight          =   700
  77.          Underline       =   0   'False
  78.          Italic          =   0   'False
  79.          Strikethrough   =   0   'False
  80.       EndProperty
  81.       ForeColor       =   &H0000FFFF&
  82.       Height          =   255
  83.       Left            =   360
  84.       TabIndex        =   6
  85.       Top             =   1800
  86.       Width           =   855
  87.    End
  88.    Begin VB.Label Label6 
  89.       Alignment       =   2  'Center
  90.       BackStyle       =   0  'Transparent
  91.       Caption         =   "Web Site:"
  92.       BeginProperty Font 
  93.          Name            =   "Timmons"
  94.          Size            =   9.75
  95.          Charset         =   0
  96.          Weight          =   700
  97.          Underline       =   0   'False
  98.          Italic          =   0   'False
  99.          Strikethrough   =   0   'False
  100.       EndProperty
  101.       ForeColor       =   &H0000FFFF&
  102.       Height          =   255
  103.       Left            =   240
  104.       TabIndex        =   5
  105.       Top             =   1440
  106.       Width           =   855
  107.    End
  108.    Begin VB.Label Label5 
  109.       Alignment       =   2  'Center
  110.       BackStyle       =   0  'Transparent
  111.       Caption         =   "Tongue 'N Groove Copyrited 2000-2002 All Rights Reserved 
  112.       BeginProperty Font 
  113.          Name            =   "Timmons"
  114.          Size            =   8.25
  115.          Charset         =   0
  116.          Weight          =   400
  117.          Underline       =   0   'False
  118.          Italic          =   0   'False
  119.          Strikethrough   =   0   'False
  120.       EndProperty
  121.       ForeColor       =   &H0000FFFF&
  122.       Height          =   255
  123.       Left            =   120
  124.       TabIndex        =   4
  125.       Top             =   2760
  126.       Width           =   5295
  127.    End
  128.    Begin VB.Label Label4 
  129.       Alignment       =   2  'Center
  130.       BackStyle       =   0  'Transparent
  131.       Caption         =   "Fly.To/ArcVBPalace"
  132.       BeginProperty Font 
  133.          Name            =   "Timmons"
  134.          Size            =   9.75
  135.          Charset         =   0
  136.          Weight          =   700
  137.          Underline       =   -1  'True
  138.          Italic          =   0   'False
  139.          Strikethrough   =   0   'False
  140.       EndProperty
  141.       ForeColor       =   &H00FF0000&
  142.       Height          =   255
  143.       Left            =   1560
  144.       TabIndex        =   3
  145.       Top             =   1440
  146.       Width           =   2775
  147.    End
  148.    Begin VB.Image Image1 
  149.       Height          =   180
  150.       Left            =   5160
  151.       Picture         =   "Mp3About.frx":236B
  152.       Top             =   120
  153.       Width           =   180
  154.    End
  155.    Begin VB.Label Label3 
  156.       Alignment       =   2  'Center
  157.       BackStyle       =   0  'Transparent
  158.       Caption         =   "Jongmin Baek ,Andreas 
  159. hlfeldt, Johannes.B, Stuart Pennington, For the great Visual effects."
  160.       BeginProperty Font 
  161.          Name            =   "Timmons"
  162.          Size            =   9.75
  163.          Charset         =   0
  164.          Weight          =   700
  165.          Underline       =   0   'False
  166.          Italic          =   0   'False
  167.          Strikethrough   =   0   'False
  168.       EndProperty
  169.       Height          =   495
  170.       Left            =   1080
  171.       TabIndex        =   2
  172.       Top             =   2160
  173.       Width           =   4335
  174.    End
  175.    Begin VB.Label Label2 
  176.       Alignment       =   2  'Center
  177.       BackStyle       =   0  'Transparent
  178.       Caption         =   " Made By: (Arc) Software Design"
  179.       BeginProperty Font 
  180.          Name            =   "Timmons"
  181.          Size            =   14.25
  182.          Charset         =   0
  183.          Weight          =   700
  184.          Underline       =   0   'False
  185.          Italic          =   0   'False
  186.          Strikethrough   =   0   'False
  187.       EndProperty
  188.       ForeColor       =   &H0000FFFF&
  189.       Height          =   375
  190.       Left            =   120
  191.       TabIndex        =   1
  192.       Top             =   960
  193.       Width           =   5775
  194.    End
  195.    Begin VB.Label Label1 
  196.       Alignment       =   2  'Center
  197.       BackStyle       =   0  'Transparent
  198.       Caption         =   "Tongue 'N Groove"
  199.       BeginProperty Font 
  200.          Name            =   "Timmons"
  201.          Size            =   8.25
  202.          Charset         =   0
  203.          Weight          =   700
  204.          Underline       =   0   'False
  205.          Italic          =   0   'False
  206.          Strikethrough   =   0   'False
  207.       EndProperty
  208.       Height          =   615
  209.       Left            =   960
  210.       TabIndex        =   0
  211.       Top             =   240
  212.       Width           =   3975
  213.    End
  214. Attribute VB_Name = "Mp3About"
  215. Attribute VB_GlobalNameSpace = False
  216. Attribute VB_Creatable = False
  217. Attribute VB_PredeclaredId = True
  218. Attribute VB_Exposed = False
  219. Private Sub Form_Load()
  220. MP3PlayerFrm1.Hide
  221. MP3playerShowFav.Hide
  222. MP3CDFrm.Hide
  223. Timer1.Enabled = True
  224. End Sub
  225. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  226. Label8.ForeColor = vbBlue
  227. Label4.ForeColor = vbBlue
  228. End Sub
  229. Private Sub Image1_Click()
  230. Unload Me
  231. MP3PlayerFrm1.Show
  232. End Sub
  233. Private Sub Label4_Click()
  234. ShellExecute 0, "open", "http://fly.to/arcvbpalace", 0, 0, SW_NORMAL
  235. End Sub
  236. Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  237. Label4.ForeColor = vbRed
  238. End Sub
  239. Sub SendMail(ByVal strAddress As String, _
  240. Optional ByVal strCC As String, _
  241. Optional ByVal strBCC As String, _
  242. Optional ByVal strSubject As String, _
  243. Optional ByVal strBodyText As String)
  244. Dim strTemp As String
  245. If Trim(Len(strCC)) Then
  246. strTemp = "&CC=" & strCC
  247. End If
  248. If Trim(Len(strBCC)) Then
  249. strTemp = strTemp & "&BCC=" & strBCC
  250. End If
  251. If Trim(Len(strSubject)) Then
  252. strTemp = strTemp & "&Subject=" & strSubject
  253. End If
  254. If Trim(Len(strBodyText)) Then
  255. strTemp = strTemp & "&Body=" & strBodyText
  256. End If
  257. If Len(strTemp) Then
  258. Mid(strTemp, 1, 1) = "?"
  259. End If
  260. strTemp = "mailto:" & strAddress & strTemp
  261. ShellExecute 0, "open", strTemp, 0, 0, SW_NORMAL
  262. End Sub
  263. Private Sub Label8_Click()
  264.  SendMail "lllArc@Home.com", , , "Tongue 'N Groove"
  265. End Sub
  266. Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  267. Label8.ForeColor = vbRed
  268. End Sub
  269. Private Sub Timer1_Timer()
  270. Label1.FontSize = Label1.FontSize + 1
  271. If Label1.FontSize >= 22 Then
  272. Label1.ForeColor = vbYellow
  273. Timer1.Enabled = False
  274. Timer2.Enabled = True
  275. End If
  276. End Sub
  277. Private Sub Timer2_Timer()
  278. Label1.FontSize = Label1.FontSize - 1
  279. If Label1.FontSize <= 4 Then
  280. Label1.ForeColor = vbBlack
  281. Timer1.Enabled = True
  282. Timer2.Enabled = False
  283. End If
  284. End Sub
  285.