source: DRBLLiveHelper/ReadyDialog.frm @ 250

Last change on this file since 250 was 13, checked in by sunny, 17 years ago
File size: 2.3 KB
Line 
1VERSION 5.00
2Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
3Begin VB.Form ReadyDialog
4   BackColor       =   &H00FFFFFF&
5   BorderStyle     =   3  'Âù½u©T©w¹ï¸Ü¤è¶ô
6   Caption         =   "DRBL Helper"
7   ClientHeight    =   1080
8   ClientLeft      =   5235
9   ClientTop       =   5325
10   ClientWidth     =   5175
11   Icon            =   "ReadyDialog.frx":0000
12   LinkTopic       =   "Form1"
13   MaxButton       =   0   'False
14   MinButton       =   0   'False
15   ScaleHeight     =   1080
16   ScaleWidth      =   5175
17   ShowInTaskbar   =   0   'False
18   Begin MSForms.CommandButton btnOK
19      Height          =   375
20      Left            =   1320
21      TabIndex        =   1
22      Top             =   720
23      Width           =   1215
24      Caption         =   "Close"
25      Size            =   "2143;661"
26      FontName        =   "·s²Ó©úÅé"
27      FontHeight      =   180
28      FontCharSet     =   136
29      FontPitchAndFamily=   34
30      ParagraphAlign  =   3
31   End
32   Begin MSForms.Label lblMsg
33      Height          =   375
34      Left            =   1200
35      TabIndex        =   0
36      Top             =   240
37      Width           =   3975
38      ForeColor       =   12632256
39      BackColor       =   12648447
40      Caption         =   "Installed Successfully !!"
41      Size            =   "7011;661"
42      FontName        =   "·s²Ó©úÅé"
43      FontHeight      =   180
44      FontCharSet     =   136
45      FontPitchAndFamily=   34
46   End
47   Begin VB.Image Image1
48      Height          =   1095
49      Left            =   0
50      Picture         =   "ReadyDialog.frx":0CCA
51      Stretch         =   -1  'True
52      Top             =   0
53      Width           =   1215
54   End
55End
56Attribute VB_Name = "ReadyDialog"
57Attribute VB_GlobalNameSpace = False
58Attribute VB_Creatable = False
59Attribute VB_PredeclaredId = True
60Attribute VB_Exposed = False
61
62Option Explicit
63
64Private Sub btnOK_Click()
65  Unload Me
66End Sub
67
68Private Sub Form_Load()
69   SetLocale
70End Sub
71
72Public Sub SetLocale()
73    'Internalization
74    If (LoadLocalizedResources) Then
75       ' Pull a string resource out of a local resource
76       ' object for demonstration purposes.
77       'Me.Caption = GetString()
78       btnOK.Caption = GetString(14)
79       'lblMsg.Caption = GetString(13)
80       
81    End If
82    '
83End Sub
Note: See TracBrowser for help on using the repository browser.