home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1996 November
/
VPR9611A.ISO
/
vpr_data
/
vb32
/
vb4wm
/
vb4-3.cab
/
picview.frm
< prev
next >
Wrap
Text File
|
1996-01-12
|
3KB
|
135 lines
VERSION 4.00
Begin VB.Form Form1
Caption = "画像表示"
ClientHeight = 4830
ClientLeft = 1065
ClientTop = 1695
ClientWidth = 7395
ClipControls = 0 'False
Height = 5235
Left = 1005
LinkTopic = "Form1"
ScaleHeight = 4830
ScaleWidth = 7395
Top = 1350
Width = 7515
BeginProperty Font
name = "標準ゴシック"
size = 9
bold = 0
EndProperty
Begin VB.CommandButton Command1
Caption = "終了(&X)"
Height = 495
Left = 5520
TabIndex = 4
Top = 4080
Width = 1215
BeginProperty Font
name = "標準ゴシック"
size = 9
bold = 0
EndProperty
End
Begin VB.FileListBox File1
Height = 1320
Left = 600
Pattern = "*.bmp;*.wmf;*.ico"
TabIndex = 2
Top = 2400
Width = 2895
BeginProperty Font
name = "標準ゴシック"
size = 9
bold = 0
EndProperty
End
Begin VB.DirListBox Dir1
Height = 1575
Left = 600
TabIndex = 1
Top = 720
Width = 2895
BeginProperty Font
name = "標準ゴシック"
size = 9
bold = 0
EndProperty
End
Begin VB.DriveListBox Drive1
Height = 1530
Left = 600
TabIndex = 0
Top = 360
Width = 2895
BeginProperty Font
name = "標準ゴシック"
size = 9
bold = 0
EndProperty
End
Begin VB.Label Label1
BorderStyle = 1 '実線
Height = 495
Left = 3720
TabIndex = 3
Top = 3255
Width = 3015
BeginProperty Font
name = "標準ゴシック"
size = 9
bold = 0
EndProperty
End
Begin VB.Image Open
BorderStyle = 1 '実線
Height = 2775
Left = 3720
Stretch = -1 'True
Top = 360
Width = 3015
End
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
End
End Sub
Private Sub Dir1_Change()
' ディレクトリが変更された場合に、ファイル リスト ボックスの表示を更新します。
file1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
' ドライブが変更された場合に、ディレクトリ リスト ボックスの表示を更新します。
' (これにより、ディレクトリ リスト ボックスの Dir1_Change イベントが発生します。)
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
' ルート ディレクトリの場合 (たとえば C:\) には、
' Path プロパティの末尾に円記号 (\) が付きます。
' ルート以外の階層では、末尾に円記号が付きません。
' いずれの場合にも、選択されたファイルのパスとファイル名
' が完全なものになるよう、次のコードで処理します。
If Right(file1.Path, 1) <> "\" Then
label1.Caption = file1.Path & "\" & file1.filename
Else
label1.Caption = file1.Path & file1.filename
End If
' 選択されたピクチャ ファイルをロードします。
Form1.open.picture = LoadPicture(label1.Caption)
End Sub
Private Sub Form_Load()
' コントロールのドライブとパスを、このアプリケーションが存在する
' ドライブとパスに設定します。
Drive1.Drive = App.Path
Dir1.Path = App.Path
End Sub