|
||||
![]() |
||||
![]() ![]() ![]() ![]() ![]() ![]() ![]() |
vbAccelerator - Contents of code file: SampleKioskApp_frmKioskApp.frmThis file is part of the download VB5 New Desktop Sample, which is described in the article Creating New Desktops and Running Applications. VERSION 5.00 Begin VB.Form frmKioskApp BackColor = &H00FFFFFF& BorderStyle = 0 'None ClientHeight = 8220 ClientLeft = 4050 ClientTop = 4530 ClientWidth = 6585 ControlBox = 0 'False BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Icon = "frmKioskApp.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 8220 ScaleWidth = 6585 ShowInTaskbar = 0 'False WindowState = 2 'Maximized Begin VB.Label lblInfo Alignment = 2 'Center BackStyle = 0 'Transparent BeginProperty Font Name = "Tahoma" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1455 Index = 2 Left = 480 TabIndex = 2 Top = 3660 Width = 5595 End Begin VB.Label lblInfo Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Click anywhere on this form to exit." BeginProperty Font Name = "Tahoma" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1455 Index = 1 Left = 420 TabIndex = 1 Top = 1440 Width = 5595 End Begin VB.Label lblInfo Alignment = 2 'Center BackColor = &H8000000D& Caption = "Sample Kiosk Application" BeginProperty Font Name = "Tahoma" Size = 27.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 795 Index = 0 Left = 360 TabIndex = 0 Top = 360 Width = 5655 End End Attribute VB_Name = "frmKioskApp" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Form_Click() ' Unload Me ' End Sub Private Sub Form_Load() lblInfo(2).Caption = "Desktop:" & GetDesktopName() End Sub Private Sub Form_Resize() ' Dim i As Long For i = lblInfo.LBound To lblInfo.UBound lblInfo(i).Move lblInfo(0).Left, lblInfo(i).Top, Me.ScaleWidth - lblInfo(0).Left * 2 Next i ' End Sub Private Sub lblInfo_Click(Index As Integer) Unload Me End Sub
|
|||
![]() |
|