Merhaba işte vb2005-2008.Net kodlarımız.Güle güle kullanın.
'Copyright Zeki GÖRÜR 10.04.2009 saat:14:41 Imports System.Collections Imports System.Collections .Generic Public Class Form1 Public Shared Sub Main() Dim custColl As New List( Of Customer)() Dim cust As New Customer( "1" , "Name" ) cust.AddItem ( New Order( DateTime.Parse ( "10/01/2007" ) , "1" , "N" )) cust.AddItem ( New Order( DateTime.Parse ( "10/03/2009" ) , "2" , "X" )) cust.AddItem ( New Order( DateTime.Parse ( "10/07/2008" ) , "3" , "P" )) custColl.Add ( cust) cust = New Customer( "2" , "name 1" ) cust.AddItem ( New Order( DateTime.Parse ( "11/04/2007" ) , "6" , "P" )) cust.AddItem ( New Order( DateTime.Parse ( "11/07/2008" ) , "8" , "Y" )) cust.AddItem ( New Order( DateTime.Parse ( "12/12/2008" ) , "9" , "K" )) custColl.Add ( cust) cust = New Customer( "3" , "Name 3" ) cust.AddItem ( New Order( DateTime.Parse ( "10/01/2008" ) , "4" , "W" )) custColl.Add ( cust) For custIdx As Int32 = 0 To ( custColl.Count - 1 ) cust = custColl( custIdx) Console.Out .WriteLine ( "Customer-) ID: {0}, Name: {1}" , cust.Id , cust.Name ) Dim orders() As Order = cust.Items For orderIdx As Int32 = 0 To ( orders.Length - 1 ) Dim ord As Order = orders( orderIdx) Console.Out .WriteLine ( " Order-> Date: {0}, Item: {1}, Desc: {2}" , ord.OrderDate , ord.ItemId , ord.Description ) Next Next Dim empColl As New List( Of Employee)() Dim emp As New Employee( "1" , "R" ) empColl.Add ( emp) emp = New Employee( "2" , "M" ) empColl.Add ( emp) emp = New Employee( "3" , "B" ) emp.AddItem ( New Employee( "6" , "S" )) emp.AddItem ( New Employee( "7" , "B" )) emp.AddItem ( New Employee( "8" , "T" )) empColl.Add ( emp) For mgrIdx As Int32 = 0 To ( empColl.Count - 1 ) Dim manager As Employee = empColl( mgrIdx) Console.Out .WriteLine ( "Manager-) ID: {0}, Name: {1}" , manager.Id , manager.Name ) For idx As Int32 = 0 To ( manager.Items .Length - 1 ) emp = manager.Items ( idx) Console.Out .WriteLine ( " Employee-) Id: {0}, Name: {1}" , emp.Id , emp.Name ) Next Next End Sub End Class Public Class Customer Inherits Person( Of Order) Public Sub New ( ByVal Id As String , ByVal Name As String ) MyBase .New ( Id, Name) End Sub End Class Public Class Employee Inherits Person( Of Employee) Public Sub New ( ByVal Id As String , ByVal Name As String ) MyBase .New ( Id, Name) End Sub End Class Public Class Order Public OrderDate As DateTime Public ItemId As String Public Description As String Public Sub New ( ByVal OrderDate As DateTime, ByVal ItemId As String , ByVal Description As String ) Me .OrderDate = OrderDate Me .ItemId = ItemId Me .Description = Description End Sub End Class Public Class Person( Of T) Public Name As String Public Id As String Private _items As List( Of T) Public Sub New ( ByVal Id As String , ByVal Name As String ) Me .Id = Id Me .Name = Name Me ._items = New List( Of T) End Sub Public ReadOnly Property Items() As T() Get Return Me ._items.ToArray () End Get End Property Public Sub AddItem( ByVal newItem As T) Me ._items.Add ( newItem) End Sub End Class
Drag-drop
'Copyright Zeki GÖRÜR 09.04.2009 saat:15:48 Dosyalarınızı Drop Target yazılı yere bırakın size dosyanın yolunu bulsun.kolay gelsin Imports System Imports System.Runtime .InteropServices Imports System.Drawing Imports System.ComponentModel Imports System.Windows .Forms Imports System.IO Public Class MainClass Shared Sub Main( ByVal args As String ()) Dim myform As New Form1() Application.Run ( myform) End Sub End Class Public Class Form1 ' Allow Copy if there is FileDrop data. Private Sub lblDropTarget_DragEnter( ByVal sender As Object , ByVal e As System.Windows .Forms .DragEventArgs ) Handles lblDropTarget.DragEnter If e.Data .GetDataPresent ( DataFormats.FileDrop ) Then e.Effect = DragDropEffects.Copy Else e.Effect = DragDropEffects.None End If End Sub ' Display the dropped file names. Private Sub lblDropTarget_DragDrop( ByVal sender As Object , ByVal e As System.Windows .Forms .DragEventArgs ) Handles lblDropTarget.DragDrop lstFiles.Items .Clear () Dim file_names As String () = DirectCast( e.Data .GetData ( DataFormats.FileDrop ) , String ()) For Each file_name As String In file_names lstFiles.Items .Add ( file_name) Next file_name End Sub End Class <Global.Microsoft .VisualBasic .CompilerServices .DesignerGenerated () > _ Partial Public Class Form1 Inherits System.Windows .Forms .Form 'Form overrides dispose to clean up the component list. <System.Diagnostics .DebuggerNonUserCode () > _ Protected Overloads Overrides Sub Dispose( ByVal disposing As Boolean ) If disposing AndAlso components IsNot Nothing Then components.Dispose () End If MyBase .Dispose ( disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel .IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. <System.Diagnostics .DebuggerStepThrough () > _ Private Sub InitializeComponent() Me .lstFiles = New System.Windows .Forms .ListBox Me .lblDropTarget = New System.Windows .Forms .Label Me .SuspendLayout () ' 'lstFiles ' Me .lstFiles .Dock = System.Windows .Forms .DockStyle .Fill Me .lstFiles .FormattingEnabled = True Me .lstFiles .Location = New System.Drawing .Point ( 0 , 48 ) Me .lstFiles .Name = "lstFiles" Me .lstFiles .Size = New System.Drawing .Size ( 274 , 160 ) Me .lstFiles .TabIndex = 3 ' 'lblDropTarget ' Me .lblDropTarget .AllowDrop = True Me .lblDropTarget .BorderStyle = System.Windows .Forms .BorderStyle .Fixed3D Me .lblDropTarget .Dock = System.Windows .Forms .DockStyle .Top Me .lblDropTarget .Location = New System.Drawing .Point ( 0 , 0 ) Me .lblDropTarget .Name = "lblDropTarget" Me .lblDropTarget .Size = New System.Drawing .Size ( 274 , 48 ) Me .lblDropTarget .TabIndex = 2 Me .lblDropTarget .Text = "Drop Target" Me .lblDropTarget .TextAlign = System.Drawing .ContentAlignment .MiddleCenter ' 'Form1 ' Me .AutoScaleDimensions = New System.Drawing .SizeF ( 6.0 !, 13.0 !) Me .AutoScaleMode = System.Windows .Forms .AutoScaleMode .Font Me .ClientSize = New System.Drawing .Size ( 274 , 210 ) Me .Controls .Add ( Me .lstFiles ) Me .Controls .Add ( Me .lblDropTarget ) Me .Name = "Form1" Me .Text = "AcceptFiles" Me .ResumeLayout ( False ) End Sub Friend WithEvents lstFiles As System.Windows .Forms .ListBox Friend WithEvents lblDropTarget As System.Windows .Forms .Label End Class
Mousemızın bulunduğu pozisyon
'Copyright Zeki GÖRÜR 09.04.2009 saat:15:35 Imports System Imports System.Windows .Forms Public Class Form1 Inherits Form 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents Label1 As System.Windows .Forms .Label Private Sub Form1_Load( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MyBase .Load Me .Label1 = New System.Windows .Forms .Label () Me .SuspendLayout () ' 'Label1 ' Me .Label1 .Location = New System.Drawing .Point ( 48 , 32 ) Me .Label1 .Name = "Label1" Me .Label1 .Size = New System.Drawing .Size ( 192 , 16 ) Me .Label1 .TabIndex = 0 Me .Label1 .Text = "Label1" ' 'Form1 ' Me .AutoScaleBaseSize = New System.Drawing .Size ( 5 , 13 ) Me .ClientSize = New System.Drawing .Size ( 312 , 293 ) Me .Controls .AddRange ( New System.Windows .Forms .Control () { Me .Label1 }) Me .Name = "Form1" Me .Text = "Form1" Me .ResumeLayout ( False ) End Sub Protected Overrides Sub OnMouseMove( ByVal e As MouseEventArgs) Label1.Text = "X= " + e.X .ToString () + ", Y= " + e.Y .ToString () End Sub End Class
Fare ile ekrana yaz.
'Copyright Zeki GÖRÜR 09.04.2009 Imports System Imports System.Drawing Imports System.Windows .Forms Public Class FrmPainter Inherits System.Windows .Forms .Form Dim shouldPaint As Boolean = False Private Sub FrmPainter_MouseMove( _ ByVal sender As System.Object , _ ByVal e As System.Windows .Forms .MouseEventArgs ) _ Handles MyBase .MouseMove If shouldPaint Then Dim graphic As Graphics = CreateGraphics() graphic.FillRectangle _ ( New SolidBrush( Color.BlueViolet ) , e.X , e.Y , 4 , 4 ) End If End Sub Private Sub FrmPainter_MouseDown( ByVal sender As Object , _ ByVal e As System.Windows .Forms .MouseEventArgs ) _ Handles MyBase .MouseDown shouldPaint = True End Sub Private Sub FrmPainter_MouseUp( ByVal sender As Object , _ ByVal e As System.Windows .Forms .MouseEventArgs ) _ Handles MyBase .MouseUp shouldPaint = False End Sub Private Sub FrmPainter_Load( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MyBase .Load 'Form1 ' Me .AutoScaleBaseSize = New System.Drawing .Size ( 5 , 13 ) Me .ClientSize = New System.Drawing .Size ( 292 , 273 ) Me .Name = "Form1" Me .Text = "Painter" End Sub End Class
Sanal klavye.
'Copyright Zeki GÖRÜR 09/04/2009 perşembe saat:14:47 Imports System.Windows .Forms Imports System.Drawing Public Class Form1 Inherits System.Windows .Forms .Form ' reference to last Button pressed Private m_btnLastButton As Button Friend WithEvents lblPrompt As System.Windows .Forms .Label Friend WithEvents txtOutput As System.Windows .Forms .TextBox Friend WithEvents btnF1 As System.Windows .Forms .Button Friend WithEvents btnF2 As System.Windows .Forms .Button Friend WithEvents btnF3 As System.Windows .Forms .Button Friend WithEvents btnF4 As System.Windows .Forms .Button Friend WithEvents btnF5 As System.Windows .Forms .Button Friend WithEvents btnF6 As System.Windows .Forms .Button Friend WithEvents btnF7 As System.Windows .Forms .Button Friend WithEvents btnF8 As System.Windows .Forms .Button Friend WithEvents btnF9 As System.Windows .Forms .Button Friend WithEvents btnF10 As System.Windows .Forms .Button Friend WithEvents btnF11 As System.Windows .Forms .Button Friend WithEvents btnF12 As System.Windows .Forms .Button Friend WithEvents btn0 As System.Windows .Forms .Button Friend WithEvents btn1 As System.Windows .Forms .Button Friend WithEvents btn2 As System.Windows .Forms .Button Friend WithEvents btn3 As System.Windows .Forms .Button Friend WithEvents btn4 As System.Windows .Forms .Button Friend WithEvents btn5 As System.Windows .Forms .Button Friend WithEvents btn6 As System.Windows .Forms .Button Friend WithEvents btn7 As System.Windows .Forms .Button Friend WithEvents btn8 As System.Windows .Forms .Button Friend WithEvents btn9 As System.Windows .Forms .Button Friend WithEvents btnHyphen As System.Windows .Forms .Button Friend WithEvents btnPlus As System.Windows .Forms .Button Friend WithEvents btnTilde As System.Windows .Forms .Button Friend WithEvents btnTab As System.Windows .Forms .Button Friend WithEvents btnCaps As System.Windows .Forms .Button Friend WithEvents btnShiftLeft As System.Windows .Forms .Button Friend WithEvents btnCtrlLeft As System.Windows .Forms .Button Friend WithEvents btnFn As System.Windows .Forms .Button Friend WithEvents btnAltLeft As System.Windows .Forms .Button Friend WithEvents btnSpace As System.Windows .Forms .Button Friend WithEvents btnBackspace As System.Windows .Forms .Button Friend WithEvents btnSlash As System.Windows .Forms .Button Friend WithEvents btnEnter As System.Windows .Forms .Button Friend WithEvents btnUp As System.Windows .Forms .Button Friend WithEvents btnLeft As System.Windows .Forms .Button Friend WithEvents btnDown As System.Windows .Forms .Button Friend WithEvents btnRight As System.Windows .Forms .Button Friend WithEvents btnLeftBrace As System.Windows .Forms .Button Friend WithEvents btnRightBrace As System.Windows .Forms .Button Friend WithEvents btnColon As System.Windows .Forms .Button Friend WithEvents btnQuote As System.Windows .Forms .Button Friend WithEvents btnComma As System.Windows .Forms .Button Friend WithEvents btnPeriod As System.Windows .Forms .Button Friend WithEvents btnQuestion As System.Windows .Forms .Button Friend WithEvents btnA As System.Windows .Forms .Button Friend WithEvents btnB As System.Windows .Forms .Button Friend WithEvents btnC As System.Windows .Forms .Button Friend WithEvents btnD As System.Windows .Forms .Button Friend WithEvents btnE As System.Windows .Forms .Button Friend WithEvents btnF As System.Windows .Forms .Button Friend WithEvents btnG As System.Windows .Forms .Button Friend WithEvents btnH As System.Windows .Forms .Button Friend WithEvents btnI As System.Windows .Forms .Button Friend WithEvents btnJ As System.Windows .Forms .Button Friend WithEvents btnK As System.Windows .Forms .Button Friend WithEvents btnL As System.Windows .Forms .Button Friend WithEvents btnN As System.Windows .Forms .Button Friend WithEvents btnO As System.Windows .Forms .Button Friend WithEvents btnP As System.Windows .Forms .Button Friend WithEvents btnQ As System.Windows .Forms .Button Friend WithEvents btnR As System.Windows .Forms .Button Friend WithEvents btnS As System.Windows .Forms .Button Friend WithEvents btnT As System.Windows .Forms .Button Friend WithEvents btnU As System.Windows .Forms .Button Friend WithEvents btnV As System.Windows .Forms .Button Friend WithEvents btnW As System.Windows .Forms .Button Friend WithEvents btnM As System.Windows .Forms .Button Friend WithEvents btnX As System.Windows .Forms .Button Friend WithEvents btnY As System.Windows .Forms .Button Friend WithEvents btnZ As System.Windows .Forms .Button Private Sub Form1_Load( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MyBase .Load Me .lblPrompt = New System.Windows .Forms .Label Me .txtOutput = New System.Windows .Forms .TextBox Me .btnF1 = New System.Windows .Forms .Button Me .btnF2 = New System.Windows .Forms .Button Me .btnF3 = New System.Windows .Forms .Button Me .btnF4 = New System.Windows .Forms .Button Me .btnF5 = New System.Windows .Forms .Button Me .btnF6 = New System.Windows .Forms .Button Me .btnF7 = New System.Windows .Forms .Button Me .btnF8 = New System.Windows .Forms .Button Me .btnF9 = New System.Windows .Forms .Button Me .btnF10 = New System.Windows .Forms .Button Me .btnF11 = New System.Windows .Forms .Button Me .btnF12 = New System.Windows .Forms .Button Me .btn1 = New System.Windows .Forms .Button Me .btn2 = New System.Windows .Forms .Button Me .btn3 = New System.Windows .Forms .Button Me .btn4 = New System.Windows .Forms .Button Me .btn5 = New System.Windows .Forms .Button Me .btn6 = New System.Windows .Forms .Button Me .btn7 = New System.Windows .Forms .Button Me .btn8 = New System.Windows .Forms .Button Me .btn9 = New System.Windows .Forms .Button Me .btn0 = New System.Windows .Forms .Button Me .btnHyphen = New System.Windows .Forms .Button Me .btnPlus = New System.Windows .Forms .Button Me .btnTilde = New System.Windows .Forms .Button Me .btnTab = New System.Windows .Forms .Button Me .btnCtrlLeft = New System.Windows .Forms .Button Me .btnFn = New System.Windows .Forms .Button Me .btnAltLeft = New System.Windows .Forms .Button Me .btnEnter = New System.Windows .Forms .Button Me .btnSlash = New System.Windows .Forms .Button Me .btnBackspace = New System.Windows .Forms .Button Me .btnSpace = New System.Windows .Forms .Button Me .btnCaps = New System.Windows .Forms .Button Me .btnShiftLeft = New System.Windows .Forms .Button Me .btnUp = New System.Windows .Forms .Button Me .btnLeft = New System.Windows .Forms .Button Me .btnDown = New System.Windows .Forms .Button Me .btnRight = New System.Windows .Forms .Button Me .btnLeftBrace = New System.Windows .Forms .Button Me .btnRightBrace = New System.Windows .Forms .Button Me .btnColon = New System.Windows .Forms .Button Me .btnQuote = New System.Windows .Forms .Button Me .btnComma = New System.Windows .Forms .Button Me .btnPeriod = New System.Windows .Forms .Button Me .btnQuestion = New System.Windows .Forms .Button Me .btnC = New System.Windows .Forms .Button Me .btnB = New System.Windows .Forms .Button Me .btnA = New System.Windows .Forms .Button Me .btnG = New System.Windows .Forms .Button Me .btnF = New System.Windows .Forms .Button Me .btnE = New System.Windows .Forms .Button Me .btnD = New System.Windows .Forms .Button Me .btnK = New System.Windows .Forms .Button Me .btnJ = New System.Windows .Forms .Button Me .btnI = New System.Windows .Forms .Button Me .btnH = New System.Windows .Forms .Button Me .btnO = New System.Windows .Forms .Button Me .btnN = New System.Windows .Forms .Button Me .btnM = New System.Windows .Forms .Button Me .btnL = New System.Windows .Forms .Button Me .btnT = New System.Windows .Forms .Button Me .btnS = New System.Windows .Forms .Button Me .btnR = New System.Windows .Forms .Button Me .btnQ = New System.Windows .Forms .Button Me .btnP = New System.Windows .Forms .Button Me .btnY = New System.Windows .Forms .Button Me .btnX = New System.Windows .Forms .Button Me .btnW = New System.Windows .Forms .Button Me .btnV = New System.Windows .Forms .Button Me .btnU = New System.Windows .Forms .Button Me .btnZ = New System.Windows .Forms .Button ' 'lblPrompt ' Me .lblPrompt .Location = New System.Drawing .Point ( 32 , 8 ) Me .lblPrompt .Name = "lblPrompt" Me .lblPrompt .Size = New System.Drawing .Size ( 408 , 40 ) Me .lblPrompt .TabIndex = 64 Me .lblPrompt .Text = "Type some text using your keyboard." ' 'txtOutput ' Me .txtOutput .AcceptsTab = True Me .txtOutput .BackColor = System.Drawing .Color .White Me .txtOutput .Font = New System.Drawing .Font ( "Tahoma" , 10.2 !) Me .txtOutput .Location = New System.Drawing .Point ( 32 , 64 ) Me .txtOutput .Multiline = True Me .txtOutput .Name = "txtOutput" Me .txtOutput .ReadOnly = True Me .txtOutput .Size = New System.Drawing .Size ( 408 , 136 ) Me .txtOutput .TabIndex = 0 Me .txtOutput .Text = "" ' 'btnF1 ' Me .btnF1 .Location = New System.Drawing .Point ( 48 , 216 ) Me .btnF1 .Name = "btnF1" Me .btnF1 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF1 .TabIndex = 74 Me .btnF1 .Text = "F1" ' 'btnF2 ' Me .btnF2 .Location = New System.Drawing .Point ( 80 , 216 ) Me .btnF2 .Name = "btnF2" Me .btnF2 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF2 .TabIndex = 72 Me .btnF2 .Text = "F2" ' 'btnF3 ' Me .btnF3 .Location = New System.Drawing .Point ( 112 , 216 ) Me .btnF3 .Name = "btnF3" Me .btnF3 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF3 .TabIndex = 67 Me .btnF3 .Text = "F3" ' 'btnF4 ' Me .btnF4 .Location = New System.Drawing .Point ( 144 , 216 ) Me .btnF4 .Name = "btnF4" Me .btnF4 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF4 .TabIndex = 68 Me .btnF4 .Text = "F4" ' 'btnF5 ' Me .btnF5 .Location = New System.Drawing .Point ( 176 , 216 ) Me .btnF5 .Name = "btnF5" Me .btnF5 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF5 .TabIndex = 69 Me .btnF5 .Text = "F5" ' 'btnF6 ' Me .btnF6 .Location = New System.Drawing .Point ( 208 , 216 ) Me .btnF6 .Name = "btnF6" Me .btnF6 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF6 .TabIndex = 70 Me .btnF6 .Text = "F6" ' 'btnF7 ' Me .btnF7 .Location = New System.Drawing .Point ( 240 , 216 ) Me .btnF7 .Name = "btnF7" Me .btnF7 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF7 .TabIndex = 71 Me .btnF7 .Text = "F7" ' 'btnF8 ' Me .btnF8 .Location = New System.Drawing .Point ( 272 , 216 ) Me .btnF8 .Name = "btnF8" Me .btnF8 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF8 .TabIndex = 72 Me .btnF8 .Text = "F8" ' 'btnF9 ' Me .btnF9 .Location = New System.Drawing .Point ( 304 , 216 ) Me .btnF9 .Name = "btnF9" Me .btnF9 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF9 .TabIndex = 73 Me .btnF9 .Text = "F9" ' 'btnF10 ' Me .btnF10 .Location = New System.Drawing .Point ( 336 , 216 ) Me .btnF10 .Name = "btnF10" Me .btnF10 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF10 .TabIndex = 74 Me .btnF10 .Text = "F10" ' 'btnF11 ' Me .btnF11 .Location = New System.Drawing .Point ( 368 , 216 ) Me .btnF11 .Name = "btnF11" Me .btnF11 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF11 .TabIndex = 75 Me .btnF11 .Text = "F11" ' 'btnF12 ' Me .btnF12 .Location = New System.Drawing .Point ( 400 , 216 ) Me .btnF12 .Name = "btnF12" Me .btnF12 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF12 .TabIndex = 76 Me .btnF12 .Text = "F12" ' 'btn1 ' Me .btn1 .Location = New System.Drawing .Point ( 80 , 240 ) Me .btn1 .Name = "btn1" Me .btn1 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn1 .TabIndex = 77 Me .btn1 .Text = "1" ' 'btn2 ' Me .btn2 .Location = New System.Drawing .Point ( 104 , 240 ) Me .btn2 .Name = "btn2" Me .btn2 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn2 .TabIndex = 78 Me .btn2 .Text = "2" ' 'btn3 ' Me .btn3 .Location = New System.Drawing .Point ( 128 , 240 ) Me .btn3 .Name = "btn3" Me .btn3 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn3 .TabIndex = 79 Me .btn3 .Text = "3" ' 'btn4 ' Me .btn4 .Location = New System.Drawing .Point ( 152 , 240 ) Me .btn4 .Name = "btn4" Me .btn4 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn4 .TabIndex = 80 Me .btn4 .Text = "4" ' 'btn5 ' Me .btn5 .Location = New System.Drawing .Point ( 176 , 240 ) Me .btn5 .Name = "btn5" Me .btn5 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn5 .TabIndex = 81 Me .btn5 .Text = "5" ' 'btn6 ' Me .btn6 .Location = New System.Drawing .Point ( 200 , 240 ) Me .btn6 .Name = "btn6" Me .btn6 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn6 .TabIndex = 82 Me .btn6 .Text = "6" ' 'btn7 ' Me .btn7 .Location = New System.Drawing .Point ( 224 , 240 ) Me .btn7 .Name = "btn7" Me .btn7 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn7 .TabIndex = 83 Me .btn7 .Text = "7" ' 'btn8 ' Me .btn8 .Location = New System.Drawing .Point ( 248 , 240 ) Me .btn8 .Name = "btn8" Me .btn8 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn8 .TabIndex = 84 Me .btn8 .Text = "8" ' 'btn9 ' Me .btn9 .Location = New System.Drawing .Point ( 272 , 240 ) Me .btn9 .Name = "btn9" Me .btn9 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn9 .TabIndex = 85 Me .btn9 .Text = "9" ' 'btn0 ' Me .btn0 .Location = New System.Drawing .Point ( 296 , 240 ) Me .btn0 .Name = "btn0" Me .btn0 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn0 .TabIndex = 86 Me .btn0 .Text = "0" ' 'btnHyphen ' Me .btnHyphen .Location = New System.Drawing .Point ( 320 , 240 ) Me .btnHyphen .Name = "btnHyphen" Me .btnHyphen .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnHyphen .TabIndex = 87 Me .btnHyphen .Text = "-" ' 'btnPlus ' Me .btnPlus .Location = New System.Drawing .Point ( 344 , 240 ) Me .btnPlus .Name = "btnPlus" Me .btnPlus .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnPlus .TabIndex = 88 Me .btnPlus .Text = "+" ' 'btnTilde ' Me .btnTilde .Location = New System.Drawing .Point ( 32 , 240 ) Me .btnTilde .Name = "btnTilde" Me .btnTilde .Size = New System.Drawing .Size ( 48 , 23 ) Me .btnTilde .TabIndex = 89 Me .btnTilde .Text = "~" ' 'btnTab ' Me .btnTab .Location = New System.Drawing .Point ( 32 , 264 ) Me .btnTab .Name = "btnTab" Me .btnTab .Size = New System.Drawing .Size ( 64 , 23 ) Me .btnTab .TabIndex = 90 Me .btnTab .Text = "Tab" ' 'btnCtrlLeft ' Me .btnCtrlLeft .Location = New System.Drawing .Point ( 32 , 336 ) Me .btnCtrlLeft .Name = "btnCtrlLeft" Me .btnCtrlLeft .Size = New System.Drawing .Size ( 56 , 23 ) Me .btnCtrlLeft .TabIndex = 91 Me .btnCtrlLeft .Text = "Ctrl" ' 'btnFn ' Me .btnFn .Enabled = False Me .btnFn .Location = New System.Drawing .Point ( 88 , 336 ) Me .btnFn .Name = "btnFn" Me .btnFn .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnFn .TabIndex = 92 Me .btnFn .Text = "Fn" ' 'btnAltLeft ' Me .btnAltLeft .Location = New System.Drawing .Point ( 120 , 336 ) Me .btnAltLeft .Name = "btnAltLeft" Me .btnAltLeft .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnAltLeft .TabIndex = 93 Me .btnAltLeft .Text = "Alt" ' 'btnEnter ' Me .btnEnter .Location = New System.Drawing .Point ( 368 , 288 ) Me .btnEnter .Name = "btnEnter" Me .btnEnter .Size = New System.Drawing .Size ( 72 , 23 ) Me .btnEnter .TabIndex = 94 Me .btnEnter .Text = "Enter" ' 'btnSlash ' Me .btnSlash .Location = New System.Drawing .Point ( 384 , 264 ) Me .btnSlash .Name = "btnSlash" Me .btnSlash .Size = New System.Drawing .Size ( 56 , 23 ) Me .btnSlash .TabIndex = 95 Me .btnSlash .Text = "" ' 'btnBackspace ' Me .btnBackspace .Location = New System.Drawing .Point ( 368 , 240 ) Me .btnBackspace .Name = "btnBackspace" Me .btnBackspace .Size = New System.Drawing .Size ( 72 , 23 ) Me .btnBackspace .TabIndex = 96 Me .btnBackspace .Text = "Backspace" ' 'btnSpace ' Me .btnSpace .Location = New System.Drawing .Point ( 152 , 336 ) Me .btnSpace .Name = "btnSpace" Me .btnSpace .Size = New System.Drawing .Size ( 144 , 23 ) Me .btnSpace .TabIndex = 97 ' 'btnCaps ' Me .btnCaps .Location = New System.Drawing .Point ( 32 , 288 ) Me .btnCaps .Name = "btnCaps" Me .btnCaps .Size = New System.Drawing .Size ( 72 , 23 ) Me .btnCaps .TabIndex = 98 Me .btnCaps .Text = "Caps Lock" ' 'btnShiftLeft ' Me .btnShiftLeft .Location = New System.Drawing .Point ( 32 , 312 ) Me .btnShiftLeft .Name = "btnShiftLeft" Me .btnShiftLeft .Size = New System.Drawing .Size ( 88 , 23 ) Me .btnShiftLeft .TabIndex = 99 Me .btnShiftLeft .Text = "Shift" ' 'btnUp ' Me .btnUp .Location = New System.Drawing .Point ( 384 , 312 ) Me .btnUp .Name = "btnUp" Me .btnUp .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnUp .TabIndex = 100 Me .btnUp .Text = "^" ' 'btnLeft ' Me .btnLeft .Location = New System.Drawing .Point ( 360 , 336 ) Me .btnLeft .Name = "btnLeft" Me .btnLeft .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnLeft .TabIndex = 101 Me .btnLeft .Text = "<" ' 'btnDown ' Me .btnDown .Location = New System.Drawing .Point ( 384 , 336 ) Me .btnDown .Name = "btnDown" Me .btnDown .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnDown .TabIndex = 102 Me .btnDown .Text = "v" ' 'btnRight ' Me .btnRight .Location = New System.Drawing .Point ( 408 , 336 ) Me .btnRight .Name = "btnRight" Me .btnRight .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnRight .TabIndex = 103 Me .btnRight .Text = ">" ' 'btnLeftBrace ' Me .btnLeftBrace .Location = New System.Drawing .Point ( 336 , 264 ) Me .btnLeftBrace .Name = "btnLeftBrace" Me .btnLeftBrace .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnLeftBrace .TabIndex = 104 Me .btnLeftBrace .Text = "[" ' 'btnRightBrace ' Me .btnRightBrace .Location = New System.Drawing .Point ( 360 , 264 ) Me .btnRightBrace .Name = "btnRightBrace" Me .btnRightBrace .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnRightBrace .TabIndex = 105 Me .btnRightBrace .Text = "]" ' 'btnColon ' Me .btnColon .Location = New System.Drawing .Point ( 320 , 288 ) Me .btnColon .Name = "btnColon" Me .btnColon .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnColon .TabIndex = 106 Me .btnColon .Text = ":" ' 'btnQuote ' Me .btnQuote .Location = New System.Drawing .Point ( 344 , 288 ) Me .btnQuote .Name = "btnQuote" Me .btnQuote .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnQuote .TabIndex = 107 Me .btnQuote .Text = """" ' 'btnComma ' Me .btnComma .Location = New System.Drawing .Point ( 288 , 312 ) Me .btnComma .Name = "btnComma" Me .btnComma .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnComma .TabIndex = 108 Me .btnComma .Text = "," ' 'btnPeriod ' Me .btnPeriod .Location = New System.Drawing .Point ( 312 , 312 ) Me .btnPeriod .Name = "btnPeriod" Me .btnPeriod .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnPeriod .TabIndex = 109 Me .btnPeriod .Text = "." ' 'btnQuestion ' Me .btnQuestion .Location = New System.Drawing .Point ( 336 , 312 ) Me .btnQuestion .Name = "btnQuestion" Me .btnQuestion .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnQuestion .TabIndex = 110 Me .btnQuestion .Text = "?" ' 'btnC ' Me .btnC .Location = New System.Drawing .Point ( 168 , 312 ) Me .btnC .Name = "btnC" Me .btnC .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnC .TabIndex = 111 Me .btnC .Text = "C" ' 'btnB ' Me .btnB .Location = New System.Drawing .Point ( 216 , 312 ) Me .btnB .Name = "btnB" Me .btnB .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnB .TabIndex = 112 Me .btnB .Text = "B" ' 'btnA ' Me .btnA .Location = New System.Drawing .Point ( 104 , 288 ) Me .btnA .Name = "btnA" Me .btnA .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnA .TabIndex = 113 Me .btnA .Text = "A" ' 'btnG ' Me .btnG .Location = New System.Drawing .Point ( 200 , 288 ) Me .btnG .Name = "btnG" Me .btnG .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnG .TabIndex = 114 Me .btnG .Text = "G" ' 'btnF ' Me .btnF .Location = New System.Drawing .Point ( 176 , 288 ) Me .btnF .Name = "btnF" Me .btnF .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnF .TabIndex = 115 Me .btnF .Text = "F" ' 'btnE ' Me .btnE .Location = New System.Drawing .Point ( 144 , 264 ) Me .btnE .Name = "btnE" Me .btnE .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnE .TabIndex = 116 Me .btnE .Text = "E" ' 'btnD ' Me .btnD .Location = New System.Drawing .Point ( 152 , 288 ) Me .btnD .Name = "btnD" Me .btnD .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnD .TabIndex = 117 Me .btnD .Text = "D" ' 'btnK ' Me .btnK .Location = New System.Drawing .Point ( 272 , 288 ) Me .btnK .Name = "btnK" Me .btnK .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnK .TabIndex = 118 Me .btnK .Text = "K" ' 'btnJ ' Me .btnJ .Location = New System.Drawing .Point ( 248 , 288 ) Me .btnJ .Name = "btnJ" Me .btnJ .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnJ .TabIndex = 119 Me .btnJ .Text = "J" ' 'btnI ' Me .btnI .Location = New System.Drawing .Point ( 264 , 264 ) Me .btnI .Name = "btnI" Me .btnI .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnI .TabIndex = 120 Me .btnI .Text = "I" ' 'btnH ' Me .btnH .Location = New System.Drawing .Point ( 224 , 288 ) Me .btnH .Name = "btnH" Me .btnH .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnH .TabIndex = 121 Me .btnH .Text = "H" ' 'btnO ' Me .btnO .Location = New System.Drawing .Point ( 288 , 264 ) Me .btnO .Name = "btnO" Me .btnO .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnO .TabIndex = 122 Me .btnO .Text = "O" ' 'btnN ' Me .btnN .Location = New System.Drawing .Point ( 240 , 312 ) Me .btnN .Name = "btnN" Me .btnN .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnN .TabIndex = 123 Me .btnN .Text = "N" ' 'btnM ' Me .btnM .Location = New System.Drawing .Point ( 264 , 312 ) Me .btnM .Name = "btnM" Me .btnM .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnM .TabIndex = 124 Me .btnM .Text = "M" ' 'btnL ' Me .btnL .Location = New System.Drawing .Point ( 296 , 288 ) Me .btnL .Name = "btnL" Me .btnL .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnL .TabIndex = 125 Me .btnL .Text = "L" ' 'btnT ' Me .btnT .Location = New System.Drawing .Point ( 192 , 264 ) Me .btnT .Name = "btnT" Me .btnT .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnT .TabIndex = 126 Me .btnT .Text = "T" ' 'btnS ' Me .btnS .Location = New System.Drawing .Point ( 128 , 288 ) Me .btnS .Name = "btnS" Me .btnS .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnS .TabIndex = 127 Me .btnS .Text = "S" ' 'btnR ' Me .btnR .Location = New System.Drawing .Point ( 168 , 264 ) Me .btnR .Name = "btnR" Me .btnR .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnR .TabIndex = 128 Me .btnR .Text = "R" ' 'btnQ ' Me .btnQ .Location = New System.Drawing .Point ( 96 , 264 ) Me .btnQ .Name = "btnQ" Me .btnQ .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnQ .TabIndex = 129 Me .btnQ .Text = "Q" ' 'btnP ' Me .btnP .Location = New System.Drawing .Point ( 312 , 264 ) Me .btnP .Name = "btnP" Me .btnP .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnP .TabIndex = 130 Me .btnP .Text = "P" ' 'btnY ' Me .btnY .Location = New System.Drawing .Point ( 216 , 264 ) Me .btnY .Name = "btnY" Me .btnY .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnY .TabIndex = 131 Me .btnY .Text = "Y" ' 'btnX ' Me .btnX .Location = New System.Drawing .Point ( 144 , 312 ) Me .btnX .Name = "btnX" Me .btnX .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnX .TabIndex = 132 Me .btnX .Text = "X" ' 'btnW ' Me .btnW .Location = New System.Drawing .Point ( 120 , 264 ) Me .btnW .Name = "btnW" Me .btnW .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnW .TabIndex = 133 Me .btnW .Text = "W" ' 'btnV ' Me .btnV .Location = New System.Drawing .Point ( 192 , 312 ) Me .btnV .Name = "btnV" Me .btnV .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnV .TabIndex = 134 Me .btnV .Text = "V" ' 'btnU ' Me .btnU .Location = New System.Drawing .Point ( 240 , 264 ) Me .btnU .Name = "btnU" Me .btnU .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnU .TabIndex = 135 Me .btnU .Text = "U" ' 'btnZ ' Me .btnZ .Location = New System.Drawing .Point ( 120 , 312 ) Me .btnZ .Name = "btnZ" Me .btnZ .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnZ .TabIndex = 136 Me .btnZ .Text = "Z" ' 'FrmTypingApplication ' Me .AutoScaleBaseSize = New System.Drawing .Size ( 5 , 14 ) Me .ClientSize = New System.Drawing .Size ( 472 , 369 ) Me .Controls .Add ( Me .btnZ ) Me .Controls .Add ( Me .btnU ) Me .Controls .Add ( Me .btnV ) Me .Controls .Add ( Me .btnW ) Me .Controls .Add ( Me .btnX ) Me .Controls .Add ( Me .btnY ) Me .Controls .Add ( Me .btnP ) Me .Controls .Add ( Me .btnQ ) Me .Controls .Add ( Me .btnR ) Me .Controls .Add ( Me .btnS ) Me .Controls .Add ( Me .btnT ) Me .Controls .Add ( Me .btnL ) Me .Controls .Add ( Me .btnM ) Me .Controls .Add ( Me .btnN ) Me .Controls .Add ( Me .btnO ) Me .Controls .Add ( Me .btnH ) Me .Controls .Add ( Me .btnI ) Me .Controls .Add ( Me .btnJ ) Me .Controls .Add ( Me .btnK ) Me .Controls .Add ( Me .btnD ) Me .Controls .Add ( Me .btnE ) Me .Controls .Add ( Me .btnF ) Me .Controls .Add ( Me .btnG ) Me .Controls .Add ( Me .btnA ) Me .Controls .Add ( Me .btnB ) Me .Controls .Add ( Me .btnC ) Me .Controls .Add ( Me .btnQuestion ) Me .Controls .Add ( Me .btnPeriod ) Me .Controls .Add ( Me .btnComma ) Me .Controls .Add ( Me .btnQuote ) Me .Controls .Add ( Me .btnColon ) Me .Controls .Add ( Me .btnRightBrace ) Me .Controls .Add ( Me .btnLeftBrace ) Me .Controls .Add ( Me .btnRight ) Me .Controls .Add ( Me .btnDown ) Me .Controls .Add ( Me .btnLeft ) Me .Controls .Add ( Me .btnUp ) Me .Controls .Add ( Me .btnShiftLeft ) Me .Controls .Add ( Me .btnCaps ) Me .Controls .Add ( Me .btnSpace ) Me .Controls .Add ( Me .btnBackspace ) Me .Controls .Add ( Me .btnSlash ) Me .Controls .Add ( Me .btnEnter ) Me .Controls .Add ( Me .btnAltLeft ) Me .Controls .Add ( Me .btnFn ) Me .Controls .Add ( Me .btnCtrlLeft ) Me .Controls .Add ( Me .btnTab ) Me .Controls .Add ( Me .btnTilde ) Me .Controls .Add ( Me .btnPlus ) Me .Controls .Add ( Me .btnHyphen ) Me .Controls .Add ( Me .btn0 ) Me .Controls .Add ( Me .btn9 ) Me .Controls .Add ( Me .btn8 ) Me .Controls .Add ( Me .btn7 ) Me .Controls .Add ( Me .btn6 ) Me .Controls .Add ( Me .btn5 ) Me .Controls .Add ( Me .btn4 ) Me .Controls .Add ( Me .btn3 ) Me .Controls .Add ( Me .btn2 ) Me .Controls .Add ( Me .btn1 ) Me .Controls .Add ( Me .btnF12 ) Me .Controls .Add ( Me .btnF11 ) Me .Controls .Add ( Me .btnF10 ) Me .Controls .Add ( Me .btnF9 ) Me .Controls .Add ( Me .btnF8 ) Me .Controls .Add ( Me .btnF7 ) Me .Controls .Add ( Me .btnF6 ) Me .Controls .Add ( Me .btnF5 ) Me .Controls .Add ( Me .btnF4 ) Me .Controls .Add ( Me .btnF3 ) Me .Controls .Add ( Me .btnF2 ) Me .Controls .Add ( Me .btnF1 ) Me .Controls .Add ( Me .txtOutput ) Me .Controls .Add ( Me .lblPrompt ) Me .Font = New System.Drawing .Font ( "Tahoma" , 8.25 !, System.Drawing .FontStyle .Regular , System.Drawing .GraphicsUnit .Point , CType ( 0 , Byte )) Me .Name = "FrmTypingApplication" Me .Text = "Typing Application" Me .ResumeLayout ( False ) End Sub Private Sub txtOutput_KeyDown( ByVal sender As Object , _ ByVal e As System.Windows .Forms .KeyEventArgs ) _ Handles txtOutput.KeyDown Select Case e.KeyData Case Keys.Back ChangeColor( btnBackspace) Case Keys.Enter ChangeColor( btnEnter) Case Keys.Tab ChangeColor( btnTab) Case Keys.Space ChangeColor( btnSpace) Case Keys.D0 ChangeColor( btn0) Case Keys.D1 ChangeColor( btn1) Case Keys.D2 ChangeColor( btn2) Case Keys.D3 ChangeColor( btn3) Case Keys.D4 ChangeColor( btn4) Case Keys.D5 ChangeColor( btn5) Case Keys.D6 ChangeColor( btn6) Case Keys.D7 ChangeColor( btn7) Case Keys.D8 ChangeColor( btn8) Case Keys.D9 ChangeColor( btn9) Case Keys.F1 ChangeColor( btnF1) Case Keys.F2 ChangeColor( btnF2) Case Keys.F3 ChangeColor( btnF3) Case Keys.F4 ChangeColor( btnF4) Case Keys.F5 ChangeColor( btnF5) Case Keys.F6 ChangeColor( btnF6) Case Keys.F7 ChangeColor( btnF7) Case Keys.F8 ChangeColor( btnF8) Case Keys.F9 ChangeColor( btnF9) Case Keys.F10 ChangeColor( btnF10) Case Keys.F11 ChangeColor( btnF11) Case Keys.F12 ChangeColor( btnF12) Case Keys.OemOpenBrackets ChangeColor( btnLeftBrace) Case Keys.OemCloseBrackets ChangeColor( btnRightBrace) Case Keys.Oemplus ChangeColor( btnPlus) Case Keys.OemMinus ChangeColor( btnHyphen) Case Keys.Oemtilde ChangeColor( btnTilde) Case Keys.OemPipe ChangeColor( btnSlash) Case Keys.OemSemicolon ChangeColor( btnColon) Case Keys.OemQuotes ChangeColor( btnQuote) Case Keys.OemPeriod ChangeColor( btnPeriod) Case Keys.Oemcomma ChangeColor( btnComma) Case Keys.OemQuestion ChangeColor( btnQuestion) Case Keys.CapsLock ChangeColor( btnCaps) Case Keys.Down ChangeColor( btnDown) Case Keys.Up ChangeColor( btnUp) Case Keys.Left ChangeColor( btnLeft) Case Keys.Right ChangeColor( btnRight) ' if a modifier key was pressed Case CType ( 65552 , Keys) ' Shift key ChangeColor( btnShiftLeft) Case CType ( 131089 , Keys) ' Control key ChangeColor( btnCtrlLeft) Case CType ( 262162 , Keys) ' Alt key ChangeColor( btnAltLeft) End Select txtOutput.Text &= e.KeyData End Sub Private Sub txtOutput_KeyPress( ByVal sender As Object , _ ByVal e As System.Windows .Forms .KeyPressEventArgs ) _ Handles txtOutput.KeyPress txtOutput.Text &= e.KeyChar Select Case Char.ToUpper ( e.KeyChar ) Case Convert.ToChar ( Keys.A ) ' a key ChangeColor( btnA) Case Convert.ToChar ( Keys.B ) ' b key ChangeColor( btnB) Case Convert.ToChar ( Keys.C ) ' c key ChangeColor( btnC) Case Convert.ToChar ( Keys.D ) ' d key ChangeColor( btnD) Case Convert.ToChar ( Keys.E ) ' e key ChangeColor( btnE) Case Convert.ToChar ( Keys.F ) ' f key ChangeColor( btnF) Case Convert.ToChar ( Keys.G ) ' g key ChangeColor( btnG) Case Convert.ToChar ( Keys.H ) ' h key ChangeColor( btnH) Case Convert.ToChar ( Keys.I ) ' i key ChangeColor( btnI) Case Convert.ToChar ( Keys.J ) ' j key ChangeColor( btnJ) Case Convert.ToChar ( Keys.K ) ' k key ChangeColor( btnK) Case Convert.ToChar ( Keys.L ) ' l key ChangeColor( btnL) Case Convert.ToChar ( Keys.M ) ' m key ChangeColor( btnM) Case Convert.ToChar ( Keys.N ) ' n key ChangeColor( btnN) Case Convert.ToChar ( Keys.O ) ' o key ChangeColor( btnO) Case Convert.ToChar ( Keys.P ) ' p key ChangeColor( btnP) Case Convert.ToChar ( Keys.Q ) ' q key ChangeColor( btnQ) Case Convert.ToChar ( Keys.R ) ' r key ChangeColor( btnR) Case Convert.ToChar ( Keys.S ) ' s key ChangeColor( btnS) Case Convert.ToChar ( Keys.T ) ' t key ChangeColor( btnT) Case Convert.ToChar ( Keys.U ) ' u key ChangeColor( btnU) Case Convert.ToChar ( Keys.V ) ' v key ChangeColor( btnV) Case Convert.ToChar ( Keys.W ) ' w key ChangeColor( btnW) Case Convert.ToChar ( Keys.X ) ' x key ChangeColor( btnX) Case Convert.ToChar ( Keys.Y ) ' y key ChangeColor( btnY) Case Convert.ToChar ( Keys.Z ) ' z key ChangeColor( btnZ) End Select End Sub Private Sub txtOutput_KeyUp( ByVal sender As Object , _ ByVal e As System.Windows .Forms .KeyEventArgs ) _ Handles txtOutput.KeyUp ResetColor() End Sub ' txtOutput_KeyUp Private Sub ChangeColor( ByVal btnButton As Button) ResetColor() btnButton.BackColor = Color.Red m_btnLastButton = btnButton End Sub ' ChangeColor Private Sub ResetColor() If IsNothing( m_btnLastButton) = False Then m_btnLastButton.BackColor = _ Control.DefaultBackColor End If End Sub End Class
Bulunduğunuz dizin.
Imports System.IO Module Module1 Sub Main() Dim Current As String Dim Parent As DirectoryInfo Try Current = Directory .GetCurrentDirectory () Parent = Directory .GetParent ( Current) Console.WriteLine ( "Current directory {0}" , Current) Console.WriteLine ( "Parent directory {0}" , Parent.FullName ) Catch E As Exception Console.WriteLine ( "Error determining parent directory" ) Console.WriteLine ( E.Message ) End Try End Sub End Module
Pasta grafik
Public Class Form1 Inherits System.Windows .Forms .Form #Region " Windows Form Designer generated code " Public Sub New () MyBase .New () 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose( ByVal disposing As Boolean ) If disposing Then If Not ( components Is Nothing ) Then components.Dispose () End If End If MyBase .Dispose ( disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel .IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents Label1 As System.Windows .Forms .Label Friend WithEvents Label2 As System.Windows .Forms .Label Friend WithEvents TextBox1 As System.Windows .Forms .TextBox Friend WithEvents TextBox2 As System.Windows .Forms .TextBox Friend WithEvents Button1 As System.Windows .Forms .Button <System.Diagnostics .DebuggerStepThrough () > Private Sub InitializeComponent() Me .Label1 = New System.Windows .Forms .Label () Me .Label2 = New System.Windows .Forms .Label () Me .TextBox1 = New System.Windows .Forms .TextBox () Me .TextBox2 = New System.Windows .Forms .TextBox () Me .Button1 = New System.Windows .Forms .Button () Me .SuspendLayout () ' 'Label1 ' Me .Label1 .Location = New System.Drawing .Point ( 0 , 16 ) Me .Label1 .Name = "Label1" Me .Label1 .TabIndex = 0 Me .Label1 .Text = "Parti Adı" ' 'Label2 ' Me .Label2 .Location = New System.Drawing .Point ( 0 , 40 ) Me .Label2 .Name = "Label2" Me .Label2 .TabIndex = 1 Me .Label2 .Text = "Aldığı Oy" ' 'TextBox1 ' Me .TextBox1 .Location = New System.Drawing .Point ( 112 , 16 ) Me .TextBox1 .Name = "TextBox1" Me .TextBox1 .TabIndex = 2 Me .TextBox1 .Text = "TextBox1" ' 'TextBox2 ' Me .TextBox2 .Location = New System.Drawing .Point ( 112 , 40 ) Me .TextBox2 .Name = "TextBox2" Me .TextBox2 .TabIndex = 3 Me .TextBox2 .Text = "TextBox2" ' 'Button1 ' Me .Button1 .Location = New System.Drawing .Point ( 216 , 16 ) Me .Button1 .Name = "Button1" Me .Button1 .Size = New System.Drawing .Size ( 120 , 46 ) Me .Button1 .TabIndex = 4 Me .Button1 .Text = "Ekle" ' 'Form1 ' Me .AutoScaleBaseSize = New System.Drawing .Size ( 5 , 13 ) Me .ClientSize = New System.Drawing .Size ( 344 , 302 ) Me .Controls .AddRange ( New System.Windows .Forms .Control () { Me .Button1 , Me .TextBox2 , Me .TextBox1 , Me .Label2 , Me .Label1 }) Me .Name = "Form1" Me .Text = "Form1" Me .ResumeLayout ( False ) End Sub #End Region Dim partiler( 20 ) As String , oylar( 20 ) As Integer Dim sıra_no As Integer , toplam_oy As Integer Private Sub Button1_Click( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click If sıra_no > 20 Then MsgBox ( "En çok 20 parti olabilir" ) Exit Sub End If partiler( sıra_no) = TextBox1.Text oylar( sıra_no) = Val ( TextBox2.Text ) toplam_oy += oylar( sıra_no) sıra_no += 1 Dim g As Graphics g = Me .CreateGraphics Dim i, başlangıç_açısı, yay_açısı As Integer Dim renk As Color, fırça As Drawing2D.HatchBrush For i = 0 To sıra_no - 1 yay_açısı = 360 * oylar( i) / toplam_oy renk = Color.FromArgb ( Rnd () * 255 , Rnd () * 255 , Rnd () * 255 ) fırça = New Drawing2D.HatchBrush ( Rnd () * 50 , renk) g.FillPie ( fırça, 0 , 80 , 200 , 200 , başlangıç_açısı, yay_açısı) g.FillRectangle ( fırça, 210 , 80 + i * 20 , 18 , 18 ) g.DrawString ( partiler( i) & "=" & oylar( i) , New Font( "Tahoma" , 8 , FontStyle.Regular ) , New SolidBrush( Color.Red ) , 230 , 80 + i * 20 ) başlangıç_açısı += yay_açısı Next End Sub End Class
Grafik çizim2
'Copyright Zeki GÖRÜR Public Class Form1 Inherits System.Windows .Forms .Form #Region " Windows Form Designer generated code " Public Sub New () MyBase .New () 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose( ByVal disposing As Boolean ) If disposing Then If Not ( components Is Nothing ) Then components.Dispose () End If End If MyBase .Dispose ( disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel .IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. <System.Diagnostics .DebuggerStepThrough () > Private Sub InitializeComponent() ' 'Form1 ' Me .AutoScaleBaseSize = New System.Drawing .Size ( 5 , 13 ) Me .ClientSize = New System.Drawing .Size ( 648 , 302 ) Me .Name = "Form1" Me .Text = "Form1" End Sub #End Region Function f( ByVal x) As Double Return x * Math.Sin ( 5 * x * Math.PI / 180 ) End Function Protected Overrides Sub OnPaint( ByVal e As System.Windows .Forms .PaintEventArgs ) Dim xorta, yorta, xmax, ymax As Integer xorta = Me .ClientSize .Width 2 yorta = Me .ClientSize .Height 2 e.Graphics .TranslateTransform ( xorta, yorta) xmax = Me .ClientSize .Width ymax = Me .ClientSize .Height 'Önceki grafiği sil e.Graphics .Clear ( Me .BackColor ) 'eksenleri çiz e.Graphics .DrawLine ( New Pen( Color.Blue , 2 ) , -xorta, 0 , xorta, 0 ) 'x ekseni e.Graphics .DrawLine ( New Pen( Color.Blue , 2 ) , 0 , -yorta, 0 , yorta) 'y ekseni Dim x, y As Single For x = -xorta To xorta Step 0.1 'fonksiyonu hesapla y = -f( x) 'Koordinatları çevir 'O noktaya 1 pixellik çizgi çiz e.Graphics .DrawLine ( New Pen( Color.Red , 1 ) , x, y, x + 1 , y) Next End Sub Private Sub Form1_Load( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MyBase .Load End Sub End Class
Setclip işlemi
Copyright Zeki GÖRÜR Public Class Form1 Inherits System.Windows .Forms .Form #Region " Windows Form Designer generated code " Public Sub New () MyBase .New () 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose( ByVal disposing As Boolean ) If disposing Then If Not ( components Is Nothing ) Then components.Dispose () End If End If MyBase .Dispose ( disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel .IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. <System.Diagnostics .DebuggerStepThrough () > Private Sub InitializeComponent() ' 'Form1 ' Me .AutoScaleBaseSize = New System.Drawing .Size ( 5 , 13 ) Me .ClientSize = New System.Drawing .Size ( 568 , 550 ) Me .Name = "Form1" Me .Text = "Form1" End Sub #End Region Protected Overrides Sub OnPaint( ByVal e As System.Windows .Forms .PaintEventArgs ) Dim resim As Image = Image.FromFile ( "c:windowswinnt.bmp" ) Dim p As New Drawing2D.GraphicsPath () Me .Text = "Zeki Görür ile VB.NET 2009" p.AddEllipse ( 0 , 0 , resim.Width , resim.Height ) e.Graphics .SetClip ( p) e.Graphics .DrawImage ( resim, 0 , 0 ) p.Reset () p.AddPie ( 300 , 0 , resim.Width , resim.Height , 30 , 150 ) e.Graphics .SetClip ( p) e.Graphics .DrawImage ( resim, 300 , 0 ) p.Reset () p.AddPie ( 0 , 200 , resim.Width , resim.Height , 30 , 50 ) p.AddPie ( 0 , 200 , resim.Width , resim.Height , 100 , 50 ) p.AddPie ( 0 , 200 , resim.Width , resim.Height , 170 , 50 ) p.AddPie ( 0 , 200 , resim.Width , resim.Height , 240 , 50 ) p.AddPie ( 0 , 200 , resim.Width , resim.Height , 310 , 50 ) e.Graphics .SetClip ( p) e.Graphics .DrawImage ( resim, 0 , 200 ) p.Reset () p.AddPie ( 300 , 200 , 200 , 200 , 30 , 50 ) p.AddPie ( 300 , 200 , 200 , 200 , 100 , 50 ) p.AddPie ( 300 , 200 , 200 , 200 , 170 , 50 ) p.AddPie ( 300 , 200 , 200 , 200 , 240 , 50 ) p.AddPie ( 300 , 200 , 200 , 200 , 310 , 50 ) e.Graphics .SetClip ( p) Dim metin As String Dim fnt As New Font( "Tahoma" , 20 , FontStyle.Bold ) Dim fmt As New StringFormat() fmt.Alignment = StringAlignment.Center metin = "Visual Basic .NET çok güçlü ve " metin += "çok kullanışlı bir programla dilidir" e.Graphics .FillRectangle ( New SolidBrush( Color.Yellow ) , 300 , 200 , 200 , 200 ) e.Graphics .DrawString ( metin, fnt, New SolidBrush( Color.Brown ) , _ New RectangleF( 300 , 200 , 200 , 200 ) , fmt) p.Reset () p.AddPie ( 300 , 200 , 200 , 200 , 80 , 20 ) p.AddPie ( 300 , 200 , 200 , 200 , 150 , 20 ) p.AddPie ( 300 , 200 , 200 , 200 , 220 , 20 ) p.AddPie ( 300 , 200 , 200 , 200 , 290 , 20 ) p.AddPie ( 300 , 200 , 200 , 200 , 360 , 30 ) e.Graphics .SetClip ( p) e.Graphics .FillRectangle ( New SolidBrush( Color.Brown ) , 300 , 200 , 200 , 200 ) e.Graphics .DrawString ( metin, fnt, New SolidBrush( Color.Yellow ) , _ New RectangleF( 300 , 200 , 200 , 200 ) , fmt) p.Reset () p.AddPie ( 200 , 400 , 100 , 100 , 30 , 50 ) p.AddPie ( 200 , 400 , 100 , 100 , 100 , 50 ) p.AddPie ( 200 , 400 , 100 , 100 , 170 , 50 ) p.AddPie ( 200 , 400 , 100 , 100 , 240 , 50 ) p.AddPie ( 200 , 400 , 100 , 100 , 310 , 50 ) e.Graphics .SetClip ( p) fnt = New Font( "Tahoma" , 10 , FontStyle.Bold ) metin = "Visual Basic .NET çok güçlü ve " metin += "çok kullanışlı bir programla dilidir" e.Graphics .FillRectangle ( New SolidBrush( Color.Yellow ) , 200 , 400 , 100 , 100 ) e.Graphics .DrawString ( metin, fnt, New SolidBrush( Color.Brown ) , _ New RectangleF( 200 , 400 , 100 , 100 )) End Sub End Class
Yürüyen yazı
Public Class Form1 Inherits System.Windows .Forms .Form #Region " Windows Form Designer generated code " Public Sub New () MyBase .New () 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose( ByVal disposing As Boolean ) If disposing Then If Not ( components Is Nothing ) Then components.Dispose () End If End If MyBase .Dispose ( disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel .IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents TextBox1 As System.Windows .Forms .TextBox Friend WithEvents Timer1 As System.Windows .Forms .Timer <System.Diagnostics .DebuggerStepThrough () > Private Sub InitializeComponent() Me .components = New System.ComponentModel .Container () Me .TextBox1 = New System.Windows .Forms .TextBox () Me .Timer1 = New System.Windows .Forms .Timer ( Me .components ) Me .SuspendLayout () ' 'TextBox1 ' Me .TextBox1 .Location = New System.Drawing .Point ( 32 , 16 ) Me .TextBox1 .Name = "TextBox1" Me .TextBox1 .Size = New System.Drawing .Size ( 224 , 20 ) Me .TextBox1 .TabIndex = 0 Me .TextBox1 .Text = "TextBox1" ' 'Timer1 ' Me .Timer1 .Enabled = True Me .Timer1 .Interval = 500 ' 'Form1 ' Me .AutoScaleBaseSize = New System.Drawing .Size ( 5 , 13 ) Me .ClientSize = New System.Drawing .Size ( 288 , 62 ) Me .Controls .AddRange ( New System.Windows .Forms .Control () { Me .TextBox1 }) Me .Name = "Form1" Me .Text = "Form1" Me .ResumeLayout ( False ) End Sub #End Region Private Sub Form1_Load( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MyBase .Load TextBox1.Text = "Yürüyen yazı 01 Nisan 2009" + Space ( 45 ) Timer1.Interval = 100 Timer1.Enabled = True End Sub Private Sub Timer1_Tick( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Timer1.Tick TextBox1.Text = Strings.Right ( TextBox1.Text , Len ( TextBox1.Text ) - 1 ) & Strings.Left ( TextBox1.Text , 1 ) End Sub End Class
Array işlemi
'Copyright Zeki Görür Imports System Imports System.Collections Public Class Form1 Shared Sub Main() Dim intStack As New Stack() Dim i As Integer For i = 1 To 4 intStack.Push (( i * 5 )) Next i Console.WriteLine ( "intStack values:" ) DisplayValues( intStack) Const arraySize As Integer = 10 Dim testArray( arraySize) As Integer For i = 1 To arraySize - 1 testArray( i) = i * 100 Next i Console.WriteLine ( "Contents of the test array" ) DisplayValues( testArray) intStack.CopyTo ( testArray, 3 ) Console.WriteLine ( "TestArray after copy: " ) DisplayValues( testArray) Dim myArray As Object () = intStack.ToArray () Console.WriteLine ( "The new array:" ) DisplayValues( myArray) End Sub Public Shared Sub DisplayValues( ByVal myCollection As IEnumerable) Dim myEnumerator As IEnumerator = myCollection.GetEnumerator () While myEnumerator.MoveNext () Console.WriteLine ( "{0} " , myEnumerator.Current ) End While Console.WriteLine () End Sub End Class
Klasör işlemi
Imports System.IO Module Module1 Sub Main() Dim Root As New DirectoryInfo( "C:" ) Dim Files As FileInfo() = Root.GetFiles ( "*.*" ) Dim Dirs As DirectoryInfo() = Root.GetDirectories ( "*.*" ) Console.WriteLine ( "Root Files" ) Dim Filename As FileInfo For Each Filename In Files Try Console.Write ( Filename.FullName ) Console.Write ( " Size: {0} bytes" , Filename.Length ) Console.WriteLine ( " Last use: {0}" , Filename.LastAccessTime ) Catch E As Exception Console.WriteLine ( "Error accessing File" ) End Try Next End Sub End Module
Çubuk grafik
'Copyright Zeki GÖRÜR Public Class Form1 Inherits System.Windows .Forms .Form #Region " Windows Form Designer generated code " Public Sub New () MyBase .New () 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose( ByVal disposing As Boolean ) If disposing Then If Not ( components Is Nothing ) Then components.Dispose () End If End If MyBase .Dispose ( disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel .IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents Button1 As System.Windows .Forms .Button Friend WithEvents TextBox2 As System.Windows .Forms .TextBox Friend WithEvents TextBox1 As System.Windows .Forms .TextBox Friend WithEvents Label2 As System.Windows .Forms .Label Friend WithEvents Label1 As System.Windows .Forms .Label <System.Diagnostics .DebuggerStepThrough () > Private Sub InitializeComponent() Me .Button1 = New System.Windows .Forms .Button () Me .TextBox2 = New System.Windows .Forms .TextBox () Me .TextBox1 = New System.Windows .Forms .TextBox () Me .Label2 = New System.Windows .Forms .Label () Me .Label1 = New System.Windows .Forms .Label () Me .SuspendLayout () ' 'Button1 ' Me .Button1 .Location = New System.Drawing .Point ( 224 , 16 ) Me .Button1 .Name = "Button1" Me .Button1 .Size = New System.Drawing .Size ( 120 , 46 ) Me .Button1 .TabIndex = 9 Me .Button1 .Text = "Ekle" ' 'TextBox2 ' Me .TextBox2 .Location = New System.Drawing .Point ( 120 , 40 ) Me .TextBox2 .Name = "TextBox2" Me .TextBox2 .TabIndex = 8 Me .TextBox2 .Text = "TextBox2" ' 'TextBox1 ' Me .TextBox1 .Location = New System.Drawing .Point ( 120 , 16 ) Me .TextBox1 .Name = "TextBox1" Me .TextBox1 .TabIndex = 7 Me .TextBox1 .Text = "TextBox1" ' 'Label2 ' Me .Label2 .Location = New System.Drawing .Point ( 8 , 40 ) Me .Label2 .Name = "Label2" Me .Label2 .TabIndex = 6 Me .Label2 .Text = "Aldığı Oy" ' 'Label1 ' Me .Label1 .Location = New System.Drawing .Point ( 8 , 16 ) Me .Label1 .Name = "Label1" Me .Label1 .TabIndex = 5 Me .Label1 .Text = "Parti Adı" ' 'Form1 ' Me .AutoScaleBaseSize = New System.Drawing .Size ( 5 , 13 ) Me .ClientSize = New System.Drawing .Size ( 352 , 266 ) Me .Controls .AddRange ( New System.Windows .Forms .Control () { Me .Button1 , Me .TextBox2 , Me .TextBox1 , Me .Label2 , Me .Label1 }) Me .Name = "Form1" Me .Text = "Form1" Me .ResumeLayout ( False ) End Sub #End Region Dim partiler( 20 ) As String , oylar( 20 ) As Integer Dim sıra_no As Integer , toplam_oy As Integer Private Sub Button1_Click( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click If sıra_no > 20 Then MsgBox ( "En çok 20 parti olabilir" ) Exit Sub End If partiler( sıra_no) = TextBox1.Text oylar( sıra_no) = Val ( TextBox2.Text ) toplam_oy += oylar( sıra_no) sıra_no += 1 Dim g As Graphics g = Me .CreateGraphics g.Clear ( Me .BackColor ) Dim i, boy As Integer Dim renk As Color, fırça As Drawing2D.HatchBrush For i = 0 To sıra_no - 1 boy = 100 * oylar( i) / toplam_oy renk = Color.FromArgb ( Rnd () * 255 , Rnd () * 255 , Rnd () * 255 ) fırça = New Drawing2D.HatchBrush ( Rnd () * 50 , renk) 'Pasta dilimini çiz g.FillRectangle ( fırça, 0 , 80 + i * 20 , boy, 18 ) 'Yanına % oranını yaz g.DrawString ( "% " & Str ( boy) , _ New Font( "Tahoma" , 8 , FontStyle.Regular ) , _ New SolidBrush( Color.Red ) , _ boy + 5 , 80 + i * 20 ) 'O rengin açıklamasını belirtmesi için küçük bir dikdörtgen çiz g.FillRectangle ( fırça, 210 , 80 + i * 20 , 18 , 18 ) 'Yanına parti adını ve aldığı oyu yaz g.DrawString ( partiler( i) & "=" & oylar( i) , _ New Font( "Tahoma" , 8 , FontStyle.Regular ) , _ New SolidBrush( Color.Red ) , _ 230 , 80 + i * 20 ) Next End Sub End Class
Ekran koruyucu
Public Class Form1 'point; x ve y koordinatlarıyla belirlenen nokta objesidir Dim pnt As New Point 'burada ise yazı tipimizi belirtiyoruz Dim YaziTipi() As String = { "Times New Roman" , "Tahoma" , "Verdana" , "Arial" } Private Sub Form1_Load( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MyBase .Load 'formun açılışındaki daha doğrusu ekran koruyucusunun aktif hale geçtiği zamanda olacak eylemler pnt.X = MousePosition.X pnt.Y = MousePosition.Y 'ilk mouseun ilk standart degerlerını tutuyor Windows.Forms .Cursor .Hide () 'kursoru gızler End Sub Private Sub Form1_MouseMove( ByVal sender As Object , ByVal e As System.Windows .Forms .MouseEventArgs ) Handles MyBase .MouseMove ' math namespace MATEMATİK 'ABS yuvarlama ıslemını yapıyor If Math.Abs ( pnt.X - e.X ) > 160 Or Math.Abs ( pnt.Y - e.Y ) > 160 Then Me .Close () End If 'böylece ekran koruyucusu aktifken mouse hareket ettirildiğinde ekran koruyucumuz kapanıyor End Sub Private Sub Form1_KeyPress( ByVal sender As Object , ByVal e As System.Windows .Forms .KeyPressEventArgs ) Handles MyBase .KeyPress 'herhangi bir tuşa basıldığında da formumuz yani ekran koruyucumuz kapanıyor Me .Close () End Sub Private Sub Timer1_Tick( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Timer1.Tick Static SayacEfekt As Integer ' bir değişken oluşturarak,sayının tutulması saglanıyor SayacEfekt += 1 'Timer her calıstıgında sayacı bır arttırıyor If SayacEfekt = 200 Then SayacEfekt = 50 'sayac 200 olmuşsa onu tekrar 50 yapıyor End If If SayacEfekt > 20 Then 'sayac 20 den buyukse 'İŞLEMLER YAPILACAK '---------------------------- Dim grf As Graphics = Me .CreateGraphics Dim rnd As New Random 'random değer üretmek için Dim fnt As New Font( YaziTipi( rnd .Next ( YaziTipi.Length )) , rnd .Next ( 8 , 42 )) Dim brs As New SolidBrush( Color.FromArgb ( rnd .Next ( 255 ) , rnd .Next ( 255 ) , rnd .Next ( 255 ) , rnd .Next ( 255 ))) '----------- ElseIf SayacEfekt <= 20 Then '20 den kucukse 20 den az calısmısa If Me .Opacity <= 100 Then 'formun goruntü yanı şeffaflık sevıyesı Me .Opacity += 0.1 'her calıstıgında formu daha gorunur hale getırıyor End If End If End Sub End Class
Clonable obje klasımız
Imports System Public Class MainClass Shared Sub Main() Dim anArray() As String = { "www.google.com.tr" } Dim a As New CloneableObject( anArray) a.DisplayData () Dim b As CloneableObject b = CType ( a.Clone () , CloneableObject) Dim newData As String = "Hi" b.ChangeData ( newData) b.DisplayData () a.DisplayData () End Sub End Class Public Class CloneableObject Implements ICloneable Private m_Data() As String Public Sub New ( ByVal anArray() As String ) m_Data = anArray End Sub Public Function Clone() As Object _ Implements ICloneable.Clone Dim temp() As String temp = CType ( m_Data.Clone , String ()) 'clone the array Return New CloneableObject( temp) End Function Public Sub DisplayData() Dim temp As String For Each temp In m_Data Console.WriteLine ( temp) Next End Sub Public Sub ChangeData( ByVal newData As String ) m_Data( 0 ) = newData End Sub End Class
Renkli bölme/çizim
Imports System Imports System.Drawing Imports System.Drawing .Drawing2D Imports System.Windows .Forms Imports System.Drawing .Text Public Class Form1 Private Sub LinearGradientBrushesForm_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 width As Integer = Me .ClientRectangle .Width Dim height As Integer = Me .ClientRectangle .Height / 4 Dim blackBrush As Brush = Brushes.Black Dim b As LinearGradientBrush = New LinearGradientBrush( Me .ClientRectangle , Color.White , Color.Black , LinearGradientMode.Horizontal ) g.FillRectangle ( b, x, y, width , height) g.DrawString ( "Normal" , Me .Font , blackBrush, x, y) y = y + height b.SetBlendTriangularShape ( 0.5 ) g.FillRectangle ( b, x, y, width , height) g.DrawString ( "Triangle" , Me .Font , blackBrush, x, y) y = y + height b.SetSigmaBellShape ( 0.5 ) g.FillRectangle ( b, x, y, width , height) g.DrawString ( "Bell" , Me .Font , blackBrush, x, y) y = y + height Dim blend As ColorBlend = New ColorBlend() blend.Colors = New Color() { Color.White , Color.Red , Color.Black } blend.Positions = New Single() { 0.0 , 0.5 , 1.0 } b.InterpolationColors = blend g.FillRectangle ( b, x, y, width , height) g.DrawString ( "Custom Colors" , Me .Font , blackBrush, x, y) y = y + height End Sub End Class
Renkli top
Imports System Imports System.Drawing Imports System.Drawing .Drawing2D Imports System.Windows .Forms Imports System.Drawing .Text Public Class Form1 ' draw various shapes on form Protected Overrides Sub OnPaint( ByVal e As PaintEventArgs) ' references to object we will use Dim graphicsObject As Graphics = e.Graphics ' ellipse rectangle and gradient brush Dim drawArea1 As Rectangle = New Rectangle( 5 , 35 , 30 , 100 ) Dim linearBrush As LinearGradientBrush = _ New LinearGradientBrush( drawArea1, Color.Blue , _ Color.Yellow , LinearGradientMode.ForwardDiagonal ) ' draw ellipse filled with a blue-yellow gradient graphicsObject.FillEllipse ( linearBrush, 5 , 30 , 65 , 100 ) End Sub ' OnPaint End Class
Elips çizim
Imports System.Drawing .Drawing2D Imports System Imports System.Drawing .Text Imports System.Drawing Imports System.Windows .Forms Imports System.Math Public Class Form1 Private Sub Form1_Paint( ByVal sender As Object , _ ByVal e As System.Windows .Forms .PaintEventArgs ) Handles Me .Paint Dim x As Integer = 10 Dim y As Integer = 10 Dim wid As Integer = 100 Dim hgt As Integer = 50 ' Fill a rectangle. Dim rect_pts() As Point = { _ New Point( x, y) , _ New Point( x + wid, y) , _ New Point( x + wid, y + hgt) , _ New Point( x, y + hgt) _ } Dim path_brush As New PathGradientBrush( rect_pts) Dim ellipse_path As New GraphicsPath ' Fill an ellipse using SetSigmaBellShape. ellipse_path = New GraphicsPath ellipse_path.AddEllipse ( x, y, wid, hgt) path_brush = New PathGradientBrush( ellipse_path) path_brush.CenterColor = Color.White path_brush.SurroundColors = New Color() { Color.Black } path_brush.SetSigmaBellShape ( 0.5 , 1 ) e.Graphics .FillEllipse ( path_brush, x, y, wid, hgt) End Sub 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Private Sub Form1_Load( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MyBase .Load Me .SuspendLayout () ' 'Form1 ' Me .AutoScaleDimensions = New System.Drawing .SizeF ( 6.0 !, 13.0 !) Me .AutoScaleMode = System.Windows .Forms .AutoScaleMode .Font Me .ClientSize = New System.Drawing .Size ( 200 , 200 ) Me .Name = "Form1" Me .Text = "" Me .ResumeLayout ( False ) End Sub End Class
Interface klasımız
Imports System Imports System.Data Imports System.Collections public class MainClass Shared Sub Main() Dim c As New Class1() Dim i2 As MySecondInterface c.CommonFunction () i2 = c i2.CommonFunction () End Sub End Class Interface MyFirstInterface Sub UniqueFunction() Sub CommonFunction() End Interface Interface MySecondInterface Sub SecondUniqueFunction() Sub CommonFunction() End Interface Public Class Class1 Implements MyFirstInterface Implements MySecondInterface Sub UniqueFunction() Implements MyFirstInterface.UniqueFunction End Sub Sub SecondUniqueFunction() Implements MySecondInterface.SecondUniqueFunction End Sub Sub CommonFunction() Implements MyFirstInterface.CommonFunction Console.WriteLine ( "Common Function on first interface" ) End Sub Sub CommonFunctionSecondInterface() Implements MySecondInterface.CommonFunction Console.WriteLine ( "Common function on second interface" ) End Sub End Class
Geometrik çizim
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 PathGradientBrushesForm_Paint( ByVal sender As Object , ByVal e As PaintEventArgs) Handles MyBase .Paint Dim g As Graphics = e.Graphics Dim width As Integer = Me .ClientRectangle .Width / 2 Dim height As Integer = Me .ClientRectangle .Height / 2 Dim triPoints As Point() = New Point() { New Point( width / 2 , 0 ) , New Point( 0 , height) , New Point( width , height)} Dim b As PathGradientBrush = New PathGradientBrush( triPoints) b.SurroundColors = New Color() { Color.Red , Color.Blue } Dim x As Integer = 0 Dim y As Integer = 0 g.FillRectangle ( b, x, y, width , height) Dim quadPoints As Point() = New Point() { New Point( 0 , 0 ) , New Point( width , 0 ) , New Point( width , height) , New Point( 0 , height)} b = New PathGradientBrush( quadPoints) b.WrapMode = WrapMode.Tile x = width y = 0 g.FillRectangle ( b, x, y, width , height) Dim diamondPoints As Point() = New Point() { New Point( width / 2 , 0 ) , New Point( width , height / 2 ) , New Point( width / 2 , height) , New Point( 0 , height / 2 )} b = New PathGradientBrush( diamondPoints) b.WrapMode = WrapMode.Tile b.CenterPoint = New PointF( 0 , height / 2 ) x = 0 y = height g.FillRectangle ( b, x, y, width , height) Dim circle As GraphicsPath = New GraphicsPath() circle .AddEllipse ( 0 , 0 , width , height) b = New PathGradientBrush( circle ) b.WrapMode = WrapMode.Tile b.SurroundColors = New Color() { Color.White } b.CenterColor = Color.Black x = width y = height g.FillRectangle ( b, x, y, width , height) End Sub End Class
Overload demo
Imports System Public Class MainClass Shared Sub Main( ByVal args As String ()) Dim X, Y As Complex X = New Complex( 1 , 2 ) Y = New Complex( 3 , 4 ) Console.WriteLine ( ( X + Y) .ToString ) Console.WriteLine ( ( X - Y) .ToString ) Console.WriteLine ( ( X * Y) .ToString ) Console.WriteLine ( ( X = Y) .ToString ) Console.WriteLine ( ( X <> Y) .ToString ) Console.WriteLine ( ( -X) .ToString ) Dim abs_x As Double = CDbl ( X) Console.WriteLine ( abs_x.ToString ) End Sub End Class Public Class Complex Public realPart As Double Public imaginaryPart As Double ' Constructors. Public Sub New () End Sub Public Sub New ( ByVal real_part As Double , ByVal imaginary_part As Double ) realPart = real_part imaginaryPart = imaginary_part End Sub ' ToString. Public Overrides Function ToString() As String Return realPart.ToString & " + " & imaginaryPart.ToString & "i" End Function ' Operators. Public Shared Operator *( ByVal c1 As Complex, ByVal c2 As Complex) As Complex Return New Complex( _ c1.realPart * c2.realPart - c1.imaginaryPart * c2.imaginaryPart , _ c1.realPart * c2.imaginaryPart + c1.imaginaryPart * c2.realPart ) End Operator Public Shared Operator +( ByVal c1 As Complex, ByVal c2 As Complex) As Complex Return New Complex( _ c1.realPart + c2.realPart , _ c1.imaginaryPart + c2.imaginaryPart ) End Operator Public Shared Operator -( ByVal c1 As Complex, ByVal c2 As Complex) As Complex Return New Complex( _ c1.realPart - c2.realPart , _ c1.imaginaryPart - c2.imaginaryPart ) End Operator Public Shared Operator =( ByVal c1 As Complex, ByVal c2 As Complex) As Boolean Return ( c1.realPart = c2.realPart ) AndAlso ( c1.imaginaryPart = c2.imaginaryPart ) End Operator Public Shared Operator <>( ByVal c1 As Complex, ByVal c2 As Complex) As Boolean Return ( c1.realPart <> c2.realPart ) OrElse ( c1.imaginaryPart <> c2.imaginaryPart ) End Operator Public Shared Operator -( ByVal c1 As Complex) As Complex Return New Complex( c1.imaginaryPart , c1.realPart ) End Operator Public Shared Narrowing Operator CType ( ByVal c1 As Complex) As Double Return System.Math .Sqrt ( c1.realPart * c1.realPart + c1.imaginaryPart * c1.imaginaryPart ) End OperatorEnd Class
Shadow base method
Imports System Public Class MainClass Shared Sub Main() Dim w As New Window( 5 , 10 ) w.DrawWindow ( ) Dim lb As New ListBox( 20 , 30 , "Hello world" ) lb.DrawWindow ( ) End Sub End Class Public Class Window Public Sub New ( ByVal top As Integer , ByVal left As Integer ) Me .top = top Me .left = left End Sub 'New Public Sub DrawWindow( ) Console.WriteLine ( "Drawing Window at {0}, {1}" , top, left ) End Sub Private top As Integer Private left As Integer End Class Public Class ListBox Inherits Window Public Sub New ( ByVal top As Integer , ByVal left As Integer , ByVal theContents As String ) MyBase .New ( top, left ) ' mListBoxContents = theContents End Sub Public Shadows Sub DrawWindow( ) MyBase .DrawWindow ( ) Console.WriteLine ( "Writing string to the listbox: {0}" , mListBoxContents) End Sub Private mListBoxContents As String End Class
Ctype class
:
Imports System Imports System. Collections Public Class MainClass Shared Sub Main ( ByVal args As String ()) Dim employees As New Collection employees.Add ( New Employee ( "A" )) employees.Add ( New Manager ( "B" )) employees.Add ( New Manager ( "C" )) employees.Add ( New Employee ( "D" )) ShowEmployees( employees ) ' Works. Dim emp As Employee For i As Integer = employees. Count To 1 Step -1 emp = CType ( employees ( i ) , Employee ) If emp. IsManager Then employees. Remove ( i ) Next i ShowEmployees( employees ) End Sub Shared Private Sub ShowEmployees ( ByVal employees As Collection ) For Each emp As Employee In employees Console.WriteLine ( emp. Name & vbCrLf ) Next emp End Sub End Class Public Class Employee Public Name As String Public Sub New ( ByVal new_name As String ) Name = new_name End Sub Public Overridable Function IsManager () As Boolean Return False End Function End Class Public Class Customer Public Name As String Public Sub New ( ByVal new_name As String ) Name = new_name End Sub End Class Public Class Manager Inherits Employee Public Sub New ( ByVal new_name As String ) MyBase . new ( new_name ) End Sub Public Overrides Function IsManager () As Boolean Return True End Function End Class
Scope rules klass
Imports System Public Class MainClass ' instance variable can be used anywhere in class Shared Dim value As Integer = 1 Shared Sub Main( ByVal args As String ()) ' variable local to FrmScoping_Load hides instance variable Dim value As Integer = 5 Console.WriteLine ( "local variable value in" & _ " FrmScoping_Load is " & value ) MethodA() ' MethodA has automatic local value MethodB() ' MethodB uses instance variable value MethodA() ' MethodA creates new automatic local value MethodB() ' instance variable value retains its value Console.WriteLine ( vbCrLf & vbCrLf & "local variable " & _ "value in FrmScoping_Load is " & value ) End Sub ' automatic local variable value hides instance variable Shared Sub MethodA() Dim value As Integer = 25 ' initialized after each call Console.WriteLine ( vbCrLf & vbCrLf & "local variable " & _ "value in MethodA is " & value & " after entering MethodA" ) value += 1 Console.WriteLine ( vbCrLf & "local variable " & _ "value in MethodA is " & value & " before exiting MethodA" ) End Sub ' MethodA ' uses instance variable value Shared Sub MethodB() Console.WriteLine ( vbCrLf & vbCrLf & "instance variable" & _ " value is " & value & " after entering MethodB" ) value *= 10 Console.WriteLine ( vbCrLf & "instance variable " & _ "value is " & value & " before exiting MethodB" ) End Sub ' MethodB End Class
Time klasımız
Imports System Public Class MainClass Shared Sub Main( ByVal args As String ()) Dim time As New CTime() ' call CTime constructor Console.WriteLine ( "The initial universal times is: " & _ time .ToUniversalString () & vbCrLf & _ "The initial standard time is: " & _ time .ToStandardString () ) time .SetTime ( 13 , 27 , 6 ) ' set time with valid settings Console.WriteLine ( "Universal time after setTime is: " & _ time .ToUniversalString () & vbCrLf & _ "Standard time after setTime is: " & _ time .ToStandardString () ) time .SetTime ( 99 , 99 , 99 ) ' set time with invalid settings Console.WriteLine ( "After attempting invalid settings: " & vbCrLf & _ "Universal time: " & time .ToUniversalString () & _ vbCrLf & "Standard time: " & time .ToStandardString () ) End Sub End Class Class CTime Inherits Object Private mHour As Integer ' 0 - 23 Private mMinute As Integer ' 0 - 59 Private mSecond As Integer ' 0 - 59 Public Sub New () SetTime( 0 , 0 , 0 ) End Sub ' New Public Sub SetTime( ByVal hourValue As Integer , _ ByVal minuteValue As Integer , ByVal secondValue As Integer ) If ( hourValue >= 0 AndAlso hourValue < 24 ) Then mHour = hourValue Else mHour = 0 End If If ( minuteValue >= 0 AndAlso minuteValue < 60 ) Then mMinute = minuteValue Else mMinute = 0 End If If ( secondValue >= 0 AndAlso secondValue < 60 ) Then mSecond = secondValue Else mSecond = 0 End If End Sub ' SetTime ' convert String to universal-time format Public Function ToUniversalString() As String Return String .Format ( "{0}:{1:D2}:{2:D2}" , _ mHour, mMinute, mSecond) End Function ' ToUniversalString ' convert to String in standard-time format Public Function ToStandardString() As String Dim suffix As String = " PM" Dim format As String = "{0}:{1:D2}:{2:D2}" Dim standardHour As Integer ' determine whether time is AM or PM If mHour < 12 Then suffix = " AM" End If ' convert from universal-time format to standard-time format If ( mHour = 12 OrElse mHour = 0 ) Then standardHour = 12 Else standardHour = mHour Mod 12 End If Return String .Format ( format , standardHour, mMinute, _ mSecond) & suffix End Function ' ToStandardString End Class ' CTime
Compositio klasımız
Imports System Public Class MainClass Shared Sub Main( ByVal args As String ()) Dim s As New CStudent( _ "A" , "B" , 7 , 24 , 1949 , 3 , 12 , 1988 ) Console.WriteLine ( s.ToStandardString () ) End Sub End Class ' Encapsulates month, day and year. Class CDay Inherits Object Private mMonth As Integer ' 1-12 Private mDay As Integer ' 1-31 based on month Private mYear As Integer ' any year Public Sub New ( ByVal monthValue As Integer , _ ByVal dayValue As Integer , ByVal yearValue As Integer ) mMonth = monthValue mYear = yearValue mDay = dayValue End Sub ' New ' create string containing month/day/year format Public Function ToStandardString() As String Return mMonth & "/" & mDay & "/" & mYear End Function End Class ' Represent student name, birthday and hire date. Class CStudent Inherits Object Private mFirstName As String Private mLastName As String Private mBirthDate As CDay ' member object reference Private mHireDate As CDay ' member object reference ' CStudent constructor Public Sub New ( ByVal firstNameValue As String , _ ByVal lastNameValue As String , _ ByVal birthMonthValue As Integer , _ ByVal birthDayValue As Integer , _ ByVal birthYearValue As Integer , _ ByVal hireMonthValue As Integer , _ ByVal hireDayValue As Integer , _ ByVal hireYearValue As Integer ) mFirstName = firstNameValue mLastName = lastNameValue ' create CDay instance for employee birthday mBirthDate = New CDay( birthMonthValue, birthDayValue, _ birthYearValue) ' create CDay instance for employee hire date mHireDate = New CDay( hireMonthValue, hireDayValue, _ hireYearValue) End Sub ' New ' return employee information as standard-format String Public Function ToStandardString() As String Return mLastName & ", " & mFirstName & " Hired: " _ & mHireDate.ToStandardString () & " Birthday: " & _ mBirthDate.ToStandardString () End Function ' ToStandardString End Class ' CStudent
Complex number klasımız
Imports System Public Class MainClass Shared Sub Main( ByVal args As String ()) Dim X, Y As Complex X = New Complex( 1 , 2 ) Y = New Complex( 3 , 4 ) Console.WriteLine ( ( X + Y) .ToString ) Console.WriteLine ( ( X - Y) .ToString ) Console.WriteLine ( ( X * Y) .ToString ) Console.WriteLine ( ( X = Y) .ToString ) Console.WriteLine ( ( X <> Y) .ToString ) Console.WriteLine ( ( -X) .ToString ) Dim abs_x As Double = CDbl ( X) Console.WriteLine ( abs_x.ToString ) End Sub End Class Public Class Complex Public realPart As Double Public imaginaryPart As Double ' Constructors. Public Sub New () End Sub Public Sub New ( ByVal real_part As Double , ByVal imaginary_part As Double ) realPart = real_part imaginaryPart = imaginary_part End Sub ' ToString. Public Overrides Function ToString() As String Return realPart.ToString & " + " & imaginaryPart.ToString & "i" End Function ' Operators. Public Shared Operator *( ByVal c1 As Complex, ByVal c2 As Complex) As Complex Return New Complex( _ c1.realPart * c2.realPart - c1.imaginaryPart * c2.imaginaryPart , _ c1.realPart * c2.imaginaryPart + c1.imaginaryPart * c2.realPart ) End Operator Public Shared Operator +( ByVal c1 As Complex, ByVal c2 As Complex) As Complex Return New Complex( _ c1.realPart + c2.realPart , _ c1.imaginaryPart + c2.imaginaryPart ) End Operator Public Shared Operator -( ByVal c1 As Complex, ByVal c2 As Complex) As Complex Return New Complex( _ c1.realPart - c2.realPart , _ c1.imaginaryPart - c2.imaginaryPart ) End Operator Public Shared Operator =( ByVal c1 As Complex, ByVal c2 As Complex) As Boolean Return ( c1.realPart = c2.realPart ) AndAlso ( c1.imaginaryPart = c2.imaginaryPart ) End Operator Public Shared Operator <>( ByVal c1 As Complex, ByVal c2 As Complex) As Boolean Return ( c1.realPart <> c2.realPart ) OrElse ( c1.imaginaryPart <> c2.imaginaryPart ) End Operator Public Shared Operator -( ByVal c1 As Complex) As Complex Return New Complex( c1.imaginaryPart , c1.realPart ) End Operator Public Shared Narrowing Operator CType ( ByVal c1 As Complex) As Double Return System.Math .Sqrt ( c1.realPart * c1.realPart + c1.imaginaryPart * c1.imaginaryPart ) End OperatorEnd Class
Yeni form aç
Forza Application.OpenForms if ( Application.OpenForms [ "Form2" ] !=null ) Application.OpenForms [ "Form2" ] .Show () ; else //yeni form açmak için yapılması gerekenler
Textbox karakter sayısı
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(TextBox1.TextLength.ToString())
End Sub
Private Sub Form1_Load(ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load
TextBox1.Text = "Visual basic 2008 express sürümü bu"
Button1.Text = "Öğren"
End Sub
End Class
Oval Saat
Private Declare Function CreateEllipticRgn Lib "gdi32" ( ByVal X1 As Long , ByVal Y1 As Long , ByVal X2 As Long , ByVal Y2 As Long ) As Long Private Sub Form_Load() Dim şekilhandle, şekil As Long Me .Left = Screen.Width - ( Form1.Width + 100 ) Me .Top = 50 ScaleMode = 3 şekilhandle = CreateEllipticRgn( 0 , 0 , Form1.ScaleWidth , Form1.ScaleHeight ) Dim açi, i, t AutoRedraw = True t1.Interval = 1000 ScaleHeight = 185 ScaleWidth = 1485 ScaleMode = 1 Scale ( -25 , 25 ) -( 25 , -25 ) CurrentX = -TextWidth( t) / 2 CurrentY = -1 CurrentX = -TextWidth( t) / 2 CurrentY = -4 DrawWidth = 2 For açi = 0 To 360 Step 6 * 5 Line ( 18 * Cos ( açi * 3.1415 / 180 ) , 18 * Sin ( açi * 3.1415 / 180 )) -( 19 * Cos ( açi * 3.1415 / 180 ) , 19 * Sin ( açi * 3.1415 / 180 )) , QBColor( 5 ) Next DrawWidth = 4 DrawMode = 7 End Sub Private Sub t1_Timer() Dim açi, saniye, dakika, saat, i Static sx, sy, dx, dy, stx, sty DrawWidth = 2 Line ( 0 , 0 ) -( sx, sy) , QBColor( 10 ) saniye = Second ( Time ) açi = -saniye * 6 + 90 sx = 16 * Cos ( açi * 3.1415 / 180 ) sy = 16 * Sin ( açi * 3.1415 / 180 ) Line ( 0 , 0 ) -( sx, sy) , QBColor( 10 ) DrawWidth = 6 Line ( 0 , 0 ) -( dx, dy) , QBColor( 11 ) dakika = Minute ( Time ) açi = -dakika * 6 + 90 dx = 16 * Cos ( açi * 3.1415 / 180 ) dy = 16 * Sin ( açi * 3.1415 / 180 ) Line ( 0 , 0 ) -( dx, dy) , QBColor( 11 ) DrawWidth = 6 Line ( 0 , 0 ) -( stx, sty) , QBColor( 12 ) saat = Hour ( Time ) açi = -saat * 30 + 90 stx = 12 * Cos ( açi * 3.1415 / 180 ) sty = 12 * Sin ( açi * 3.1415 / 180 ) Line ( 0 , 0 ) -( stx, sty) , QBColor( 12 ) End Sub
Textbox içeriğini bilgisayara okutma.
Private Sub Button1_Click( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click 'References ekle komutu ver COM sekmesinden Microsoft object library 5.0 references'e dahil et Dim konuş As New SpeechLib.SpVoice konuş.Speak ( TextBox1.Text ) End Sub Private Sub Form1_Load( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MyBase .Load TextBox1.Text = "selamlar vbnet2005" End Sub
Hesap makinası
Public Class Form1 Dim s2 As Integer Dim s1 As Integer Private Sub btnCarp_Click( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles btnCarp.Click s1 = txtS1.Text s2 = txtS2.Text MsgBox ( "çarpma işleminin sonucu " & s1 * s2) End Sub Private Sub btnTopla_Click( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles btnTopla.Click MsgBox ( "toplama işleminin sonucu " & s1 + s2) End Sub Private Sub btnCikar_Click( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles btnCikar.Click MsgBox ( "çıkarma işleminin sonucu " & s1 - s2) End Sub Private Sub btnBol_Click( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles btnBol.Click MsgBox ( "bölme işleminin sonucu " & s1 / s2) End Sub End Class
Sayı oyunu
Private Sub Button1_Click( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click Dim a, b, i, j As Integer Randomize () a = Rnd () * ( 10 - 1 ) + 1 MsgBox ( "aklınızdan 1 ıle 10 arasından bır sayı tutun" ) Randomize () b = Rnd () * ( 10 - 1 ) + 1 MsgBox ( b & " ıle carpın" ) i = Rnd () * ( 5 - 1 ) + 1 j = b * i MsgBox ( j & " ıle toplayın" ) MsgBox ( b & " ıle bolun" ) MsgBox ( "ılk tuttugunuz sayıdan cıkartın" ) MsgBox ( "sonucu gormek ıstermısınız" ) MsgBox (((( a * b) + j) / b) - a) End Sub
Modülden form çalıştırma.
Module Module1 Public Sub deneme() Form2.Show () End Sub End Module Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click deneme() End Sub End Class
Beep,resize işlemi
'By Zeki GÖRÜR Imports System Imports System.Drawing Imports Microsoft.VisualBasic Imports System.Collections Imports System.Windows .Forms Imports System.Drawing .Drawing2D Public Class Form1 Private Sub Form1_Load( ByVal sender As Object , ByVal e As System.EventArgs ) Handles Me .Load Beep () Me .DesktopLocation = New Point( 100 , 100 ) End Sub End Class
Transparan,borderstyle
'By Zeki GÖRÜR Imports System Imports System.Drawing Imports Microsoft.VisualBasic Imports System.Collections Imports System.Windows .Forms Imports System.Drawing .Drawing2D Public Class Form1 Private Sub Form1_Load( ByVal sender As Object , ByVal e As System.EventArgs ) Handles Me .Load Me .Opacity = 0.83 Me .FormBorderStyle = Windows.Forms .FormBorderStyle .None Me .TopMost = True End Sub Private Sub Me_KeyPress( ByVal sender As Object , _ ByVal e As System.Windows .Forms .KeyPressEventArgs ) Handles Me .KeyPress If ( Control.ModifierKeys And Keys.Shift ) = Keys.Shift Then End If End Sub End Class
Mavi çizgi
'By Zeki GÖRÜR Imports System Imports System.Drawing Imports Microsoft.VisualBasic Imports System.Collections Imports System.Windows .Forms Imports System.Drawing .Drawing2D Public Class Form1 Private Sub Form1_MouseUp( ByVal sender As Object , ByVal e As System.Windows .Forms .MouseEventArgs ) Handles Me .MouseUp Using redPen As New Pen( Color.Blue ) , _ formGraphics As Graphics = Me .CreateGraphics () formGraphics.DrawLine ( Pens.Blue , 0 , 0 , 200 , 200 ) End Using End Sub End Class
Kırmızı dikdörtgen çizim
'By Zeki GÖRÜR Imports System Imports System.Drawing Imports Microsoft.VisualBasic Imports System.Collections Imports System.Windows .Forms Imports System.Drawing .Drawing2D Public Class Form1 Private Sub Form1_MouseUp( ByVal sender As Object , ByVal e As System.Windows .Forms .MouseEventArgs ) Handles Me .MouseUp Using redBrush As New SolidBrush( Color.Red ) , _ formGraphics As Graphics = Me .CreateGraphics () formGraphics.FillRectangle ( redBrush, New Rectangle( 0 , 0 , 200 , 300 )) End Using End Sub End Class
Fill elipse çizim
'By Zeki GÖRÜR Imports System Imports System.Drawing Imports Microsoft.VisualBasic Imports System.Collections Imports System.Windows .Forms Imports System.Drawing .Drawing2D Public Class Form1 Private Sub Form1_MouseUp( ByVal sender As Object , ByVal e As System.Windows .Forms .MouseEventArgs ) Handles Me .MouseUp Using aBrush As New SolidBrush( Color.Red ) , _ formGraphics As Graphics = Me .CreateGraphics () formGraphics.FillEllipse ( aBrush, New Rectangle( 0 , 0 , 200 , 300 )) End Using End Sub End Class
Vertical text yazım
'By Zeki GÖRÜR Imports System Imports System.Drawing Imports Microsoft.VisualBasic Imports System.Collections Imports System.Windows .Forms Imports System.Drawing .Drawing2D Public Class Form1 Private Sub Form1_MouseUp( ByVal sender As Object , ByVal e As System.Windows .Forms .MouseEventArgs ) Handles Me .MouseUp Dim drawFormat As New StringFormat() Using formGraphics As Graphics = Me .CreateGraphics () , _ drawFont As New System.Drawing .Font ( "Arial" , 16 ) , _ drawBrush As New SolidBrush( Color.Red ) drawFormat.FormatFlags = StringFormatFlags.DirectionVertical formGraphics.DrawString ( "Merhaba zeki" , drawFont, drawBrush, _ 150.0 , 50.0 , drawFormat) End Using End Sub
Text yazım
Public Sub MyMouseDown( ByVal sender As Object , ByVal e As MouseEventArgs) Handles MyBase .MouseDown Using redPen As New Pen( Color.Red ) , _ formGraphics As Graphics = Me .CreateGraphics () formGraphics.DrawRectangle ( redPen, New Rectangle( 100 , 200 , 200 , 20 )) End Using End Sub Private Sub Form1_MouseUp( ByVal sender As Object , ByVal e As System.Windows .Forms .MouseEventArgs ) Handles Me .MouseUp Dim drawFormat As New StringFormat() Using formGraphics As Graphics = Me .CreateGraphics () , _ drawFont As New System.Drawing .Font ( "Arial" , 16 ) , _ drawBrush As New SolidBrush( Color.Red ) formGraphics.DrawString ( "Merhaba vb2005" , drawFont, drawBrush, _ 150.0 , 50.0 , drawFormat) End Using End Sub
Dikdörtgen çizim
'By Zeki GÖRÜR Imports System Imports System.Drawing Imports Microsoft.VisualBasic Imports System.Collections Imports System.Windows .Forms Imports System.Drawing .Drawing2D Public Class Form1 Public Sub MyMouseDown( ByVal sender As Object , ByVal e As MouseEventArgs) Handles MyBase .MouseDown Using redPen As New Pen( Color.Red ) , _ formGraphics As Graphics = Me .CreateGraphics () formGraphics.DrawRectangle ( redPen, New Rectangle( 0 , 0 , 200 , 300 )) End Using End Sub End Class 'By Zeki GÖRÜR Imports System Imports System.Drawing Imports Microsoft.VisualBasic Imports System.Collections Imports System.Windows .Forms Imports System.Drawing .Drawing2D Public Class Form1 Public Sub MyMouseDown( ByVal sender As Object , ByVal e As MouseEventArgs) Handles MyBase .MouseDown Using redPen As New Pen( Color.Red ) , _ formGraphics As Graphics = Me .CreateGraphics () formGraphics.DrawRectangle ( redPen, New Rectangle( 0 , 0 , 200 , 300 )) End Using End Sub End Class ic Class Form1 Public Sub MyMouseDown( ByVal sender As Object , ByVal e As MouseEventArgs) Handles MyBase .MouseDown Using redPen As New Pen( Color.Red ) , _ formGraphics As Graphics = Me .CreateGraphics () formGraphics.DrawRectangle ( redPen, New Rectangle( 0 , 0 , 200 , 300 )) End Using End Sub
Çember çizim
'By Zeki GÖRÜR Imports System Imports System.Drawing Imports Microsoft.VisualBasic Imports System.Collections Imports System.Windows .Forms Imports System.Drawing .Drawing2D Public Class Form1 Public Sub MyMouseDown( ByVal sender As Object , ByVal e As MouseEventArgs) Handles MyBase .MouseDown Using redPen As New Pen( Color.Red ) , _ formGraphics As Graphics = Me .CreateGraphics () formGraphics.DrawEllipse ( redPen, New Rectangle( 0 , 0 , 200 , 300 )) End Using End Sub End Class
Grafik çizim2
'By Zeki GÖRÜR Imports System Imports System.Drawing Imports Microsoft.VisualBasic Imports System.Collections Imports System.Windows .Forms Imports System.Drawing .Drawing2D Public Class Form1 Public Sub MyMouseDown( ByVal sender As Object , ByVal e As MouseEventArgs) Handles MyBase .MouseDown Dim path As New GraphicsPath() Dim points() As Point = { _ New Point( 0 , 0 ) , _ New Point( 100 , 0 ) , _ New Point( 100 , 100 ) , _ New Point( 0 , 0 )} path.AddLines ( points) Dim surface As Graphics = PictureBox1.CreateGraphics surface.DrawPath ( Pens.Black , path) End Sub End Class
Grandiet fill çiizm
'By Zeki GÖRÜR
Imports System
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports System.Collections
Imports System.Windows.Forms
Imports System.Drawing.Drawing2D
Public Class Form1
Public Sub MyMouseDown(ByVal sender As Object , ByVal e As MouseEventArgs) Handles MyBase .MouseDown
Dim rect As New Rectangle(0, 0, 1000, 1000)
Dim gc As Graphics = Me .CreateGraphics
Dim gradientBrush As New LinearGradientBrush(rect, Color.Blue, Color.Black, LinearGradientMode.Horizontal)
gc.FillRectangle(gradientBrush, rect)
End Sub
End Class
Draw çizim
'By Zeki GÖRÜR
Imports System
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports System.Collections
Imports System.Windows.Forms
Imports System.Drawing.Drawing2D
Public Class Form1
Dim originalPoint As Point = New Point()
Dim lastPoint As Point = New Point()
Dim mouseIsDown As Boolean
Public Sub MyMouseDown(ByVal sender As Object , ByVal e As MouseEventArgs) Handles MyBase .MouseDown
mouseIsDown = True
originalPoint.X = e.X
originalPoint.Y = e.Y
lastPoint.X = -1
lastPoint.Y = -1
End Sub
Private Sub MyDrawReversibleRectangle(ByVal point1 As Point, ByVal point2 As Point)
Dim rect As Rectangle = New Rectangle()
point1 = PointToScreen(point1)
point2 = PointToScreen(point2)
If point1.X < point2.X Then
rect.X = point1.X
rect.Width = point2.X - point1.X
Else
rect.X = point2.X
rect.Width = point1.X - point2.X
End If
If point1.Y < point2.Y Then
rect.Y = point1.Y
rect.Height = point2.Y - point1.Y
Else
rect.Y = point2.Y
rect.Height = point1.Y - point2.Y
End If
ControlPaint.DrawReversibleFrame(rect, _
Color.Yellow, FrameStyle.Thick)
End Sub
Public Sub MyMouseUp(ByVal sender As Object , ByVal e As MouseEventArgs) Handles Me .MouseUp
mouseIsDown = False
If lastPoint.X <> -1 Then
Dim currentPoint As Point = New Point(e.X, e.Y)
MyDrawReversibleRectangle(originalPoint, lastPoint)
End If
lastPoint.X = -1
lastPoint.Y = -1
originalPoint.X = -1
originalPoint.Y = -1
End Sub
Public Sub MyMouseMove(ByVal sender As Object , ByVal e As MouseEventArgs) Handles Me .MouseMove
Dim currentPoint As Point = New Point(e.X, e.Y)
If mouseIsDown Then
If lastPoint.X <> -1 Then
MyDrawReversibleRectangle(originalPoint, lastPoint)
End If
lastPoint = currentPoint
MyDrawReversibleRectangle(originalPoint, currentPoint)
End If
End Sub
Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
mouseIsDown = False
End Sub
End Class
Radio button kullanımı
'By Zeki GÖRÜR
Imports System
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports System.Collections
Imports System.Windows.Forms
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load
Dim radio As RadioButton
Dim y As Integer = 30
For Each button As String In Name
radio = New RadioButton()
With radio
.Location = New Point(10, y)
.Text = button
End With
y += 30
Me .GroupBox1.Controls.Add(radio)
Next
End Sub
End Class
Progressbar kullanımı
'By Zeki GÖRÜR
Imports Microsoft.VisualBasic
Imports System.Windows.Forms
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load
With ProgressBar1
.Minimum = 1
.Maximum = 100000
.Value = 1
.Step = 1
For i As Integer = .Minimum To .Maximum
' Perform one step of the action being tracked.
.PerformStep()
Next i
End With
End Sub
End Class
Kalender kullanımı
'By Zeki GÖRÜR
Imports System
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports System.Collections
Imports System.Windows.Forms
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load
Button1.AutoSize = True
Button1.ForeColor = Color.Transparent
MonthCalendar1.SetSelectionRange(#10/1/2008#, #10/21/2008#)
End Sub
End Class
Paint renkli çizim.
'By Zeki GÖRÜR
Imports System
Imports System.IO
Imports Microsoft.VisualBasic
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Threading
Public Class Form1
Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
Dim asm As System.Reflection.Assembly
asm = System.Reflection.Assembly.GetExecutingAssembly()
' Note that the name for the embedded resource
' is case sensitive and must match the file name.
Dim s As Stream = asm.GetManifestResourceStream("PocketPCApplication1.notify.ico" )
NotifyIcon1.Icon = New Icon(s, 16, 16)
' If the notification is canceled, its icon remains
' available for later activating the notification.
NotifyIcon1.Text = "Notification"
NotifyIcon1.BalloonTipText = False
' Initially display the notification for 10 seconds.
NotifyIcon1.Visible = True
End Sub
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
' Use the Graphics object from the PaintEventArgs
' for tasks such as drawing a line.
' Create pen.
Dim blackPen As New Pen(Color.Blue, 3)
' Create coordinates of points that define line.
Dim x1 As Integer = 100
Dim y1 As Integer = 100
Dim x2 As Integer = 500
Dim y2 As Integer = 100
' Draw line to screen.
e.Graphics.DrawLine(blackPen, x1, y1, x2, y2)
End Sub
End Class
Drawbox çizim
'By Zeki GÖRÜR Imports System Imports System.IO Imports Microsoft.VisualBasic Imports System.Windows .Forms Imports System.Drawing Public Class Form1 Private Sub NotifyIcon1_MouseDoubleClick( ByVal sender As System.Object , ByVal e As System.Windows .Forms .MouseEventArgs ) Handles NotifyIcon1.MouseDoubleClick Dim asm As System.Reflection .Assembly asm = System.Reflection .Assembly .GetExecutingAssembly () ' Note that the name for the embedded resource ' is case sensitive and must match the file name. Dim s As Stream = asm.GetManifestResourceStream ( "PocketPCApplication1.notify.ico" ) NotifyIcon1.Icon = New Icon( s, 16 , 16 ) ' If the notification is canceled, its icon remains ' available for later activating the notification. NotifyIcon1.Text = "Notification" NotifyIcon1.BalloonTipText = False ' Initially display the notification for 10 seconds. NotifyIcon1.Visible = True End Sub Protected Overrides Sub OnPaint( ByVal e As PaintEventArgs) Dim s As String = "Merhaba World!" Dim pen As New Pen( Color.Red , 5 ) Dim font As New Font( "Arial" , 18 , FontStyle.Regular ) Dim brush As New SolidBrush( Color.Black ) Dim textSize As SizeF = e.Graphics .MeasureString ( s, font) ' Create a rectangle with padding space between string and box. Dim r As New Rectangle( 45 , 70 , CInt ( Fix ( textSize.Width ) + 10 ) , CInt ( Fix ( textSize.Height ) + 10 )) e.Graphics .DrawRectangle ( pen, r) e.Graphics .DrawString ( s, font, brush, 50 .0F, 75 .0F) MyBase .OnPaint ( e) End Sub End Class
Linklabel kullanımı
'By Zeki GÖRÜR
Imports System
Imports Microsoft.VisualBasic
Imports System.Windows.Forms
Imports System.Drawing
Public Class Form1
' The Text property appears as a link.
' You can respond to its Click event or the KeyDown event.
Private Sub LinkLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel1.Click
MsgBox("Mouse click" )
End Sub
Private Overloads Sub OnKeyDown(ByVal sender As Object , ByVal e As KeyEventArgs) Handles MyBase .KeyDown
MsgBox("Key Down" )
End Sub
End Class
Saat kullanımı
'by Zeki GÖRÜR
Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me .Text = TimeOfDay
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me .Text = TimeOfDay
End Sub
Private Sub Form1_Load(ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load
Me .Text = TimeOfDay
End Sub
End Class
Notepadi çalıştır kapat.
'By Zeki GÖRÜR Imports System Imports Microsoft.VisualBasic Imports System.Diagnostics Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click Process.Start ( "notepad.exe" ) End Sub Private Sub Form1_Load( ByVal sender As Object , ByVal e As System.EventArgs ) Handles Me .Load Button1.Text = "Notepad çalıştır" Button2.Text = "Notepad'i kapat" End Sub Private Sub Button2_Click( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button2.Click Dim processList() As Process processList = Process.GetProcessesByName ( "notepad" ) For Each proc As Process In processList If MsgBox ( "Terminate " & proc.ProcessName & "?" , MsgBoxStyle.YesNo , "Terminate?" ) = MsgBoxResult.Yes Then proc.Kill () End If Next End Sub End Class
Program çalıştır.
'By Zeki GÖRÜR
Imports Microsoft.VisualBasic
Imports System.Diagnostics
Imports Microsoft.Win32
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load
Process.Start("C:Documents and SettingsçksBelgelerimResimlerimİCLALic.jpg" )
End Sub
End Class
Sürücü bilgileri.
'By Zeki GÖRÜR
Imports System
Imports System.IO
Module Module1
Public Sub Main()
Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
Dim d As DriveInfo
For Each d In allDrives
Console.WriteLine("Drive {0}" , d.Name)
Console.WriteLine(" File type: {0}" , d.DriveType)
If d.IsReady = True Then
Console.WriteLine(" Volume label: {0}" , d.VolumeLabel)
Console.WriteLine(" File system: {0}" , d.DriveFormat)
Console.WriteLine( _
" Available space to current user:{0, 15} bytes" , _
d.AvailableFreeSpace)
Console.WriteLine( _
" Total available space: {0, 15} bytes" , _
d.TotalFreeSpace)
Console.WriteLine( _
" Total size of drive: {0, 15} bytes " , _
d.TotalSize)
End If
Next
End Sub
End Module
Menüstrip ve toolstrip kullanımı:
'By Zeki GÖRÜR Imports System Imports System.Drawing Imports Microsoft.VisualBasic Imports System.Collections Imports System.Windows .Forms Public Class Form1 Private Sub Form1_Load( ByVal sender As Object , ByVal e As System.EventArgs ) Handles Me .Load ToolStrip1.Show () ToolStrip1.ShowItemToolTips = True Dim newMenu As New ContextMenuStrip() Me .ContextMenuStrip = newMenu Dim addedMenuStripItem As New ToolStripMenuItem Dim firstDropDownItem As New ToolStripMenuItem Dim secondDropDownItem As New ToolStripMenuItem addedMenuStripItem.Text = "&Menu Name" firstDropDownItem.Text = "&First Item" secondDropDownItem.Text = "&Second Item" MenuStrip1.Items .Add ( addedMenuStripItem) addedMenuStripItem.DropDownItems .Add ( firstDropDownItem) addedMenuStripItem.DropDownItems .Add ( secondDropDownItem) Dim firstItem As New ToolStripMenuItem() Dim secondItem As New ToolStripMenuItem() firstItem.Text = "&First Item" secondItem.Text = "&Second Item" newMenu.Items .Add ( firstItem) newMenu.Items .Add ( secondItem) End Sub End Class
Scrollbar:
'By Zeki GÖRÜR Imports System Imports System.IO Imports Microsoft.VisualBasic Imports System.Windows .Forms Imports System.Drawing Imports System.Threading Imports System.Reflection Public Class Form1 Private Sub HScrollBar1_ValueChanged( ByVal sender As Object , ByVal e As System.EventArgs ) Handles HScrollBar1.ValueChanged Me .Panel1 .Left = -Me .HScrollBar1 .Value End Sub Private Sub VScrollBar1_ValueChanged( ByVal sender As Object , ByVal e As System.EventArgs ) Handles VScrollBar1.ValueChanged Me .Panel1 .Top = -Me .VScrollBar1 .Value End Sub End Class
Paint siyah çizgi:
'By Zeki GÖRÜR Imports System Imports System.IO Imports Microsoft.VisualBasic Imports System.Windows .Forms Imports System.Drawing Imports System.Threading Public Class Form1 Private Sub NotifyIcon1_MouseDoubleClick( ByVal sender As System.Object , ByVal e As System.Windows .Forms .MouseEventArgs ) Handles NotifyIcon1.MouseDoubleClick Dim asm As System.Reflection .Assembly asm = System.Reflection .Assembly .GetExecutingAssembly () ' Note that the name for the embedded resource ' is case sensitive and must match the file name. Dim s As Stream = asm.GetManifestResourceStream ( "PocketPCApplication1.notify.ico" ) NotifyIcon1.Icon = New Icon( s, 16 , 16 ) ' If the notification is canceled, its icon remains ' available for later activating the notification. NotifyIcon1.Text = "Notification" NotifyIcon1.BalloonTipText = False ' Initially display the notification for 10 seconds. NotifyIcon1.Visible = True End Sub Protected Overrides Sub OnPaint( ByVal e As PaintEventArgs) ' Use the Graphics object from the PaintEventArgs ' for tasks such as drawing a line. ' Create pen. Dim blackPen As New Pen( Color.Black , 3 ) ' Create coordinates of points that define line. Dim x1 As Integer = 100 Dim y1 As Integer = 100 Dim x2 As Integer = 500 Dim y2 As Integer = 100 ' Draw line to screen. e.Graphics .DrawLine ( blackPen, x1, y1, x2, y2) End Sub End Class
Drawbox:
'By Zeki GÖRÜR Imports System Imports System.IO Imports Microsoft.VisualBasic Imports System.Windows .Forms Imports System.Drawing Public Class Form1 Private Sub NotifyIcon1_MouseDoubleClick( ByVal sender As System.Object , ByVal e As System.Windows .Forms .MouseEventArgs ) Handles NotifyIcon1.MouseDoubleClick Dim asm As System.Reflection .Assembly asm = System.Reflection .Assembly .GetExecutingAssembly () ' Note that the name for the embedded resource ' is case sensitive and must match the file name. Dim s As Stream = asm.GetManifestResourceStream ( "PocketPCApplication1.notify.ico" ) NotifyIcon1.Icon = New Icon( s, 16 , 16 ) ' If the notification is canceled, its icon remains ' available for later activating the notification. NotifyIcon1.Text = "Notification" NotifyIcon1.BalloonTipText = False ' Initially display the notification for 10 seconds. NotifyIcon1.Visible = True End Sub Protected Overrides Sub OnPaint( ByVal e As PaintEventArgs) Dim s As String = "Merhaba World!" Dim pen As New Pen( Color.Red , 5 ) Dim font As New Font( "Arial" , 18 , FontStyle.Regular ) Dim brush As New SolidBrush( Color.Black ) Dim textSize As SizeF = e.Graphics .MeasureString ( s, font) ' Create a rectangle with padding space between string and box. Dim r As New Rectangle( 45 , 70 , CInt ( Fix ( textSize.Width ) + 10 ) , CInt ( Fix ( textSize.Height ) + 10 )) e.Graphics .DrawRectangle ( pen, r) e.Graphics .DrawString ( s, font, brush, 50 .0F, 75 .0F) MyBase .OnPaint ( e) End Sub End Class
Linklabel
‘By Zeki GÖRÜR Imports System Imports Microsoft.VisualBasic Imports System.Windows .Forms Imports System.Drawing Public Class Form1 ' The Text property appears as a link. ' You can respond to its Click event or the KeyDown event. Private Sub LinkLabel1_Click( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles LinkLabel1.Click MsgBox ( "Mouse click" ) End Sub Private Overloads Sub OnKeyDown( ByVal sender As Object , ByVal e As KeyEventArgs) Handles MyBase .KeyDown MsgBox ( "Key Down" ) End Sub End Class
Picturebox işlemi:
'By Zeki GÖRÜR
Imports System
Imports Microsoft.VisualBasic
Imports System.Windows.Forms
Imports System.Drawing
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load
Dim bmp As New Bitmap(Width, Height)
Dim g As Graphics = Graphics.FromImage(bmp)
g.FillRectangle(New SolidBrush(Color.Lime), 0, 0, bmp.Width, bmp.Height)
g.DrawEllipse(New Pen(Color.LightGray), 3, 3, Width - 6, Height - 6)
g.Dispose()
Return
End Sub
Private backgroundImg As Image
Private pressedImg As Image
Private pressed As Boolean = False
' Property for the background image to be drawn behind the button text.
Public Property BackgroundImageValue() As Image
Get
Return Me .backgroundImg
End Get
Set (ByVal Value As Image)
Me .backgroundImg = Value
End Set
End Property
' Property for the background image to be drawn behind the button text when
' the button is pressed.
Public Property PressedImageValue() As Image
Get
Return Me .pressedImg
End Get
Set (ByVal Value As Image)
Me .pressedImg = Value
End Set
End Property
' Ivalidate form to cause repaint.
Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
Me .pressed = True
Me .Invalidate()
MyBase .OnMouseDown(e)
End Sub
' When the mouse is released, reset the "pressed" flag
' and invalidate to redraw the button in the un-pressed state.
Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
Me .pressed = False
Me .Invalidate()
MyBase .OnMouseUp(e)
End Sub
' Override the OnPaint method so we can draw the background image and the text.
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
If Me .pressed AndAlso (Me .pressedImg IsNot Nothing ) Then
e.Graphics.DrawImage(Me .pressedImg, 0, 0)
Else
End If
' Draw the text if there is any.
If Me .Text.Length > 0 Then
Dim size As SizeF = e.Graphics.MeasureString(Me .Text, Me .Font)
' Center the text inside the client area of the PictureButton.
e.Graphics.DrawString(Me .Text, Me .Font, New SolidBrush(Me .ForeColor), (Me .ClientSize.Width - size.Width) / 2, (Me .ClientSize.Height - size.Height) / 2)
End If
' Draw a border around the outside of the
' control to look like Pocket PC buttons.
e.Graphics.DrawRectangle(New Pen(Color.Black), 0, 0, Me .ClientSize.Width - 1, Me .ClientSize.Height - 1)
MyBase .OnPaint(e)
End Sub
End Class
PocketPC Resetleme:
:
'by Zeki GÖRÜR Imports System Public Class Form1 Private Declare Function KernelIoControl Lib "coredll.dll" ( ByVal dwIoControlCode As Integer , ByVal lpInBuf As IntPtr, ByVal nInBufSize As Integer , ByVal lpOutBuf As IntPtr, ByVal nOutBufSize As Integer , ByRef lpBytesReturned As Integer ) As Integer Private Function CTL_CODE ( ByVal DeviceType As Integer , ByVal Func As Integer , ByVal Method As Integer , ByVal Access As Integer ) As Integer Return ( DeviceType << 16 ) Or ( Access << 14 ) Or ( Func << 2 ) Or Method End Function Private Function ResetPocketPC () As Integer Const FILE_DEVICE_HAL As Integer = &H101 Const METHOD_BUFFERED As Integer = 0 Const FILE_ANY_ACCESS As Integer = 0 Dim bytesReturned As Integer = 0 Dim IOCTL_HAL_REBOOT As Integer IOCTL_HAL_REBOOT = CTL_CODE( FILE_DEVICE_HAL, 15 , METHOD_BUFFERED, FILE_ANY_ACCESS ) Return KernelIoControl( IOCTL_HAL_REBOOT, IntPtr. Zero , 0 , IntPtr. Zero , 0 , bytesReturned ) End Function End Class
Konsole sürücü bilgileri:
'By Zeki GÖRÜR Imports System Imports System.IO Module Module1 Public Sub Main() Dim allDrives() As DriveInfo = DriveInfo.GetDrives () Dim d As DriveInfo For Each d In allDrives Console.WriteLine ( "Drive {0}" , d.Name ) Console.WriteLine ( " File type: {0}" , d.DriveType ) If d.IsReady = True Then Console.WriteLine ( " Volume label: {0}" , d.VolumeLabel ) Console.WriteLine ( " File system: {0}" , d.DriveFormat ) Console.WriteLine ( _ " Available space to current user:{0, 15} bytes" , _ d.AvailableFreeSpace ) Console.WriteLine ( _ " Total available space: {0, 15} bytes" , _ d.TotalFreeSpace ) Console.WriteLine ( _ " Total size of drive: {0, 15} bytes " , _ d.TotalSize ) End If Next End Sub End Module
Telefon çevir:
'by Zeki GÖRÜR
Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.IO.Ports
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me .BackColor = Color.Red
Label1.Text = UInteger .MinValue
Label2.Text = UInteger .MaxValue
Using comPort As SerialPort = My .Computer.Ports.OpenSerialPort("COM1" , 2400)
comPort.DtrEnable = True
comPort.Write("ATDT 614-20-8645" & vbCrLf)
End Using
End Sub
End Class
Mediaplayer çalıştır:
'By Zeki GÖRÜR
Imports Microsoft.VisualBasic
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load
AxWindowsMediaPlayer1.openPlayer("C:windowsMediaOnestop.mid" )
End Sub
End Class
Renkli konsol:
'By Zeki GÖRÜR
Imports Microsoft.VisualBasic
Module Module1
Sub Main()
Console.BackgroundColor = ConsoleColor.DarkCyan
Console.ForegroundColor = ConsoleColor.DarkMagenta
Console.Clear()
End Sub
End Module
Texturebrush çizim:
'By Zeki GÖRÜR
Imports System.Drawing.Drawing2D
Public Class Form1
' Texture Brushes
' The texture brushes provides you to use an image as brush and fill GDI+ objects with the brush. The following code use ¡°myfile.bmp¡± as a brush. You need to define an Image object and create brush with that Image and pass the brush into Fill method of GDI+ objects.
Dim txBrush As TextureBrush
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim g As Graphics = e.Graphics
g.FillRectangle(txBrush, ClientRectangle)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load
Dim img As Image = New Bitmap("C:windowsWebbullet.gif" )
txBrush = New TextureBrush(img)
End Sub
End Class
Hatch brush çizim:
'By Zeki GÖRÜR
Imports System.Drawing.Drawing2D
Public Class Form1
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim g As Graphics = e.Graphics
Dim hBrush1 As Drawing2D.HatchBrush = New Drawing2D.HatchBrush(HatchStyle.DiagonalCross, Color.Chocolate, Color.Red)
Dim hBrush2 As Drawing2D.HatchBrush = New Drawing2D.HatchBrush(HatchStyle.DashedHorizontal, Color.Green, Color.Black)
Dim hBrush3 As Drawing2D.HatchBrush = New Drawing2D.HatchBrush(HatchStyle.Weave, Color.BlueViolet, Color.Blue)
g.FillEllipse(hBrush1, 20, 80, 60, 20)
Dim rect As Rectangle = New Rectangle(0, 0, 200, 100)
Dim point1 As PointF = New PointF(50.0F, 250.0F)
Dim point2 As PointF = New PointF(100.0F, 25.0F)
Dim point3 As PointF = New PointF(150.0F, 5.0F)
Dim point4 As PointF = New PointF(250.0F, 50.0F)
Dim point5 As PointF = New PointF(300.0F, 100.0F)
Dim curvePoints As PointF() = {point1, point2, point3, point4, point5}
g.FillPolygon(hBrush2, curvePoints)
End Sub
End Class
Solid brush çiizm:
'By Zeki GÖRÜR
Public Class Form1
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
' Solid Brushes
' Solid brushes are normal brushes with no style. You fill GDI+ object with a color. SolidBrush type is used to work with solid brushes.
Dim g As Graphics = e.Graphics
Dim sdBrush1 As SolidBrush = New SolidBrush(Color.Red)
Dim sdBrush2 As SolidBrush = New SolidBrush(Color.Green)
Dim sdBrush3 As SolidBrush = New SolidBrush(Color.Blue)
g.FillEllipse(sdBrush2, 20, 40, 60, 70)
Dim rect As Rectangle = New Rectangle(0, 0, 200, 100)
g.FillPie(sdBrush3, 0, 0, 200, 40, 0.0F, 30.0F)
Dim point1 As PointF = New PointF(50.0F, 250.0F)
Dim point2 As PointF = New PointF(100.0F, 25.0F)
Dim point3 As PointF = New PointF(150.0F, 5.0F)
Dim point4 As PointF = New PointF(250.0F, 50.0F)
Dim point5 As PointF = New PointF(300.0F, 100.0F)
Dim curvePoints As PointF() = {point1, point2, point3, point4, point5}
g.FillPolygon(sdBrush1, curvePoints)
End Sub
End Class
Drawing color işlemi:
'copright by Zeki GÖRÜR
Public Class Form1
' It can be used like this:
Protected Overrides Sub OnPaint(ByVal pe As PaintEventArgs)
DrawGradient(Color.BurlyWood, Color.Firebrick, Drawing.Drawing2D.LinearGradientMode.Horizontal)
End Sub
' The function is:
Private Sub DrawGradient(ByVal color1 As Color, ByVal color2 As Color, ByVal mode As System.Drawing.Drawing2D.LinearGradientMode)
Dim a As New System.Drawing.Drawing2D.LinearGradientBrush(New RectangleF(0, 0, Me .Width, Me .Height), color1, color2, mode)
Dim g As Graphics = Me .CreateGraphics
g.FillRectangle(a, New RectangleF(0, 0, Me .Width, Me .Height))
g.Dispose()
End Sub
' You can render text using a similiar method:
Private Sub DrawGradientString(ByVal text As String , ByVal color1 As Color, ByVal color2 As Color, ByVal mode As System.Drawing.Drawing2D.LinearGradientMode)
Dim a As New System.Drawing.Drawing2D.LinearGradientBrush(New RectangleF(500, 700, 100, 19), color1, color2, mode)
Dim g As Graphics = Me .CreateGraphics
Dim f As Font
f = New Font("arial" , 20, FontStyle.Bold, GraphicsUnit.Pixel)
g.DrawString(text, f, a, 10, 0)
g.Dispose()
End Sub
' For this method it is used like this:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DrawGradientString("Merhaba Kodbank hayranları" , Color.Blue, Color.Firebrick, Drawing.Drawing2D.LinearGradientMode.Vertical)
End Sub
End Class
Wav,mid çal:
'Copright by Ramazan GÜMÜŞKAR and Zeki GÖRÜR
'Saat:16.14tarih 15/08/2008
'Güle güle kullanın misafirler,arkadaşlar.
Imports System
Public Class Form1
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String ) As Integer
' Fonksiyonu aşağıdaki gibi kullanabilirsiniz.
' Tırnak içindeki play komutu sabit kalmalıdır.
Private Sub Button1_Click(ByVal sender As Object , ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Object
x = mciExecute(" Play C:WindowsMediading.wav" )
End Sub
Dim x As Object
Private Sub Form1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase .Click
Dim x As Object
x = mciExecute(" Play C:WindowsMediaonestop.mid" )
End Sub
Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase .Load
x = mciExecute(" Play C:WindowsMediading.wav" )
Me .Text = "ses dosyaları çalınıyor."
Button1.Text = ".wav çal"
Button2.Text = ".mid çal"
' x değeri dosyanın başarılı olarak çalışıp çalışmadığını döndürür.
End Sub
Private Sub Form1_Validated(ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Validated
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x As Object
x = mciExecute(" Play C:WindowsMediatown.mid" )
End Sub
End Class
Klavye yapalaım:
'Copright by Ramazan GÜMÜŞKAR and Zeki GÖRÜR 'Saat:14.44tarih 14/08/2008 'Güle güle kullanın misafirler,arkadaşlar. Imports System Imports System.Windows .Forms Imports System.Drawing Public Class Form1 ' reference to last Button pressed Private m_btnLastButton As Button 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents lblPrompt As System.Windows .Forms .Label Friend WithEvents txtOutput As System.Windows .Forms .TextBox Friend WithEvents btnF1 As System.Windows .Forms .Button Friend WithEvents btnF2 As System.Windows .Forms .Button Friend WithEvents btnF3 As System.Windows .Forms .Button Friend WithEvents btnF4 As System.Windows .Forms .Button Friend WithEvents btnF5 As System.Windows .Forms .Button Friend WithEvents btnF6 As System.Windows .Forms .Button Friend WithEvents btnF7 As System.Windows .Forms .Button Friend WithEvents btnF8 As System.Windows .Forms .Button Friend WithEvents btnF9 As System.Windows .Forms .Button Friend WithEvents btnF10 As System.Windows .Forms .Button Friend WithEvents btnF11 As System.Windows .Forms .Button Friend WithEvents btnF12 As System.Windows .Forms .Button Friend WithEvents btn0 As System.Windows .Forms .Button Friend WithEvents btn1 As System.Windows .Forms .Button Friend WithEvents btn2 As System.Windows .Forms .Button Friend WithEvents btn3 As System.Windows .Forms .Button Friend WithEvents btn4 As System.Windows .Forms .Button Friend WithEvents btn5 As System.Windows .Forms .Button Friend WithEvents btn6 As System.Windows .Forms .Button Friend WithEvents btn7 As System.Windows .Forms .Button Friend WithEvents btn8 As System.Windows .Forms .Button Friend WithEvents btn9 As System.Windows .Forms .Button Friend WithEvents btnHyphen As System.Windows .Forms .Button Friend WithEvents btnPlus As System.Windows .Forms .Button Friend WithEvents btnTilde As System.Windows .Forms .Button Friend WithEvents btnTab As System.Windows .Forms .Button Friend WithEvents btnCaps As System.Windows .Forms .Button Friend WithEvents btnShiftLeft As System.Windows .Forms .Button Friend WithEvents btnCtrlLeft As System.Windows .Forms .Button Friend WithEvents btnFn As System.Windows .Forms .Button Friend WithEvents btnAltLeft As System.Windows .Forms .Button Friend WithEvents btnSpace As System.Windows .Forms .Button Friend WithEvents btnBackspace As System.Windows .Forms .Button Friend WithEvents btnSlash As System.Windows .Forms .Button Friend WithEvents btnEnter As System.Windows .Forms .Button Friend WithEvents btnUp As System.Windows .Forms .Button Friend WithEvents btnLeft As System.Windows .Forms .Button Friend WithEvents btnDown As System.Windows .Forms .Button Friend WithEvents btnRight As System.Windows .Forms .Button Friend WithEvents btnLeftBrace As System.Windows .Forms .Button Friend WithEvents btnRightBrace As System.Windows .Forms .Button Friend WithEvents btnColon As System.Windows .Forms .Button Friend WithEvents btnQuote As System.Windows .Forms .Button Friend WithEvents btnComma As System.Windows .Forms .Button Friend WithEvents btnPeriod As System.Windows .Forms .Button Friend WithEvents btnQuestion As System.Windows .Forms .Button Friend WithEvents btnA As System.Windows .Forms .Button Friend WithEvents btnB As System.Windows .Forms .Button Friend WithEvents btnC As System.Windows .Forms .Button Friend WithEvents btnD As System.Windows .Forms .Button Friend WithEvents btnE As System.Windows .Forms .Button Friend WithEvents btnF As System.Windows .Forms .Button Friend WithEvents btnG As System.Windows .Forms .Button Friend WithEvents btnH As System.Windows .Forms .Button Friend WithEvents btnI As System.Windows .Forms .Button Friend WithEvents btnJ As System.Windows .Forms .Button Friend WithEvents btnK As System.Windows .Forms .Button Friend WithEvents btnL As System.Windows .Forms .Button Friend WithEvents btnN As System.Windows .Forms .Button Friend WithEvents btnO As System.Windows .Forms .Button Friend WithEvents btnP As System.Windows .Forms .Button Friend WithEvents btnQ As System.Windows .Forms .Button Friend WithEvents btnR As System.Windows .Forms .Button Friend WithEvents btnS As System.Windows .Forms .Button Friend WithEvents btnT As System.Windows .Forms .Button Friend WithEvents btnU As System.Windows .Forms .Button Friend WithEvents btnV As System.Windows .Forms .Button Friend WithEvents btnW As System.Windows .Forms .Button Friend WithEvents btnM As System.Windows .Forms .Button Friend WithEvents btnX As System.Windows .Forms .Button Friend WithEvents btnY As System.Windows .Forms .Button Friend WithEvents btnZ As System.Windows .Forms .Button Private Sub FrmTypingApplication_Load( ByVal sender As Object , ByVal e As System.EventArgs ) Handles Me .Load Me .lblPrompt = New System.Windows .Forms .Label Me .txtOutput = New System.Windows .Forms .TextBox Me .btnF1 = New System.Windows .Forms .Button Me .btnF2 = New System.Windows .Forms .Button Me .btnF3 = New System.Windows .Forms .Button Me .btnF4 = New System.Windows .Forms .Button Me .btnF5 = New System.Windows .Forms .Button Me .btnF6 = New System.Windows .Forms .Button Me .btnF7 = New System.Windows .Forms .Button Me .btnF8 = New System.Windows .Forms .Button Me .btnF9 = New System.Windows .Forms .Button Me .btnF10 = New System.Windows .Forms .Button Me .btnF11 = New System.Windows .Forms .Button Me .btnF12 = New System.Windows .Forms .Button Me .btn1 = New System.Windows .Forms .Button Me .btn2 = New System.Windows .Forms .Button Me .btn3 = New System.Windows .Forms .Button Me .btn4 = New System.Windows .Forms .Button Me .btn5 = New System.Windows .Forms .Button Me .btn6 = New System.Windows .Forms .Button Me .btn7 = New System.Windows .Forms .Button Me .btn8 = New System.Windows .Forms .Button Me .btn9 = New System.Windows .Forms .Button Me .btn0 = New System.Windows .Forms .Button Me .btnHyphen = New System.Windows .Forms .Button Me .btnPlus = New System.Windows .Forms .Button Me .btnTilde = New System.Windows .Forms .Button Me .btnTab = New System.Windows .Forms .Button Me .btnCtrlLeft = New System.Windows .Forms .Button Me .btnFn = New System.Windows .Forms .Button Me .btnAltLeft = New System.Windows .Forms .Button Me .btnEnter = New System.Windows .Forms .Button Me .btnSlash = New System.Windows .Forms .Button Me .btnBackspace = New System.Windows .Forms .Button Me .btnSpace = New System.Windows .Forms .Button Me .btnCaps = New System.Windows .Forms .Button Me .btnShiftLeft = New System.Windows .Forms .Button Me .btnUp = New System.Windows .Forms .Button Me .btnLeft = New System.Windows .Forms .Button Me .btnDown = New System.Windows .Forms .Button Me .btnRight = New System.Windows .Forms .Button Me .btnLeftBrace = New System.Windows .Forms .Button Me .btnRightBrace = New System.Windows .Forms .Button Me .btnColon = New System.Windows .Forms .Button Me .btnQuote = New System.Windows .Forms .Button Me .btnComma = New System.Windows .Forms .Button Me .btnPeriod = New System.Windows .Forms .Button Me .btnQuestion = New System.Windows .Forms .Button Me .btnC = New System.Windows .Forms .Button Me .btnB = New System.Windows .Forms .Button Me .btnA = New System.Windows .Forms .Button Me .btnG = New System.Windows .Forms .Button Me .btnF = New System.Windows .Forms .Button Me .btnE = New System.Windows .Forms .Button Me .btnD = New System.Windows .Forms .Button Me .btnK = New System.Windows .Forms .Button Me .btnJ = New System.Windows .Forms .Button Me .btnI = New System.Windows .Forms .Button Me .btnH = New System.Windows .Forms .Button Me .btnO = New System.Windows .Forms .Button Me .btnN = New System.Windows .Forms .Button Me .btnM = New System.Windows .Forms .Button Me .btnL = New System.Windows .Forms .Button Me .btnT = New System.Windows .Forms .Button Me .btnS = New System.Windows .Forms .Button Me .btnR = New System.Windows .Forms .Button Me .btnQ = New System.Windows .Forms .Button Me .btnP = New System.Windows .Forms .Button Me .btnY = New System.Windows .Forms .Button Me .btnX = New System.Windows .Forms .Button Me .btnW = New System.Windows .Forms .Button Me .btnV = New System.Windows .Forms .Button Me .btnU = New System.Windows .Forms .Button Me .btnZ = New System.Windows .Forms .Button Me .SuspendLayout () ' 'lblPrompt ' Me .lblPrompt .Location = New System.Drawing .Point ( 32 , 8 ) Me .lblPrompt .Name = "lblPrompt" Me .lblPrompt .Size = New System.Drawing .Size ( 408 , 40 ) Me .lblPrompt .TabIndex = 64 Me .lblPrompt .Text = "Type some text using your keyboard." ' 'txtOutput ' Me .txtOutput .AcceptsTab = True Me .txtOutput .BackColor = System.Drawing .Color .White Me .txtOutput .Font = New System.Drawing .Font ( "Tahoma" , 10.2 !) Me .txtOutput .Location = New System.Drawing .Point ( 32 , 64 ) Me .txtOutput .Multiline = True Me .txtOutput .Name = "txtOutput" Me .txtOutput .ReadOnly = True Me .txtOutput .Size = New System.Drawing .Size ( 408 , 136 ) Me .txtOutput .TabIndex = 0 Me .txtOutput .Text = "" ' 'btnF1 ' Me .btnF1 .Location = New System.Drawing .Point ( 48 , 216 ) Me .btnF1 .Name = "btnF1" Me .btnF1 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF1 .TabIndex = 74 Me .btnF1 .Text = "F1" ' 'btnF2 ' Me .btnF2 .Location = New System.Drawing .Point ( 80 , 216 ) Me .btnF2 .Name = "btnF2" Me .btnF2 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF2 .TabIndex = 72 Me .btnF2 .Text = "F2" ' 'btnF3 ' Me .btnF3 .Location = New System.Drawing .Point ( 112 , 216 ) Me .btnF3 .Name = "btnF3" Me .btnF3 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF3 .TabIndex = 67 Me .btnF3 .Text = "F3" ' 'btnF4 ' Me .btnF4 .Location = New System.Drawing .Point ( 144 , 216 ) Me .btnF4 .Name = "btnF4" Me .btnF4 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF4 .TabIndex = 68 Me .btnF4 .Text = "F4" ' 'btnF5 ' Me .btnF5 .Location = New System.Drawing .Point ( 176 , 216 ) Me .btnF5 .Name = "btnF5" Me .btnF5 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF5 .TabIndex = 69 Me .btnF5 .Text = "F5" ' 'btnF6 ' Me .btnF6 .Location = New System.Drawing .Point ( 208 , 216 ) Me .btnF6 .Name = "btnF6" Me .btnF6 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF6 .TabIndex = 70 Me .btnF6 .Text = "F6" ' 'btnF7 ' Me .btnF7 .Location = New System.Drawing .Point ( 240 , 216 ) Me .btnF7 .Name = "btnF7" Me .btnF7 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF7 .TabIndex = 71 Me .btnF7 .Text = "F7" ' 'btnF8 ' Me .btnF8 .Location = New System.Drawing .Point ( 272 , 216 ) Me .btnF8 .Name = "btnF8" Me .btnF8 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF8 .TabIndex = 72 Me .btnF8 .Text = "F8" ' 'btnF9 ' Me .btnF9 .Location = New System.Drawing .Point ( 304 , 216 ) Me .btnF9 .Name = "btnF9" Me .btnF9 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF9 .TabIndex = 73 Me .btnF9 .Text = "F9" ' 'btnF10 ' Me .btnF10 .Location = New System.Drawing .Point ( 336 , 216 ) Me .btnF10 .Name = "btnF10" Me .btnF10 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF10 .TabIndex = 74 Me .btnF10 .Text = "F10" ' 'btnF11 ' Me .btnF11 .Location = New System.Drawing .Point ( 368 , 216 ) Me .btnF11 .Name = "btnF11" Me .btnF11 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF11 .TabIndex = 75 Me .btnF11 .Text = "F11" ' 'btnF12 ' Me .btnF12 .Location = New System.Drawing .Point ( 400 , 216 ) Me .btnF12 .Name = "btnF12" Me .btnF12 .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnF12 .TabIndex = 76 Me .btnF12 .Text = "F12" ' 'btn1 ' Me .btn1 .Location = New System.Drawing .Point ( 80 , 240 ) Me .btn1 .Name = "btn1" Me .btn1 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn1 .TabIndex = 77 Me .btn1 .Text = "1" ' 'btn2 ' Me .btn2 .Location = New System.Drawing .Point ( 104 , 240 ) Me .btn2 .Name = "btn2" Me .btn2 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn2 .TabIndex = 78 Me .btn2 .Text = "2" ' 'btn3 ' Me .btn3 .Location = New System.Drawing .Point ( 128 , 240 ) Me .btn3 .Name = "btn3" Me .btn3 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn3 .TabIndex = 79 Me .btn3 .Text = "3" ' 'btn4 ' Me .btn4 .Location = New System.Drawing .Point ( 152 , 240 ) Me .btn4 .Name = "btn4" Me .btn4 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn4 .TabIndex = 80 Me .btn4 .Text = "4" ' 'btn5 ' Me .btn5 .Location = New System.Drawing .Point ( 176 , 240 ) Me .btn5 .Name = "btn5" Me .btn5 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn5 .TabIndex = 81 Me .btn5 .Text = "5" ' 'btn6 ' Me .btn6 .Location = New System.Drawing .Point ( 200 , 240 ) Me .btn6 .Name = "btn6" Me .btn6 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn6 .TabIndex = 82 Me .btn6 .Text = "6" ' 'btn7 ' Me .btn7 .Location = New System.Drawing .Point ( 224 , 240 ) Me .btn7 .Name = "btn7" Me .btn7 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn7 .TabIndex = 83 Me .btn7 .Text = "7" ' 'btn8 ' Me .btn8 .Location = New System.Drawing .Point ( 248 , 240 ) Me .btn8 .Name = "btn8" Me .btn8 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn8 .TabIndex = 84 Me .btn8 .Text = "8" ' 'btn9 ' Me .btn9 .Location = New System.Drawing .Point ( 272 , 240 ) Me .btn9 .Name = "btn9" Me .btn9 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn9 .TabIndex = 85 Me .btn9 .Text = "9" ' 'btn0 ' Me .btn0 .Location = New System.Drawing .Point ( 296 , 240 ) Me .btn0 .Name = "btn0" Me .btn0 .Size = New System.Drawing .Size ( 24 , 23 ) Me .btn0 .TabIndex = 86 Me .btn0 .Text = "0" ' 'btnHyphen ' Me .btnHyphen .Location = New System.Drawing .Point ( 320 , 240 ) Me .btnHyphen .Name = "btnHyphen" Me .btnHyphen .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnHyphen .TabIndex = 87 Me .btnHyphen .Text = "-" ' 'btnPlus ' Me .btnPlus .Location = New System.Drawing .Point ( 344 , 240 ) Me .btnPlus .Name = "btnPlus" Me .btnPlus .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnPlus .TabIndex = 88 Me .btnPlus .Text = "+" ' 'btnTilde ' Me .btnTilde .Location = New System.Drawing .Point ( 32 , 240 ) Me .btnTilde .Name = "btnTilde" Me .btnTilde .Size = New System.Drawing .Size ( 48 , 23 ) Me .btnTilde .TabIndex = 89 Me .btnTilde .Text = "~" ' 'btnTab ' Me .btnTab .Location = New System.Drawing .Point ( 32 , 264 ) Me .btnTab .Name = "btnTab" Me .btnTab .Size = New System.Drawing .Size ( 64 , 23 ) Me .btnTab .TabIndex = 90 Me .btnTab .Text = "Tab" ' 'btnCtrlLeft ' Me .btnCtrlLeft .Location = New System.Drawing .Point ( 32 , 336 ) Me .btnCtrlLeft .Name = "btnCtrlLeft" Me .btnCtrlLeft .Size = New System.Drawing .Size ( 56 , 23 ) Me .btnCtrlLeft .TabIndex = 91 Me .btnCtrlLeft .Text = "Ctrl" ' 'btnFn ' Me .btnFn .Enabled = False Me .btnFn .Location = New System.Drawing .Point ( 88 , 336 ) Me .btnFn .Name = "btnFn" Me .btnFn .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnFn .TabIndex = 92 Me .btnFn .Text = "Fn" ' 'btnAltLeft ' Me .btnAltLeft .Location = New System.Drawing .Point ( 120 , 336 ) Me .btnAltLeft .Name = "btnAltLeft" Me .btnAltLeft .Size = New System.Drawing .Size ( 32 , 23 ) Me .btnAltLeft .TabIndex = 93 Me .btnAltLeft .Text = "Alt" ' 'btnEnter ' Me .btnEnter .Location = New System.Drawing .Point ( 368 , 288 ) Me .btnEnter .Name = "btnEnter" Me .btnEnter .Size = New System.Drawing .Size ( 72 , 23 ) Me .btnEnter .TabIndex = 94 Me .btnEnter .Text = "Enter" ' 'btnSlash ' Me .btnSlash .Location = New System.Drawing .Point ( 384 , 264 ) Me .btnSlash .Name = "btnSlash" Me .btnSlash .Size = New System.Drawing .Size ( 56 , 23 ) Me .btnSlash .TabIndex = 95 Me .btnSlash .Text = "" ' 'btnBackspace ' Me .btnBackspace .Location = New System.Drawing .Point ( 368 , 240 ) Me .btnBackspace .Name = "btnBackspace" Me .btnBackspace .Size = New System.Drawing .Size ( 72 , 23 ) Me .btnBackspace .TabIndex = 96 Me .btnBackspace .Text = "Backspace" ' 'btnSpace ' Me .btnSpace .Location = New System.Drawing .Point ( 152 , 336 ) Me .btnSpace .Name = "btnSpace" Me .btnSpace .Size = New System.Drawing .Size ( 144 , 23 ) Me .btnSpace .TabIndex = 97 ' 'btnCaps ' Me .btnCaps .Location = New System.Drawing .Point ( 32 , 288 ) Me .btnCaps .Name = "btnCaps" Me .btnCaps .Size = New System.Drawing .Size ( 72 , 23 ) Me .btnCaps .TabIndex = 98 Me .btnCaps .Text = "Caps Lock" ' 'btnShiftLeft ' Me .btnShiftLeft .Location = New System.Drawing .Point ( 32 , 312 ) Me .btnShiftLeft .Name = "btnShiftLeft" Me .btnShiftLeft .Size = New System.Drawing .Size ( 88 , 23 ) Me .btnShiftLeft .TabIndex = 99 Me .btnShiftLeft .Text = "Shift" ' 'btnUp ' Me .btnUp .Location = New System.Drawing .Point ( 384 , 312 ) Me .btnUp .Name = "btnUp" Me .btnUp .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnUp .TabIndex = 100 Me .btnUp .Text = "^" ' 'btnLeft ' Me .btnLeft .Location = New System.Drawing .Point ( 360 , 336 ) Me .btnLeft .Name = "btnLeft" Me .btnLeft .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnLeft .TabIndex = 101 Me .btnLeft .Text = "<" ' 'btnDown ' Me .btnDown .Location = New System.Drawing .Point ( 384 , 336 ) Me .btnDown .Name = "btnDown" Me .btnDown .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnDown .TabIndex = 102 Me .btnDown .Text = "v" ' 'btnRight ' Me .btnRight .Location = New System.Drawing .Point ( 408 , 336 ) Me .btnRight .Name = "btnRight" Me .btnRight .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnRight .TabIndex = 103 Me .btnRight .Text = ">" ' 'btnLeftBrace ' Me .btnLeftBrace .Location = New System.Drawing .Point ( 336 , 264 ) Me .btnLeftBrace .Name = "btnLeftBrace" Me .btnLeftBrace .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnLeftBrace .TabIndex = 104 Me .btnLeftBrace .Text = "[" ' 'btnRightBrace ' Me .btnRightBrace .Location = New System.Drawing .Point ( 360 , 264 ) Me .btnRightBrace .Name = "btnRightBrace" Me .btnRightBrace .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnRightBrace .TabIndex = 105 Me .btnRightBrace .Text = "]" ' 'btnColon ' Me .btnColon .Location = New System.Drawing .Point ( 320 , 288 ) Me .btnColon .Name = "btnColon" Me .btnColon .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnColon .TabIndex = 106 Me .btnColon .Text = ":" ' 'btnQuote ' Me .btnQuote .Location = New System.Drawing .Point ( 344 , 288 ) Me .btnQuote .Name = "btnQuote" Me .btnQuote .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnQuote .TabIndex = 107 Me .btnQuote .Text = """" ' 'btnComma ' Me .btnComma .Location = New System.Drawing .Point ( 288 , 312 ) Me .btnComma .Name = "btnComma" Me .btnComma .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnComma .TabIndex = 108 Me .btnComma .Text = "," ' 'btnPeriod ' Me .btnPeriod .Location = New System.Drawing .Point ( 312 , 312 ) Me .btnPeriod .Name = "btnPeriod" Me .btnPeriod .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnPeriod .TabIndex = 109 Me .btnPeriod .Text = "." ' 'btnQuestion ' Me .btnQuestion .Location = New System.Drawing .Point ( 336 , 312 ) Me .btnQuestion .Name = "btnQuestion" Me .btnQuestion .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnQuestion .TabIndex = 110 Me .btnQuestion .Text = "?" ' 'btnC ' Me .btnC .Location = New System.Drawing .Point ( 168 , 312 ) Me .btnC .Name = "btnC" Me .btnC .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnC .TabIndex = 111 Me .btnC .Text = "C" ' 'btnB ' Me .btnB .Location = New System.Drawing .Point ( 216 , 312 ) Me .btnB .Name = "btnB" Me .btnB .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnB .TabIndex = 112 Me .btnB .Text = "B" ' 'btnA ' Me .btnA .Location = New System.Drawing .Point ( 104 , 288 ) Me .btnA .Name = "btnA" Me .btnA .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnA .TabIndex = 113 Me .btnA .Text = "A" ' 'btnG ' Me .btnG .Location = New System.Drawing .Point ( 200 , 288 ) Me .btnG .Name = "btnG" Me .btnG .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnG .TabIndex = 114 Me .btnG .Text = "G" ' 'btnF ' Me .btnF .Location = New System.Drawing .Point ( 176 , 288 ) Me .btnF .Name = "btnF" Me .btnF .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnF .TabIndex = 115 Me .btnF .Text = "F" ' 'btnE ' Me .btnE .Location = New System.Drawing .Point ( 144 , 264 ) Me .btnE .Name = "btnE" Me .btnE .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnE .TabIndex = 116 Me .btnE .Text = "E" ' 'btnD ' Me .btnD .Location = New System.Drawing .Point ( 152 , 288 ) Me .btnD .Name = "btnD" Me .btnD .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnD .TabIndex = 117 Me .btnD .Text = "D" ' 'btnK ' Me .btnK .Location = New System.Drawing .Point ( 272 , 288 ) Me .btnK .Name = "btnK" Me .btnK .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnK .TabIndex = 118 Me .btnK .Text = "K" ' 'btnJ ' Me .btnJ .Location = New System.Drawing .Point ( 248 , 288 ) Me .btnJ .Name = "btnJ" Me .btnJ .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnJ .TabIndex = 119 Me .btnJ .Text = "J" ' 'btnI ' Me .btnI .Location = New System.Drawing .Point ( 264 , 264 ) Me .btnI .Name = "btnI" Me .btnI .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnI .TabIndex = 120 Me .btnI .Text = "I" ' 'btnH ' Me .btnH .Location = New System.Drawing .Point ( 224 , 288 ) Me .btnH .Name = "btnH" Me .btnH .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnH .TabIndex = 121 Me .btnH .Text = "H" ' 'btnO ' Me .btnO .Location = New System.Drawing .Point ( 288 , 264 ) Me .btnO .Name = "btnO" Me .btnO .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnO .TabIndex = 122 Me .btnO .Text = "O" ' 'btnN ' Me .btnN .Location = New System.Drawing .Point ( 240 , 312 ) Me .btnN .Name = "btnN" Me .btnN .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnN .TabIndex = 123 Me .btnN .Text = "N" ' 'btnM ' Me .btnM .Location = New System.Drawing .Point ( 264 , 312 ) Me .btnM .Name = "btnM" Me .btnM .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnM .TabIndex = 124 Me .btnM .Text = "M" ' 'btnL ' Me .btnL .Location = New System.Drawing .Point ( 296 , 288 ) Me .btnL .Name = "btnL" Me .btnL .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnL .TabIndex = 125 Me .btnL .Text = "L" ' 'btnT ' Me .btnT .Location = New System.Drawing .Point ( 192 , 264 ) Me .btnT .Name = "btnT" Me .btnT .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnT .TabIndex = 126 Me .btnT .Text = "T" ' 'btnS ' Me .btnS .Location = New System.Drawing .Point ( 128 , 288 ) Me .btnS .Name = "btnS" Me .btnS .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnS .TabIndex = 127 Me .btnS .Text = "S" ' 'btnR ' Me .btnR .Location = New System.Drawing .Point ( 168 , 264 ) Me .btnR .Name = "btnR" Me .btnR .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnR .TabIndex = 128 Me .btnR .Text = "R" ' 'btnQ ' Me .btnQ .Location = New System.Drawing .Point ( 96 , 264 ) Me .btnQ .Name = "btnQ" Me .btnQ .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnQ .TabIndex = 129 Me .btnQ .Text = "Q" ' 'btnP ' Me .btnP .Location = New System.Drawing .Point ( 312 , 264 ) Me .btnP .Name = "btnP" Me .btnP .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnP .TabIndex = 130 Me .btnP .Text = "P" ' 'btnY ' Me .btnY .Location = New System.Drawing .Point ( 216 , 264 ) Me .btnY .Name = "btnY" Me .btnY .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnY .TabIndex = 131 Me .btnY .Text = "Y" ' 'btnX ' Me .btnX .Location = New System.Drawing .Point ( 144 , 312 ) Me .btnX .Name = "btnX" Me .btnX .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnX .TabIndex = 132 Me .btnX .Text = "X" ' 'btnW ' Me .btnW .Location = New System.Drawing .Point ( 120 , 264 ) Me .btnW .Name = "btnW" Me .btnW .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnW .TabIndex = 133 Me .btnW .Text = "W" ' 'btnV ' Me .btnV .Location = New System.Drawing .Point ( 192 , 312 ) Me .btnV .Name = "btnV" Me .btnV .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnV .TabIndex = 134 Me .btnV .Text = "V" ' 'btnU ' Me .btnU .Location = New System.Drawing .Point ( 240 , 264 ) Me .btnU .Name = "btnU" Me .btnU .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnU .TabIndex = 135 Me .btnU .Text = "U" ' 'btnZ ' Me .btnZ .Location = New System.Drawing .Point ( 120 , 312 ) Me .btnZ .Name = "btnZ" Me .btnZ .Size = New System.Drawing .Size ( 24 , 23 ) Me .btnZ .TabIndex = 136 Me .btnZ .Text = "Z" ' 'FrmTypingApplication ' Me .AutoScaleBaseSize = New System.Drawing .Size ( 5 , 14 ) Me .ClientSize = New System.Drawing .Size ( 472 , 369 ) Me .Controls .Add ( Me .btnZ ) Me .Controls .Add ( Me .btnU ) Me .Controls .Add ( Me .btnV ) Me .Controls .Add ( Me .btnW ) Me .Controls .Add ( Me .btnX ) Me .Controls .Add ( Me .btnY ) Me .Controls .Add ( Me .btnP ) Me .Controls .Add ( Me .btnQ ) Me .Controls .Add ( Me .btnR ) Me .Controls .Add ( Me .btnS ) Me .Controls .Add ( Me .btnT ) Me .Controls .Add ( Me .btnL ) Me .Controls .Add ( Me .btnM ) Me .Controls .Add ( Me .btnN ) Me .Controls .Add ( Me .btnO ) Me .Controls .Add ( Me .btnH ) Me .Controls .Add ( Me .btnI ) Me .Controls .Add ( Me .btnJ ) Me .Controls .Add ( Me .btnK ) Me .Controls .Add ( Me .btnD ) Me .Controls .Add ( Me .btnE ) Me .Controls .Add ( Me .btnF ) Me .Controls .Add ( Me .btnG ) Me .Controls .Add ( Me .btnA ) Me .Controls .Add ( Me .btnB ) Me .Controls .Add ( Me .btnC ) Me .Controls .Add ( Me .btnQuestion ) Me .Controls .Add ( Me .btnPeriod ) Me .Controls .Add ( Me .btnComma ) Me .Controls .Add ( Me .btnQuote ) Me .Controls .Add ( Me .btnColon ) Me .Controls .Add ( Me .btnRightBrace ) Me .Controls .Add ( Me .btnLeftBrace ) Me .Controls .Add ( Me .btnRight ) Me .Controls .Add ( Me .btnDown ) Me .Controls .Add ( Me .btnLeft ) Me .Controls .Add ( Me .btnUp ) Me .Controls .Add ( Me .btnShiftLeft ) Me .Controls .Add ( Me .btnCaps ) Me .Controls .Add ( Me .btnSpace ) Me .Controls .Add ( Me .btnBackspace ) Me .Controls .Add ( Me .btnSlash ) Me .Controls .Add ( Me .btnEnter ) Me .Controls .Add ( Me .btnAltLeft ) Me .Controls .Add ( Me .btnFn ) Me .Controls .Add ( Me .btnCtrlLeft ) Me .Controls .Add ( Me .btnTab ) Me .Controls .Add ( Me .btnTilde ) Me .Controls .Add ( Me .btnPlus ) Me .Controls .Add ( Me .btnHyphen ) Me .Controls .Add ( Me .btn0 ) Me .Controls .Add ( Me .btn9 ) Me .Controls .Add ( Me .btn8 ) Me .Controls .Add ( Me .btn7 ) Me .Controls .Add ( Me .btn6 ) Me .Controls .Add ( Me .btn5 ) Me .Controls .Add ( Me .btn4 ) Me .Controls .Add ( Me .btn3 ) Me .Controls .Add ( Me .btn2 ) Me .Controls .Add ( Me .btn1 ) Me .Controls .Add ( Me .btnF12 ) Me .Controls .Add ( Me .btnF11 ) Me .Controls .Add ( Me .btnF10 ) Me .Controls .Add ( Me .btnF9 ) Me .Controls .Add ( Me .btnF8 ) Me .Controls .Add ( Me .btnF7 ) Me .Controls .Add ( Me .btnF6 ) Me .Controls .Add ( Me .btnF5 ) Me .Controls .Add ( Me .btnF4 ) Me .Controls .Add ( Me .btnF3 ) Me .Controls .Add ( Me .btnF2 ) Me .Controls .Add ( Me .btnF1 ) Me .Controls .Add ( Me .txtOutput ) Me .Controls .Add ( Me .lblPrompt ) Me .Font = New System.Drawing .Font ( "Tahoma" , 8.25 !, System.Drawing .FontStyle .Regular , System.Drawing .GraphicsUnit .Point , CType ( 0 , Byte )) Me .Name = "FrmTypingApplication" Me .Text = "Typing Application" Me .ResumeLayout ( False ) End Sub Private Sub txtOutput_KeyDown( ByVal sender As Object , _ ByVal e As System.Windows .Forms .KeyEventArgs ) _ Handles txtOutput.KeyDown Select Case e.KeyData Case Keys.Back ChangeColor( btnBackspace) Case Keys.Enter ChangeColor( btnEnter) Case Keys.Tab ChangeColor( btnTab) Case Keys.Space ChangeColor( btnSpace) Case Keys.D0 ChangeColor( btn0) Case Keys.D1 ChangeColor( btn1) Case Keys.D2 ChangeColor( btn2) Case Keys.D3 ChangeColor( btn3) Case Keys.D4 ChangeColor( btn4) Case Keys.D5 ChangeColor( btn5) Case Keys.D6 ChangeColor( btn6) Case Keys.D7 ChangeColor( btn7) Case Keys.D8 ChangeColor( btn8) Case Keys.D9 ChangeColor( btn9) Case Keys.F1 ChangeColor( btnF1) Case Keys.F2 ChangeColor( btnF2) Case Keys.F3 ChangeColor( btnF3) Case Keys.F4 ChangeColor( btnF4) Case Keys.F5 ChangeColor( btnF5) Case Keys.F6 ChangeColor( btnF6) Case Keys.F7 ChangeColor( btnF7) Case Keys.F8 ChangeColor( btnF8) Case Keys.F9 ChangeColor( btnF9) Case Keys.F10 ChangeColor( btnF10) Case Keys.F11 ChangeColor( btnF11) Case Keys.F12 ChangeColor( btnF12) Case Keys.OemOpenBrackets ChangeColor( btnLeftBrace) Case Keys.OemCloseBrackets ChangeColor( btnRightBrace) Case Keys.Oemplus ChangeColor( btnPlus) Case Keys.OemMinus ChangeColor( btnHyphen) Case Keys.Oemtilde ChangeColor( btnTilde) Case Keys.OemPipe ChangeColor( btnSlash) Case Keys.OemSemicolon ChangeColor( btnColon) Case Keys.OemQuotes ChangeColor( btnQuote) Case Keys.OemPeriod ChangeColor( btnPeriod) Case Keys.Oemcomma ChangeColor( btnComma) Case Keys.OemQuestion ChangeColor( btnQuestion) Case Keys.CapsLock ChangeColor( btnCaps) Case Keys.Down ChangeColor( btnDown) Case Keys.Up ChangeColor( btnUp) Case Keys.Left ChangeColor( btnLeft) Case Keys.Right ChangeColor( btnRight) ' if a modifier key was pressed Case CType ( 65552 , Keys) ' Shift key ChangeColor( btnShiftLeft) Case CType ( 131089 , Keys) ' Control key ChangeColor( btnCtrlLeft) Case CType ( 262162 , Keys) ' Alt key ChangeColor( btnAltLeft) End Select txtOutput.Text &= e.KeyData End Sub Private Sub txtOutput_KeyPress( ByVal sender As Object , _ ByVal e As System.Windows .Forms .KeyPressEventArgs ) _ Handles txtOutput.KeyPress txtOutput.Text &= e.KeyChar Select Case Char.ToUpper ( e.KeyChar ) Case Convert.ToChar ( Keys.A ) ' a key ChangeColor( btnA) Case Convert.ToChar ( Keys.B ) ' b key ChangeColor( btnB) Case Convert.ToChar ( Keys.C ) ' c key ChangeColor( btnC) Case Convert.ToChar ( Keys.D ) ' d key ChangeColor( btnD) Case Convert.ToChar ( Keys.E ) ' e key ChangeColor( btnE) Case Convert.ToChar ( Keys.F ) ' f key ChangeColor( btnF) Case Convert.ToChar ( Keys.G ) ' g key ChangeColor( btnG) Case Convert.ToChar ( Keys.H ) ' h key ChangeColor( btnH) Case Convert.ToChar ( Keys.I ) ' i key ChangeColor( btnI) Case Convert.ToChar ( Keys.J ) ' j key ChangeColor( btnJ) Case Convert.ToChar ( Keys.K ) ' k key ChangeColor( btnK) Case Convert.ToChar ( Keys.L ) ' l key ChangeColor( btnL) Case Convert.ToChar ( Keys.M ) ' m key ChangeColor( btnM) Case Convert.ToChar ( Keys.N ) ' n key ChangeColor( btnN) Case Convert.ToChar ( Keys.O ) ' o key ChangeColor( btnO) Case Convert.ToChar ( Keys.P ) ' p key ChangeColor( btnP) Case Convert.ToChar ( Keys.Q ) ' q key ChangeColor( btnQ) Case Convert.ToChar ( Keys.R ) ' r key ChangeColor( btnR) Case Convert.ToChar ( Keys.S ) ' s key ChangeColor( btnS) Case Convert.ToChar ( Keys.T ) ' t key ChangeColor( btnT) Case Convert.ToChar ( Keys.U ) ' u key ChangeColor( btnU) Case Convert.ToChar ( Keys.V ) ' v key ChangeColor( btnV) Case Convert.ToChar ( Keys.W ) ' w key ChangeColor( btnW) Case Convert.ToChar ( Keys.X ) ' x key ChangeColor( btnX) Case Convert.ToChar ( Keys.Y ) ' y key ChangeColor( btnY) Case Convert.ToChar ( Keys.Z ) ' z key ChangeColor( btnZ) End Select End Sub Private Sub txtOutput_KeyUp( ByVal sender As Object , _ ByVal e As System.Windows .Forms .KeyEventArgs ) _ Handles txtOutput.KeyUp ResetColor() End Sub ' txtOutput_KeyUp Private Sub ChangeColor( ByVal btnButton As Button) ResetColor() btnButton.BackColor = Color.Red m_btnLastButton = btnButton End Sub ' ChangeColor Private Sub ResetColor() If IsNothing( m_btnLastButton) = False Then m_btnLastButton.BackColor = _ Control.DefaultBackColor End If End Sub End Class
Minik saat:
'Copright by Zeki GÖRÜR and Ramazan GÜMÜŞKAR
'Saat:16.07tarih 13/08/2008
Imports System
Imports System.Data
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Data.SqlClient
Public Class Form1
Private Sub tmrTenthSecond_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrTenthSecond.Tick
lblTenthSecond.Text = Now.ToString("hh:mm:ss.f" )
End Sub
Private Sub tmrSecond_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrSecond.Tick
lblSeconds.Text = Now.ToString("hh:mm:ss" )
End Sub
Private Sub tmrTenSeconds_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrTenSeconds.Tick
lblTenSeconds.Text = Now.ToString("hh:mm:ss" )
End Sub
' Display initial times.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load
Me .components = New System.ComponentModel.Container
Me .tmrTenthSecond = New System.Windows.Forms.Timer(Me .components)
Me .tmrSecond = New System.Windows.Forms.Timer(Me .components)
Me .tmrTenSeconds = New System.Windows.Forms.Timer(Me .components)
Me .Label1 = New System.Windows.Forms.Label
Me .Label2 = New System.Windows.Forms.Label
Me .Label3 = New System.Windows.Forms.Label
Me .lblTenthSecond = New System.Windows.Forms.Label
Me .lblSeconds = New System.Windows.Forms.Label
Me .lblTenSeconds = New System.Windows.Forms.Label
Me .SuspendLayout()
'
'tmrTenthSecond
'
Me .tmrTenthSecond.Enabled = True
'
'tmrSecond
'
Me .tmrSecond.Enabled = True
Me .tmrSecond.Interval = 1000
'
'tmrTenSeconds
'
Me .tmrTenSeconds.Enabled = True
Me .tmrTenSeconds.Interval = 10000
'
'Label1
'
Me .Label1.AutoSize = True
Me .Label1.Location = New System.Drawing.Point(8,
Me .Label1.Name = "Label1"
Me .Label1.Size = New System.Drawing.Size(46, 13)
Me .Label1.TabIndex = 0
Me .Label1.Text = "1/10 sec"
'
'Label2
'
Me .Label2.AutoSize = True
Me .Label2.Location = New System.Drawing.Point(8, 32)
Me .Label2.Name = "Label2"
Me .Label2.Size = New System.Drawing.Size(29, 13)
Me .Label2.TabIndex = 1
Me .Label2.Text = "1 sec"
'
'Label3
'
Me .Label3.AutoSize = True
Me .Label3.Location = New System.Drawing.Point(8, 56)
Me .Label3.Name = "Label3"
Me .Label3.Size = New System.Drawing.Size(35, 13)
Me .Label3.TabIndex = 2
Me .Label3.Text = "10 sec"
'
'lblTenthSecond
'
Me .lblTenthSecond.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me .lblTenthSecond.Location = New System.Drawing.Point(72,
Me .lblTenthSecond.Name = "lblTenthSecond"
Me .lblTenthSecond.Size = New System.Drawing.Size(80, 16)
Me .lblTenthSecond.TabIndex = 3
'
'lblSeconds
'
Me .lblSeconds.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me .lblSeconds.Location = New System.Drawing.Point(72, 32)
Me .lblSeconds.Name = "lblSeconds"
Me .lblSeconds.Size = New System.Drawing.Size(80, 16)
Me .lblSeconds.TabIndex = 4
'
'lblTenSeconds
'
Me .lblTenSeconds.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me .lblTenSeconds.Location = New System.Drawing.Point(72, 56)
Me .lblTenSeconds.Name = "lblTenSeconds"
Me .lblTenSeconds.Size = New System.Drawing.Size(80, 16)
Me .lblTenSeconds.TabIndex = 5
'
'Form1
'
Me .AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me .AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me .ClientSize = New System.Drawing.Size(167, 88)
Me .Controls.Add(Me .lblTenSeconds)
Me .Controls.Add(Me .lblSeconds)
Me .Controls.Add(Me .lblTenthSecond)
Me .Controls.Add(Me .Label3)
Me .Controls.Add(Me .Label2)
Me .Controls.Add(Me .Label1)
Me .Name = "Form1"
Me .Text = "Minik saatim"
Me .ResumeLayout(False )
Me .PerformLayout()
lblTenthSecond.Text = Now.ToString("hh:mm:ss.f" )
lblSeconds.Text = Now.ToString("hh:mm:ss" )
lblTenSeconds.Text = Now.ToString("hh:mm:ss" )
End Sub
Friend WithEvents tmrTenthSecond As System.Windows.Forms.Timer
Friend WithEvents tmrSecond As System.Windows.Forms.Timer
Friend WithEvents tmrTenSeconds As System.Windows.Forms.Timer
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents lblTenthSecond As System.Windows.Forms.Label
Friend WithEvents lblSeconds As System.Windows.Forms.Label
Friend WithEvents lblTenSeconds As System.Windows.Forms.Label
End Class
Tooltipli text editör:
'Copright by Zeki GÖRÜR ve Ramazan GÜMÜŞKAR
'Saat:16.44 tarih 12/08/2008
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
Public Property StatusText() As String
Get
Return sspStatus.Text
End Get
Set (ByVal value As String )
sspStatus.Text = value
End Set
End Property
Public Property EditText() As String
Get
Return txtEdit.Text
End Get
Set (ByVal value As String )
txtEdit.Text = value
End Set
End Property
Public Sub ClearEditBox()
EditText = String .Empty
txtEdit.ForeColor = Color.Black
StatusText = "Text box cleared"
End Sub
Private Sub txtEdit_TextChanged(ByVal sender As Object , _
ByVal e As System.EventArgs) Handles txtEdit.TextChanged
'Reset the status bar text
StatusText = "Oku"
End Sub
Private Sub tbrClear_Click(ByVal sender As Object , _
ByVal e As System.EventArgs) Handles tbrClear.Click
ClearEditBox()
End Sub
Public Sub RedText()
txtEdit.ForeColor = Color.Red
StatusText = "The text is red"
End Sub
Private Sub tbrRed_Click(ByVal sender As Object , _
ByVal e As System.EventArgs) Handles tbrRed.Click
RedText()
End Sub
Public Sub BlueText()
txtEdit.ForeColor = Color.Blue
StatusText = "The text is blue"
End Sub
Private Sub tbrBlue_Click(ByVal sender As Object , _
ByVal e As System.EventArgs) Handles tbrBlue.Click
BlueText()
End Sub
Public Sub UppercaseText()
EditText = EditText.ToUpper
StatusText = "The text is all uppercase"
End Sub
Private Sub tbrUpperCase_Click(ByVal sender As Object , _
ByVal e As System.EventArgs) Handles tbrUpperCase.Click
UppercaseText()
End Sub
Public Sub LowercaseText()
EditText = EditText.ToLower
StatusText = "The text is all lowercase"
End Sub
Private Sub tbrLowerCase_Click(ByVal sender As Object , _
ByVal e As System.EventArgs) Handles tbrLowerCase.Click
LowercaseText()
End Sub
Public Sub ShowAboutBox()
End Sub
Private Sub tbrHelpAbout_Click(ByVal sender As Object , _
ByVal e As System.EventArgs) Handles tbrHelpAbout.Click
ShowAboutBox()
End Sub
Private Sub Form1_Load(ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load
' Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(TextEditor))
Me .ToolStrip1 = New System.Windows.Forms.ToolStrip
Me .tbrClear = New System.Windows.Forms.ToolStripButton
Me .ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
Me .tbrRed = New System.Windows.Forms.ToolStripButton
Me .tbrBlue = New System.Windows.Forms.ToolStripButton
Me .ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator
Me .tbrUpperCase = New System.Windows.Forms.ToolStripButton
Me .tbrLowerCase = New System.Windows.Forms.ToolStripButton
Me .ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator
Me .tbrHelpAbout = New System.Windows.Forms.ToolStripButton
Me .StatusStrip1 = New System.Windows.Forms.StatusStrip
Me .sspStatus = New System.Windows.Forms.ToolStripStatusLabel
Me .txtEdit = New System.Windows.Forms.TextBox
Me .ToolStrip1.SuspendLayout()
Me .StatusStrip1.SuspendLayout()
Me .SuspendLayout()
'
'ToolStrip1
'
Me .ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me .tbrClear, Me .ToolStripSeparator1, Me .tbrRed, Me .tbrBlue, Me .ToolStripSeparator2, Me .tbrUpperCase, Me .tbrLowerCase, Me .ToolStripSeparator3, Me .tbrHelpAbout})
Me .ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me .ToolStrip1.Name = "ToolStrip1"
Me .ToolStrip1.Size = New System.Drawing.Size(592, 25)
Me .ToolStrip1.Stretch = True
Me .ToolStrip1.TabIndex = 0
Me .ToolStrip1.Text = "ToolStrip1"
'
'tbrClear
'
Me .tbrClear.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
'Me.tbrClear.Image = CType(resources.GetObject("tbrClear.Image"), System.Drawing.Image)
Me .tbrClear.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me .tbrClear.ImageTransparentColor = System.Drawing.Color.Magenta
Me .tbrClear.Name = "tbrClear"
Me .tbrClear.Text = "Yeni"
Me .tbrClear.ToolTipText = "Yeni"
'
'ToolStripSeparator1
'
Me .ToolStripSeparator1.Name = "ToolStripSeparator1"
'
'tbrRed
'
Me .tbrRed.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
'Me.tbrRed.Image = CType(resources.GetObject("tbrRed.Image"), System.Drawing.Image)
Me .tbrRed.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me .tbrRed.ImageTransparentColor = System.Drawing.Color.Magenta
Me .tbrRed.Name = "tbrRed"
Me .tbrRed.Text = "Kırmızı"
Me .tbrRed.ToolTipText = "Kırmızı"
'
'tbrBlue
'
Me .tbrBlue.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
'Me.tbrBlue.Image = CType(resources.GetObject("tbrBlue.Image"), System.Drawing.Image)
Me .tbrBlue.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me .tbrBlue.ImageTransparentColor = System.Drawing.Color.Magenta
Me .tbrBlue.Name = "tbrBlue"
Me .tbrBlue.Text = "Mavi"
Me .tbrBlue.ToolTipText = "Mavi"
'
'ToolStripSeparator2
'
Me .ToolStripSeparator2.Name = "ToolStripSeparator2"
'
'tbrUpperCase
'
Me .tbrUpperCase.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
'Me.tbrUpperCase.Image = CType(resources.GetObject("tbrUpperCase.Image"), System.Drawing.Image)
Me .tbrUpperCase.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me .tbrUpperCase.ImageTransparentColor = System.Drawing.Color.Magenta
Me .tbrUpperCase.Name = "tbrUpperCase"
Me .tbrUpperCase.Text = "Büyük"
Me .tbrUpperCase.ToolTipText = "Büyük"
'
'tbrLowerCase
'
Me .tbrLowerCase.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
'Me.tbrLowerCase.Image = CType(resources.GetObject("tbrLowerCase.Image"), System.Drawing.Image)
Me .tbrLowerCase.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me .tbrLowerCase.ImageTransparentColor = System.Drawing.Color.Magenta
Me .tbrLowerCase.Name = "tbrLowerCase"
Me .tbrLowerCase.Text = "Küçük"
Me .tbrLowerCase.ToolTipText = "Küçük"
'
'ToolStripSeparator3
'
Me .ToolStripSeparator3.Name = "ToolStripSeparator3"
'
'tbrHelpAbout
'
Me .tbrHelpAbout.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
'Me.tbrHelpAbout.Image = CType(resources.GetObject("tbrHelpAbout.Image"), System.Drawing.Image)
Me .tbrHelpAbout.ImageTransparentColor = System.Drawing.Color.Magenta
Me .tbrHelpAbout.Name = "tbrHelpAbout"
Me .tbrHelpAbout.Text = "Bilgi 12Ağustos 2008 Saat:16.51"
Me .tbrHelpAbout.ToolTipText = "Bilgi."
'
'StatusStrip1
'
Me .StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me .sspStatus})
Me .StatusStrip1.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.Table
Me .StatusStrip1.Location = New System.Drawing.Point(0, 411)
Me .StatusStrip1.Name = "StatusStrip1"
Me .StatusStrip1.Size = New System.Drawing.Size(592, 22)
Me .StatusStrip1.TabIndex = 1
Me .StatusStrip1.Text = "StatusStrip1"
'
'sspStatus
'
Me .sspStatus.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me .sspStatus.Name = "sspStatus"
Me .sspStatus.Text = "Oku"
'
'txtEdit
'
Me .txtEdit.Dock = System.Windows.Forms.DockStyle.Fill
Me .txtEdit.Location = New System.Drawing.Point(0, 25)
Me .txtEdit.Multiline = True
Me .txtEdit.Name = "txtEdit"
Me .txtEdit.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me .txtEdit.Size = New System.Drawing.Size(592, 386)
Me .txtEdit.TabIndex = 2
'
'TextEditor
'
Me .AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me .AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me .ClientSize = New System.Drawing.Size(592, 433)
Me .Controls.Add(Me .txtEdit)
Me .Controls.Add(Me .ToolStrip1)
Me .Controls.Add(Me .StatusStrip1)
Me .Name = "TextEditor"
Me .Text = "Text Editörü"
Me .ToolStrip1.ResumeLayout(False )
Me .StatusStrip1.ResumeLayout(False )
Me .ResumeLayout(False )
Me .PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents tbrClear As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents tbrRed As System.Windows.Forms.ToolStripButton
Friend WithEvents tbrBlue As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents tbrUpperCase As System.Windows.Forms.ToolStripButton
Friend WithEvents tbrLowerCase As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents tbrHelpAbout As System.Windows.Forms.ToolStripButton
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents sspStatus As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents txtEdit As System.Windows.Forms.TextBox
End Class
Assblerlı treeview:
'Copright by Zeki GÖRÜR
'Saat:16.07tarih 13/08/2008
Imports System
Imports System.Drawing
Imports System.Reflection
Imports System.Windows.Forms
Public Class Form1
Friend WithEvents treeView1 As System.Windows.Forms.TreeView
Private Function StripType(ByVal s As String ) As String
Dim spacepos As Integer
spacepos = InStr(s, " " )
If spacepos > 0 Then Return Mid$(s, spacepos + 1)
Return (s)
End Function
Private Sub Form1_Load(ByVal sender As Object , _
ByVal e As System.EventArgs) Handles Me .Load
Me .treeView1 = New System.Windows.Forms.TreeView()
Me .SuspendLayout()
'
'treeView1
'
Me .treeView1.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right)
Me .treeView1.ImageIndex = -1
Me .treeView1.Location = New System.Drawing.Point(8, 16)
Me .treeView1.Name = "treeView1"
Me .treeView1.SelectedImageIndex = -1
Me .treeView1.Size = New System.Drawing.Size(448, 200)
Me .treeView1.Sorted = True
Me .treeView1.TabIndex = 0
'
'Form1
'
Me .AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me .ClientSize = New System.Drawing.Size(467, 248)
Me .Controls.AddRange(New System.Windows.Forms.Control() {Me .treeView1})
Me .Name = "Form1"
Me .Text = "Direkt Objeleri göster."
Me .ResumeLayout(False )
Dim asm As [Assembly]
Dim asmtypes() As Type
Dim ThisType As Type
asm = Reflection.Assembly.GetAssembly(GetType (System.Windows.Forms.Form))
asmtypes = asm.GetTypes()
For Each ThisType In asmtypes
If ThisType.IsClass And ThisType.IsPublic Then
Dim tn As New TreeNode(ThisType.Name)
treeView1.Nodes.Add(tn)
End If
Next
End Sub
End Class
Text Rendering:
'Copright Zeki görür 'Tarih:13/08/2008 Imports System Imports System.ComponentModel Imports System.Windows .Forms Imports System.Data Imports System.Configuration Imports System.Drawing Imports System.Drawing .Drawing2D Imports System.Drawing .Text Imports System.Globalization Imports System.Text Imports System.Collections Public Class Form1 Private Sub Form1_Load( ByVal sender As Object , ByVal e As System.EventArgs ) Handles Me .Load Me .AutoScaleBaseSize = New System.Drawing .Size ( 8 , 19 ) Me .ClientSize = New System.Drawing .Size ( 492 , 166 ) Me .Font = New System.Drawing .Font ( "Microsoft Sans Serif" , 12.0 !, System.Drawing .FontStyle .Regular , System.Drawing .GraphicsUnit .Point , CType ( 0 , Byte )) Me .Name = "TextRenderingHintsForm" Me .Text = "TextBilgi" Me .BackColor = Color.LemonChiffon Me .ResumeLayout ( False ) End Sub Private Sub TextRenderingHintsForm_Paint( ByVal sender As Object , ByVal e As System.Windows .Forms .PaintEventArgs ) Handles MyBase .Paint Dim g As Graphics = e.Graphics Dim s As String = "Dim s As String Dim s As String Dim s As String Dim s As String " Dim hints As TextRenderingHint() = { TextRenderingHint.SystemDefault , _ TextRenderingHint.SingleBitPerPixel , _ TextRenderingHint.SingleBitPerPixelGridFit , _ TextRenderingHint.AntiAlias , _ TextRenderingHint.AntiAliasGridFit , _ TextRenderingHint.ClearTypeGridFit } Dim y As Single = 0 Dim format As StringFormat = New StringFormat() format .FormatFlags = StringFormatFlags.NoWrap Dim hint As TextRenderingHint For Each hint In hints g.TextRenderingHint = hint Dim line As String = hint.ToString () & ": " & s g.DrawString ( line , Me .Font , Brushes.Red , 0 , y, format ) y = y + Me .Font .GetHeight ( g) Next End Sub End Class
Resim işleme:
'Copright by Zeki GÖRÜR
'Saat:16.07tarih 12/08/2008
Imports System
Imports System.Collections
Imports System.Data
Imports System.IO
Imports System.Xml.Serialization
Imports System.Xml
Imports System.Windows.Forms
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.ComponentModel
Public Class Form1
Friend WithEvents canvas As PaintCanvas
Friend WithEvents paletteColor As ColorPalette
Friend WithEvents mnuMain As System.Windows.Forms.MainMenu
Friend WithEvents mnuTools As System.Windows.Forms.MenuItem
Friend WithEvents mnuToolsCircle As System.Windows.Forms.MenuItem
Friend WithEvents mnuToolsHollowCircle As System.Windows.Forms.MenuItem
Friend WithEvents dlgOpenBackground As System.Windows.Forms.OpenFileDialog
Friend WithEvents mnuFile As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileOpenBackground As System.Windows.Forms.MenuItem
Private Sub Form1_Load(ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load
Me .canvas = New PaintCanvas()
Me .paletteColor = New ColorPalette()
Me .mnuMain = New System.Windows.Forms.MainMenu()
Me .mnuFile = New System.Windows.Forms.MenuItem()
Me .mnuFileOpenBackground = New System.Windows.Forms.MenuItem()
Me .mnuTools = New System.Windows.Forms.MenuItem()
Me .mnuToolsCircle = New System.Windows.Forms.MenuItem()
Me .mnuToolsHollowCircle = New System.Windows.Forms.MenuItem()
Me .dlgOpenBackground = New System.Windows.Forms.OpenFileDialog()
Me .SuspendLayout()
'canvas
'
Me .canvas.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right)
Me .canvas.BackColor = System.Drawing.Color.White
Me .canvas.Location = New System.Drawing.Point(4, -4)
Me .canvas.Name = "canvas"
Me .canvas.Size = New System.Drawing.Size(684, 356)
Me .canvas.TabIndex = 0
'
'paletteColor
'
Me .paletteColor.Anchor = ((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right)
Me .paletteColor.AutoScroll = True
Me .paletteColor.Location = New System.Drawing.Point(0, 356)
Me .paletteColor.Name = "Renk paleti"
Me .paletteColor.Size = New System.Drawing.Size(688, 224)
Me .paletteColor.TabIndex = 1
'
'mnuMain
'
Me .mnuMain.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me .mnuFile, Me .mnuTools})
'
'mnuFile
'
Me .mnuFile.Index = 0
Me .mnuFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me .mnuFileOpenBackground})
Me .mnuFile.Text = "&Dosya"
'
'mnuFileOpenBackground
'
Me .mnuFileOpenBackground.Index = 0
Me .mnuFileOpenBackground.Text = "Resim &Aç"
'
'mnuTools
'
Me .mnuTools.Index = 1
Me .mnuTools.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me .mnuToolsCircle, Me .mnuToolsHollowCircle})
Me .mnuTools.Text = "A&yarlar"
'
'mnuToolsCircle
'
Me .mnuToolsCircle.Checked = True
Me .mnuToolsCircle.Index = 0
Me .mnuToolsCircle.Text = "Daire &Çiz"
'
'mnuToolsHollowCircle
'
Me .mnuToolsHollowCircle.Index = 1
Me .mnuToolsHollowCircle.Text = "&Hollow Daire çiz"
'
'Form1
'
Me .AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me .ClientSize = New System.Drawing.Size(688, 377)
Me .Controls.AddRange(New System.Windows.Forms.Control() {Me .paletteColor, Me .canvas})
Me .Menu = Me .mnuMain
Me .Name = "Form1"
Me .Text = "Resim işleme"
Me .ResumeLayout(False )
Me .BackColor = System.Drawing.Color.WhiteSmoke
Me .Name = "PaintCanvas"
'ColorPalette
End Sub
Private Sub paletteColor_LeftClick(ByVal sender As Object , ByVal e As System.EventArgs) Handles paletteColor.LeftClick
canvas.GraphicLeftColor = paletteColor.LeftColor
End Sub
Private Sub paletteColor_RightClick(ByVal sender As Object , ByVal e As System.EventArgs) Handles paletteColor.RightClick
canvas.GraphicRightColor = paletteColor.RightColor
End Sub
Private Sub mnuToolsCircle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuToolsCircle.Click
canvas.GraphicTool = PaintCanvas.GraphicTools.CirclePen
UpdateMenu()
End Sub
Private Sub mnuToolsHollowCircle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuToolsHollowCircle.Click
canvas.GraphicTool = PaintCanvas.GraphicTools.HollowCirclePen
UpdateMenu()
End Sub
Private Function UpdateMenu()
If canvas.GraphicTool = PaintCanvas.GraphicTools.CirclePen Then
mnuToolsCircle.Checked = True
Else
mnuToolsCircle.Checked = False
End If
If canvas.GraphicTool = PaintCanvas.GraphicTools.HollowCirclePen Then
mnuToolsHollowCircle.Checked = True
Else
mnuToolsHollowCircle.Checked = False
End If
End Function
Private Sub mnuFileOpenBackground_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileOpenBackground.Click
OpenBackgroundImage()
End Sub
Public Sub OpenBackgroundImage()
If dlgOpenBackground.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim backgroundImage As Image = _
Image.FromFile(dlgOpenBackground.FileName)
canvas.BackgroundImage = backgroundImage
End If
End Sub
End Class
Public Class PaintCanvas
Inherits System.Windows.Forms.UserControl
Public Enum GraphicTools As Integer
CirclePen = 0
HollowCirclePen = 1
End Enum
Public Enum GraphicSizes As Integer
Small = 4
Medium = 10
Large = 20
End Enum
Public GraphicsItems As New ArrayList()
Public GraphicTool As GraphicTools = GraphicTools.CirclePen
Public GraphicSize As GraphicSizes = GraphicSizes.Medium
Public GraphicLeftColor As Color = Color.Black
Public GraphicRightColor As Color = Color.White
Private Sub DoMousePaint(ByVal e As MouseEventArgs)
Dim newItem As GraphicsItem
Dim useColor As Color = GraphicLeftColor
If e.Button = Windows.Forms.MouseButtons.Right Then useColor = GraphicRightColor
Select Case GraphicTool
Case GraphicTools.CirclePen, GraphicTools.HollowCirclePen
Dim filled As Boolean = True
If GraphicTool = GraphicTools.HollowCirclePen Then _
filled = False
Dim circle As New GraphicsCircle()
circle.SetPoint(e.X, e.Y, GraphicSize, useColor, filled)
newItem = circle
End Select
If Not newItem Is Nothing Then
GraphicsItems.Add(newItem)
Invalidate(newItem.Rectangle)
End If
End Sub
Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Left Or e.Button = Windows.Forms.MouseButtons.Right Then
DoMousePaint(e)
End If
End Sub
Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Left Or e.Button = Windows.Forms.MouseButtons.Right Then
DoMousePaint(e)
End If
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim item As GraphicsItem
For Each item In GraphicsItems
If e.ClipRectangle.IntersectsWith(item.Rectangle) = True Then
item.Draw(e.Graphics)
End If
Next
End Sub
Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
Dim backgroundBrush As New SolidBrush(BackColor)
pevent.Graphics.FillRectangle(backgroundBrush, pevent.ClipRectangle)
If Not BackgroundImage Is Nothing Then
Dim clientRectangle As New Rectangle(0, 0, Width, Height)
Dim imageWidth As Integer = BackgroundImage.Width
Dim imageHeight As Integer = BackgroundImage.Height
Dim ratio As Double = _
CType (imageHeight, Double ) / CType (imageWidth, Double )
If imageWidth > clientRectangle.Width Then
imageWidth = clientRectangle.Width
imageHeight = CType (CType (imageWidth, Double ) * ratio, Integer )
Else
imageHeight = clientRectangle.Height
imageWidth = CType (CType (imageHeight, Double ) / ratio, Integer )
End If
Dim imageLocation As New Point( _
(clientRectangle.Width / 2) - (imageWidth / 2), _
(clientRectangle.Height / 2) - (imageHeight / 2))
Dim imageSize As New Size(imageWidth, imageHeight)
Dim imageRectangle As New Rectangle(imageLocation, imageSize)
pevent.Graphics.DrawImage(BackgroundImage, imageRectangle)
End If
End Sub
Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
Invalidate()
End Sub
End Class
Public MustInherit Class GraphicsItem
Public Color As Color
Public IsFilled As Boolean
Public Rectangle As Rectangle
Public MustOverride Sub Draw(ByVal graphics As Graphics)
Public Sub SetPoint(ByVal x As Integer , ByVal y As Integer , _
ByVal graphicSize As Integer , _
ByVal graphicColor As Color, ByVal graphicIsFilled As Boolean )
Rectangle = New _
Rectangle(x - (graphicSize / 2), y - (graphicSize / 2), _
graphicSize, graphicSize)
Color = graphicColor
IsFilled = graphicIsFilled
End Sub
End Class
Public Class GraphicsCircle
Inherits GraphicsItem
Public Overrides Sub Draw(ByVal graphics As _
System.Drawing.Graphics)
If IsFilled = True Then
Dim brush As New SolidBrush(Me .Color)
graphics.FillEllipse(brush, Me .Rectangle)
Else
Dim pen As New Pen(Me .Color)
Dim drawRectangle As Rectangle = Me .Rectangle
drawRectangle.Inflate(-1, -1)
graphics.DrawEllipse(pen, drawRectangle)
End If
End Sub
End Class
Public Class ColorPaletteButton
Public Color As Color = Drawing.Color.Black
Public Rectangle As Rectangle
Public ButtonAssignment As ButtonAssignments = ButtonAssignments.None
Public Enum ButtonAssignments As Integer
None = 0
LeftButton = 1
RightButton = 2
End Enum
Public Sub New (ByVal newColor As Color)
Color = newColor
End Sub
Public Sub SetPosition(ByVal x As Integer , ByVal y As Integer , _
ByVal buttonSize As Integer )
Rectangle = New Rectangle(x, y, buttonSize, buttonSize)
End Sub
Public Sub Draw(ByVal graphics As Graphics)
Dim brush As New SolidBrush(Color)
graphics.FillRectangle(brush, Rectangle)
Dim pen As New Pen(Drawing.Color.Black)
graphics.DrawRectangle(pen, Rectangle)
If ButtonAssignment <> ButtonAssignments.None Then
Dim font As New Font("verdana" , 8, FontStyle.Bold)
Dim buttonText As String = "L"
If ButtonAssignment = ButtonAssignments.RightButton Then _
buttonText = "R"
Dim fontBrush As SolidBrush
If Color.R < 100 Or Color.B < 100 Or Color.G < 100 Then
fontBrush = New SolidBrush(Drawing.Color.White)
Else
fontBrush = New SolidBrush(Drawing.Color.Black)
End If
graphics.DrawString(buttonText, font, fontBrush, _
Rectangle.Left, Rectangle.Top)
End If
End Sub
End Class
Public Class ColorPalette
Inherits System.Windows.Forms.UserControl
Public Buttons As New ArrayList()
Public ButtonSize As Integer = 15
Public ButtonSpacing As Integer = 5
Public LeftColor As Color = Color.Black
Public RightColor As Color = Color.White
Private leftButton As ColorPaletteButton
Private rightButton As ColorPaletteButton
Event LeftClick(ByVal sender As Object , ByVal e As EventArgs)
Event RightClick(ByVal sender As Object , ByVal e As EventArgs)
Public Function GetButtonAt(ByVal x As Integer , ByVal y As Integer ) _
As ColorPaletteButton
Dim button As ColorPaletteButton
For Each button In Buttons
If button.Rectangle.Contains(x, y) = True Then Return button
Next
End Function
Public Function AddColor(ByVal newColor As Color) As _
ColorPaletteButton
Dim button As New ColorPaletteButton(newColor)
Buttons.Add(button)
End Function
Public Sub New ()
MyBase .New()
'This call is required by the Windows Form Designer.
'Add any initialization after the InitializeComponent() call
' add the colors...
AddColor(Color.Black)
AddColor(Color.White)
AddColor(Color.Red)
AddColor(Color.Blue)
AddColor(Color.Green)
AddColor(Color.Gray)
AddColor(Color.DarkRed)
AddColor(Color.DarkBlue)
AddColor(Color.DarkGreen)
AddColor(Color.DarkGray)
AddColor(Color.FromArgb(208, 112, 222))
AddColor(CType (SystemBrushes.ActiveCaption, SolidBrush).Color)
End Sub
Friend WithEvents dlgColor As System.Windows.Forms.ColorDialog
Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
Dim x As Integer , y As Integer
Dim button As ColorPaletteButton
For Each button In Buttons
button.SetPosition(x, y, ButtonSize)
x += (ButtonSize + ButtonSpacing)
If x + ButtonSize > Width Then
y += (ButtonSize + ButtonSpacing)
x = 0
End If
Next
Invalidate()
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim button As ColorPaletteButton
For Each button In Buttons
If e.ClipRectangle.IntersectsWith(button.Rectangle) Then
button.Draw(e.Graphics)
End If
Next
End Sub
Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
Dim button As ColorPaletteButton = GetButtonAt(e.X, e.Y)
If Not button Is Nothing Then
If e.Button = Windows.Forms.MouseButtons.Left Then
If Not button Is rightButton Then
LeftColor = button.Color
If Not leftButton Is Nothing Then
leftButton.ButtonAssignment = _
ColorPaletteButton.ButtonAssignments.None
Invalidate(leftButton.Rectangle)
End If
button.ButtonAssignment = _
ColorPaletteButton.ButtonAssignments.LeftButton
Invalidate(button.Rectangle)
leftButton = button
RaiseEvent LeftClick(Me , New EventArgs())
End If
End If
If e.Button = Windows.Forms.MouseButtons.Right Then
If Not button Is leftButton Then
RightColor = button.Color
If Not rightButton Is Nothing Then
rightButton.ButtonAssignment = _
ColorPaletteButton.ButtonAssignments.None
Invalidate(rightButton.Rectangle)
End If
button.ButtonAssignment = _
ColorPaletteButton.ButtonAssignments.RightButton
Invalidate(button.Rectangle)
rightButton = button
RaiseEvent RightClick(Me , New EventArgs())
End If
End If
Else
If dlgColor.ShowDialog = DialogResult.OK Then
AddColor(dlgColor.Color)
OnResize(New EventArgs())
End If
End If
End Sub
End Class
Text Rendering:
'Copright Zeki görür 'Tarih:13/08/2008 Imports System Imports System.Windows .Forms Imports System.Drawing .Text Imports System.Drawing Public Class Form1 Private Sub Form1_Load( ByVal sender As Object , ByVal e As System.EventArgs ) Handles Me .Load Me .AutoScaleDimensions = New System.Drawing .SizeF ( 6.0 !, 13.0 !) Me .AutoScaleMode = System.Windows .Forms .AutoScaleMode .Font Me .ClientSize = New System.Drawing .Size ( 764 , 109 ) Me .Name = "Form1" Me .Text = "TextBilgi" Me .BackColor = Color.LemonChiffon Me .ResumeLayout ( False ) End Sub Private Sub Form1_Paint( ByVal sender As Object , _ ByVal e As System.Windows .Forms .PaintEventArgs ) Handles MyBase .Paint Dim the_font As New Font( Me .Font .FontFamily , _ 40 , FontStyle.Bold , GraphicsUnit.Pixel ) e.Graphics .TextRenderingHint = TextRenderingHint.AntiAliasGridFit e.Graphics .DrawString ( "TextRenderingHint.AntiAliasGridFit" , the_font, Brushes.Black , 5 , 5 ) e.Graphics .TextRenderingHint = TextRenderingHint.SingleBitPerPixel e.Graphics .DrawString ( "TextRenderingHint.SingleBitPerPixel" , the_font, Brushes.Black , 5 , 50 ) the_font.Dispose () End Sub End Class
Class mesajımız:
'By Zeki GÖRÜR Imports System Imports Microsoft.VisualBasic ' For MsgBox Class MyExceptionClass Shared Sub main() Dim s( 3 ) As String Try 'Try to cause an Exception MsgBox ( s( 5 )) 'This is a Specific Exception handling catch block 'Only IndexOutOfRange Exception will he caught here Catch e As IndexOutOfRangeException msgbox ( "Do something Special" ) 'This is a generic Exception handling Catch block 'Be sure to place it after your Sepecific Catch block Catch e As Exception msgbox ( e.Message ) 'This block will be executed in any case Finally MsgBox ( "Finally(Bitti) Fired" ) End Try End Sub End Class
Konsol delegate:
'Copright by Zeki GÖRÜR Module Module1 'Define a Delegate Delegate Sub CompareFunc( ByVal x As Integer , _ ByVal y As Integer , ByRef b As Boolean ) 'Define a Event that will be used in AddHandler Public Event a As CompareFunc 'Bubble Sort Algorithm which calles Delegates to perform work Function BubbleSort( ByVal SortHigher As CompareFunc, _ ByVal IntArray() As Integer ) As Integer () Dim I, J, Value, Temp As Integer Dim b As Boolean For I = 0 To Ubound ( IntArray) Value = IntArray( I) For J = I + 1 To UBound ( IntArray) Try SortHigher.Invoke ( IntArray( J) , Value, b) If b = True Then Temp = IntArray( J) IntArray( J) = Value IntArray( I) = Temp Value = Temp End If Catch 'Add error handling here, or just proceed End Try Next J Next I End Function 'Actual Event handling , called by Delgates Sub Fire( ByVal x As Integer , ByVal y As Integer , ByRef b As Boolean ) If y > x Then b = True Else b = False End If End Sub 'Entry point Sub Main() Dim IntArray() As Integer = { 12 , 1 , 96 , 56 , 70 } Dim iArrayCount As Integer Dim iCounter As Integer ' Add a delegate Handler AddHandler a, ( AddressOf Fire) 'Define Array for Sorting iArrayCount = IntArray.Length Console.WriteLine ( "Integer array to be sorted" ) For iCounter = 0 To iArrayCount - 1 Console.WriteLine ( " Value at{0} is {1} " , _ iCounter, IntArray( iCounter)) Next 'Call the method which is going to raise events BubbleSort( Module1.aEvent , IntArray) iArrayCount = IntArray.Length Console.WriteLine ( "Integer array after Bubble Sort with Delegate" ) 'Display the Data to user on Console For iCounter = 0 To iArrayCount - 1 Console.WriteLine ( " Value at{0} is {1}" , _ iCounter, IntArray( iCounter)) Next End Sub End Module
System watcher:
'Copright Zeki GÖRÜR Imports System Imports System.IO Public Class Form1 Class FileWatch Shared Sub main() Dim file_watch As New FileSystemWatcher() ' Path to monitor file_watch.Path = "c:" ' Uncomment to watch files ' file_watch.Target = IO.WatcherTarget.File file_watch.IncludeSubdirectories = True ' Additional filtering file_watch.Filter = "*.*" file_watch.EnableRaisingEvents = True 'Add the event handler for creation of new files only AddHandler file_watch.created , New FileSystemEventHandler( AddressOf OnFileEvent) ' file_watch.Enabled = True ' Dont Exit Console.ReadLine () End Sub ' Event that will be raised when a new file is created Shared Sub OnFileEvent( ByVal source As Object , ByVal e As FileSystemEventArgs) Console.WriteLine ( "New File Created in C: " ) End Sub End Class End Class
Form ınheritance (katılımı)
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Public Class Form1
Inherits Form
Friend WithEvents lblBug As System.Windows.Forms.Label
Friend WithEvents lblCopyright As System.Windows.Forms.Label
Friend WithEvents cmdLearn As System.Windows.Forms.Button
Private Sub Form1_Load(ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load
Me .lblCopyright = New System.Windows.Forms.Label()
Me .cmdLearn = New System.Windows.Forms.Button()
Me .lblBug = New System.Windows.Forms.Label()
Me .SuspendLayout()
'
'lblCopyright
'
Me .lblCopyright.BackColor = System.Drawing.Color.LightYellow
Me .lblCopyright.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me .lblCopyright.Font = New System.Drawing.Font("Microsoft Sans Serif" , 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType (0, Byte ))
Me .lblCopyright.ForeColor = System.Drawing.Color.MidnightBlue
Me .lblCopyright.Location = New System.Drawing.Point(20, 178)
Me .lblCopyright.Name = "lblCopyright"
Me .lblCopyright.Size = New System.Drawing.Size(318, 29)
Me .lblCopyright.TabIndex = 1
Me .lblCopyright.Text = "Bilgiler."
'
'cmdLearn
'
Me .cmdLearn.BackColor = System.Drawing.Color.Snow
Me .cmdLearn.Font = New System.Drawing.Font("Microsoft Sans Serif" , 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType (0, Byte ))
Me .cmdLearn.ForeColor = System.Drawing.SystemColors.InfoText
Me .cmdLearn.Location = New System.Drawing.Point(20, 99)
Me .cmdLearn.Name = "cmdLearn"
Me .cmdLearn.Size = New System.Drawing.Size(144, 59)
Me .cmdLearn.TabIndex = 2
Me .cmdLearn.Text = "Okundu"
'
'lblBug
'
Me .lblBug.BackColor = System.Drawing.Color.LightYellow
Me .lblBug.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me .lblBug.Font = New System.Drawing.Font("Microsoft Sans Serif" , 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType (0, Byte ))
Me .lblBug.ForeColor = System.Drawing.Color.MidnightBlue
Me .lblBug.Location = New System.Drawing.Point(20, 20)
Me .lblBug.Name = "lblBug"
Me .lblBug.Size = New System.Drawing.Size(318, 59)
Me .lblBug.TabIndex = 0
Me .lblBug.Text = "Hakkında"
Me .lblBug.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'FrmInheritance
'
Me .AutoScaleBaseSize = New System.Drawing.Size(6, 15)
Me .BackColor = System.Drawing.SystemColors.ActiveBorder
Me .ClientSize = New System.Drawing.Size(358, 223)
Me .Controls.AddRange(New System.Windows.Forms.Control() {Me .cmdLearn, Me .lblCopyright, Me .lblBug})
Me .Name = "FrmInheritance"
Me .Text = "Visual Inheritance olayı"
Me .ResumeLayout(False )
cmdLearn.BackColor = Color.Bisque
End Sub
Private Sub cmdLearn_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdLearn.Click
Me .BackColor = Color.SaddleBrown
cmdLearn.BackColor = Color.RosyBrown
MessageBox.Show("www.inndir.com " , "Zeki görür 07.05.2009 saat 12:25 Okundu" , MessageBoxButtons.OK, _
MessageBoxIcon.Information)
End Sub ' cmdLearn_Click
End Class
Kullanışlı şeffaf form yapalım:
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.ComponentModel
Imports System.Drawing.Drawing2D
Imports System.IO
Public Class Form1
Inherits System.Windows.Forms.Form
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents cmdApply As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents udOpacity As System.Windows.Forms.NumericUpDown
Private Sub Form1_DoubleClick(ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .DoubleClick
Me .BackColor = Color.OldLace
End Sub
Private Sub Form1_Load(ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load
Me .GroupBox1 = New System.Windows.Forms.GroupBox()
Me .cmdApply = New System.Windows.Forms.Button()
Me .udOpacity = New System.Windows.Forms.NumericUpDown()
Me .Label1 = New System.Windows.Forms.Label()
Me .GroupBox1.SuspendLayout()
CType (Me .udOpacity, System.ComponentModel.ISupportInitialize).BeginInit()
Me .SuspendLayout()
'
'GroupBox1
'
Me .GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me .cmdApply, Me .udOpacity, Me .Label1})
Me .GroupBox1.Location = New System.Drawing.Point(12, 20)
Me .GroupBox1.Name = "GroupBox1"
Me .GroupBox1.Size = New System.Drawing.Size(268, 116)
Me .GroupBox1.TabIndex = 3
Me .GroupBox1.TabStop = False
'
'cmdApply
'
Me .cmdApply.Location = New System.Drawing.Point(172, 64)
Me .cmdApply.Name = "cmdApply"
Me .cmdApply.Size = New System.Drawing.Size(80, 24)
Me .cmdApply.TabIndex = 5
Me .cmdApply.Text = "Uygula"
'
'udOpacity
'
Me .udOpacity.Increment = New Decimal (New Integer () {5, 0, 0, 0})
Me .udOpacity.Location = New System.Drawing.Point(88, 32)
Me .udOpacity.Name = "udOpacity"
Me .udOpacity.Size = New System.Drawing.Size(48, 21)
Me .udOpacity.TabIndex = 4
Me .udOpacity.Value = New Decimal (New Integer () {50, 0, 0, 0})
'
'Label1
'
Me .Label1.Location = New System.Drawing.Point(20, 36)
Me .Label1.Name = "Label1"
Me .Label1.Size = New System.Drawing.Size(56, 16)
Me .Label1.TabIndex = 3
Me .Label1.Text = "Şeffaflık:"
'
'Transparent
'
Me .AutoScaleBaseSize = New System.Drawing.Size(5, 14)
Me .ClientSize = New System.Drawing.Size(292, 266)
Me .Controls.AddRange(New System.Windows.Forms.Control() {Me .GroupBox1})
Me .Font = New System.Drawing.Font("Tahoma" , 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType (0, Byte ))
Me .Name = "Transparent"
Me .Opacity = 0.5
Me .Text = "Ben bir Transparent Formum"
Me .GroupBox1.ResumeLayout(False )
CType (Me .udOpacity, System.ComponentModel.ISupportInitialize).EndInit()
Me .ResumeLayout(False )
End Sub
Private Sub cmdApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdApply.Click
Me .Opacity = udOpacity.Value / 100
Me .BackColor = Color.Linen
MsgBox("07.05.2009 saat 12:40 Zeki görür ve Ramazan bey tarafından oluşturuldum." )
End Sub
End Class
