| |
|
|
| |
to: Bellerofont
(26.03.2009 в 20:05)
|
| | 
Если можно на пальцах поясните...... 
| |
| |
| |
| |
|
|
| |
to: час
(26.03.2009 в 09:00)
|
| |
Вы их подключаете в IDE (Integrated Development Environment)
Подключите Microsoft Visual Basic 6.0 Extensibility (VBIDE) и вы увидите References | |
| |
| |
| |
 63 Кб. |
|
| |
to: Bellerofont
(25.03.2009 в 23:26)
|
| | Спасибо!!!
А как же я их подключаю ? | |
| |
| |
| |
|
|
| |
to: час
(25.03.2009 в 21:10)
|
| | В VB6 нет References. | |
| |
| |
| |
|
|
| | А есть у кого нибудь функция подключения ссылок на библиотеки.
Например на DAO.
Почему то VB ругается, если писать
Dim ref As Reference, i As Integer
|
А то Анатолий(Киев) написал функцию - я её использую в Access
хотел приложить к VB6 - не вышло...
Public Function CheckReferenceDAO() As Boolean
'-------------------------------------------------------------------------------
CheckReferenceDAO = False
Dim ref As Reference, i As Integer
Const strDAOGUID = "{00025E01-0000-0000-C000-000000000046}"
'Const strExcelReferenceName = "*DAO*"
For Each ref In References
If ref.BuiltIn Then GoTo refNext
If ref.IsBroken Then
References.Remove ref
GoTo refNext
End If
' If ref.Name Like strExcelReferenceName Then
If InStr(1, ref.Name, "DAO", vbTextCompare) > 0 Then
CheckReferenceDAO = True
GoTo CheckReferenceDAO_exit
End If
refNext:
Next ref
On Error Resume Next
For i = 5 To 2 Step -1
References.AddFromGuid strDAOGUID, 1, i
If Err = 0 Then
CheckReferenceDAO = True
GoTo CheckReferenceDAO_exit
End If
Err.Clear
Next i
CheckReferenceDAO_exit:
'Set ref = Nothing
Exit Function
End Function
|
| |
| |
| |
