home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD91038182000.psc / Mbox.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-08-19  |  10.1 KB  |  272 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form MBox 
  4.    AutoRedraw      =   -1  'True
  5.    BackColor       =   &H00A0C0C0&
  6.    BorderStyle     =   0  'None
  7.    Caption         =   "Form1"
  8.    ClientHeight    =   2190
  9.    ClientLeft      =   0
  10.    ClientTop       =   0
  11.    ClientWidth     =   4605
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   146
  14.    ScaleMode       =   3  'Pixel
  15.    ScaleWidth      =   307
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.PictureBox But1 
  19.       AutoRedraw      =   -1  'True
  20.       BorderStyle     =   0  'None
  21.       Height          =   270
  22.       Index           =   2
  23.       Left            =   2565
  24.       ScaleHeight     =   18
  25.       ScaleMode       =   3  'Pixel
  26.       ScaleWidth      =   76
  27.       TabIndex        =   7
  28.       Top             =   1755
  29.       Width           =   1140
  30.       Begin VB.Label Label1 
  31.          Alignment       =   2  'Center
  32.          BackColor       =   &H8000000C&
  33.          BackStyle       =   0  'Transparent
  34.          Caption         =   "No way !"
  35.          BeginProperty Font 
  36.             Name            =   "MS Sans Serif"
  37.             Size            =   8.25
  38.             Charset         =   0
  39.             Weight          =   700
  40.             Underline       =   0   'False
  41.             Italic          =   0   'False
  42.             Strikethrough   =   0   'False
  43.          EndProperty
  44.          ForeColor       =   &H00800000&
  45.          Height          =   285
  46.          Index           =   2
  47.          Left            =   0
  48.          TabIndex        =   8
  49.          Top             =   0
  50.          Width           =   1140
  51.       End
  52.    End
  53.    Begin VB.PictureBox But1 
  54.       AutoRedraw      =   -1  'True
  55.       BorderStyle     =   0  'None
  56.       Height          =   270
  57.       Index           =   1
  58.       Left            =   1350
  59.       ScaleHeight     =   18
  60.       ScaleMode       =   3  'Pixel
  61.       ScaleWidth      =   76
  62.       TabIndex        =   5
  63.       Top             =   1755
  64.       Width           =   1140
  65.       Begin VB.Label Label1 
  66.          Alignment       =   2  'Center
  67.          BackColor       =   &H8000000C&
  68.          BackStyle       =   0  'Transparent
  69.          Caption         =   "No way !"
  70.          BeginProperty Font 
  71.             Name            =   "MS Sans Serif"
  72.             Size            =   8.25
  73.             Charset         =   0
  74.             Weight          =   700
  75.             Underline       =   0   'False
  76.             Italic          =   0   'False
  77.             Strikethrough   =   0   'False
  78.          EndProperty
  79.          ForeColor       =   &H00800000&
  80.          Height          =   285
  81.          Index           =   1
  82.          Left            =   0
  83.          TabIndex        =   6
  84.          Top             =   0
  85.          Width           =   1140
  86.       End
  87.    End
  88.    Begin VB.PictureBox But1 
  89.       AutoRedraw      =   -1  'True
  90.       BorderStyle     =   0  'None
  91.       Height          =   270
  92.       Index           =   0
  93.       Left            =   135
  94.       ScaleHeight     =   18
  95.       ScaleMode       =   3  'Pixel
  96.       ScaleWidth      =   76
  97.       TabIndex        =   3
  98.       Top             =   1755
  99.       Width           =   1140
  100.       Begin VB.Label Label1 
  101.          Alignment       =   2  'Center
  102.          BackColor       =   &H8000000C&
  103.          BackStyle       =   0  'Transparent
  104.          Caption         =   "No way !"
  105.          BeginProperty Font 
  106.             Name            =   "MS Sans Serif"
  107.             Size            =   8.25
  108.             Charset         =   0
  109.             Weight          =   700
  110.             Underline       =   0   'False
  111.             Italic          =   0   'False
  112.             Strikethrough   =   0   'False
  113.          EndProperty
  114.          ForeColor       =   &H00800000&
  115.          Height          =   285
  116.          Index           =   0
  117.          Left            =   0
  118.          TabIndex        =   4
  119.          Top             =   0
  120.          Width           =   1140
  121.       End
  122.    End
  123.    Begin VB.PictureBox Pic1 
  124.       AutoRedraw      =   -1  'True
  125.       BackColor       =   &H00008080&
  126.       BorderStyle     =   0  'None
  127.       Height          =   270
  128.       Left            =   45
  129.       ScaleHeight     =   18
  130.       ScaleMode       =   3  'Pixel
  131.       ScaleWidth      =   304
  132.       TabIndex        =   0
  133.       Top             =   45
  134.       Width           =   4560
  135.       Begin VB.Label Label3 
  136.          Alignment       =   2  'Center
  137.          BackStyle       =   0  'Transparent
  138.          Caption         =   "Label3"
  139.          BeginProperty Font 
  140.             Name            =   "MS Sans Serif"
  141.             Size            =   8.25
  142.             Charset         =   0
  143.             Weight          =   700
  144.             Underline       =   0   'False
  145.             Italic          =   0   'False
  146.             Strikethrough   =   0   'False
  147.          EndProperty
  148.          ForeColor       =   &H00C0F0C0&
  149.          Height          =   195
  150.          Left            =   45
  151.          TabIndex        =   2
  152.          Top             =   30
  153.          Width           =   4470
  154.       End
  155.    End
  156.    Begin MSComctlLib.ImageList ImageList1 
  157.       Left            =   45
  158.       Top             =   1035
  159.       _ExtentX        =   1005
  160.       _ExtentY        =   1005
  161.       BackColor       =   -2147483643
  162.       ImageWidth      =   32
  163.       ImageHeight     =   32
  164.       MaskColor       =   12632256
  165.       _Version        =   393216
  166.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  167.          NumListImages   =   9
  168.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  169.             Picture         =   "Mbox.frx":0000
  170.             Key             =   ""
  171.          EndProperty
  172.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  173.             Picture         =   "Mbox.frx":0E54
  174.             Key             =   ""
  175.          EndProperty
  176.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  177.             Picture         =   "Mbox.frx":1CA8
  178.             Key             =   ""
  179.          EndProperty
  180.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  181.             Picture         =   "Mbox.frx":2AFC
  182.             Key             =   ""
  183.          EndProperty
  184.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  185.             Picture         =   "Mbox.frx":3950
  186.             Key             =   ""
  187.          EndProperty
  188.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  189.             Picture         =   "Mbox.frx":565C
  190.             Key             =   ""
  191.          EndProperty
  192.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  193.             Picture         =   "Mbox.frx":64B0
  194.             Key             =   ""
  195.          EndProperty
  196.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  197.             Picture         =   "Mbox.frx":7084
  198.             Key             =   ""
  199.          EndProperty
  200.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  201.             Picture         =   "Mbox.frx":7960
  202.             Key             =   ""
  203.          EndProperty
  204.       EndProperty
  205.    End
  206.    Begin VB.Image Image1 
  207.       Height          =   480
  208.       Left            =   3960
  209.       Top             =   810
  210.       Width           =   480
  211.    End
  212.    Begin VB.Label Label2 
  213.       AutoSize        =   -1  'True
  214.       BackColor       =   &H00E0E0E0&
  215.       BackStyle       =   0  'Transparent
  216.       Caption         =   "Label2"
  217.       BeginProperty Font 
  218.          Name            =   "MS Sans Serif"
  219.          Size            =   8.25
  220.          Charset         =   0
  221.          Weight          =   700
  222.          Underline       =   0   'False
  223.          Italic          =   0   'False
  224.          Strikethrough   =   0   'False
  225.       EndProperty
  226.       ForeColor       =   &H00800000&
  227.       Height          =   195
  228.       Left            =   135
  229.       TabIndex        =   1
  230.       Top             =   405
  231.       Width           =   3735
  232.       WordWrap        =   -1  'True
  233.    End
  234. Attribute VB_Name = "MBox"
  235. Attribute VB_GlobalNameSpace = False
  236. Attribute VB_Creatable = False
  237. Attribute VB_PredeclaredId = True
  238. Attribute VB_Exposed = False
  239. Dim Bord1&, Bord2&
  240. Private Sub But1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  241. But1(Index).Line (0, 0)-(But1(Index).Width - 1, But1(Index).Height - 1), Bord2, B
  242. But1(Index).Line (0, But1(Index).Height - 1)-(But1(Index).Width, But1(Index).Height - 1), Bord1
  243. But1(Index).Line (But1(Index).Width - 1, 0)-(But1(Index).Width - 1, But1(Index).Height - 1), Bord1
  244. But1(Index).Move (But1(Index).Left + 1), 118
  245. End Sub
  246. Private Sub But1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  247. But1(Index).Line (0, 0)-(But1(Index).Width - 1, But1(Index).Height - 1), Bord1, B
  248. But1(Index).Line (0, But1(Index).Height - 1)-(But1(Index).Width, But1(Index).Height - 1), Bord2
  249. But1(Index).Line (But1(Index).Width - 1, 0)-(But1(Index).Width - 1, But1(Index).Height - 1), Bord2
  250. But1(Index).Move (But1(Index).Left - 1), 117
  251. mbReturn = Index
  252. MBox.Hide
  253. End Sub
  254. Private Sub Form_Activate()
  255. Bord1 = But1(0).Point(0, 0)
  256. Bord2 = But1(0).Point(But1(0).Width - 1, But1(0).Height - 1)
  257. End Sub
  258. Private Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  259. But1(Index).Line (0, 0)-(But1(Index).Width - 1, But1(Index).Height - 1), Bord2, B
  260. But1(Index).Line (0, But1(Index).Height - 1)-(But1(Index).Width, But1(Index).Height - 1), Bord1
  261. But1(Index).Line (But1(Index).Width - 1, 0)-(But1(Index).Width - 1, But1(Index).Height - 1), Bord1
  262. But1(Index).Move (But1(Index).Left + 1), 118
  263. End Sub
  264. Private Sub Label1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  265. But1(Index).Line (0, 0)-(But1(Index).Width - 1, But1(Index).Height - 1), Bord1, B
  266. But1(Index).Line (0, But1(Index).Height - 1)-(But1(Index).Width, But1(Index).Height - 1), Bord2
  267. But1(Index).Line (But1(Index).Width - 1, 0)-(But1(Index).Width - 1, But1(Index).Height - 1), Bord2
  268. But1(Index).Move (But1(Index).Left - 1), 117
  269. mbReturn = Index
  270. MBox.Hide
  271. End Sub
  272.