home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / glassForm204092142007.psc / frmGlass.frm < prev    next >
Text File  |  2006-09-07  |  16KB  |  498 lines
  1. VERSION 5.00
  2. Begin VB.Form frmGlass 
  3.    Appearance      =   0  'Flat
  4.    AutoRedraw      =   -1  'True
  5.    BackColor       =   &H00FFFFFF&
  6.    BorderStyle     =   0  'None
  7.    ClientHeight    =   3780
  8.    ClientLeft      =   0
  9.    ClientTop       =   0
  10.    ClientWidth     =   4725
  11.    Icon            =   "frmGlass.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   3780
  15.    ScaleWidth      =   4725
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.TextBox Text1 
  18.       Height          =   2415
  19.       Left            =   120
  20.       MultiLine       =   -1  'True
  21.       ScrollBars      =   2  'Vertical
  22.       TabIndex        =   20
  23.       Text            =   "frmGlass.frx":038A
  24.       Top             =   960
  25.       Width           =   4335
  26.    End
  27.    Begin VB.TextBox txtcaption 
  28.       Height          =   285
  29.       Left            =   120
  30.       TabIndex        =   19
  31.       Text            =   "Glass Form"
  32.       Top             =   480
  33.       Width           =   1700
  34.    End
  35.    Begin VB.PictureBox picbotones 
  36.       Appearance      =   0  'Flat
  37.       AutoRedraw      =   -1  'True
  38.       BackColor       =   &H00FC00FC&
  39.       BorderStyle     =   0  'None
  40.       ForeColor       =   &H80000008&
  41.       Height          =   255
  42.       Left            =   1920
  43.       ScaleHeight     =   255
  44.       ScaleWidth      =   1500
  45.       TabIndex        =   3
  46.       Top             =   0
  47.       Width           =   1500
  48.       Begin VB.PictureBox Picsalf 
  49.          Appearance      =   0  'Flat
  50.          AutoRedraw      =   -1  'True
  51.          AutoSize        =   -1  'True
  52.          BackColor       =   &H00FC00FC&
  53.          BorderStyle     =   0  'None
  54.          ForeColor       =   &H80000008&
  55.          Height          =   255
  56.          Left            =   840
  57.          Picture         =   "frmGlass.frx":0390
  58.          ScaleHeight     =   255
  59.          ScaleWidth      =   630
  60.          TabIndex        =   18
  61.          Top             =   1080
  62.          Width           =   630
  63.       End
  64.       Begin VB.PictureBox picsaln 
  65.          Appearance      =   0  'Flat
  66.          AutoRedraw      =   -1  'True
  67.          AutoSize        =   -1  'True
  68.          BackColor       =   &H00FC00FC&
  69.          BorderStyle     =   0  'None
  70.          ForeColor       =   &H80000008&
  71.          Height          =   255
  72.          Left            =   840
  73.          Picture         =   "frmGlass.frx":0C52
  74.          ScaleHeight     =   255
  75.          ScaleWidth      =   630
  76.          TabIndex        =   17
  77.          Top             =   1440
  78.          Width           =   630
  79.       End
  80.       Begin VB.PictureBox Picsalfp 
  81.          Appearance      =   0  'Flat
  82.          AutoRedraw      =   -1  'True
  83.          AutoSize        =   -1  'True
  84.          BackColor       =   &H00FC00FC&
  85.          BorderStyle     =   0  'None
  86.          ForeColor       =   &H80000008&
  87.          Height          =   255
  88.          Left            =   840
  89.          Picture         =   "frmGlass.frx":11F1
  90.          ScaleHeight     =   255
  91.          ScaleWidth      =   630
  92.          TabIndex        =   16
  93.          Top             =   1800
  94.          Width           =   630
  95.       End
  96.       Begin VB.PictureBox Picsal 
  97.          Appearance      =   0  'Flat
  98.          AutoRedraw      =   -1  'True
  99.          AutoSize        =   -1  'True
  100.          BackColor       =   &H00FC00FC&
  101.          BorderStyle     =   0  'None
  102.          ForeColor       =   &H80000008&
  103.          Height          =   255
  104.          Left            =   870
  105.          Picture         =   "frmGlass.frx":1AB3
  106.          ScaleHeight     =   17
  107.          ScaleMode       =   3  'Pixel
  108.          ScaleWidth      =   42
  109.          TabIndex        =   15
  110.          Top             =   0
  111.          Width           =   630
  112.       End
  113.       Begin VB.PictureBox PICRESMAXP 
  114.          Appearance      =   0  'Flat
  115.          AutoRedraw      =   -1  'True
  116.          AutoSize        =   -1  'True
  117.          BackColor       =   &H00FC00FC&
  118.          BorderStyle     =   0  'None
  119.          ForeColor       =   &H80000008&
  120.          Height          =   255
  121.          Left            =   360
  122.          Picture         =   "frmGlass.frx":2052
  123.          ScaleHeight     =   255
  124.          ScaleWidth      =   495
  125.          TabIndex        =   14
  126.          Top             =   1440
  127.          Visible         =   0   'False
  128.          Width           =   495
  129.       End
  130.       Begin VB.PictureBox PICRESMAXF 
  131.          Appearance      =   0  'Flat
  132.          AutoRedraw      =   -1  'True
  133.          AutoSize        =   -1  'True
  134.          BackColor       =   &H00FC00FC&
  135.          BorderStyle     =   0  'None
  136.          ForeColor       =   &H80000008&
  137.          Height          =   255
  138.          Left            =   360
  139.          Picture         =   "frmGlass.frx":25AC
  140.          ScaleHeight     =   255
  141.          ScaleWidth      =   495
  142.          TabIndex        =   13
  143.          Top             =   1080
  144.          Visible         =   0   'False
  145.          Width           =   495
  146.       End
  147.       Begin VB.PictureBox picresmax 
  148.          Appearance      =   0  'Flat
  149.          AutoRedraw      =   -1  'True
  150.          AutoSize        =   -1  'True
  151.          BackColor       =   &H00FC00FC&
  152.          BorderStyle     =   0  'None
  153.          ForeColor       =   &H80000008&
  154.          Height          =   255
  155.          Left            =   360
  156.          Picture         =   "frmGlass.frx":2AF9
  157.          ScaleHeight     =   255
  158.          ScaleWidth      =   495
  159.          TabIndex        =   12
  160.          Top             =   840
  161.          Visible         =   0   'False
  162.          Width           =   495
  163.       End
  164.       Begin VB.PictureBox picresp 
  165.          Appearance      =   0  'Flat
  166.          AutoRedraw      =   -1  'True
  167.          AutoSize        =   -1  'True
  168.          BackColor       =   &H00FC00FC&
  169.          BorderStyle     =   0  'None
  170.          ForeColor       =   &H80000008&
  171.          Height          =   255
  172.          Left            =   360
  173.          Picture         =   "frmGlass.frx":2FB6
  174.          ScaleHeight     =   255
  175.          ScaleWidth      =   495
  176.          TabIndex        =   11
  177.          Top             =   480
  178.          Width           =   495
  179.       End
  180.       Begin VB.PictureBox picresf 
  181.          Appearance      =   0  'Flat
  182.          AutoRedraw      =   -1  'True
  183.          AutoSize        =   -1  'True
  184.          BackColor       =   &H00FC00FC&
  185.          BorderStyle     =   0  'None
  186.          ForeColor       =   &H80000008&
  187.          Height          =   255
  188.          Left            =   360
  189.          Picture         =   "frmGlass.frx":3513
  190.          ScaleHeight     =   255
  191.          ScaleWidth      =   495
  192.          TabIndex        =   10
  193.          Top             =   1800
  194.          Width           =   495
  195.       End
  196.       Begin VB.PictureBox picresn 
  197.          Appearance      =   0  'Flat
  198.          AutoRedraw      =   -1  'True
  199.          AutoSize        =   -1  'True
  200.          BackColor       =   &H00FC00FC&
  201.          BorderStyle     =   0  'None
  202.          ForeColor       =   &H80000008&
  203.          Height          =   255
  204.          Left            =   360
  205.          Picture         =   "frmGlass.frx":3A6C
  206.          ScaleHeight     =   255
  207.          ScaleWidth      =   495
  208.          TabIndex        =   9
  209.          Top             =   2040
  210.          Width           =   495
  211.       End
  212.       Begin VB.PictureBox Picres 
  213.          Appearance      =   0  'Flat
  214.          AutoRedraw      =   -1  'True
  215.          AutoSize        =   -1  'True
  216.          BackColor       =   &H00FC00FC&
  217.          BorderStyle     =   0  'None
  218.          ForeColor       =   &H80000008&
  219.          Height          =   255
  220.          Left            =   375
  221.          Picture         =   "frmGlass.frx":3F0A
  222.          ScaleHeight     =   255
  223.          ScaleWidth      =   495
  224.          TabIndex        =   8
  225.          Top             =   0
  226.          Width           =   495
  227.       End
  228.       Begin VB.PictureBox Picminf 
  229.          Appearance      =   0  'Flat
  230.          AutoRedraw      =   -1  'True
  231.          AutoSize        =   -1  'True
  232.          BackColor       =   &H00FC00FC&
  233.          BorderStyle     =   0  'None
  234.          ForeColor       =   &H80000008&
  235.          Height          =   255
  236.          Left            =   0
  237.          Picture         =   "frmGlass.frx":43A8
  238.          ScaleHeight     =   255
  239.          ScaleWidth      =   375
  240.          TabIndex        =   7
  241.          Top             =   960
  242.          Width           =   375
  243.       End
  244.       Begin VB.PictureBox Picminn 
  245.          Appearance      =   0  'Flat
  246.          AutoRedraw      =   -1  'True
  247.          AutoSize        =   -1  'True
  248.          BackColor       =   &H00FC00FC&
  249.          BorderStyle     =   0  'None
  250.          ForeColor       =   &H80000008&
  251.          Height          =   255
  252.          Left            =   0
  253.          Picture         =   "frmGlass.frx":48F6
  254.          ScaleHeight     =   255
  255.          ScaleWidth      =   375
  256.          TabIndex        =   6
  257.          Top             =   1320
  258.          Width           =   375
  259.       End
  260.       Begin VB.PictureBox Picminfp 
  261.          Appearance      =   0  'Flat
  262.          AutoRedraw      =   -1  'True
  263.          AutoSize        =   -1  'True
  264.          BackColor       =   &H00FC00FC&
  265.          BorderStyle     =   0  'None
  266.          ForeColor       =   &H80000008&
  267.          Height          =   255
  268.          Left            =   0
  269.          Picture         =   "frmGlass.frx":4E44
  270.          ScaleHeight     =   255
  271.          ScaleWidth      =   375
  272.          TabIndex        =   5
  273.          Top             =   1680
  274.          Width           =   375
  275.       End
  276.       Begin VB.PictureBox picmin 
  277.          Appearance      =   0  'Flat
  278.          AutoRedraw      =   -1  'True
  279.          AutoSize        =   -1  'True
  280.          BackColor       =   &H00FC00FC&
  281.          BorderStyle     =   0  'None
  282.          FillColor       =   &H00FC00FC&
  283.          ForeColor       =   &H80000008&
  284.          Height          =   255
  285.          Left            =   0
  286.          Picture         =   "frmGlass.frx":5392
  287.          ScaleHeight     =   255
  288.          ScaleWidth      =   375
  289.          TabIndex        =   4
  290.          Top             =   0
  291.          Width           =   375
  292.       End
  293.    End
  294.    Begin VB.PictureBox Pimage 
  295.       BackColor       =   &H00FC00FC&
  296.       BorderStyle     =   0  'None
  297.       Height          =   240
  298.       Left            =   120
  299.       Picture         =   "frmGlass.frx":58E0
  300.       ScaleHeight     =   240
  301.       ScaleWidth      =   240
  302.       TabIndex        =   1
  303.       Top             =   60
  304.       Width           =   240
  305.    End
  306.    Begin VB.Label Label2 
  307.       Appearance      =   0  'Flat
  308.       BorderStyle     =   1  'Fixed Single
  309.       ForeColor       =   &H80000008&
  310.       Height          =   3255
  311.       Left            =   0
  312.       TabIndex        =   2
  313.       Top             =   360
  314.       Width           =   4695
  315.    End
  316.    Begin VB.Label Label1 
  317.       AutoSize        =   -1  'True
  318.       BackStyle       =   0  'Transparent
  319.       Caption         =   "etiqueta"
  320.       BeginProperty Font 
  321.          Name            =   "MS Sans Serif"
  322.          Size            =   9.75
  323.          Charset         =   0
  324.          Weight          =   700
  325.          Underline       =   0   'False
  326.          Italic          =   0   'False
  327.          Strikethrough   =   0   'False
  328.       EndProperty
  329.       Height          =   240
  330.       Left            =   480
  331.       TabIndex        =   0
  332.       Top             =   50
  333.       Width           =   855
  334.    End
  335. End
  336. Attribute VB_Name = "frmGlass"
  337. Attribute VB_GlobalNameSpace = False
  338. Attribute VB_Creatable = False
  339. Attribute VB_PredeclaredId = True
  340. Attribute VB_Exposed = False
  341. Option Explicit
  342. Private Sub Form_Activate()
  343. If frmGlass.WindowState <> 1 Then
  344. frmGlass.Caption = ""
  345. frmBlank.Visible = True
  346. End If
  347. frmGlass.SetFocus
  348. End Sub
  349.  
  350. Private Sub Form_Initialize()
  351. InitCommonControls
  352. End Sub
  353.  
  354. Private Sub Form_Load()
  355. Label1.Caption = txtcaption.Text
  356. glass
  357. If Me.Tag = "maximizado" Then
  358. picmin.Picture = Picminn.Picture
  359. Picsal.Picture = picsaln.Picture
  360. Picres.Picture = picresmax.Picture
  361. Else
  362. picmin.Picture = Picminn.Picture
  363. Picsal.Picture = picsaln.Picture
  364. Picres.Picture = picresn.Picture
  365. End If
  366. End Sub
  367.  
  368. Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  369. Call frmBlank.pcaption_MouseDown(Button, Shift, x, y)
  370. End Sub
  371.  
  372. Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  373. Call frmBlank.pcaption_MouseMove(Button, Shift, x, y)
  374. End Sub
  375.  
  376. Private Sub picmin_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  377. picmin.Picture = Picminfp.Picture
  378. End Sub
  379.  
  380. Private Sub picmin_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  381. If Me.Tag = "maximizado" Then
  382. picmin.Picture = Picminf.Picture
  383. Picsal.Picture = picsaln.Picture
  384. Picres.Picture = picresmax.Picture
  385. Else
  386. picmin.Picture = Picminf.Picture
  387. Picsal.Picture = picsaln.Picture
  388. Picres.Picture = picresn.Picture
  389. End If
  390. End Sub
  391. Private Sub picmin_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  392. picmin.Picture = Picminn.Picture
  393. frmBlank.Visible = False
  394. frmGlass.WindowState = 1
  395. frmGlass.Caption = Me.txtcaption
  396. End Sub
  397.  
  398. Private Sub Picres_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  399. Picres.Picture = picresp.Picture
  400. End Sub
  401.  
  402. Private Sub Picres_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  403. If Me.Tag = "maximizado" Then
  404. picmin.Picture = Picminn.Picture
  405. Picsal.Picture = picsaln.Picture
  406. Picres.Picture = PICRESMAXF.Picture
  407. Else
  408. picmin.Picture = Picminn.Picture
  409. Picsal.Picture = picsaln.Picture
  410. Picres.Picture = picresf.Picture
  411. End If
  412. End Sub
  413.  
  414. Private Sub Picres_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  415. If Me.Tag <> "maximizado" Then
  416. frmBlank.WindowState = 2
  417. Me.Tag = "maximizado"
  418. Picres.Picture = picresmax.Picture
  419. Else
  420. Me.Tag = "normal"
  421. Picres.Picture = picresn.Picture
  422. frmBlank.WindowState = 0
  423. End If
  424.  
  425. End Sub
  426.  
  427.  
  428. Private Sub Picsal_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  429. Picsal.Picture = Picsalfp.Picture
  430.  
  431. End Sub
  432.  
  433. Private Sub Picsal_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  434.  
  435. If Me.Tag = "maximizado" Then
  436. Picsal.Picture = Picsalf.Picture
  437. picmin.Picture = Picminn.Picture
  438. Picres.Picture = picresmax.Picture
  439. Else
  440. Picsal.Picture = Picsalf.Picture
  441. picmin.Picture = Picminn.Picture
  442. Picres.Picture = picresn.Picture
  443. End If
  444.  
  445. End Sub
  446.  
  447. Private Sub Picsal_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  448. Picsal.Picture = picsaln.Picture
  449. End
  450. End Sub
  451. Sub glass()
  452. SetWindowLong Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
  453. Me.BackColor = &HFC00FC
  454. Pimage.BackColor = Me.BackColor
  455. SetTrans Me, , Me.BackColor
  456. SetTrans frmBlank, 100
  457. Me.Show
  458. frmBlank.Show
  459. Me.Move frmBlank.Left + 150, frmBlank.Top, frmBlank.Width - 200, frmBlank.Height - 100
  460. Me.SetFocus
  461. End Sub
  462. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  463. Me.SetFocus
  464. End Sub
  465. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  466. Me.SetFocus
  467. End Sub
  468. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  469. Me.SetFocus
  470. End Sub
  471. Private Sub Form_Resize()
  472. If frmGlass.WindowState <> 1 Then
  473. frmBlank.Visible = True
  474. Me.Move frmBlank.Left + 150, frmBlank.Top, frmBlank.Width - 200, frmBlank.Height - 100
  475. picbotones.Left = frmBlank.Width - picbotones.Width - 250
  476. Me.SetFocus
  477. Else
  478. frmBlank.Visible = False
  479. End If
  480. End Sub
  481.  
  482. Private Sub Form_Unload(Cancel As Integer)
  483. Unload frmBlank
  484. Set frmBlank = Nothing
  485. End Sub
  486.  
  487. Private Sub Pimage_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  488. Call frmBlank.pcaption_MouseDown(Button, Shift, x, y)
  489. End Sub
  490.  
  491. Private Sub Pimage_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  492. Call frmBlank.pcaption_MouseMove(Button, Shift, x, y)
  493. End Sub
  494.  
  495. Private Sub txtcaption_Change()
  496. Label1.Caption = txtcaption.Text
  497. End Sub
  498.