Как изменить вид курсора после щелчка по кнопке в заголовке окна - Visual Basic .NET

  1. Если отключить свойства MinimizeBox и MaximizeBox формы и включить свойство HelpButton, появится дополнительная кнопка в заголовке окна. Click по ней обрабатывается в событии HelpButtonClicked, но при этом курсор изменяется на маленькую стрелочку с вопросительным знаком. Можно ли отключить изменение курсора, вернуть ему вид по умолчанию?


textual

Код к задаче: «Как изменить вид курсора после щелчка по кнопке в заголовке окна - Visual Basic .NET»

    Private Sub Form1_HelpButtonClicked(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles Me.HelpButtonClicked
        e.Cancel = True
    End Sub

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 3.600 из 5



Похожие ответы
  1. Помогите мне пожалуйста! У меня все время выводит ошибку "Ссылка на объект не указывает на экземпляр объекта.", когда я пытаюсь обратиться к отладочной функции, чтобы сто раз не вводить информацию о том или ином деловом контакте.vb.net1 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 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 Module Module1     Enum ТипПол         Мужской = 1         Женский = 2     End Enum       Enum ТипПриоритетВажности         Важный         ОченьВажный         Необходимый     End Enum       MustInherit Class КлассДеловыеКонтакты         'Поля для описания деловых контактов         Public Телефон As String         Public МестоПоложения As String         Public ПриоритетВажности As ТипПриоритетВажности           Public Overridable Sub Писать()             Console.WriteLine("Деловые контакты")         End Sub     End Class       Class КлассСотрудник         Inherits КлассДеловыеКонтакты         Public ФИО As String         Public Пол As ТипПол         Public ДатаРождения As Date         Public Должность As String         Public Overrides Sub Писать()             Console.WriteLine(                 "                       Телефон: {0}" & ControlChars.CrLf &                 "                       ФИО: {1}" & ControlChars.CrLf &                 "                       Место положения: {2}" & ControlChars.CrLf &                 "                       Приоритет важности: {3}" & ControlChars.CrLf &                 "                       Пол: {4}" & ControlChars.CrLf &                 "                       Дата рождения: {5}" & ControlChars.CrLf &                 "                       Должность: {6}" & ControlChars.CrLf,                 Телефон, ФИО, МестоПоложения, ПриоритетВажности, Пол, ДатаРождения.ToShortDateString, Должность)         End Sub     End Class       Class КлассОрганизация         Inherits КлассДеловыеКонтакты         Public НазваниеОрганизации As String         Public ТипОрганизации As String         Public Overrides Sub Писать()             Console.WriteLine(                 "                       Телефон: {0}" & ControlChars.CrLf &                 "                       Место положения: {1}" & ControlChars.CrLf &                 "                       Приоритет важности: {2}" & ControlChars.CrLf &                 "                       Название организации: {3}" & ControlChars.CrLf &                 "                       Тип организации: {4}" & ControlChars.CrLf,                 Телефон, МестоПоложения, ПриоритетВажности, НазваниеОрганизации, ТипОрганизации)         End Sub     End Class       Class КлассСправочник         Inherits КлассДеловыеКонтакты         Public СотрудникКонтакт() As КлассСотрудник         Public ОрганизацияКонтакт() As КлассОрганизация         Public ДеловыеКонтакты() As КлассДеловыеКонтакты           Public Overrides Sub Писать()             MyBase.Писать()               Console.WriteLine("Количество сотрудников: ")             ReDim СотрудникКонтакт(Console.ReadLine - 1)             СотрудникКонтакт = ИнициализироватьСотрудникиОтладочная()               Console.WriteLine("Количество организаций: ")             ReDim ОрганизацияКонтакт(Console.ReadLine - 1)             ОрганизацияКонтакт = ИнициализироватьОрганизацииОтладочная()           End Sub     End Class       Sub Main()         Dim Справочник As New КлассСправочник         Справочник.Писать()         Dim u As String         Console.WriteLine("ФИО сотрудников")         Справочник.СотрудникКонтакт = ИнициализироватьСотрудникиОтладочная()                 For i = 0 To UBound(Справочник.СотрудникКонтакт)                     For j = 1 To UBound(Справочник.СотрудникКонтакт)                         If Справочник.СотрудникКонтакт(j).ФИО < Справочник.СотрудникКонтакт(j - 1).ФИО Then                             u = Справочник.СотрудникКонтакт(j).ФИО                             Справочник.СотрудникКонтакт(j).ФИО = Справочник.СотрудникКонтакт(j - 1).ФИО                             Справочник.СотрудникКонтакт(j - 1).ФИО = u                         End If                     Next                 Next               Console.WriteLine("Все контакты о контактах в отсортированном виде.")             For i = 0 To UBound(Справочник.СотрудникКонтакт)                 Console.WriteLine("Сведения о {0}-сотруднике", i + 1)                 Справочник.СотрудникКонтакт(i).Писать()                 Console.WriteLine()             Next           Dim t As String         Console.WriteLine("Название организаций")         Справочник.ОрганизацияКонтакт = ИнициализироватьОрганизацииОтладочная()                 For i = 0 To UBound(Справочник.ОрганизацияКонтакт)                     For j = 1 To UBound(Справочник.ОрганизацияКонтакт)                         If Справочник.ОрганизацияКонтакт(j).НазваниеОрганизации < Справочник.ОрганизацияКонтакт(j - 1).НазваниеОрганизации Then                             t = Справочник.ОрганизацияКонтакт(j).НазваниеОрганизации                             Справочник.ОрганизацияКонтакт(j).НазваниеОрганизации = Справочник.ОрганизацияКонтакт(j - 1).НазваниеОрганизации                             Справочник.ОрганизацияКонтакт(j - 1).НазваниеОрганизации = t                         End If                     Next                 Next             Console.WriteLine("Все контакты о организациях в отсортированном виде.")             For i = 0 To UBound(Справочник.СотрудникКонтакт)             Console.WriteLine("Сведения о {0}-организации", i + 1)             Справочник.ОрганизацияКонтакт(i).Писать()             Console.WriteLine()             Next           Console.ReadKey()     End Sub       Private Function ИнициализироватьСотрудникиОтладочная() As КлассСотрудник()         Dim Сотрудники(2) As КлассСотрудник           With Сотрудники(2)             .Телефон = "981-10-10"             .ФИО = "Николаев Николай Николаевич"             .МестоПоложения = "г. Апатиты, ул. Нечаева 19"             .ПриоритетВажности = 2             .Пол = 1             .ДатаРождения = "10.08.1989"             .Должность = "бухгалтер"         End With           With Сотрудники(1)             .Телефон = "910-20-30"             .ФИО = "Иванов Иван Иванович"             .МестоПоложения = "г. Мурманск, ул. Софьи Перовской 12"             .ПриоритетВажности = 1             .Пол = 1             .ДатаРождения = "01.02.1990"             .Должность = "аудитор"         End With           With Сотрудники(0)             .Телефон = "762-12-12"             .ФИО = "Алмазова Евгения Юрьевна"             .МестоПоложения = "г. Кировск, ул. Ленина 15"             .ПриоритетВажности = 3             .Пол = 2             .ДатаРождения = "14.12.1987"             .Должность = "программист"         End With           Return Сотрудники     End Function       Private Function ИнициализироватьОрганизацииОтладочная() As КлассОрганизация()         Dim Организации(2) As КлассОрганизация           With Организации(2)             .Телефон = "121-31-12"             .МестоПоложения = "г. Кировск, ул. Победы 19"             .ПриоритетВажности = 3             .НазваниеОрганизации = "Москва"             .ТипОрганизации = "Бизнес-инкубатор"         End With           With Организации(1)             .Телефон = "981-10-20"             .МестоПоложения = "г. Мурманск, ул. Капитана Тарана 18"             .ПриоритетВажности = 1             .НазваниеОрганизации = "Дельфин"             .ТипОрганизации = "Фирма"         End With           With Организации(0)             .Телефон = "921-21-12"             .МестоПоложения = "г. Апатиты, ул. Ленина 12"             .ПриоритетВажности = 2             .НазваниеОрганизации = "Апатит"             .ТипОрганизации = "Компания"         End With           Return Организации     End Function   End Module

  1. Элемент управления PicterBox как задать программно сохранение картинки с параметрами яркость, контрастность и другие характеристики при редактировании изображения? Спасибо.

  1. Здравствуйте, нужна помощь... Мне в цикле надо изменить у 6 PictureBox, которые имеют следующие названия ("MyCard1","MyCard2","MyCard3","MyCard4","MyCard5","MyCard6") картинку. Пытаюсь сделать так:vb.net1 Me.Controls("MyCard" & i).Image = Image.FromFile("Resources/" & cards(l, 1))Но он мне пишет такую ошибку ""Image" не является членом "System.Windows.Forms.Control"".Помогите кто сможет.

  1. Подскажите пожалуйста как обратиться к контролу типа Textbox по имени и изменить его свойства. Пример рабочий на VBA, а в VB.Net не работает!vb.net1 2 3 4 5 6 Dim NameOfControl(20) as String = {}  '- массив с название всех конролов типа Textbox Dim ValueOfControl(20) as String = {}  '- массив со значениями для конролов   for I=1 to 20   Form1.Controls(NameOfControl(I)).Text = ValueOfControl(i) next iНеобходимо этот пример в VB.NET. Заранее спасибо!

  1. Всем здравствуйте. Вот пример как закрасить строку (Изменение цвета строки в DataGridView)vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()         Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn()         Column3 = New System.Windows.Forms.DataGridViewTextBoxColumn()         Column4 = New System.Windows.Forms.DataGridViewTextBoxColumn()         Column5 = New System.Windows.Forms.DataGridViewTextBoxColumn()         Column6 = New System.Windows.Forms.DataGridViewTextBoxColumn()         dgw.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2, Me.Column3, Me.Column4, Me.Column5, Me.Column6})         dgw.RowCount = 6         For i As Integer = 0 To 5             For j As Integer = 0 To 5                 dgw(j, i).Value = 12345             Next         Next     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Dim Cell As DataGridViewCell         'Закрашиваем строку 4 в желтый цвет         For Each Cell In dgw.Rows(3).Cells             Cell.Style.BackColor = Color.Yellow         Next     End Sub End ClassА как то же самое проделать со столбцом?Добавлено через 12 минут Уточню: Как переписать по другому следующий код (учитывая что ряды могут добавляться...)vb.net1 2 3 4 5 6 7 8 9 10 11     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim st As New DataGridViewCellStyle         st.BackColor = Color.Yellow                 dgw.Rows(0).Cells(3).Style = st         dgw.Rows(1).Cells(3).Style = st         dgw.Rows(2).Cells(3).Style = st         dgw.Rows(3).Cells(3).Style = st         dgw.Rows(4).Cells(3).Style = st         dgw.Rows(5).Cells(3).Style = st     End Sub

  1. Доброе время суток. Подскажите пожалуйста: Как открыть видео файл при нажатии на кнопку Т.е. есть заранее определенный файл который расположен на локальном диске При нажатии на кноку, открывается этот видео файл.

  1. Всем знатокам доброго времени суток! Вопрос, собственно, в заголовке. Условие задачи: Есть какое-то изображение. Требуется. 1) пройти по всем пикселям изображения, получить текущие значение цвета каждого пикселя 2) Изменить цвет указанных пикселей Спасибо за помощь и понимание.

  1. Здравствуйте. Подскажите как при нажатии на Button можно было скрывать и отображать groupbox и все компоненты которые находятся в нем?

  1. Доброго времени суток. Я создаю меню. В XAML коде элемента прописываюXML1 Прописываю процедуру NewProject в теле программы. Из-за того что написал так же Command="New" - элемент меню становится не активным. Читал что-то про CommandBindigs на C#, но сам не разобрался. Прошу помощи. Как мне сделать в итоге активным меню?