Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
student00196
0 / 0 / 0
Регистрация: 08.06.2014
Сообщений: 16
1

Интерфейс не поддерживается (ошибка)

08.06.2014, 11:30. Просмотров 1382. Ответов 11
Метки нет (Все метки)

Здравствуйте.
Работаю в Arena.
Делал для проекта формы на ВБ, не добавлялся компонент "CommonDialog" с ошибкой "интерфейс не поддерживается" т.е на форму не добавлялся. Добавил на другом компе,теперь при попытке запустить проект на моем пк вылетает ошибка интерфейс не поддерживается и out of memory. Что делать?
0
Миниатюры
Интерфейс не поддерживается (ошибка)  
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.06.2014, 11:30
Ответы с готовыми решениями:

Открытие документа MS Word и ошибка "Интерфейс не поддерживается"
При попытке открыть документ Word возникает ошибка. using System; using Word =...

Не поддерживается интерфейс
при запуске Windows XP запуск продолжается до страницы приветствия. Затем монитор потухает. Если...

Интерфейс не поддерживается!
Всем привет. Недавно поставил win 8.1 Не активировал (пиратка). Вместе с ней шла программа...

Интерфейс не поддерживается
Здраствуйте.. помогите пожалуйста решить проблему Скачал антивирус "Касперский яндекс"...

Интерфейс не поддерживается
Не открываются установленные программы и системные. Ошибка: Интерфейс не поддерживается....

11
student00196
0 / 0 / 0
Регистрация: 08.06.2014
Сообщений: 16
08.06.2014, 14:16  [ТС] 2
Переместите тему в раздел (Visual Basic)
0
Dragokas
Эксперт WindowsАвтор FAQ
17069 / 7124 / 861
Регистрация: 25.12.2011
Сообщений: 10,931
Записей в блоге: 16
08.06.2014, 16:53 3
Перерегистрируйте библиотеки ComDlg32.DLL и ComDlg32.OCX
0
student00196
0 / 0 / 0
Регистрация: 08.06.2014
Сообщений: 16
13.06.2014, 22:14  [ТС] 4
файл comdlg32.ocx перерегистрировался нормально,а длл-ка выдает такую ошибку.
уже и скачал новые,заменил.
все равно не получается.
sfc scannow делал.
0 эмоций.
0
Миниатюры
Интерфейс не поддерживается (ошибка)  
13.06.2014, 22:14
dev.Free
Заблокирован
14.06.2014, 05:37 5
student00196, Эта DLL не будет регистрироваться. Может в коде ошибка? Уберите обработчик на каком месте ошибка будет и строчку кода покажите.
0
Dragokas
Эксперт WindowsАвтор FAQ
17069 / 7124 / 861
Регистрация: 25.12.2011
Сообщений: 10,931
Записей в блоге: 16
14.06.2014, 18:57 6
student00196, версия ОС и разрядность какая?

Откройте проект, Project -> Components -> Microsoft Common Dialog Control 6.0 -> какой путь к файлу указан внизу окна?

Попробуйте скопировать ComDlg32.ocx в папку с проектом и через меню, описанное выше, кнопкой "Browse" явно указать этот файл.
0
Миниатюры
Интерфейс не поддерживается (ошибка)  
student00196
0 / 0 / 0
Регистрация: 08.06.2014
Сообщений: 16
15.06.2014, 00:08  [ТС] 7
ОС - 7ка 32 бит, до этого была 8 64битная.
Не пойму в чем проблема.

Я не мог добавить на своем компе коммон диалог никак,добавил с компа в универе,А когда открыл свой файл дома то начались эти ошибки.

Да, щас так и сделал как вы говорили,результат на приложенном фото +"out of memory".
0
Миниатюры
Интерфейс не поддерживается (ошибка)  
student00196
0 / 0 / 0
Регистрация: 08.06.2014
Сообщений: 16
16.06.2014, 12:02  [ТС] 8
Как можно эту часть преобразовать чтобы было без commondialog?
Visual Basic
1
2
CommonDialog.Filter = "Excel files (*.xls)|*.Xls"
CommonDialog1.ShowSave
Это код для сохранения отчета из Arena в экселевский файл.
Есть ли другой вариант для того чтобы появиось окно выбора куда сохранить или просто сохранить в выбранный файл по пути C:\1.xls без выбора?

весь код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub CommandButton1_Click()
Dim m As Model
Dim s As SIMAN
CommonDialog.Filter = "Excel files (*.xls)|*.Xls"
CommonDialog1.ShowSave
Set m = ThisDocument.Model
Set s = m.SIMAN
Set oExcelApp = CreateObject("Excel.Application")
oExcelApp.Visible = False
oExcelApp.SheetsInNewWorkBook = 1
Set oWorkBook = oExcelApp.Workbooks.Add
Set oWorkSheet = oWorkBook.ActiveSheet
Dim m1 As Integer
m1 = s.VariableArrayValue(s.SymbolNumber("pribyil"))
oWorkSheet.Cells(2, 1).value = "Прибыль от обижга"
oWorkSheet.Cells(2, 2).value = m1
 
Dim m2 As Integer
m2 = s.VariableArrayValue(s.SymbolNumber("zatratyi"))
oWorkSheet.Cells(3, 1).value = "Затраты на функц.печи"
oWorkSheet.Cells(3, 2).value = m2
 
Dim m3 As Integer
m3 = s.VariableArrayValue(s.SymbolNumber("zatratyi_na_ochered"))
oWorkSheet.Cells(4, 1).value = "Затраты на функц.очереди"
oWorkSheet.Cells(4, 2).value = m3
Dim m4 As Double
 m4 = s.VariableArrayValue(s.SymbolNumber("obschie_zatratyi"))
oWorkSheet.Cells(5, 1).value = "Общие затраты"
oWorkSheet.Cells(5, 2).value = m4
 
Dim m5 As Double
m5 = s.VariableArrayValue(s.SymbolNumber("chistaya_pribyil"))
oWorkSheet.Cells(6, 1).value = "Чистая прибыль"
oWorkSheet.Cells(6, 2).value = m5
Dim m6 As Double
m6 = s.VariableArrayValue(s.SymbolNumber("koefficient"))
oWorkSheet.Cells(7, 1).value = "Коэффициент"
oWorkSheet.Cells(7, 2).value = m6
 
oExcelApp.Visible = True
oExcelApp.DisplayAlerts = False
oWorkBook.SaveAs CommonDialog1.Filename
UserForm2.Hide
End
End Sub
Private Sub CommandButton2_Click()
End
End Sub
0
Антихакер32
Заблокирован
16.06.2014, 12:21 9
Может инфа из моего блога пригодится
http://www.cyberforum.ru/blogs/445967/blog2265.html

Добавлено через 5 минут
Хотя.., в последнее время я все компоненты использую так..
чтоб их не подключать через References, к тому-же свои длл-ки
вообще делаю нативными.. ну тоесть чтоб не нуждались ни в какой регистрации
и вообще стараюсь не таскать их с собой а держать их на разных хостингах..
как я выложил пример здесь..
0
The trick
Модератор
7746 / 2762 / 771
Регистрация: 22.02.2013
Сообщений: 3,911
Записей в блоге: 77
16.06.2014, 12:50 10
Лучший ответ Сообщение было отмечено The trick как решение

Решение

student00196, попробуйте вот так
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Option Explicit
 
Private Type OPENFILENAME
    lStructSize         As Long
    hwndOwner           As Long
    hInstance           As Long
    lpstrFilter         As Long
    lpstrCustomFilter   As Long
    nMaxCustFilter      As Long
    nFilterIndex        As Long
    lpstrFile           As Long
    nMaxFile            As Long
    lpstrFileTitle      As Long
    nMaxFileTitle       As Long
    lpstrInitialDir     As Long
    lpstrTitle          As Long
    flags               As Long
    nFileOffset         As Integer
    nFileExtension      As Integer
    lpstrDefExt         As Long
    lCustData           As Long
    lpfnHook            As Long
    lpTemplateName      As Long
End Type
 
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameW" (pOpenfilename As OPENFILENAME) As Long
 
Private Const OFN_OVERWRITEPROMPT = &H2
Private Const OFN_EXPLORER = &H80000
 
Private Function GetSaveFile(ByVal hwnd As Long) As String
    Dim ofn As OPENFILENAME, Out As String, i As Long
    
    ofn.nMaxFile = 260
    ofn.flags = OFN_OVERWRITEPROMPT Or OFN_EXPLORER
    Out = String(260, vbNullChar)
    ofn.hwndOwner = hwnd
    ofn.lpstrTitle = StrPtr("ÑîõðГ*Г*ГЁГІГј")
    ofn.lpstrFile = StrPtr(Out)
    ofn.lStructSize = Len(ofn)
    ofn.lpstrFilter = StrPtr("Âñå ГґГ*éëû" & vbNullChar & "*.*")
    ofn.lpstrDefExt = 0
    If GetSaveFileName(ofn) Then
        i = InStr(1, Out, vbNullChar, vbBinaryCompare)
        If i Then GetSaveFile = Left$(Out, i - 1)
    End If
End Function
 
Private Sub Form_Load()
    MsgBox GetSaveFile(Me.hwnd)
End Sub
GetSaveFile - функция для вызова диалога.

Добавлено через 4 минуты
Можете еще так попробовать
Visual Basic
1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Private Sub Form_Load()
    Dim Cdlg As Object
    Licenses.Add "MSComDlg.CommonDialog"
    Set Cdlg = Me.Controls.Add("MSComDlg.CommonDialog", "cdlg")
    Cdlg.object.CancelError = True: Cdlg.object.DialogTitle = "ÑîõðГ*Г*ГЁГІГј"
    Cdlg.object.Filter = "ÈçîáðГ*æåГ*ГЁГї|*.bmp;*.jpg;*.jpeg;*.gif"
    Cdlg.object.showsave
End Sub
Добавлено через 53 секунды
Или так
Visual Basic
1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Sub Form_Load()
    Dim Cdlg As Object
    Set Cdlg = CreateObject("MSComDlg.CommonDialog")
    Cdlg.CancelError = True: Cdlg.DialogTitle = "ÑîõðГ*Г*ГЁГІГј"
    Cdlg.Filter = "ÈçîáðГ*æåГ*ГЁГї|*.bmp;*.jpg;*.jpeg;*.gif"
    Cdlg.showsave
End Sub
1
Антихакер32
Заблокирован
16.06.2014, 13:03 11
второй и третий вариант в любом случае ему не подойдет
так-как их нужно регить, а у него проблемы с семеркой и восьмеркой
которые не любят регить файлы

а первый апишный может и сработает
хотя в моём блоге именно так все и устроенно от кнопок в компонентах которых
я использовал твои подсказки ...
0
student00196
0 / 0 / 0
Регистрация: 08.06.2014
Сообщений: 16
16.06.2014, 18:28  [ТС] 12
Я использовал этот метод
Но теперь ошибка Method ob object is failed
здесь "m4 = s.VariableArrayValue(s.SymbolNumber("obschie_zatratyi"))" и на подобных ей.

Весь код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub CommandButton1_Click()
 Dim Cdlg As Object
    Set Cdlg = CreateObject("MSComDlg.CommonDialog")
    Cdlg.CancelError = True: Cdlg.DialogTitle = "Excel"
    Cdlg.Filter = "Excel|*.xlsx"
    Cdlg.ShowSave
Dim m As Model
Dim s As SIMAN
 
Set m = ThisDocument.Model
Set s = m.SIMAN
Set oExcelApp = CreateObject("Excel.Application")
oExcelApp.Visible = False
oExcelApp.SheetsInNewWorkbook = 1
Set oWorkBook = oExcelApp.Workbooks.Add
Set oWorkSheet = oWorkBook.ActiveSheet
Dim m1 As Integer
m1 = s.VariableArrayValue(s.SymbolNumber("pribyil"))
oWorkSheet.Cells(2, 1).value = "Ïðèáûëü îò îáèæãГ*"
oWorkSheet.Cells(2, 2).value = m1
 
Dim m2 As Integer
m2 = s.VariableArrayValue(s.SymbolNumber("zatratyi"))
oWorkSheet.Cells(3, 1).value = "Г‡Г*ГІГ°Г*ГІГ» Г*Г* ГґГіГ*ГЄГ¶.ГЇГҐГ·ГЁ"
oWorkSheet.Cells(3, 2).value = m2
 
Dim m3 As Integer
m3 = s.VariableArrayValue(s.SymbolNumber("zatratyi_na_ochered"))
oWorkSheet.Cells(4, 1).value = "Г‡Г*ГІГ°Г*ГІГ» Г*Г* ГґГіГ*ГЄГ¶.î÷åðåäè"
oWorkSheet.Cells(4, 2).value = m3
Dim m4 As Double
 m4 = s.VariableArrayValue(s.SymbolNumber("obschie_zatratyi"))
oWorkSheet.Cells(5, 1).value = "ГЋГЎГ№ГЁГҐ Г§Г*ГІГ°Г*ГІГ»"
oWorkSheet.Cells(5, 2).value = m4
 
Dim m5 As Double
m5 = s.VariableArrayValue(s.SymbolNumber("chistaya_pribyil"))
oWorkSheet.Cells(6, 1).value = "Г—ГЁГ±ГІГ*Гї ïðèáûëü"
oWorkSheet.Cells(6, 2).value = m5
Dim m6 As Double
m6 = s.VariableArrayValue(s.SymbolNumber("koefficient"))
oWorkSheet.Cells(7, 1).value = "ÊîýôôèöèåГ*ГІ"
oWorkSheet.Cells(7, 2).value = m6
 
oExcelApp.Visible = True
oExcelApp.DisplayAlerts = False
oWorkBook.SaveAs CommonDialog1.Filename
UserForm2.Hide
End
End Sub
0
16.06.2014, 18:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2014, 18:28

Интерфейс не поддерживается Firefox
При добавление прямого УРЛа на изображение в Форме атача картинки выдаёт алерт (на скрине) Win...

Загрузка из Excel. Интерфейс не поддерживается
УНФ Когда то делал загрузку из Екселя и вот понадобилось немного изменить для другой...

explorer.exe интерфейс не поддерживается
Здравствуйте! Я удалил программу ESET на винде 7 и после захотел зайти в "Мой компьютер" а вместо...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru