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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@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