ActiveX

@bosscs · Регистрация: 27.02.2010

Студворк — интернет-сервис помощи студентам

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
52
53
54
55
56
57
58
59
60
61
Private Sub Command1_Click()
On Error GoTo FontError
 
'CommonDialog1.Flags = 1
CommonDialog1.Flags = 1 + 256 + 65536
 
CommonDialog1.FontName = "Monotype Corsiva"
 
CommonDialog1.ShowFont
Label1.FontBold = CommonDialog1.FontBold
Label1.FontItalic = CommonDialog1.FontItalic
Label1.FontSize = CommonDialog1.FontSize
Label1.ForeColor = CommonDialog1.Color
Label1.Font = CommonDialog1.FontName
 
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
Text1.FontSize = CommonDialog1.FontSize
Text1.ForeColor = CommonDialog1.Color
Text1.Font = CommonDialog1.FontName
 
 
 
 
FontError:
    If Err.Number = 32755 Then
        MsgBox "Operation aborted by the user"
    ElseIf Err.Number = 24574 Then
        MsgBox "Please check one of the following flags: " & Chr$(10) & "cdlCFScreenFonts" & Chr$(10) & "cdlCFPrinterFonts" & Chr$(13) & "cdlCFBoth"
    End If
End Sub
 
Private Sub Command2_Click()
CommonDialog1.ShowColor
Shape1.BorderColor = CommonDialog1.Color
 
End Sub
 
Private Sub Command3_Click()
On Error GoTo FileOpenError
If Text1.Text = "" Then
CommonDialog1.ShowOpen
Else: CommonDialog1.FileName = Text1.Text
CommonDialog1.ShowOpen
End If
    'DefExt.Text = CommonDialog1.DefaultExt
    'Filter.Text = CommonDialog1.Filter
    'FilterIdx.Text = CommonDialog1.FilterIndex
    'InitialDir.Text = CommonDialog1.InitDir
    Label1.Caption = CommonDialog1.FileTitle
   Text1.Text = CommonDialog1.FileName
 
FileOpenError:
    If Err.Number = 32755 Then
        MsgBox "Operation aborted by the user"
    End If
 
If InStr(Label1.Caption, ".jpg") > 0 Then
Image1.Picture = LoadPicture(Text1.Text)
End If
End Sub

Пожалуйста обьясните что сможете, особенно интересует
CommonDialog1.Flags = 1 + 256 + 65536

@gaw · 28.03.2010, 23:43

я же говорил, убери единицу

Visual Basic
1
2
3
4
5
6
7
8
9
Private SUB Command2_Click()
CommonDialog1.Flags =256 + 65536 '--------- 1 + 256 + 65536
CommonDialog1.ShowFont
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
Text1.FontSize = CommonDialog1.FontSize
Text1.ForeColor = CommonDialog1.Color
Text1.Font = CommonDialog1.FontName
END SUB

@bosscs · 29.03.2010, 00:14 **[ТС]**

Я ее убирал, я просто сюда не так написал.

Добавлено через 7 минут
Ладно, хрен с этой адиницай

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
Private Sub Command1_Click()
Dim F As Long
Dim Stroka As String
Text1.Text = ""
CommonDialog1.Filter = "Текстовые файлы (*.txt)|*.txt"
CommonDialog1.ShowOpen
F = FreeFile
Text2.Text = CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #F
Do While Not EOF(F) ' End of file
Line Input #F, Stroka
Text1.Text = Text1.Text & vbCrLf & Stroka
Loop
Close #F
End Sub
 
Private Sub Command2_Click()
CommonDialog1.Flags = 1 + 256 + 65536 + 524288 + 2097152 + 1048576
CommonDialog1.ShowFont
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
Text1.FontSize = CommonDialog1.FontSize
Text1.ForeColor = CommonDialog1.Color
Text1.Font = CommonDialog1.FontName
End Sub
 
Private Sub Command3_Click()
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
End Sub
 
Private Sub Form_Load()
 
End Sub

Когда я выбераю файл, и нажимаю отмена, у меня выскакивает ошибка, рун тайм этор 75.

Мне нужно как то сделать что бы ошибки номр писало.
К примеру как то так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Command3_Click()
On Error GoTo FileOpenError
 
If Text1.Text = "" Then
CommonDialog1.ShowOpen
Else: CommonDialog1.FileName = Text1.Text
CommonDialog1.ShowOpen
End If
    Label1.Caption = CommonDialog1.FileTitle
   Text1.Text = CommonDialog1.FileName
On Error GoTo FileOpenError
FileOpenError:
    If Err.Number = 32755 Then
        MsgBox "Operation aborted by the user"
    End If
If InStr(Label1.Caption, ".jpg") > 0 Then
Image1.Picture = LoadPicture(Text1.Text)
End If
End Sub

Вот эти строки:

On Error GoTo FileOpenError
FileOpenError:
If Err.Number = 32755 Then
MsgBox "Operation aborted by the user"
End If

Если я их вставляю в свою программу, никаких ошибок при отмене не выскакивает

@gaw · 29.03.2010, 00:51

это обработчик ошибок
если ошибка (Error) , то перейти к строке FileOpenError

Сообщение от bosscs

If Err.Number = 32755 Then
MsgBox "Operation aborted by the user"
End If

если номер ошибки 32755, то выдать сообщение MsgBox "Operation aborted by the user"
в твоем случае переход осуществляется, т.е. обошел ошибку, но сообщение не выдается, ибо ее номер не 32755

попробуй FileOpenError:MsgBox "! " & Err.Number & " " & Err.Description

@bosscs · 29.03.2010, 00:59 **[ТС]**

У меян если файл не открывать(нажать отмена) ошибка рун тайм эрор 75. Я пробовал ее туда впихнуть, и написать, что то типа Действие было отмененно, но нече не вышло(

@gaw · 29.03.2010, 01:09

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
Option Explicit
'Объявим переменную для номера открываемого файла
Dim F As Long
Private Sub Command1_Click()
'объявим переменную, в которую мы будем считавать строки из файла
Dim Stroka As String
'напишем оператор для отслеживания ошибки и в случае возникновения переходим по метке Cansel
On Error GoTo Cansel
'установим, чтобы возникала ошибка при щелчке по кнопке Cansel
CommonDialog1.CancelError = True
'установим фильтры для текстовых файлов
CommonDialog1.Filter = "Текстовые файлы (*.txt) Файлы данных (*.dat)|*.txt;*.dat"
'установим свойство .Flags, которое не позволяет открывать несуществующие файлы
CommonDialog1.Flags = cdlOFNFileMustExist
'напишем наше собственное название диалогового окна
CommonDialog1.DialogTitle = "Загрузить текстовой файл"
'а вот теперь окно можно и открыть
CommonDialog1.ShowOpen
 
'открываем файл и считываем его содержимое в Text1
F = FreeFile
Text1.Text = ""
Open CommonDialog1.FileName For Input As #F
Do While Not EOF(F)
Line Input #F, Stroka
Text1.Text = Text1.Text & Stroka
Loop
Close #F
'файл считан
'выход из процедуры до ее завершения, чтобы не обрабатывалась ошибка, если ее нет
Exit Sub
 
Cansel:
'анализируем номер ошибки. Если нажата Cansel, выходим из процедуры
If Err.Number = cdlCancel Then
Exit Sub
Else
'в противном случае, если возникла какая-то другая ошибка, выводим ее описание
MsgBox Err.Description
End If
' заканчиваем процедуру
End Sub

@bosscs · 29.03.2010, 20:23 **[ТС]**

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
Private Sub Command1_Click()
Dim F As Long
Dim Stroka As String
On Error GoTo Errors
CommonDialog1.CancelError = True
Text1.Text = ""
CommonDialog1.Filter = "Òåêñòîâûå ôàéëû (*.txt)|*.txt"
CommonDialog1.ShowOpen
F = FreeFile
Text2.Text = CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #F
Do While Not EOF(F) ' End of file
Line Input #F, Stroka
Text1.Text = Text1.Text & vbCrLf & Stroka
Loop
Close #F
End Sub
 
 
Errors:
If Err.Number = cdlCancel Then
Exit Sub
Else
MsgBox Err.Description
End If
End Sub

Ошибка
Compile error:
Label not defined

И почему там много End Sub и т.д после Cansel? И зачем они вообще? Что бы программа переставала работать после отмены что ли?

Добавлено через 33 минуты

Попытался сделать что бы все это сохраняло в файл:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command4_Click()
'F = FreeFile
'On Error GoTo Cansel
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Текстовые файлы (*.txt)|*.txt"
CommonDialog1.Flags = cdlOFNOverwritePrompt
CommonDialog1.DialogTitle = "Скохранить как..."
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #F
Close #F
Exit Sub
'Cansel1:
'If Err.Number = cdlCancel Then
'Exit Sub
'Else
'MsgBox Err.Description
'End If
'End Sub
 
End Sub

Не совсем понимаю, получается нужно вывести ту же переменную F? Или нужно новую для вывода?

@gaw · 29.03.2010, 20:33

Сообщение от bosscs

И почему там много End Sub

строка 17 не End Sub, а Exit Sub

Добавлено через 1 минуту
F = FreeFile при открывании файла

@bosscs · 29.03.2010, 23:34 **[ТС]**

Сообщение от gaw

строка 17 не End Sub, а Exit Sub

Неважно, почему их так много?

Сообщение от gaw

F = FreeFile при открывании файла

А у меня что?

Добавлено через 2 часа 47 минут
Плз подскажите почему файл не сохраняется, завтра здавать роботу

@gaw · 29.03.2010, 23:50

Сообщение от bosscs

OPEN CommonDialog1.FileName FOR OUTPUT AS #F
CLOSE #F

ну открыл файл, ну закрыл, а записывать в него чего

PureBasic
1
Print #F, Text1.Text   ' или что то др.

@bosscs · 30.03.2010, 00:01 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command4_Click()
'F = FreeFile
'On Error GoTo Cansel
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Òåêñòîâûå ôàéëû (*.txt)|*.txt"
CommonDialog1.Flags = cdlOFNOverwritePrompt
CommonDialog1.DialogTitle = "Ñîõðàíèòü òåêñòîâîé ôàéë êàê..."
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #F
Print #F, Text1.Text
Close #F
Exit Sub
'Cansel1:
'If Err.Number = cdlCancel Then
'Exit Sub
'Else
'MsgBox Err.Description
'End If
'End Sub
 
End Sub

Run time error 52
Становится на строку
Open CommonDialog1.FileName For Output As #F

@gaw · 30.03.2010, 00:07

слушай, я же говорил F = FreeFile при открывании файла
прочитай внимательно, а лучше изучи материал во вложении
там все конкретно и доступно

@bosscs · 30.03.2010, 00:52 **[ТС]**

Я фрифайл забиндил

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@bosscs 1 / 1 / 0 Регистрация: 27.02.2010 Сообщений: 190
	29.03.2010, 00:59 [ТС]
	У меян если файл не открывать(нажать отмена) ошибка рун тайм эрор 75. Я пробовал ее туда впихнуть, и написать, что то типа Действие было отмененно, но нече не вышло( 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	30.03.2010, 00:07
	слушай, я же говорил F = FreeFile при открывании файла прочитай внимательно, а лучше изучи материал во вложении там все конкретно и доступно 0

@bosscs 1 / 1 / 0 Регистрация: 27.02.2010 Сообщений: 190
	30.03.2010, 00:52 [ТС]
	Я фрифайл забиндил 0