| Line | |
|---|
| 1 | VERSION 5.00
|
|---|
| 2 | Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
|
|---|
| 3 | Begin 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
|
|---|
| 55 | End
|
|---|
| 56 | Attribute VB_Name = "ReadyDialog"
|
|---|
| 57 | Attribute VB_GlobalNameSpace = False
|
|---|
| 58 | Attribute VB_Creatable = False
|
|---|
| 59 | Attribute VB_PredeclaredId = True
|
|---|
| 60 | Attribute VB_Exposed = False
|
|---|
| 61 |
|
|---|
| 62 | Option Explicit
|
|---|
| 63 |
|
|---|
| 64 | Private Sub btnOK_Click()
|
|---|
| 65 | Unload Me
|
|---|
| 66 | End Sub
|
|---|
| 67 |
|
|---|
| 68 | Private Sub Form_Load()
|
|---|
| 69 | SetLocale
|
|---|
| 70 | End Sub
|
|---|
| 71 |
|
|---|
| 72 | Public 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 | '
|
|---|
| 83 | End Sub
|
|---|
Note: See
TracBrowser
for help on using the repository browser.
