Вопрос : Ho вы создаете плановика/дневника срока в vb.net

HI я хочу создать срок для того чтобы показать случаи на день. Я не имею никакую идею где начать или как пойти около оно. Я думал могу быть диаграммой но я хочу людей мочь волочить - и - падаю сигналю внутри и out.
I только делали базу данных сформировать apps поэтому это одно будет кривой освоения. Но если кто-то smogло указать я в правильном направлении и дать любые предложения, то были бы больш. filename " class= >

 timeline.jpg (41 KB) яваскрипт " href= " " attachmentDetails class= (тип архива детали) описание " class=
This я хочу к ширина style= >
>
class=

Ответ : Ho вы создаете плановика/дневника срока в vb.net

Линией времени будет прямоугольник, после этого using:
    g.FillRectangle (hb, r) где - g - графики, Hb - щетка, r - прямоугольник

К eval координатам прямоугольника, вам
   DateScrMin, DateScrMax - пределы даты для экранного пространства. Когда сигнал вы изменяет пределы.
   Тускло Kt как одиночно = (DateScrMax.ticks -) DateScrMin.ticks/WidthScreenArea

  Теперь для интервала Date1-Date2:
      xDate1 = ScreenArea.Left + Kt * (Date1.ticks - DateScrMin.ticks)
      barWidth= Kt * (Date2.ticks - Date1.ticks)

Кодий образца для того чтобы нарисовать коллектор календара, рисует день сумеречницы и день проекта.
Оно использует красный цвет для воскресенье и holydays, голубой для суббота.
В этом Кодем, тип даты пользы do´n I, я использую тип FechaCpm (минуты) Date.Ticks/Timespan.ticksPerMinute
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:

 'Dibujar Calendario
      Тусклое dmin как интежер = FCalMin.Dia, xref как двойник = FCalMin.value * Kt - R_Cal.X
      Тусклое dMax как интежер = FscrMax.Dia
      Тусклое ktd как двойник = Kt * 1440 'día por пикселов

      y0 = R_Cal.Y: y1 = R_Cal.Bottom - 2: x = R_Cal.X
      g.FillRectangle (Brushes.White, R_Cal)
      Inferior DrawHline (g, y1) 'Línea
      Inferior DrawHline (g, R_GrAct.Bottom) 'Línea

      x - = 1: g.DrawLine (Pens.Black, x, y0, x, y1)
      'x - = 2: g.DrawLine (Pens.Black, x, y0, x, y1) 'Izda Calendario

      Тусклое x0 как интежер = R_Cal.X, x1 как интежер
      ta. Выравнивание = StringAlignment.Center
      Для d как интежер = dmin к dMax
         x1 = CInt ((d + 1) * ktd - xref) 'если d < dMax="" Then="">= 0 после этого n += 1
         s = n.ToString
         Если (s.Length * tw), то  <>
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us