Sección de códigos , trucos y ejemplos para visual basic

189 - Dibujar figuras con el mouse

Ejemplo que utiliza los métodos gráficos para dibujar líneas, círculos y rectángulos mediante el mouse en un control PictureBox

Colocar

Tres controles CommandButton, llamados cmd_Dibujar, y que estén en un arreglo de controles, el cmd_Dibujar(0) dibuja las líneas, el cmd_Dibujar(1) dibuja los rectángulos y el cmd_Dibujar(2) dibuja los círculos.
También un control Picturebox llamado Picture1

Código fuente en un formulario

Dim m_x1 As Single Dim m_y1 As Single Dim m_x2 As Single Dim m_y2 As Single Dim Radio As Single Dim Linea As Boolean Dim Rectang As Boolean Dim Circulo As Boolean Dim Opcion As String Dim Flag As Boolean 'Establece la opción Private Sub cmd_Dibujar_Click(Index As Integer) Select Case Index Case 0: Opcion = "Linea" Case 1: Opcion = "Rectang" Case 2: Opcion = "Circulo" End Select End Sub Private Sub Form_Load() cmd_Dibujar(0).Caption = " Linea " cmd_Dibujar(1).Caption = " Rectangulo " cmd_Dibujar(2).Caption = " Circulo " Picture1.DrawMode = vbInvert Picture1.DrawWidth = 1 End Sub Private Sub Picture1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) 'Almacena los Valores de x e y en las variables m_x1 = X m_y1 = Y m_x2 = X m_y2 = Y ' Almacena el radio Radio = m_x2 - m_x1 'Flag para que no se ejecute siempre el MouseMove Flag = True End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Not Flag Then Exit Sub Select Case Opcion Case "Linea" Picture1.Line (m_x1, m_y1)-(m_x2, m_y2) Case "Rectang" Picture1.Line (m_x1, m_y1)-(m_x2, m_y2), , B Case "Circulo" Picture1.Circle (m_x1, m_y1), Radio End Select m_x2 = X m_y2 = Y Select Case Opcion Case "Linea" Picture1.Line (m_x1, m_y1)-(m_x2, m_y2) Case "Rectang" Picture1.Line (m_x1, m_y1)-(m_x2, m_y2), , B Case Else If m_x2 >= m_x1 Then Radio = m_x2 - m_x1 Else Radio = m_x1 - m_x2 End If End Select If Opcion = "Circulo" Then Picture1.Circle (m_x1, m_y1), Radio End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Flag = False End Sub

Recursos visual basic 6

Recuros visual basic.net

Métodos DrawLine y Fillrectangle para dibujar líneas

Buscar en Recursos vb