| Article |
|---|
C++ da Konsol Ekranına Giriş Yapılması ve Ekranda Bilgi Mesajı Verilmesi
Merhaba arkadaşlar bu makalemizde C++ da konsol ekranına personel bilgi girişi yapacağız. Sonra giriş yapılan personel bilgilerini ekranda göstereceğiz. |
Python Çıktı Biçimlendirme
Merhaba arkadaşlar bu makalemizde python da çıktıyı biçimlendirmeyi öğreneceğiz. Biçimlendirme ve çıktı, bir programın çıktısını sunmaya atıfta bulunmaktadır. |
Formda Mesaj Gösterimi
Merhaba arkadaşlar bu makalemizde formda mesaj göstereceğiz.
|
Windows Formda Html Color Kullanımı
Merhaba arkadaslar bu makalemizde windows formumuzda html renklerini hex ve decimal olarak kullanımını göreceğiz. Bu örneğimizde formumuza eklediğimiz labellerin yazı ve ... |
Pytonda Forma Resim Ekleme
Merhaba arkadaşlar bu makalemizde python da forma resim ekleyeceğim. Bunun için canvas metodunu kullanacağız. |
Login Form
Merhaba arkadaşlar bu makalemizde Kullanıcı login formunu oluşturacağız. Sql Serverimiza bağlanıyoruz. |
MySql Veritabanındaki Tabloları Kullanarak TreeView da Parent, Child TreeNode lar Oluşturmak
Merhaba arkadaşlar bu makalemizde TreeView da açılabilen parent, child node lar oluşturacağız. Oluşturacağımız parent ve child Treenode ların bilgilerini Mysql veritabanımızdaki tablolardan alacağız. |
C++ Windows Formda MySql Veritabanına Bağlantı
Merhaba arkadaşlar bu makalemizde C++ Windows Formumuzdan MySql veritabanına bağlanacağız. Formumuza 2 adet Label, TextBox ve 1 adet Button ekleyelim. Bu örneğimizde kullanıcı adı ve şifremizle Mysql veritabanına bağlantı gerçekleştireceğiz. C++ da Windows Form nasıl ekleriz? Konusunu daha önceki makalede anlatmıştım. Önceki makaleye ulaşmak için |
C++ da Windows Form Kullanımı
Merhaba arkadaşlar bu makalemizde C++ da Windows Form nasıl ekleriz? C++ da Windows Formu nasıl kullanılırız? Sorularına yanıt bulacağız. İlk önce Visual Studio Installer dan veya Tools kısmından Get Tools and Features a tıklayarak, açılan pencerede C++ masaüstü geliştirmeyi seçelim. |
Form Basliginda Tarih ve Saat Gösterimi
Merhaba arkadaslar bu makalemizde Delphi formumuzun basliginda tarih ve saat gösterecegiz. Formumuza 1 adet Timer ekleyecegiz. Ekledigimiz Timer1 in Timer kismina kodumuzu yazacagiz. |
FormView da Güncelleme İşlemi
Merhaba arkadaşlar bu makalemizde FormView da verileri göstereceğiz. FormView ItemUpdating e yazacağımız kodla verilerin güncellemesini yapacağız. |
DataGridView da Formatlı Gösterim Yapılması
Merhaba arkadaşlar bu makalemizde dataGridView nesnesindeki satırları formatlı bir şekilde gösterimini sağlayacağız. Seçili satırın arka plan rengi ve yazı rengini değiştireciz. |
GridView ve FormView Nesnelerini Birlikte Kullanmak
Herkese selamlar. Bu makalemizde GridView FormView nesnesini birlikte kullanacağız. Sayfamıza GridView, FormView ve 2 adet SqlDataSource ekleyeceğiz. |
FormView Paging İşlemi - 2
Merhaba arkadaşlar, bu makalemizde FormView nesnesini ve sayfalama işlemini değişik bir metod ile inceleyeceğiz. |
FormView Paging İşlemi - 1
Merhaba arkadaşlar, bu makalemizde FormView nesnesini ve sayfalama işlemini inceleyeceğiz. İlk önce sayfanıza FormView ve SqlDataSource nesneleri ekleyin. |
Çalışma Anında Form, Button, Label Oluşturmak
İlk önce Form1 inize Button nesnesi ekleyin. Button1_Click() olayına aşağıdaki kodları yazacağız.Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN |
Form daki CheckBox ların Seçimini Topluca Kaldırma
Merhaba arkadaşlar, formumuzda bulunan 100 lerce seçili CheckBox ın seçili durumunu tek tek kaldırmanın ne kadar zor olduğunu hepimiz biliyoruz.100 lerce veya 1000 lerce içi dolu TextBoxlar ın içeriğini değiştirmek veya temizlemek çok zor bir iştir. Bu zorluklardan küçük bir kod parçasıyla kurtulacağız. |
Formu Kapatma (Form Keydown Olayı)
Merhaba arkadaşlar, Formumuzun Keydown yordamına yazacağımız kodla F10 tuşuna basarak formumuzu kapatacağız... |
Pdf Dosyasının Formunuzda Gösterilmesi
Merhaba arkadaşlar bir makalede daha birlikteyiz. Bu makalemizde Formumuzda Pdf dosyası açacağız. Toolbox tayken sağ tıkla. Choose Items i seç. |
Formunuzu Çift Renkli Yapın
Formumuza Şekil 1 deki gibi renk verebiliriz. Bunun için LinearGradientBrush metodu ile iki rengi fırça darbeleriyle karıştıracağız. Formun Paint yordamına aşağıdaki kodları yazın. |
Formu Sabitleme
Formumuzun taşınmasını istemiyorsak, aşağıdaki hazır kod bayağı işimize yarayacak. İlk önce ;
Imports System.Runtime.InteropServices
formunuza ekleyin. |
FormatPercent, FormatCurrency, FormatNumber
Bu örneğimizde FormatPercent, FormatCurrency ve FormatNumber metodlarını inceleyeceğiz. FormatPercent ile girilen sayı % li, FormatCurrency ile parasal , FormatNumber ile sayının formatlı bir şekilde gösterimi sağlayacağız. (Şekil 1) |
VisualStudio.NET Form Özellikleri
Windows tabanlı uygulamaların DOS tabanlı uygulamalardan en büyük farkı formlardır. karşınızda duran siyah renkli bir ekranda beyaz yazılar üzerinde göz bozarak saatlerce çalışmak yerine Windows tabanlı programlamanın keyfine vardığımızı yaşatan en büyük nesnemiz Formlardır.
Forma ait özellikler ve bu özelliklerin açıklamaları aşağıdaki gibidir ;
Name : Bu özellik formumuzun adını belirtir. programın içindeki her nesnenin birbirinden |
Formun Kapat Tuşunu Etkisiz Hale Getirmek
Forma ait üst menüdeki kapat tuşunu etkisiz hale getireceğiz. Bunun için GetSystemMenu, EnableMenuItem library dosyalarından yararlanacağız. Aşağıdaki Şekil 1 i inceleyin.
Public Class Form1
Public Class CloseButton
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal revert As Integer) As Integer
Private Declare Function EnableMenuItem Lib "user32" (ByVal menu As Integer, ByVal ideEnableItem As Integer, ByVal enable As Integer) As Integer
Private Const SC_CLOSE As Integer = &HF060
Private Const MF_BYCOMMAND As Integer = &H0
Private Const MF_GRAYED As Integer = &H1
Private Const MF_ENABLED As Integer = &H0
Public Shared Sub Disable(ByVal form As System.Windows.Forms.Form) |
Forma Grafik Metodu ile Yazı Yazmak
Bu örnekte formumuzun üzerine yazı yazacağız. Bunun için DrawString metodundan faydalanacağız.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
Form form2 = new Form();
form2.Text = "String Yazım";
form2.BackColor = Color.White;
form2.Paint += new PaintEventHandler(PaintHandler);
Application.Run(form2);
}
static void PaintHandler(object objSender, PaintEventArgs pea)
{
Form form2 = (Form)objSender;
Graphics graphics = pea.Graphics;
graphics.DrawString("Merhaba Dünya!", form2.Font, Brushes.Black, 0, 0);
}
}
}
Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Bahadır ŞAHİN
|
Form Keydown Özelliği ile Form Kapatma
Formunuzun keydown kısmına aşağıdaki kodları yazıp, X tuşuna basıldığı zaman formunuzu kapatabilirsiniz.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace WindowsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
Text = "Çıkış için X e basın";
}
protected override void OnKeyDown(KeyEventArgs keys)
{
if (keys.KeyCode == Keys.X)
Close();
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN |
Form Paint Örnek
Bu örnekte form da paint metodunu göreceğiz.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace WindowsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
this.Text = "Paint Event";
this.Paint += new PaintEventHandler(MyPaintHandler);
}
static void MyPaintHandler(object objSender, PaintEventArgs pea)
{
Graphics grafik = pea.Graphics;
grafik.Clear(Color.LightGreen);
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN |
Form Resize
Formunuzun konumunu, boyutlarını, değişimlerini gösteren kod parçası. Aşağıdaki şekli inceleyin.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace WindowsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
BackColor = Color.White;
}
protected override void OnResize(EventArgs ea)
{
Invalidate();
}
protected override void OnPaint(PaintEventArgs pea)
{
Graphics graphics = pea.Graphics;
string str = "Konum: " + Location + "\n" +
"ClientRectangle: " + ClientRectangle;
graphics.DrawString(str, Font, Brushes.Black, 0, 0);
}
}
}
//Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN |
Formunuz Efektli Açılsın
Formunuza 1 adet Timer ekleyin. Aşağıdaki kodları yazın.
private void Form1_Load(object sender, EventArgs e)
{
timer1.Start();
}
private void timer1_Tick(object sender, EventArgs e)
{
int x, y, k;
x = 300;
y = 0;
for (k = 0; k <= 100; k++)
{
y++;
this.Size = new System.Drawing.Size(x, y);
}
timer1.Stop();
}
//Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN |
Formunuzu Titretin
Formunuza 1 adet Timer ekleyin. Interval ini 20 yapın.
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
timer1.Interval = 20;
timer1.Start();
}
private void timer1_Tick(object sender, EventArgs e)
{
this.Top = Top + 50;
this.Top = Top - 50;
this.Left = Left - 50;
this.Left = Top + 50;
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN |
Form2 nizin Birden Fazla Açılmasını Önlemek
Arkadaşlar C# de en sık yaşadığımız olay Form1 den herhangi bir diğer forma giderken, Örneğin Form1 deki Button a her tıklamamızda Form2 nin birden
fazla açılması. Bu da can sıkıcı bir olay.
Ufak bir kod parçasıyla bu sorunumuzu çözebiliriz.
private void button1_Click(object sender, EventArgs e)
{
//form2 nin bir kez açılması için
if(frm == null || frm.IsDisposed)
{
frm = new Form2();
frm.Show();
}
//veya
//Form2 frm = new Form2();
//frm.ShowDialog();
//şeklinde yazabilirsiniz.
}
//Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
|
TrackBar ile Formunuzun Arka Plan Rengini Değiştirin
TrackBar kullanarak formumuzun arka plan rengini değiştireceğiz. Formunuza 3 adet TrackBar ekleyin. Aşağıdaki şekli inceleyin.
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
this.BackColor = Color.FromArgb(trackBar1.Value, trackBar2.Value, trackBar3.Value);
trackBar1.Maximum = 255;
trackBar2.Maximum = 255;
trackBar3.Maximum = 255;
}
private void trackBar1_Scroll(object sender, EventArgs e)
{
this.BackColor = Color.FromArgb(trackBar1.Value, trackBar2.Value, trackBar3.Value);
}
private void trackBar2_Scroll(object sender, EventArgs e)
{
trackBar1_Scroll(sender, e);
}
private void trackBar3_Scroll(object sender, EventArgs e)
{
trackBar1_Scroll(sender, e);
}
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN |
VScrollBar, HScrollBar Kullanarak Form Boyutunu Değiştirme
Bu örneğimizde VScrollBar, HScrollBar kullanarak formumuzun yatay ve dikey
boyutlarını değiştireceğiz. Aşağıdaki
şekilleri incdeleyin.
private void Form1_Load(object sender, EventArgs e)
{
hScrollBar1.Minimum = 300;
hScrollBar1.Maximum = 1000;
hScrollBar1.SmallChange = 1;
hScrollBar1.LargeChange = 50;
vScrollBar1.Minimum = 300;
vScrollBar1.Maximum = 1000;
vScrollBar1.SmallChange = 1;
vScrollBar1.LargeChange = 50;
this.Text = "Boyut(" + this.Width + "," + this.Height + ")";
}
private void hScrollBar1_Scroll(object sender, ScrollEventArgs e)
{
this.Width = Convert.ToInt32(hScrollBar1.Value);
this.Text = "Boyut(" + Convert.ToInt32(hScrollBar1.Value) + "," + Convert.ToInt32(vScrollBar1.Value) +")";
}
private void vScrollBar1_Scroll(object sender, ScrollEventArgs e)
{
this.Height = Convert.ToInt32(vScrollBar1.Value);
this.Text = "Boyut(" + Convert.ToInt32(hScrollBar1.Value) + "," + Convert.ToInt32(vScrollBar1.Value) + ")";
}
//Bir sonraki makalede buluşmak üzere. Bahadır
|
Formun Arka Planına Bitmap Resim Ekleme
Bu örnekte formun arka planına bitmap resim ekleyeceğiz. Formunuzun FormBorderStyle özelliğini None seçin.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.Drawing.Drawing2D;
namespace WindowsApplication1
{
public partial class Form1 : Form
{
Bitmap resim = new Bitmap("resim.jpg");
public Form1()
{
InitializeComponent();
this.Paint += new System.Windows.Forms.PaintEventHandler(Form1_Paint);
}
private void Form1_Paint(object sender, PaintEventArgs e)
{
Graphics g = e.Graphics;
Rectangle mainRect = new Rectangle(0, 0, 695, 278);
Region mainRegion = new Region(mainRect);
e.Graphics.SetClip(mainRegion, CombineMode.Replace);
GraphicsPath myPath = new GraphicsPath();
Region ExcludeRegion3 = new Region(myPath);
e.Graphics.ExcludeClip(ExcludeRegion3);
e.Graphics.DrawImage(resim, 0, 0, 495,278);
e.Graphics.ResetClip();
}
private void Form1_Load(object sender, EventArgs e)
{
this.Size = new System.Drawing.Size(500,280);
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır |
Eliptik Form
Formumuzun Elips şeklinde olmasını sağlayacağız. Ayrıca formun arka planına Bitmap resim ekleyeceğiz. Aşağıdaki şekli inceleyin.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace WindowsApplication1
{
public partial class Form1 : Form
{
private Image resim;
public Form1()
{
InitializeComponent();
this.Paint += new System.Windows.Forms.PaintEventHandler(Form1_Paint);
}
private void Form1_Load(object sender, EventArgs e)
{
resim= Image.FromFile("C:\\resim.bmp");
}
private void Form1_Paint(object sender, PaintEventArgs e)
{
//Formun arka planına Bitmap resim eklemek için
e.Graphics.DrawImage(resim, 0, 0, resim.Width, resim.Height);
// Formu eliptik şekilde yapmak için
System.Drawing.Drawing2D.GraphicsPath shape = new System.Drawing.Drawing2D.GraphicsPath();
shape.AddEllipse(0, 0, this.Width, this.Height);
this.Region = new System.Drawing.Region(shape);
}
private void Form1_Resize(object sender, EventArgs e)
{
this.CreateGraphics().DrawImage(resim, 0, 0, resim.Width+100, resim.Height+100);
}
}
}
//Bir sonraki makalede buluşmak üzere. Bahadır
|
TextBox ta Telefon Formatında Yazmak
TextBox a girilen rakamları telefon formatında göstereceğiz.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace WindowsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
string telefonno = "02121234567";
string str = telefonno.Insert(1, "-");
string str2 = str.Insert(5, "-");
textBox1.Text = str2;
//Programı çalıştırdığımızda
//textBox a girilen no 0-212-1234567
//şeklinde görülür.
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır |
Form Başlığında Kayan Başlık
Bu örnekte Form başlığında kayan yazı örneğini gerçekleştireceğiz. Formunuza 1 adet Timer ekleyin.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
this.Text = "Kayan Yazı Örnek...Bahadır ";
timer1.Interval = 100;
timer1.Enabled = true;
}
private void timer1_Tick(object sender, EventArgs e)
{
int i;
string str;
str = "";
for ( i =1 ; i < this.Text.Length; i+=1 )
{
str = str + this.Text[i];
}
this.Text = str + this.Text[0];
}
}
}
|
Form Soldurma
Formunuza 1 adet button ekleyin. Aşağıdaki kodları yazın.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
double deger;
for (deger = 0; deger >= 1 - 0.1; deger += +0.1)
{
System.Threading.Thread.Sleep(50);
Application.DoEvents();
this.Opacity = deger;
this.Refresh();
this.Opacity = 100;
}
}
private void button1_Click(object sender, EventArgs e)
{
double deger;
for (deger = 3; deger >= 0 + 0.2; deger += -0.2) {
System.Threading.Thread.Sleep(50);
Application.DoEvents();
this.Opacity = deger;
this.Refresh();
}
Environment.Exit(0);
}
}
}
//Bir sonraki makalede buluşmak üzere. Bahadır
|
Formu Saydamlaştırma
Formumuzun Opacity değeriyle oynayarak saydamlaştırabiliriz. Formumuzun Opacity değerini Trackbar nesnesiyle değiştireceğiz.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TrackBar1.Minimum = 0
TrackBar1.Maximum = 10
TrackBar1.Value = 10
End Sub
Private Sub TrackBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
Me.Opacity = TrackBar1.Value / 10
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN |
Form Başlığında Kayan Yazı
Formunuza 1 adet Timer ekleyin. Sonra
Imports vb = Microsoft.VisualBasic i ekleyin.
Aşağıdaki kodları formunuza ekleyin.
Imports vb = Microsoft.VisualBasic
Public Class Form1
Dim i As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 50
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
i = i + 1
Me.Text = vb.Left("Merhaba Dünya...Bahadır ŞAHİN", i)
If i > 100 Then
i = 0
End If
End Sub
End Class |
Form Taşıma
Formun üzerinden tutup taşıyacağız. Formunuza 1 adet Panel ekleyin.
Panel in dock özelliğini Fill seçin veya
Panel in sağ üstündeki oka tıklayıp Panel
Task ten seçin. Böylece Panelin formun
tümünü kaplamasını sağladık.
Aşağıdaki kodları panel in mousedown yordamına yazın.
Public Class Form1
Const i As Integer = &HA1
Const j As Integer = 2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
Panel1.Capture = False
Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)
Me.DefWndProc(msg)
End If
End Sub
End Class
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
|
Esc Tuşu İle Formu Gizleme
Bu örnekte esc tuşuna basarak formu gizleyeceğiz.
Imports System.IO
Public Class Form1
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Escape Then
Me.Hide()
End If
End Sub
Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
If e.KeyCode = Keys.Escape Then
Me.Hide()
End If
End Sub
End Class
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN |
Midi Chield Form Oluşturma
Formumuzun içinde midi formlar oluşturacağız. Aşağıdaki şekli inceleyin.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim midiForm As New Form
‘Form1 in IsMdiContainer özelliğini true yapın
‘Form1 içinde 1 den fazla midiform oluşturulur.
Me.IsMdiContainer = True
midiForm.MdiParent = Me
midiForm.Show()
End Sub
End Class
‘Bir sonraki makalede görüşmek üzere. Bahadır |
Animasyon Form
Formunuza 1 adet Timer ekleyin. Timer ın interval ini 10 yapın. Aşağıdaki kodları yazın.
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim ilkboy, sonboy, ilken, sonen
Dim i, j
ilkboy = 300
sonboy = 600
ilken = 300
sonen = 600
Me.Width = ilken
Me.Height = ilkboy
For i = ilkboy To sonboy
Me.Height = i
If Me.Height = sonboy Then
For j = ilken To sonen
Me.Width = j
If j = sonen Then
Timer1.Enabled = False
End If
Next j
End If
Next i
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 10
Timer1.Enabled = True
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır |