home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
bp_6_93
/
vbwin
/
regdb
/
main.frm
< prev
next >
Wrap
Text File
|
1993-01-05
|
3KB
|
109 lines
VERSION 2.00
Begin Form Form1
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Starter"
ClientHeight = 5355
ClientLeft = 1740
ClientTop = 1860
ClientWidth = 1740
Height = 5760
Left = 1680
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5355
ScaleWidth = 1740
Top = 1515
Width = 1860
Begin TextBox ddesystem
Height = 285
Left = 60
TabIndex = 3
Top = 4800
Visible = 0 'False
Width = 1605
End
Begin FileListBox File1
Height = 2565
Left = 60
TabIndex = 2
Tag = "3"
Top = 2160
Width = 1600
End
Begin DirListBox Dir1
Height = 1605
Left = 60
TabIndex = 1
Tag = "3"
Top = 480
Width = 1600
End
Begin DriveListBox Drive1
Height = 315
Left = 60
TabIndex = 0
Tag = "3"
Top = 90
Width = 1600
End
End
Option Explicit
Dim merk_drv%
Sub Dir1_Change ()
On Error Resume Next
file1.Path = dir1.Path
End Sub
Sub Drive1_Change ()
On Error Resume Next
retry:
dir1.Path = drive1.Drive
Select Case Err
Case 68
Select Case MsgBox("Laufwerk nicht bereit.", MB_RETRYCANCEL + MB_ICONSTOP)
Case IDCANCEL
' Ruft die Funktion erneut auf!
drive1.Drive = Chr$(merk_drv + Asc("A") - 1) & ":"
Case IDRETRY
' Nocheinmal versuchen.
GoTo retry
End Select
Case 0
' Alles klar. Neues Laufwerk merken
merk_drv = Asc(UCase$(drive1)) - Asc("A") + 1
Case Else
MsgBox Error$(Err)
End Select
End Sub
Sub File1_DblClick ()
' Fⁿr eventuelles DDE wird eine Textbox als Control ⁿbergeben
If Exec(ddesystem, addbslash(file1.Path) & file1) = False Then
MsgBox "'" & file1 & "' konnte nicht ausgefⁿhrt werden."
End If
End Sub
Sub File1_KeyPress (keyascii As Integer)
If keyascii = 13 Then
' Fⁿr eventuelles DDE wird eine Textbox als Control ⁿbergeben
If Exec(ddesystem, addbslash(file1.Path) & file1) = False Then
MsgBox "'" & file1 & "' konnte nicht ausgefⁿhrt werden."
End If
End If
End Sub
Sub Form_Load ()
Move 0, 0, Width, screen.Height
file1.Height = scaleheight - file1.Top - drive1.Top
' Die aktuelle Einstellung wird fⁿr Drive1_change
' gespeichert.
merk_drv = Asc(UCase$(drive1)) - Asc("A") + 1
End Sub
Sub Form_Paint ()
threed Me
End Sub