HPC.ru lite - Все форумы
Форум: Программирование для КПК
Тема: VB.NET 2005 Кто нибудь сталкивался ?

[Ответить]
Владмир [11.05.2006 10:00] VB.NET 2005 Кто нибудь сталкивался ?:
Простенькая програмулька для перемещения стилусом бегунька
по горизонтели.
Sub begun1(ByVal x As Integer)
If stil1y > 35 Then Exit Sub
Dim pp As New SolidBrush(Color.White)
Dim p As New Pen(Color.White, 1)
Dim pp1 As New SolidBrush(Color.Black)
Dim p1 As New Pen(Color.Black, 1)
CreateGraphics.DrawLine(p, begun1x, 29, begun1x, 35)
CreateGraphics.DrawLine(p, begun1x + 19, 29, begun1x + 19, 35)
CreateGraphics.FillRectangle(pp, begun1x, 29, 20, 3)
CreateGraphics.DrawLine(p1, x, 29, x, 35)
CreateGraphics.DrawLine(p1, x + 19, 29, x + 19, 35)
CreateGraphics.FillRectangle(pp1, x, 29, 20, 3)
begun1x = x
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Dim x, y, z As Integer
x = e.X
y = e.Y
If y < 20 Or y > 45 Then Exit Sub
If x < 20 Then z = 10 : GoTo 1
If x > 210 Then z = 200 : GoTo 1
z = x - 10
1: begun1(z)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Close()
End Sub

Все прекрасно работает.
Естественно, при быстром движении стилуса перерисовываться
бегунок не успевает, но это не страшно.
Проблема в том что после быстрого движения стилуса перестает
работать выход из программы. Нажимаю бутон (close) и все
виснет.
Чего не хватает в проге ?

---

[Ответить]