| Line | |
|---|
| 1 | VERSION 5.00
|
|---|
| 2 | Begin VB.Form FormatDialog
|
|---|
| 3 | BackColor = &H00FFFFFF&
|
|---|
| 4 | BorderStyle = 3 'Âù½u©T©w¹ï¸Ü¤è¶ô
|
|---|
| 5 | Caption = "DRBLLiveHelper - Disk Formatting Confirm Window"
|
|---|
| 6 | ClientHeight = 1590
|
|---|
| 7 | ClientLeft = 4275
|
|---|
| 8 | ClientTop = 5130
|
|---|
| 9 | ClientWidth = 7290
|
|---|
| 10 | Icon = "FormatDialog.frx":0000
|
|---|
| 11 | LinkTopic = "Form1"
|
|---|
| 12 | MaxButton = 0 'False
|
|---|
| 13 | MinButton = 0 'False
|
|---|
| 14 | ScaleHeight = 1590
|
|---|
| 15 | ScaleWidth = 7290
|
|---|
| 16 | ShowInTaskbar = 0 'False
|
|---|
| 17 | Begin VB.CommandButton btnClose
|
|---|
| 18 | Caption = "Close"
|
|---|
| 19 | Height = 375
|
|---|
| 20 | Left = 0
|
|---|
| 21 | TabIndex = 0
|
|---|
| 22 | Top = 1200
|
|---|
| 23 | Width = 1215
|
|---|
| 24 | End
|
|---|
| 25 | Begin VB.Label lbl
|
|---|
| 26 | BackStyle = 0 '³z©ú
|
|---|
| 27 | ForeColor = &H00FF0000&
|
|---|
| 28 | Height = 495
|
|---|
| 29 | Left = 1440
|
|---|
| 30 | TabIndex = 2
|
|---|
| 31 | Top = 600
|
|---|
| 32 | Width = 5655
|
|---|
| 33 | End
|
|---|
| 34 | Begin VB.Label lblMsg
|
|---|
| 35 | BackColor = &H00C0FFFF&
|
|---|
| 36 | ForeColor = &H00808080&
|
|---|
| 37 | Height = 1575
|
|---|
| 38 | Left = 1200
|
|---|
| 39 | TabIndex = 1
|
|---|
| 40 | Top = 0
|
|---|
| 41 | Width = 7695
|
|---|
| 42 | End
|
|---|
| 43 | Begin VB.Image Image1
|
|---|
| 44 | Height = 1200
|
|---|
| 45 | Left = 0
|
|---|
| 46 | Picture = "FormatDialog.frx":0CCA
|
|---|
| 47 | Stretch = -1 'True
|
|---|
| 48 | Top = 0
|
|---|
| 49 | Width = 1200
|
|---|
| 50 | End
|
|---|
| 51 | End
|
|---|
| 52 | Attribute VB_Name = "FormatDialog"
|
|---|
| 53 | Attribute VB_GlobalNameSpace = False
|
|---|
| 54 | Attribute VB_Creatable = False
|
|---|
| 55 | Attribute VB_PredeclaredId = True
|
|---|
| 56 | Attribute VB_Exposed = False
|
|---|
| 57 | Option Explicit
|
|---|
| 58 |
|
|---|
| 59 | Private Sub btnClose_Click()
|
|---|
| 60 | Unload Me
|
|---|
| 61 | End Sub
|
|---|
| 62 |
|
|---|
| 63 | Private Sub Form_Load()
|
|---|
| 64 | lbl.Caption = "You will loose your Data on account of the unnecessary step of disk formatting. " & Chr(10) + Chr(13) & _
|
|---|
| 65 | "Please confirm again you want to format your USB disk drive before installing."
|
|---|
| 66 | 'Internalization
|
|---|
| 67 | If (LoadLocalizedResources) Then
|
|---|
| 68 | ' Pull a string resource out of a local resource
|
|---|
| 69 | ' object for demonstration purposes.
|
|---|
| 70 | lbl.Caption = GetString(107)
|
|---|
| 71 | Me.Caption = GetString(108)
|
|---|
| 72 | btnClose.Caption = GetString(109)
|
|---|
| 73 | End If
|
|---|
| 74 | '
|
|---|
| 75 | End Sub
|
|---|
| 76 |
|
|---|
| 77 | Private Sub Form_Unload(Cancel As Integer)
|
|---|
| 78 | Unload Me
|
|---|
| 79 | End Sub
|
|---|
| 80 |
|
|---|
Note: See
TracBrowser
for help on using the repository browser.
