| Rev | Line | |
|---|
| [13] | 1 | VERSION 5.00
|
|---|
| 2 | Begin VB.Form InstallFM20
|
|---|
| 3 | BackColor = &H00FFFFFF&
|
|---|
| 4 | Caption = "DRBL Helper"
|
|---|
| 5 | ClientHeight = 1545
|
|---|
| 6 | ClientLeft = 2850
|
|---|
| 7 | ClientTop = 5505
|
|---|
| 8 | ClientWidth = 11145
|
|---|
| 9 | Icon = "InstallFM20.frx":0000
|
|---|
| 10 | LinkTopic = "Form1"
|
|---|
| 11 | ScaleHeight = 1545
|
|---|
| 12 | ScaleWidth = 11145
|
|---|
| 13 | Begin VB.CommandButton btnOK
|
|---|
| 14 | Caption = "Close"
|
|---|
| 15 | Height = 375
|
|---|
| 16 | Left = 0
|
|---|
| 17 | TabIndex = 3
|
|---|
| 18 | Top = 1200
|
|---|
| 19 | Width = 1335
|
|---|
| 20 | End
|
|---|
| 21 | Begin VB.Image Image1
|
|---|
| 22 | Height = 1215
|
|---|
| 23 | Left = 0
|
|---|
| 24 | Picture = "InstallFM20.frx":0CCA
|
|---|
| 25 | Stretch = -1 'True
|
|---|
| 26 | Top = 0
|
|---|
| 27 | Width = 1215
|
|---|
| 28 | End
|
|---|
| 29 | Begin VB.Label lbl1
|
|---|
| 30 | BackStyle = 0 '³z©ú
|
|---|
| 31 | Caption = "No multilanguage componets installed. Please download ""Microsoft Office Forms 2.0 Object Library"" "
|
|---|
| 32 | ForeColor = &H000000FF&
|
|---|
| 33 | Height = 255
|
|---|
| 34 | Left = 1680
|
|---|
| 35 | TabIndex = 2
|
|---|
| 36 | Top = 360
|
|---|
| 37 | Width = 7335
|
|---|
| 38 | End
|
|---|
| 39 | Begin VB.Label lblFM20URL
|
|---|
| 40 | BackStyle = 0 '³z©ú
|
|---|
| 41 | Caption = "http://download.microsoft.com/download/activexcontrolpad/install/4.0.0.950/win98mexp/en-us/setuppad.exe"
|
|---|
| 42 | BeginProperty Font
|
|---|
| 43 | Name = "Arial"
|
|---|
| 44 | Size = 9
|
|---|
| 45 | Charset = 0
|
|---|
| 46 | Weight = 400
|
|---|
| 47 | Underline = -1 'True
|
|---|
| 48 | Italic = 0 'False
|
|---|
| 49 | Strikethrough = 0 'False
|
|---|
| 50 | EndProperty
|
|---|
| 51 | ForeColor = &H00FF0000&
|
|---|
| 52 | Height = 375
|
|---|
| 53 | Left = 1680
|
|---|
| 54 | TabIndex = 1
|
|---|
| 55 | Top = 720
|
|---|
| 56 | Width = 8895
|
|---|
| 57 | End
|
|---|
| 58 | Begin VB.Label lblMsg
|
|---|
| 59 | BackColor = &H00C0FFFF&
|
|---|
| 60 | Height = 1815
|
|---|
| 61 | Left = 1320
|
|---|
| 62 | TabIndex = 0
|
|---|
| 63 | Top = 0
|
|---|
| 64 | Width = 9855
|
|---|
| 65 | End
|
|---|
| 66 | End
|
|---|
| 67 | Attribute VB_Name = "InstallFM20"
|
|---|
| 68 | Attribute VB_GlobalNameSpace = False
|
|---|
| 69 | Attribute VB_Creatable = False
|
|---|
| 70 | Attribute VB_PredeclaredId = True
|
|---|
| 71 | Attribute VB_Exposed = False
|
|---|
| 72 |
|
|---|
| 73 |
|
|---|
| 74 | Private Sub btnOK_Click()
|
|---|
| 75 |
|
|---|
| 76 | Unload Me
|
|---|
| 77 |
|
|---|
| 78 | End Sub
|
|---|
| 79 |
|
|---|
| 80 | Private Sub lblFM20URL_Click()
|
|---|
| 81 | ShellExecute hwnd, "Open", lblFM20URL.Caption, "", App.path, 1
|
|---|
| 82 | End Sub
|
|---|
Note: See
TracBrowser
for help on using the repository browser.
