VBNet ile transform

 
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Configuration
Imports System.Resources
Imports System.Drawing
Imports System.Drawing.Drawing2D


Public Class Form1

Private Sub TextureBrushesForm_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
Dim g As Graphics = e.Graphics
Dim x As Integer = 0
Dim y As Integer = 0
Dim b As Integer = 0
Dim width As Integer = Me.ClientRectangle.Width
Dim height As Integer = Me.ClientRectangle.Height / 6
Dim blackBrush As Brush = Brushes.Black
Dim blackPen As Pen = Pens.Black

End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "TextureBrushesForm"
End Sub
End Class

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

vbnet ile transform