home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD49764192000.psc / C:\BOS\frmBstart.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  2000-04-19  |  12.3 KB  |  332 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           =   5
  24.       Left            =   375
  25.       Picture         =   "frmBstart.frx":24A32
  26.       ScaleHeight     =   600
  27.       ScaleWidth      =   2550
  28.       TabIndex        =   6
  29.       Top             =   0
  30.       Width           =   2550
  31.    End
  32.    Begin VB.PictureBox picButton 
  33.       AutoRedraw      =   -1  'True
  34.       BorderStyle     =   0  'None
  35.       Height          =   600
  36.       Index           =   4
  37.       Left            =   375
  38.       Picture         =   "frmBstart.frx":29A74
  39.       ScaleHeight     =   600
  40.       ScaleWidth      =   2550
  41.       TabIndex        =   5
  42.       Top             =   600
  43.       Width           =   2550
  44.    End
  45.    Begin VB.PictureBox picButton 
  46.       AutoRedraw      =   -1  'True
  47.       BorderStyle     =   0  'None
  48.       Height          =   600
  49.       Index           =   3
  50.       Left            =   375
  51.       Picture         =   "frmBstart.frx":2EAB6
  52.       ScaleHeight     =   600
  53.       ScaleWidth      =   2550
  54.       TabIndex        =   4
  55.       Top             =   1200
  56.       Width           =   2550
  57.    End
  58.    Begin VB.PictureBox picButton 
  59.       AutoRedraw      =   -1  'True
  60.       BorderStyle     =   0  'None
  61.       Height          =   600
  62.       Index           =   2
  63.       Left            =   375
  64.       Picture         =   "frmBstart.frx":33AF8
  65.       ScaleHeight     =   600
  66.       ScaleWidth      =   2550
  67.       TabIndex        =   3
  68.       Top             =   1800
  69.       Width           =   2550
  70.    End
  71.    Begin MSComctlLib.ImageList imagesdown 
  72.       Left            =   1200
  73.       Top             =   120
  74.       _ExtentX        =   1005
  75.       _ExtentY        =   1005
  76.       BackColor       =   -2147483643
  77.       ImageWidth      =   170
  78.       ImageHeight     =   40
  79.       MaskColor       =   12632256
  80.       _Version        =   393216
  81.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  82.          NumListImages   =   6
  83.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  84.             Picture         =   "frmBstart.frx":38B3A
  85.             Key             =   ""
  86.          EndProperty
  87.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  88.             Picture         =   "frmBstart.frx":3DB8E
  89.             Key             =   ""
  90.          EndProperty
  91.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  92.             Picture         =   "frmBstart.frx":42BE2
  93.             Key             =   ""
  94.          EndProperty
  95.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  96.             Picture         =   "frmBstart.frx":47C36
  97.             Key             =   ""
  98.          EndProperty
  99.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  100.             Picture         =   "frmBstart.frx":4CC8A
  101.             Key             =   ""
  102.          EndProperty
  103.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  104.             Picture         =   "frmBstart.frx":51CDE
  105.             Key             =   ""
  106.          EndProperty
  107.       EndProperty
  108.    End
  109.    Begin VB.PictureBox picButton 
  110.       AutoRedraw      =   -1  'True
  111.       BorderStyle     =   0  'None
  112.       Height          =   600
  113.       Index           =   1
  114.       Left            =   375
  115.       Picture         =   "frmBstart.frx":56D32
  116.       ScaleHeight     =   600
  117.       ScaleWidth      =   2550
  118.       TabIndex        =   2
  119.       Top             =   2400
  120.       Width           =   2550
  121.    End
  122.    Begin MSComctlLib.ImageList imageshover 
  123.       Left            =   540
  124.       Top             =   120
  125.       _ExtentX        =   1005
  126.       _ExtentY        =   1005
  127.       BackColor       =   -2147483643
  128.       ImageWidth      =   170
  129.       ImageHeight     =   40
  130.       MaskColor       =   12632256
  131.       _Version        =   393216
  132.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  133.          NumListImages   =   6
  134.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  135.             Picture         =   "frmBstart.frx":5BD74
  136.             Key             =   ""
  137.          EndProperty
  138.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  139.             Picture         =   "frmBstart.frx":60DC8
  140.             Key             =   ""
  141.          EndProperty
  142.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  143.             Picture         =   "frmBstart.frx":65E1C
  144.             Key             =   ""
  145.          EndProperty
  146.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  147.             Picture         =   "frmBstart.frx":6AE70
  148.             Key             =   ""
  149.          EndProperty
  150.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  151.             Picture         =   "frmBstart.frx":6FEC4
  152.             Key             =   ""
  153.          EndProperty
  154.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  155.             Picture         =   "frmBstart.frx":74F18
  156.             Key             =   ""
  157.          EndProperty
  158.       EndProperty
  159.    End
  160.    Begin MSComctlLib.ImageList images 
  161.       Left            =   1860
  162.       Top             =   120
  163.       _ExtentX        =   1005
  164.       _ExtentY        =   1005
  165.       BackColor       =   -2147483643
  166.       ImageWidth      =   170
  167.       ImageHeight     =   40
  168.       MaskColor       =   12632256
  169.       _Version        =   393216
  170.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  171.          NumListImages   =   6
  172.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  173.             Picture         =   "frmBstart.frx":79F6C
  174.             Key             =   ""
  175.          EndProperty
  176.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  177.             Picture         =   "frmBstart.frx":7EFC0
  178.             Key             =   ""
  179.          EndProperty
  180.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  181.             Picture         =   "frmBstart.frx":84014
  182.             Key             =   ""
  183.          EndProperty
  184.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  185.             Picture         =   "frmBstart.frx":89068
  186.             Key             =   ""
  187.          EndProperty
  188.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  189.             Picture         =   "frmBstart.frx":8E0BC
  190.             Key             =   ""
  191.          EndProperty
  192.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  193.             Picture         =   "frmBstart.frx":93110
  194.             Key             =   ""
  195.          EndProperty
  196.       EndProperty
  197.    End
  198.    Begin VB.PictureBox picButton 
  199.       AutoRedraw      =   -1  'True
  200.       BorderStyle     =   0  'None
  201.       Height          =   600
  202.       Index           =   0
  203.       Left            =   375
  204.       Picture         =   "frmBstart.frx":98164
  205.       ScaleHeight     =   600
  206.       ScaleWidth      =   2550
  207.       TabIndex        =   1
  208.       Top             =   3000
  209.       Width           =   2550
  210.    End
  211.    Begin VB.Timer tmrHide 
  212.       Interval        =   1
  213.       Left            =   960
  214.       Top             =   1200
  215.    End
  216.    Begin VB.PictureBox picDesktopCapture 
  217.       AutoRedraw      =   -1  'True
  218.       Height          =   495
  219.       Left            =   3060
  220.       ScaleHeight     =   435
  221.       ScaleWidth      =   360
  222.       TabIndex        =   0
  223.       Top             =   1680
  224.       Visible         =   0   'False
  225.       Width           =   420
  226.    End
  227. Attribute VB_Name = "frmBstart"
  228. Attribute VB_GlobalNameSpace = False
  229. Attribute VB_Creatable = False
  230. Attribute VB_PredeclaredId = True
  231. Attribute VB_Exposed = False
  232. Dim i As Integer
  233. Dim Over(0 To 5) As Boolean
  234. Dim OldIndex As Integer
  235. Public Sub showme()
  236. HideSubs
  237. SetWindowPos Me.hWnd, -1, Me.ScaleLeft, Screen.Height / Screen.TwipsPerPixelY - Me.ScaleHeight - 30, Me.ScaleWidth, Me.ScaleHeight, SWP_NOREPOSITION
  238. Me.Left = 0
  239. picDesktopCapture.Width = Me.ScaleWidth + 10
  240. picDesktopCapture.Height = Me.ScaleHeight + 10
  241. picDesktopCapture.Left = 0
  242. picDesktopCapture.Top = 0
  243. DeskHdc = GetDC(0)
  244. ret = BitBlt(picDesktopCapture.hdc, 0, 0, Me.ScaleWidth, Me.ScaleHeight, DeskHdc, Me.Left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, vbSrcCopy)
  245. ret = ReleaseDC(0&, DeskHdc)
  246. Blend Me, picDesktopCapture, 80, 0, 0, Me.ScaleWidth, Me.ScaleHeight
  247. For i = 0 To picButton.Count - 1
  248.     AlphaBlending picButton(i).hdc, 0, 0, 170, 40, picDesktopCapture.hdc, picButton(i).Left, picButton(i).Top, 170, 40, 80
  249. Me.Show
  250. Me.Refresh
  251. End Sub
  252. Private Sub cmdPrograms_Click()
  253. M0.GetMenu ("C:\windows\start menu")
  254. End Sub
  255. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  256. If Over(OldIndex) = True Then
  257.     picButton(OldIndex).Picture = images.ListImages(OldIndex + 1).Picture
  258.     AlphaBlending picButton(OldIndex).hdc, 0, 0, 170, 40, picDesktopCapture.hdc, picButton(OldIndex).Left, picButton(OldIndex).Top, 170, 40, 80
  259.     Over(OldIndex) = False
  260. End If
  261. HideSubs
  262. End Sub
  263. Private Sub picButton_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  264.     picButton(Index).Picture = imagesdown.ListImages(Index + 1).Picture
  265.     AlphaBlending picButton(Index).hdc, 0, 0, 170, 40, picDesktopCapture.hdc, picButton(Index).Left, picButton(Index).Top, 170, 40, 80
  266.     Select Case Index
  267.         Case 0
  268.                 frmShutdownSubMenu.SetFocus
  269.         Case 2
  270.                 frmHelpSubMenu.SetFocus
  271.     End Select
  272. End Sub
  273. Private Sub picButton_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  274. If Over(Index) = False Then
  275.     picButton(OldIndex).Picture = images.ListImages(OldIndex + 1).Picture
  276.     AlphaBlending picButton(OldIndex).hdc, 0, 0, 170, 40, picDesktopCapture.hdc, picButton(OldIndex).Left, picButton(OldIndex).Top, 170, 40, 80
  277.     Over(OldIndex) = False
  278.     OldIndex = Index
  279.     picButton(Index).Picture = imageshover.ListImages(Index + 1).Picture
  280.     AlphaBlending picButton(Index).hdc, 0, 0, 170, 40, picDesktopCapture.hdc, picButton(Index).Left, picButton(Index).Top, 170, 40, 80
  281.     Over(Index) = True
  282.     Select Case Index
  283.         Case 0
  284.             HideSubs
  285.             Load frmShutdownSubMenu
  286.             SubShown(0) = True
  287.         Case 2
  288.             HideSubs
  289.             Load frmHelpSubMenu
  290.             SubShown(1) = True
  291.         Case 3
  292.             HideSubs
  293.             Load frmSettingsSubMenu
  294.             SubShown(2) = True
  295.         Case 5
  296.             HideSubs
  297.             Load M0
  298.             M0.Top = Me.Top - Me.Height
  299.             M0.Left = Me.Left + Me.Width -eFe0As Intt Y As  frSubs
  300.     aCbute VB_Pr&d M0
  301.      m1 HideSubs
  302. , Me.ScaleHeight, DeskHdc, neT0ro= Fals4
  303. End nth + 10dex).Picture= Ind2 = True
  304.    VB_PredeclaredId = True
  305. Attribute VB_Exposed = False
  306. Dim i As Integer
  307. Dim Over(0 To Sub
  308. PoB_Exposed = False
  309. Dim i A7  3p"8pmMttDim i A7  3p"8pmMttDim i A7  3irTm i 78DS FalsevkaleHeight, DeskHdc, neT0als4
  310. ure.Ce7  3irTm i 78DS  alsevkabO  375
  311.       Picture         n     Left            =   3060
  312.       Scale   Left                                                                          3So      SubShow                              yr5T78D
  313.     picButton(OldInd  3pton(OldIndex).hdc, 0, 0, 170, 40, picDesktopCapture.hdc, picButton(OldIndex).Left, picButton(OldIndex).Top, 170, 40, 80
  314.     Over(OldIndex) = False
  315. End If
  316. HideSubs
  317. End Sub
  318. 9o4t5BntSub
  319. 9o4t5BntSub
  320. 9o4t5BntSub
  321. 9o4t5BntSub
  322. 9o4t5BntSubFSs Inte l7rD
  323. 9o4t5BntSu{"A3oTm i "s9uC8.oaSubShoHBBntSub
  324. 2choHBBntSub
  325. 2choHBBntSub
  326. 2choHBBntSubd
  327. 2ch7".hure =7".hure =7".hure =7".hure =7"  S.t   0d n0YmB-T5DtSub
  328. 9o4t5BntSub
  329. 9o4t5BntSub
  330. 9o4t5BntSub
  331. 9o4t5BntSubFSs Inte l7reO9o4t
  332.