Контроллер связываемых объектов
Категория реферата: Рефераты по информатике, программированию
Теги реферата: сочинение изложение, рефераты бесплатно скачать
Добавил(а) на сайт: Ажищенков.
Предыдущая страница реферата | 14 15 16 17 18 19 20 21 22 23 24 | Следующая страница реферата
ShowProject
End Sub
‘********************
‘Make doc form code
‘********************
Option Explicit
Private Sub Cancel_Click()
Canceled = True
Hide
End Sub
Private Sub Command1_Click()
On Error GoTo Err1
RegDialog2.Flags = cdlOFNHideReadOnly
If Combo1.ListIndex (RegistrationCo + 1) Then
RegDialog2.Filter = "Âñå ôàéëû|*.*|" & _
Registrations(Combo1.ListIndex).NameApp & "|" & _
Registrations(Combo1.ListIndex).FileMask
Else
RegDialog2.Filter = "Âñå ôàéëû|*.*"
End If
RegDialog2.ShowOpen
DocumentName.Text = RegDialog2.FileName
Err1:
End Sub
Private Sub Command2_Click()
On Error GoTo Err1
RegDialog.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly
RegDialog.ShowOpen
Icon9412_.Picture = LoadPicture(RegDialog.FileName)
ImageIconText = RegDialog.FileName
Err1:
End Sub
Private Sub DocumentName_Change()
DocumentIsChanged = True
End Sub
Private Sub Form_Activate()
DocumentIsChanged = False
End Sub
Private Sub OkButton_Click()
Dim ErrorFlag As Boolean
Dim tmp As Integer
Dim CurObject As Object
Dim retShell As Long
On Error GoTo Err1
If DocumentName.Text = "" Then
DocumentName.SetFocus
Exit Sub
End If
If DocumentIsChanged Then
ErrorFlag = False
tmp = FileLen(DocumentName.Text)
If ErrorFlag = True Then
tmp = FreeFile
Open DocumentName.Text For Output As tmp
Close tmp
End If
End If
Hide
Exit Sub
Err1:
If Err.Number = 53 Then
ErrorFlag = True
Else
Select Case MsgBox("Ïðîèçîøëà îøèáêà íîìåð :" & Err.Number & _
Chr(13) & Chr(10) _
& Err.Description, vbAbortRetryIgnore + vbCritical)
Case vbAbort
End
Case vbRetry
Resume 0
End Select
End If
Resume Next
End Sub
‘***********************
‘ registration form code
‘***********************
Option Explicit
Dim CurIndex As Integer
Private Sub Browser_Click()
On Error GoTo Err1
RegDialog.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly
RegDialog.ShowOpen
Path = RegDialog.FileName
Err1:
End Sub
Private Sub Cancel_Click()
LoadRegCards
Hide
End Sub
Рекомендуем скачать другие рефераты по теме: курсовые, архитектура реферат.
Предыдущая страница реферата | 14 15 16 17 18 19 20 21 22 23 24 | Следующая страница реферата