?? frmbmpjpg.frm
字號:
VERSION 5.00
Begin VB.Form frmBmpJpg
BorderStyle = 1 'Fixed Single
Caption = "Graphic files"
ClientHeight = 5055
ClientLeft = 45
ClientTop = 330
ClientWidth = 6030
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5055
ScaleWidth = 6030
StartUpPosition = 2 'CenterScreen
Begin VB.DriveListBox Drive1
Height = 315
Left = 240
TabIndex = 2
Top = 240
Width = 2055
End
Begin VB.FileListBox File1
Height = 1845
Left = 240
Pattern = "*.bmp;*.jpg"
TabIndex = 1
Top = 2760
Width = 2055
End
Begin VB.DirListBox Dir1
Height = 1665
Left = 240
TabIndex = 0
Top = 840
Width = 2055
End
Begin VB.Image imgPic
Height = 4455
Left = 2400
Stretch = -1 'True
Top = 240
Width = 3495
End
End
Attribute VB_Name = "frmBmpJpg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
On Error GoTo Er
Dir1.Path = Drive1.Drive
Er:
If Err.Number = 68 Then MsgBox "Drive is not ready.", vbCritical, "error"
Drive1.Drive = "c:"
End Sub
Private Sub File1_Click()
Dim tmpFile As String
tmpFile = File1.Path
If Not Right(tmpFile, 1) = "\" Then tmpFile = tmpFile & "\"
tmpFile = tmpFile & File1.FileName
imgPic.Picture = LoadPicture(tmpFile)
End Sub
Private Sub form_load()
File1.Path = "c:\My Documents"
Dir1.Path = "c:\My Documents"
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmIntro.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -