DateTimePicker как разделить недели на чётную/не чётную - Visual Basic .NET

  1. Есть DateTimePicker,в не нужно разделить недели в календаре на чётные и не чётные.Не подскажите как?


textual

Код:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Label1.Text = DateTimePicker1.Value.DayOfWeek
        Label2.Text = DatePart(DateInterval.WeekOfYear, DateTimePicker1.Value)
        Me.Text = IIf(Int(Label2.Text) Mod 2 = 0, "Чётная", "Не чётная")
 
    End Sub


Похожие ответы
  1. Ситуация такая: есть функция рисования графиков на оси координат, есть функция подсчета интеграла (код прикреплен). У нас есть t(можно считать как x) от 0 до 2*пи с шагом 0,1. Есть w1 = 2*пи/T, T=Пи, и есть k = от 0 до 60 (это максимум). Нужно посчитать интеграл при k = 1, t раз(формула будет прикреплена). После чего нужно как - то построить график при первом k, при втором k и т.д. (там будет синусоида). Как это сделать? И в конце концов нам нужно будет выполнить одно выражение (формула тоже прикреплена). Кто может помочь? Я не могу понять как это реализовать и как потом выводить эти коэффициенты на экран и графики. Буду рад любым советам и ответам! Код программы 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 Public Class Form1     Private xmin, xmax, ymin, ymax, w, h As Integer     Private bmp As Bitmap     Private g As Graphics     Private pnAxis, pnGraphics As Pen     Private pnt As List(Of PointF), pp As PointF     Private isDraw As Boolean     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         xmin = -7 : xmax = 7 : ymin = -2 : ymax = 2         w = PictureBox1.Width         h = PictureBox1.Height         bmp = New Bitmap(w, h, PictureBox1.CreateGraphics())         PictureBox1.Enabled = False         pnAxis = New Pen(Brushes.Blue, -1)         pnGraphics = New Pen(Brushes.Red, 2)         Button1.Enabled = False         Label2.Text = "min = " & xmin.ToString         Label3.Text = "max = " & xmax.ToString         Label5.Text = "min = " & ymin.ToString         Label4.Text = "max = " & ymax.ToString         Label1.Text = "X"         Label6.Text = "Y"         Label7.Text = "Интегралл"         Label8.Text = ""     End Sub     Private Sub CreateGraphics_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         PictureBox1.Enabled = True         gettingStartedCanvas()         Button1.Enabled = True         Label8.Text = ""     End Sub     Private Sub GetIntegral_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim kx As Double = w / 2 / xmax         Dim ky As Double = h / 2 / ymax         Dim p As PointF         For i = 0 To pnt.Count - 1             p = pnt(i)             p.X -= w / 2             p.Y -= h / 2             p.Y = -p.Y             p.X /= kx             p.Y /= ky             pnt(i) = p         Next         'вычисляем приближенно по методу трапеций         Dim sum As Double = 0.0         For i = 1 To pnt.Count - 1             sum += (pnt(i - 1).Y + pnt(i).Y) / 2 * (pnt(i).X - pnt(i - 1).X)         Next         Label8.Text = sum.ToString         Button1.Enabled = False         PictureBox1.Enabled = False     End Sub     Private Sub gettingStartedCanvas()         g = Graphics.FromImage(bmp)         g.Clear(PictureBox1.BackColor)         g.DrawLine(pnAxis, New Point(w / 2, 0), New Point(w / 2, h))         g.DrawLine(pnAxis, New Point(0, h / 2), New Point(w, h / 2))         PictureBox1.Image = bmp         g.Dispose()     End Sub     Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown         Dim x As Integer = e.Location.X         Dim y As Integer = e.Location.Y         If x <> 0 Then x = 0         pnt = New List(Of PointF)         pp = New PointF(x, y)         pnt.Add(pp)         isDraw = True         g = Graphics.FromImage(bmp)     End Sub     Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp         If Not isDraw Then Exit Sub         Dim x As Integer = e.Location.X         Dim y As Integer = e.Location.Y         If x <> w Then x = w         pnt.Add(New PointF(x, y))         g.DrawLine(pnGraphics, pp, pnt(pnt.Count - 1))         isDraw = False         g.Dispose()         PictureBox1.Image = bmp     End Sub     Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove         If isDraw Then             Dim x As Integer = e.Location.X             Dim y As Integer = e.Location.Y             If x <= pp.X Then Exit Sub             Dim p As PointF = New PointF(x, y)             g.DrawLine(pnGraphics, pp, p)             pnt.Add(p)             pp = p             PictureBox1.Image = bmp         End If     End Sub End Class

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

  1. Всем здравствуйте. Какое событие TextBox следует использовать для проверки содержимого при вводе текста пользователем? Например, я ограничил размер текстового окна четырьмя символами и хочу чтобы при вводе пользователя каждый раз проверялось содержимое окна на значение = "asdf". Если пользователь пытается ввести "asdf" (не важно какую из четырёх букв он будет вводить последней) в текстовом окне должно оказаться значение "qwer".Добавлено через 16 минут Почему-то не хочет срабатывать следующая конструкция:vb.net1 2 3 4 5 6 7 8     Private Sub TextBox1_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating         If sender.Text = "asdf" Then             sender.Tag = "qwer"         End If     End Sub     Private Sub TextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Validated         sender.Text = sender.Tag     End Sub

  1. Как отследить кнопку через Xpath в браузере (WebBrowser - расположен на форме) и нажать на нее через кнопку на форме? P.S. У кнопки нет id

  1. Я воспользовался данной подсказкой. А как теперь сделать чтоб с первого окна перейти во второе? Подскажите пожалуйста , кто знает и кому не лень написать)

  1. Вопрос глупейший впринципе. В таймере каждую секунду отображаю через графику время на панели. чтобы время менялось приходится делать PanelRefresh или Validate. При это панель ппц как мерцает. Как сие исправить, или лучше использовать? рисую оч простоvb.net1 2 3 4 5 6 7 8 9             'Dim dt As TimeSpan = Now.TimeOfDay             'Dim dt_after As TimeSpan = New TimeSpan(NumericUpDown2.Value, NumericUpDown1.Value, 59)             'Dim stime As String = dt_after.Subtract(dt).ToString             'Dim gr As Graphics = Graphics.FromHwnd(GroupBox6.Handle)             ''gr.Clear(Color.FromKnownColor(KnownColor.Control))             'Dim siz As SizeF = gr.MeasureString(stime, New Font("Arial", 12, FontStyle.Regular))             'Dim br As New Drawing2D.LinearGradientBrush(New Rectangle(1000, 10, 1000, 1000), Color.Black, Color.Yellow, 10)             'gr.DrawString(stime.Substring(0, 11), New Font("Arial", 12, FontStyle.Bold), br, (Me.GroupBox6.Width - siz.Width) \ 2, (Me.GroupBox6.Height - siz.Height) \ 2)             'gr.Dispose()

  1. Ситуация такая: нужно как - то построить оси координат (-6 до 6), по y (-2 до 2), как то нарисовать любой график, считать точки Y в данной точке X и потом считать интегралл с этих точек. Может кто сталкивался с подобным? Я сижу в тупике, голова кружится, листаю литературу и сайты не могу найти. Спасибо за помощь! Это все на языке VB.Net.

  1. Сделать это из файла легко: vb.net1 Cursor.Current = New Cursor("plus.ico")Но тогда нужно таскать за exe-шником файлы с иконками (а их несколько десятков) . Хотелось бы иметь всё внутри самого exe-файла. В файл ресурсов проекта иконки загружаются как значки. Им даётся имя. После компиляции всё, что напихано в файл ресурсов оказывается внутри exe-шника. Это мне и нужно. Но как этими значками воспользоваться? Oдин из конструкторов класса Cursor по описанию должен подходить для такой задачи: Cursor(Type, String) - Инициализирует новый экземпляр класса Cursor из указанного ресурса, используя указанный тип ресурса. Но пример его использования из msdn ничего толком не объясняет.

  1. Всех приветствую. Есть к примеру такой код:vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         Try             Dim FBD3 As New FolderBrowserDialog             If FBD3.ShowDialog = Windows.Forms.DialogResult.OK Then                 Button1.Enabled = False                   TextBox2.Text = FBD3.SelectedPath                                 TextBox4.Text = IO.Directory.GetFiles(FBD3.SelectedPath, TextBox3.Text, IO.SearchOption.AllDirectories)(0)                   Button1.Enabled = True             End If         Catch ex As Exception         End Try     End SubПоиск по имени файла. При поиске программа как бы зависает. Суть вопроса: При выборе диска "C:" а искомый файл находиться например "C:\тест\тест.txt". Как мне допустим в Label1 увидеть какие в данный момент проверяет программа папки (как в антивирусниках строка сканирования например)? Честно я запарился не магу нечего найти (может не правильно запрашиваю у поиска )

  1. Столкнулся с такой проблемой, работая на нетбуке. При создании приложения не могу поместить все элементы на форму так как форма не расширяется больше расширения экрана. При попытке увеличить на другом компьютере, а на моем использовать прокрутку - ничего не выходит.