4. Настройка ппп.
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form пфCommonDialog
BorderStyle = 1 'Fixed Single
Caption = "Все Методы CommonDialog"
ClientHeight = 4755
ClientLeft = 3150
ClientTop = 2265
ClientWidth = 3570
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4755
ScaleWidth = 3570
Begin MSComDlg.CommonDialog одПоказать
Left = 2460
Top = 150
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.OptionButton авМетодCommonDialog
Caption = "ShowOpen"
Height = 405
Index = 0
Left = 120
TabIndex = 1
Top = 600
Width = 1725
End
Begin VB.CommandButton кнПоказать
Caption = "Показать CommonDialog"
Height = 435
Left = 120
TabIndex = 0
Top = 90
Width = 2145
End
End
Attribute VB_Name = "пфCommonDialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Dim i%, всеМетоды
всеМетоды = Array("ShowSave", "ShowColor", "ShowFont", "ShowPrinter", "ShowHelp")
For i = 1 To 5 ' Добавляем ещё пять кнопок выбора методов CommonDialog
Load авМетодCommonDialog(i)
авМетодCommonDialog(i).Top = авМетодCommonDialog(i - 1).Top + 350
авМетодCommonDialog(i).Visible = True
авМетодCommonDialog(i).Caption = всеМетоды(i - 1)
Next i
With авМетодCommonDialog(авМетодCommonDialog.Count - 1)
Me.Height = .Top + 1.3 * .Height + Height - ScaleHeight
End With
End Sub
Private Sub кнПоказать_Click()
Select Case True
Case авМетодCommonDialog(0).Value
With одПоказать
.DialogTitle = "Выбери файл"
.InitDir = "D:\LAP\ComboDB"
.Filter = "тексты (*.txt;*.doc;*.htm)|*.txt;*.doc;*.htm|Excel (*.xl?)| *.xl?| BD|*.?db"
.ShowOpen
End With
Case авМетодCommonDialog(1).Value
одПоказать.ShowSave
Case авМетодCommonDialog(2).Value
одПоказать.ShowColor
Case авМетодCommonDialog(3).Value
одПоказать.Flags = cdlCFBoth ' Должно быть установлено свойство Flags
одПоказать.ShowFont
Case авМетодCommonDialog(4).Value
одПоказать.ShowPrinter
Case авМетодCommonDialog(5).Value
одПоказать.ShowHelp
Case Else
MsgBox "Метод не выбран !"
End Select
End Sub