Treceți la conținutul principal

point draggable vbnet

Public Class Form1
    Dim g As Graphics
    Dim ModDraw As Integer
    Dim penx As New Pen(Brushes.DeepSkyBlue)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        g = Me.CreateGraphics
        penx.Width = 1
    End Sub
    Private Sub drawLines()
        If ModDraw = 1 Then
            g.Clear(Me.BackColor)
            g.DrawLine(penx, Me.P1.Left, Me.P1.Top, Me.P2.Left, Me.P2.Top)
            'g.DrawLine(penx, Me.P1.Left, Me.P1.Top, Me.P3.Left, Me.P3.Top)
            g.DrawLine(penx, Me.P3.Left, Me.P3.Top, Me.P2.Left, Me.P2.Top)
            g.DrawLine(penx, Me.P3.Left, Me.P3.Top, Me.P4.Left, Me.P4.Top)
            g.DrawLine(penx, Me.P1.Left, Me.P1.Top, Me.P4.Left, Me.P4.Top)
            g.DrawEllipse(penx, Me.P1.Left, Me.P1.Top, Me.P4.Left, Me.P4.Top)
            'patrat
        ElseIf ModDraw = 2 Then
            g.Clear(Me.BackColor)
            g.DrawLine(penx, Me.P1.Left, Me.P1.Top, Me.P2.Left, Me.P2.Top)
            g.DrawLine(penx, Me.P1.Left, Me.P1.Top, Me.P3.Left, Me.P3.Top)
            g.DrawLine(penx, Me.P3.Left, Me.P3.Top, Me.P2.Left, Me.P2.Top)
            'g.DrawLine(penx, Me.P3.Left, Me.P3.Top, Me.P4.Left, Me.P4.Top)
            'g.DrawLine(penx, Me.P1.Left, Me.P1.Top, Me.P4.Left, Me.P4.Top)
            g.DrawEllipse(penx, Me.P1.Left, Me.P1.Top, Me.P3.Left, Me.P3.Top)
            'triunghi
        End If
    End Sub
    Private Sub drawTheTriangle()
        ModDraw = 2
        Me.P1.Left = 100
        Me.P1.Top = 100
        Me.P2.Left = 200
        Me.P2.Top = 100
        Me.P3.Left = 200
        Me.P3.Top = 200
        g.DrawEllipse(penx, Me.P1.Left, Me.P1.Top, Me.P3.Left, Me.P3.Top)

    End Sub
    Private Sub drawTheSquare()
        ModDraw = 1
        Me.P1.Left = 100
        Me.P1.Top = 100
        Me.P2.Left = 200
        Me.P2.Top = 100
        Me.P3.Left = 200
        Me.P3.Top = 200
        Me.P4.Left = 100
        Me.P4.Top = 200
        g.DrawEllipse(penx, Me.P1.Left, Me.P1.Top, Me.P4.Left, Me.P4.Top)
    End Sub
    Private Sub Form1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LostFocus
        ' drawLines()
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        'drawLines()
    End Sub
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    End Sub
    Private Sub P2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles P2.Load
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call drawTheSquare()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call drawTheTriangle()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        drawLines()
    End Sub
End Class

Comentarii

Postări populare de pe acest blog

program principal cpp

#include "clasa.h" #include <stdio.h> #include <conio.h> #include <stdlib.h> #include <string.h> #define DELAY 9000000 void delay() { for(long i=0;i<DELAY;i++); } //constructor cu initializare de la tastatura BigInt::BigInt() {char x; signed char t[400]; int i; printf("\nNumarul cu semn "); do s=getche(); while((s!='+')&&(s!='-')); n=0; do {x=getche(); t[n]=x-'0'; n++; } while((x>='0')&&(x<='9')); n--; for(i=0;i<n;i++) nr[i]=t[n-i-1]; } //constructor cu initializare prin parametri BigInt::BigInt(char semn,signed char numar[],int dim) {int i; s=semn; n=dim; for(i=0;i<n;i++) nr[i]=numar[n-i-1]; } //transform un int negativ in pozitiv int BigInt::Pozitiv(int x) {int a,vb; a=0; vb=0; while(vb==0) if((x+a)==0) vb=1; else a=a+1; x=a; return x; } //constructor dintr-un nr int obisnuit BigInt::BigInt(int x) {int i; if(x>=0) s='+'…

NUMERE PRIME ALGORITM C++

// NUMERE PRIME ALGORITM C++//  reediting from scratch //on this page is just the study for a next algoritm for generating the parime nr series like Fibonnaci or ....if possibile

74111121313417374414124343447 if u know the red part you can generate the orange part
1 0 1 111112222 1 1 23

o aplicatie php localitati romania

//APLICATIA SE REFERA LA BAZA DE DATE SIRUTA

//dragtable.js


/* dragtable v1.0 June 26, 2008 Dan Vanderkam, http://danvk.org/dragtable/ http://code.google.com/p/dragtable/ \Bsortabledraggable\B Instructions: - Download this file - Add <script src="dragtable.js"></script> to your HTML. - Add class="draggable" to any table you might like to reorder. - Drag the headers around to reorder them. This is code was based on: - Stuart Langridge's SortTable (kryogenix.org/code/browser/sorttable) - Mike Hall's draggable class (http://www.brainjar.com/dhtml/drag/) - A discussion of permuting table columns on comp.lang.javascript Licensed under the MIT license. */ // Here's the notice from Mike Hall's draggable script: //***************************************************************************** // Do not remove this notice. // // Copyright 2001 by Mike Hall. // See http…