home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD49074182000.psc / C:\BOS\frmBstart.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  2000-04-18  |  10.9 KB  |  292 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmBstart 
  4.    AutoRedraw      =   -1  'True
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   3750
  8.    ClientLeft      =   0
  9.    ClientTop       =   0
  10.    ClientWidth     =   3000
  11.    ClipControls    =   0   'False
  12.    LinkTopic       =   "Form1"
  13.    Picture         =   "frmBstart.frx":0000
  14.    ScaleHeight     =   250
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   200
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   3  'Windows Default
  19.    Begin VB.PictureBox picButton 
  20.       AutoRedraw      =   -1  'True
  21.       BorderStyle     =   0  'None
  22.       Height          =   600
  23.       Index           =   4
  24.       Left            =   375
  25.       Picture         =   "frmBstart.frx":24A32
  26.       ScaleHeight     =   600
  27.       ScaleWidth      =   2550
  28.       TabIndex        =   5
  29.       Top             =   600
  30.       Width           =   2550
  31.    End
  32.    Begin VB.PictureBox picButton 
  33.       AutoRedraw      =   -1  'True
  34.       BorderStyle     =   0  'None
  35.       Height          =   600
  36.       Index           =   3
  37.       Left            =   375
  38.       Picture         =   "frmBstart.frx":29A74
  39.       ScaleHeight     =   600
  40.       ScaleWidth      =   2550
  41.       TabIndex        =   4
  42.       Top             =   1200
  43.       Width           =   2550
  44.    End
  45.    Begin VB.PictureBox picButton 
  46.       AutoRedraw      =   -1  'True
  47.       BorderStyle     =   0  'None
  48.       Height          =   600
  49.       Index           =   2
  50.       Left            =   375
  51.       Picture         =   "frmBstart.frx":2EAB6
  52.       ScaleHeight     =   600
  53.       ScaleWidth      =   2550
  54.       TabIndex        =   3
  55.       Top             =   1800
  56.       Width           =   2550
  57.    End
  58.    Begin MSComctlLib.ImageList imagesdown 
  59.       Left            =   1200
  60.       Top             =   120
  61.       _ExtentX        =   1005
  62.       _ExtentY        =   1005
  63.       BackColor       =   -2147483643
  64.       ImageWidth      =   170
  65.       ImageHeight     =   40
  66.       MaskColor       =   12632256
  67.       _Version        =   393216
  68.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  69.          NumListImages   =   5
  70.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  71.             Picture         =   "frmBstart.frx":33AF8
  72.             Key             =   ""
  73.          EndProperty
  74.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  75.             Picture         =   "frmBstart.frx":38B4C
  76.             Key             =   ""
  77.          EndProperty
  78.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  79.             Picture         =   "frmBstart.frx":3DBA0
  80.             Key             =   ""
  81.          EndProperty
  82.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  83.             Picture         =   "frmBstart.frx":42BF4
  84.             Key             =   ""
  85.          EndProperty
  86.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  87.             Picture         =   "frmBstart.frx":47C48
  88.             Key             =   ""
  89.          EndProperty
  90.       EndProperty
  91.    End
  92.    Begin VB.PictureBox picButton 
  93.       AutoRedraw      =   -1  'True
  94.       BorderStyle     =   0  'None
  95.       Height          =   600
  96.       Index           =   1
  97.       Left            =   375
  98.       Picture         =   "frmBstart.frx":4CC9C
  99.       ScaleHeight     =   600
  100.       ScaleWidth      =   2550
  101.       TabIndex        =   2
  102.       Top             =   2400
  103.       Width           =   2550
  104.    End
  105.    Begin MSComctlLib.ImageList imageshover 
  106.       Left            =   540
  107.       Top             =   120
  108.       _ExtentX        =   1005
  109.       _ExtentY        =   1005
  110.       BackColor       =   -2147483643
  111.       ImageWidth      =   170
  112.       ImageHeight     =   40
  113.       MaskColor       =   12632256
  114.       _Version        =   393216
  115.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  116.          NumListImages   =   5
  117.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  118.             Picture         =   "frmBstart.frx":51CDE
  119.             Key             =   ""
  120.          EndProperty
  121.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  122.             Picture         =   "frmBstart.frx":56D32
  123.             Key             =   ""
  124.          EndProperty
  125.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  126.             Picture         =   "frmBstart.frx":5BD86
  127.             Key             =   ""
  128.          EndProperty
  129.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  130.             Picture         =   "frmBstart.frx":60DDA
  131.             Key             =   ""
  132.          EndProperty
  133.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  134.             Picture         =   "frmBstart.frx":65E2E
  135.             Key             =   ""
  136.          EndProperty
  137.       EndProperty
  138.    End
  139.    Begin MSComctlLib.ImageList images 
  140.       Left            =   1860
  141.       Top             =   120
  142.       _ExtentX        =   1005
  143.       _ExtentY        =   1005
  144.       BackColor       =   -2147483643
  145.       ImageWidth      =   170
  146.       ImageHeight     =   40
  147.       MaskColor       =   12632256
  148.       _Version        =   393216
  149.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  150.          NumListImages   =   5
  151.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  152.             Picture         =   "frmBstart.frx":6AE82
  153.             Key             =   ""
  154.          EndProperty
  155.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  156.             Picture         =   "frmBstart.frx":6FED6
  157.             Key             =   ""
  158.          EndProperty
  159.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  160.             Picture         =   "frmBstart.frx":74F2A
  161.             Key             =   ""
  162.          EndProperty
  163.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  164.             Picture         =   "frmBstart.frx":79F7E
  165.             Key             =   ""
  166.          EndProperty
  167.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  168.             Picture         =   "frmBstart.frx":7EFD2
  169.             Key             =   ""
  170.          EndProperty
  171.       EndProperty
  172.    End
  173.    Begin VB.PictureBox picButton 
  174.       AutoRedraw      =   -1  'True
  175.       BorderStyle     =   0  'None
  176.       Height          =   600
  177.       Index           =   0
  178.       Left            =   375
  179.       Picture         =   "frmBstart.frx":84026
  180.       ScaleHeight     =   600
  181.       ScaleWidth      =   2550
  182.       TabIndex        =   1
  183.       Top             =   3000
  184.       Width           =   2550
  185.    End
  186.    Begin VB.Timer tmrHide 
  187.       Interval        =   1
  188.       Left            =   960
  189.       Top             =   1200
  190.    End
  191.    Begin VB.PictureBox picDesktopCapture 
  192.       AutoRedraw      =   -1  'True
  193.       Height          =   495
  194.       Left            =   3060
  195.       ScaleHeight     =   435
  196.       ScaleWidth      =   360
  197.       TabIndex        =   0
  198.       Top             =   1680
  199.       Visible         =   0   'False
  200.       Width           =   420
  201.    End
  202. Attribute VB_Name = "frmBstart"
  203. Attribute VB_GlobalNameSpace = False
  204. Attribute VB_Creatable = False
  205. Attribute VB_PredeclaredId = True
  206. Attribute VB_Exposed = False
  207. Dim i As Integer
  208. Dim Over(0 To 4) As Boolean
  209. Dim OldIndex As Integer
  210. Public Sub showme()
  211. HideSubs
  212. SetWindowPos Me.hWnd, -1, Me.ScaleLeft, Screen.Height / Screen.TwipsPerPixelY - Me.ScaleHeight - 30, Me.ScaleWidth, Me.ScaleHeight, SWP_NOREPOSITION
  213. Me.Left = 0
  214. picDesktopCapture.Width = Me.ScaleWidth + 10
  215. picDesktopCapture.Height = Me.ScaleHeight + 10
  216. picDesktopCapture.Left = 0
  217. picDesktopCapture.Top = 0
  218. DeskHdc = GetDC(0)
  219. ret = BitBlt(picDesktopCapture.hdc, 0, 0, Me.ScaleWidth, Me.ScaleHeight, DeskHdc, Me.Left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, vbSrcCopy)
  220. ret = ReleaseDC(0&, DeskHdc)
  221. Blend Me, picDesktopCapture, 80, 0, 0, Me.ScaleWidth, Me.ScaleHeight
  222. For i = 0 To picButton.Count - 1
  223.     AlphaBlending picButton(i).hdc, 0, 0, 170, 40, picDesktopCapture.hdc, picButton(i).Left, picButton(i).Top, 170, 40, 80
  224. Me.Show
  225. Me.Refresh
  226. End Sub
  227. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  228. If Over(OldIndex) = True Then
  229.     picButton(OldIndex).Picture = images.ListImages(OldIndex + 1).Picture
  230.     AlphaBlending picButton(OldIndex).hdc, 0, 0, 170, 40, picDesktopCapture.hdc, picButton(OldIndex).Left, picButton(OldIndex).Top, 170, 40, 80
  231.     Over(OldIndex) = False
  232. End If
  233. HideSubs
  234. End Sub
  235. Private Sub picButton_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  236.     picButton(Index).Picture = imagesdown.ListImages(Index + 1).Picture
  237.     AlphaBlending picButton(Index).hdc, 0, 0, 170, 40, picDesktopCapture.hdc, picButton(Index).Left, picButton(Index).Top, 170, 40, 80
  238.     Select Case Index
  239.         Case 0
  240.                 frmShutdownSubMenu.SetFocus
  241.         Case 2
  242.                 frmHelpSubMenu.SetFocus
  243.     End Select
  244. End Sub
  245. Private Sub picButton_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  246. If Over(Index) = False Then
  247.     picButton(OldIndex).Picture = images.ListImages(OldIndex + 1).Picture
  248.     AlphaBlending picButton(OldIndex).hdc, 0, 0, 170, 40, picDesktopCapture.hdc, picButton(OldIndex).Left, picButton(OldIndex).Top, 170, 40, 80
  249.     Over(OldIndex) = False
  250.     OldIndex = Index
  251.     picButton(Index).Picture = imageshover.ListImages(Index + 1).Picture
  252.     AlphaBlending picButton(Index).hdc, 0, 0, 170, 40, picDesktopCapture.hdc, picButton(Index).Left, picButton(Index).Top, 170, 40, 80
  253.     Over(Index) = True
  254.     Select Case Index
  255.         Case 0
  256.             HideSubs
  257.             Load frmShutdownSubMenu
  258.             SubShown(0) = True
  259.         Case 2
  260.             HideSubs
  261.             Load frmHelpSubMenu
  262.             SubShown(1) = True
  263.         Case 3
  264.             HideSubs
  265.             Load frmSettingsSubMenu
  266.             SubShown(2) = True
  267.         Case Else
  268.             HideSubs
  269.     End Select
  270.     s_Playsound "hover"
  271. End If
  272. End Sub
  273. Private Sub picButton_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  274. picButton(Index).Picture = imageshover.ListImages(Index + 1).Picture
  275. AlphaBlending picButton(Index).hdc, 0, 0, 170, 40, picDesktopCapture.hdc, picButton(Index).Left, picButton(Index).Top, 170, 40, 80
  276. Select Case Index
  277. Case 1
  278.     Load frmRun
  279.     HideStartMenu
  280. Case 4
  281.     frmSendPopUp.Show
  282.     HideStartMenu
  283. End Select
  284.     s_Playsound "select"
  285. End Sub
  286. Private Sub tmrHide_Timer()
  287. a = GetForegroundWindow
  288. b "sele1-Tt hShutdownSubMet}lBcwcpn"3#C3G14bMenu
  289.  a3 Case Index
  290. Cdi         =   1    t o.tCBNubMeti G14bMenu
  291.  tutton(InCc0T9CIslBwr CIslBwr CIslBwr CIslBwr CIslBwr CIslBwr CIslBwr CIslBwr CIslBwr CIslBwr CIslBwr CIslBwr C
  292.