Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
6 / 6 / 10
Регистрация: 16.10.2012
Сообщений: 523
1

MsgBox вызывается дважды

21.12.2016, 00:02. Просмотров 938. Ответов 2
Метки нет (Все метки)


Доброго времени суток. У Меня такая проблема, MsgBox вызывается почему-то дважды, Я не могу понять почему, как так? Кто может Мне внятно объяснить почему?

VB.NET
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
'Действия таймера
    Private Sub TimerBankServices_Tick(sender As Object, e As EventArgs) Handles TimerBankServices.Tick, TimerBankServices.Tick
 
        'Если существует файл настроек подключения
        If (File.Exists("Data\ConnectSettings.cfg")) Then
 
            Dim srReader As StreamReader = New StreamReader("Data\ConnectSettings.cfg")
            'Обьявление и присвоение значения переменной коннекта
            Dim sConnectionString As String
            sConnectionString = srReader.ReadLine()
            'Читаем и очищаем поток данных
            srReader.Close()
            srReader.Dispose()
            'Если вернет true
            If (connSQL.bOpenConnection(sConnectionString) = True) Then
 
                'Останавливаем таймер
                TimerBankServices.Stop()
                'Разблокируем форму, если соединение было открыто
                Enabled = True
                'Меняем текст лейбла
                ConnectionLabel.Text = "Настройки приняты!"
 
            Else
 
                ConnectionLabel.Text = "Ошибка подключения..."
                TimerBankServices.Stop()
                If MsgBox("Не удалось подключиться к базе данных, сервер выключен или неправильно указаны данные соединения. Настроить подключение?",
                  vbYesNo + vbQuestion, "Сообщение!") = vbYes Then
 
                    Dim fSettings As New Settings
                    fSettings.Show()
                    'Передача адреса conn
                    fSettings.SetConnection(connSQL)
                    'Возрат на главную форму
                    fSettings.bReturnToMain.Enabled = False
                    'Отмена
                    fSettings.bCancel.Enabled = True
                    'Скрываем
                    Hide()
                    fSettings = Nothing
 
                Else
 
                    'Закрываем соединение и приложение
                    connSQL.bCloseConnection()
                    Application.Exit()
 
                End If
 
            End If
            'Главный if
        Else
 
            Dim swReader As StreamWriter = New StreamWriter("Data\ConnectSettings.cfg")
            swReader.Close()
 
        End If
 
    End Sub
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2016, 00:02
Ответы с готовыми решениями:

OnCreate вызывается дважды
Добрый день. Делаю простое приложение, которое при нажатии на кнопку, с помощью Intent должно...

Почему виртуальный деструктор вызывается дважды?
Непонятно: #include <iostream> #include <conio.h> #include<string> using namespace std;...

Почему AuthorizeAttribute каждый раз вызывается дважды?
Привет! Есть свой класс, унаследованный от AuthorizeAttribute, в котором переопределен метод...

Почему слот для QTextEdit::textChanged() вызывается дважды?
Заметил, что при удалении символа из виджета QTextEdit нажатием клавиш "Backspace" или "Delete"...

2
227 / 110 / 79
Регистрация: 17.10.2016
Сообщений: 312
21.12.2016, 02:23 2
Лучший ответ Сообщение было отмечено Darkvoid как решение

Решение

Обработчик два раза подключен
Цитата Сообщение от Darkvoid Посмотреть сообщение
Handles TimerBankServices.Tick, TimerBankServices.Tick
4
6 / 6 / 10
Регистрация: 16.10.2012
Сообщений: 523
21.12.2016, 02:52  [ТС] 3
Цитата Сообщение от John999 Посмотреть сообщение
Handles TimerBankServices.Tick, TimerBankServices.Tick
Спасибо большое, а то долго не мог вьехать
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2016, 02:52

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Почему метод выполняется дважды хотя один раз вызывается
Добрый день. В программе вызывается нек. метод, по событию изменение текста в сомбобоксе...

При обработке события Button.Click метод вызывается дважды
Я новичок в этом деле. Возникла проблема. На кнопку в форме повесил событие отвечающее за поднятие...

Google_mock тест на вызов метода проваливается, если метод вызывается дважды
Всем добрый день! Занимаюсь тестированием приложения с помощью Google_mock объектов. Необходимо...

Ошибка The type or namespace name 'MsgBox' does not exist in the class or namespace 'MsgBox.MsgBox' (are you missing an assembly reference?)
Есть Class Library, написанная на VB.NET. Компилирую, вставляю assembly в VB.NET, все работает....


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

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

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