Кнопка, которая отменяет последнее действие - Visual Basic .NET

  1. Доброе время суток))) Нужна помочь.... Нужно создать кнопку которая отменяет последнее действие. Так же кнопку которая возвращает действие вперед. Заранее большое человеческое спасибо)))))))))


textual

Код:

TextBox1.Undo() ' Отменить


Похожие ответы
  1. Можно ли выполнить операции по формуле, которая хранится в базе данных. Например, динамически будут созданы тектбоксы с именами А1, А2, А3.... Аn, имена которых берутся также из БД. Надо выполнить формулу A1 + A2 - A3 + ... - An и результат поместить в текстбокс с именем Asumm таблица: FldName | FldFormula A1 | A2 | A3 | Asumm | A1+A2-A3vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         dbt.Open()         Dim commmand As New OleDbCommand("SELECT * FROM Tabl;", dbt)         Dim reader As OleDbDataReader = commmand.ExecuteReader()         Dim Counter As Integer = 0         For Each recotd As DbDataRecord In reader                     Dim l As New TextBox With {.name = recotd("FldName"), .tag = recotd("FldFormula"), .Width = 100, .Height = 22, .Left = 100, .Top = Counter * 25}                     Me.Panel1.Controls.Add(l)                     AddHandler l.LostFocus, AddressOf txt_LostFocus         Next     End Sub     Private Sub txt_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)         Asumm.text = A1+A2-A3 'здесь надо выполнить формулу из Asumm.tag     End Sub

  1. Компилирую EXE файл (и системные файлы программы) в папку свою: Edit/system так удобнее, все файлы программы отделяю от рабочих (анализируемых *.txt, *.xlsx, *.word и т.д. - файлы в папке /Edit/ ) файлов. Чтобы добраться до рабочих файлов пишу путь в программе:vb.net1  iPath = Microsoft.VisualBasic.Left(My.Application.Info.DirectoryPath, InStrRev(My.Application.Info.DirectoryPath, "")) + "test.xlsx"Есть ли возможность написать тоже, но короче?

  1. Всем привет есть ли возможность записать в файл HTML код страницы, которая генерируется с помощью JavaScript? Делал так: vb.net1 2 3 4 Dim Client As New Net.WebClient Client.Proxy = New System.Net.WebProxy Dim Resurs = Client.DownloadString("myscore.ru") File.WriteAllText(parsetmp, Client.DownloadString(Server), Encoding.Default)Но так я получаю только тот текст, который я могу получить при нажатии "Посмотреть код" в браузере и там будет код с JS, но мне нужен тот код, который я вижу в браузере, т.е. уже сгенерированный. Этого результата я могу добиться с помощью WebBrowser, например так:vb.net1 2 WebBrowser1.Navigate("myscore.ru) File.WriteAllText(parsetmp, WebBrowser1.Document.Body.Parent.OuterHtml, Encoding.GetEncoding(WebBrowser1.Document.Encoding))но мне нужно сделать это не через WebBrowser, а другим способом. Не знаю почему, но почему-то на некоторых компьютерах никак не получается загрузить код страницы через WebBroser. Всю голову уже сломал, но не пойму в чем дело. Подскажите пожалуйста. Если что, то сейчас я делаю так:vb.net1 2 3 4 5 6 7 8 9 10 11         WebBrowser1.Navigate(SetServer)         Dim sw As Stopwatch = Stopwatch.StartNew()         While sw.ElapsedMilliseconds < SetTime             Application.DoEvents()             Thread.Sleep(1)         End While         sw.[Stop]()         File.WriteAllText(parsetmp, WebBrowser1.Document.Body.Parent.OuterHtml, Encoding.GetEncoding(WebBrowser1.Document.Encoding))           DataGridView3.Rows.Clear()         GetListMatches()В функции GetListMatches() я обрабатываю полученный текст с кодом страницы. Но на моем компьютере все работает хорошо, а вот на других компьютерах (не на всех) почему то этот код не работает. Вот думаю может попробовать не через WebBrowser, а другим способом... Подскажите пожалуйста как это сделать правильно

  1. Разработать программу, которая вычерчивает на экране веселую рожицу желтого цвета. Размер одной клетки 20х20 пикселей. Мои наработки , кривые очень 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 Public Class Form1     Dim MyGraphic As Graphics       'Объявление объекта Graphics     Dim MyBrush As Brush            'Объявление объекета Кисть     Dim MyPen As Pen                'Объявление объекта Перо     Dim MyFont As Font              'Объявление объекта Шрифт       Dim MyPoints() As Point = {New Point(50, 250), New Point(100, 50), New Point(150, 200), _                                    New Point(200, 100), New Point(300, 250)}       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         'Создание поверхности рисования, кисти и пера при загрузке формы         MyGraphic = PictureBox1.CreateGraphics   'Метод CreateGraphics         MyBrush = New SolidBrush(Color.Yellow)    'Новый экземпляр Кисть         MyPen = New Pen(Color.Black)             'Новый экземпляр Перо     End Sub       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         MyGraphic.Clear(Color.White)         MyGraphic.FillEllipse(MyBrush, 85, 70, 150, 150)    'Окружность         MyGraphic.DrawEllipse(MyPen, 65, 65, 20, 20)         MyGraphic.DrawEllipse(MyPen, 80, 80, 20, 20)         MyGraphic.DrawArc(MyPen, 50, 50, 200, 200, 0, 90)         MyGraphic.DrawArc(MyPen, 10, 10, 150, 200, 0, 50)     End Sub End Class

  1. Для записиvb.net1 Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & "\BD.mdb")База данных должна находится в корне диска С А если мне нужно что бы база данных находилась в папке База которая находится в папке с программой, то чего надо написать ??

  1. Написать программу, которая запрашивает аргумент функции x и номер формулы, по которой происходит вычисление (самая верхняя формула – № 1, самая нижняя – № 4). Предусмотреть ввод некорректных данных (номер меньше 1 или больше 4) и случай, когда x не входит в область определения вычисляемой функции. При написании этой части программы использовать оператор выбора Select Case (выбор номера формулы). я вот написал программу, а до select case додумать не могу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   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Dim x, y As Double         Dim f As Integer         If Trim(TextBox1.Text) = "" Then             TextBox3.Clear()             MessageBox.Show("Ничего не введено!", _           "КОНТРОЛЬ ВВОДИМЫХ ДАННЫХ", MessageBoxButtons.OK, MessageBoxIcon.Error)         Else             x = CInt(TextBox1.Text)             If x < -12 Then                 y = Sqrt(Abs(x) + Sin(x))                 f = 1             ElseIf x <= -12 And x < 8 Then                 y = Sin(x - 5)                 f = 2             ElseIf x <= 8 And x < 10 Then                 y = Sqrt(Abs(x + 6) / x + 3)                 f = 3             Else                 y = 4 / x + 3             End If             TextBox3.Text = "Формула " + CStr(f) + ":" + vbCrLf             TextBox3.Text += "y = " + CStr(y)         End If     End Sub

  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 Public Class Form1       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         MsgBox("Для начала расчета выберите формулу")     End Sub       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim a, h, s As Single         a = InputBox("Введите длину основания 'a'")         h = InputBox("Введите длину высоты 'h'")         s = 1 / 2 * a * h         MsgBox("Площадь треугольника равна = " & s)     End Sub       Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Dim a, b, y, s As Single         a = InputBox("Введите длину стороны 'a'")         b = InputBox("Введите длину стороны 'b'")         y = InputBox("Введите угол 'y'")         s = 1 / 2 * a * b * Math.Sin(y)         MsgBox("Площадь треугольника равна = " & s)     End Sub       Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         Dim a, b, c, p As Single         Dim s As VariantType         a = InputBox("Введите длину стороны 'a'")         b = InputBox("Введите длину стороны 'b'")         c = InputBox("Введите длину стороны 'c'")         p = (a + b + c) / 2         s = Math.Sqrt(p * (p - a) * (p - b) * (p - c))         MsgBox("Площадь треугольника равна = " & s)     End Sub       Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click         Dim a, b, c, p, r As Single         Dim s As VariantType         a = InputBox("Введите длину стороны 'a'")         b = InputBox("Введите длину стороны 'b'")         c = InputBox("Введите длину стороны 'c'")         r = InputBox("Введите радиус вписанной окружности 'r'")         p = (a + b + c) / 2         s = r * p         MsgBox("Площадь треугольника равна = " & s)     End Sub       Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click         Dim a, b, c, r As Single         Dim s As VariantType         a = InputBox("Введите длину стороны 'a'")         b = InputBox("Введите длину стороны 'b'")         c = InputBox("Введите длину стороны 'c'")         r = InputBox("Введите радиус вписанной окружности 'r'")         s = (a * b * c) / (4 * r)         MsgBox("Площадь треугольника равна = " & s)     End Sub       Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click         Dim a, b As Single         Dim s As VariantType         a = InputBox("Введите длину катета 'a'")         b = InputBox("Введите длину катета 'b'")         s = (1 / 2) * (a * b)         MsgBox("Площадь треугольника равна = " & s)     End Sub       Private Sub Button7_Click(sender As Object, k As EventArgs) Handles Button7.Click         Dim d, e As Single         Dim s As VariantType         d = InputBox("Введите длину 'd'")         e = InputBox("Введите длину 'e'")         s = d * e         MsgBox("Площадь треугольника равна = " & s)     End Sub       Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click         Dim a, b, c, p As Single         Dim s As VariantType         a = InputBox("Введите длину стороны 'a'")         b = InputBox("Введите длину стороны 'b'")         c = InputBox("Введите длину стороны 'c'")         p = (a + b + c) / 2         s = (p - a) * (p - b)         MsgBox("Площадь треугольника равна = " & s)     End Sub       Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click         Dim a, y As Single         Dim s As VariantType         a = InputBox("Введите длину сторон 'a'")         y = InputBox("Введите угол 'y'")         s = (1 / 2) * (a ^ 2) * Math.Sin(y)         MsgBox("Площадь треугольника равна = " & s)     End Sub       Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click         Dim a, b, y As Single         Dim s As VariantType         a = InputBox("Введите длину стороны 'a'")         b = InputBox("Введите длину стороны 'b'")         y = InputBox("Введите угол 'y'")         s = (1 / 2) * a * b * Math.Sin(y)         MsgBox("Площадь треугольника равна = " & s)     End Sub       Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click         Dim a, b, y As Single         Dim s As VariantType         a = InputBox("Введите длину стороны 'a'")         b = InputBox("Введите длину стороны 'b'")         y = InputBox("Введите угол 'y'")         s = (b ^ 2) / (4 * Math.Tan(y / 2))         MsgBox("Площадь треугольника равна = " & s)     End Sub       Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click         Dim a As Single         Dim s As VariantType         a = InputBox("Введите длину сторон 'a'")         s = (Math.Sqrt(3) * (a ^ 2)) / 4         MsgBox("Площадь треугольника равна = " & s)     End Sub       Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click         Dim a, r As Single         Dim s As VariantType         a = InputBox("Введите длину сторон 'a'")         r = InputBox("Введите радиус 'r'")         s = (3 * Math.Sqrt(3) * (r ^ 2)) / 4         MsgBox("Площадь треугольника равна = " & s)     End Sub       Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click         Dim r As Single         Dim s As VariantType         r = InputBox("Введите радиус 'r'")         s = 3 * Math.Sqrt(3) * (r ^ 2)         MsgBox("Площадь треугольника равна = " & s)     End Sub       Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click         Dim h As Single         Dim s As VariantType         h = InputBox("Введите высоту 'h'")         s = (h ^ 2) / (Math.Sqrt(3))         MsgBox("Площадь треугольника равна = " & s)     End Sub End Class

  1. Доброе время суток. Скажите, пожалуйста, если ли какая-нибудь форма или панель, которая будет плавно выкатываться из основной формы? А именно при нажатии на кнопку влево или вправо будет, выкатывается панель, которая прикреплена к главной форме (пользователь не сможет отодвинуть эту панель в сторону). Заранее большое спасибо.

  1. В общем, проблема: надо написать подпрограмму, которая принимает даты, определяет их и возвращает наибольшую из них, при этом есть сам вызов этой подпрограммы ?

  1. Напишите функцию с двумя строковыми параметрами. Функция должна выдать длину той строки, которая короче.