[ key ] /
Makaleler-Article(s)
key ile ilgili toplam 8 makale bulundu ! (A total of 8 article(s) about key was(were) found in all of articles!)
| Article |
|---|
dataGridView Nesnesinde Sütun Başlıklarını Dikey Yazdırma
Merhaba. DataGridView nesnemizdeki sütun başlıklarını dikey konumda yazılmasını sağlayacağız. Bunun için dataGridView1_CellPainting kısmına aşağıdaki kodları yazın. | Formu Kapatma (Form Keydown Olayı)
Merhaba arkadaşlar, Formumuzun Keydown yordamına yazacağımız kodla F10 tuşuna basarak formumuzu kapatacağız... | 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 | KeyPress Olayı
Bu örnekte keypress olayını göreceğiz. Örneğimizde klavyemizdeki herhangi bir tuşa basıldığı zaman uyarı mesajı gelecek bir program yapacağız.
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.KeyPress += new System.Windows.Forms.KeyPressEventHandler(this.Form1_KeyPress);
}
private void Form1_KeyPress(object sender, System.Windows.Forms.KeyPressEventArgs e)
{
MessageBox.Show("Bir tuşa basıldı","Mesaj");
}
}
}
//Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN | SendKey Metodunda TAB Kullanımı
Bu örnekte Sendkey de tab nasıl kullanıldığını göreceğiz. Formunuza Aşağıdaki Şekil1 de gösterildiği gibi 2 adet TextBox ekleyin.
Örnekte textBox1 e 6. karakter girildiğinde, otomatik olarak textBox2 ye
yazılacak.
private void textBox1_TextChanged(object sender, EventArgs e)
{
if (textBox1.Text.Length == 5)
SendKeys.Send("{TAB}");
}
//Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
| Otomatik Key Kodu Üretmek
25 karakterlik otomatik key kodları üreteceğiz. İsteğe bağlı olarak bu sayıyı azaltabilir veya artırabilirsiniz.
Formunuza 1 adet textbox ve button ekleyin.
Aşağıdaki şekilleri inceleyin.
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 button1_Click(object sender, EventArgs e)
{
//25 karakterlik key kodu üreteceğiz.
KeyKodu(25);
}
private string KeyKodu(int codeLength)
{
System.Text.StringBuilder sb = new System.Text.StringBuilder();
System.Random nesneRandom = new System.Random();
string[] strKarakter = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J",
"K", "L", "M", "N", "O", "P", "Q", "R", "S", "T",
"U", "V", "W", "X", "Y", "Z", "1", "2", "3", "4",
"5", "6", "7", "8", "9", "0", "a", "b", "c", "d",
"e", "f", "g", "h", "i", "j", "k", "l", "m", "n",
"o", "p", "q", "r", "s", "t", "u", "v", "w ", "x",
"y", "z"};
int maxRand = strKarakter.GetUpperBound(0);
for (int i = 0; i <= codeLength - 1; i++) {
int rndNumara = nesneRandom.Next(maxRand);
sb.Append(strKarakter[rndNumara]);
}
textBox1.Text = Convert.ToString(sb);
//textbox1 deki stringin arasına "-" koyuyoruz.
string veri = textBox1.Text;
string str = veri.Insert(5, "-");
string str2 = str.Insert(11,"-");
string str3 = str2.Insert(17, "-");
string str4 = str3.Insert(23, "-");
textBox1.Text = str4;
return Convert.ToString(sb);
}
private void Form1_Load(object sender, EventArgs e)
{
textBox1.ReadOnly = true;
textBox1.Font = new Font("Arial",12,FontStyle.Bold);
button1.Text = "Key Numarası Üret";
button1.Font = new Font("Arial", 12, FontStyle.Bold);
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır
| SendKeys Kullanımı
SendKeys metodunu kullanarak, textBox a yazdığımız stringi NotePad yazılmasını sağlayacağız. Ayrıca
SendKeys.SendWait() metodu ilede mesajınızı direkt NotPad e yazdırabilirsiniz. Aşağıdaki şekli inceleyin.
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 button1_Click(object sender, EventArgs e)
{
Microsoft.VisualBasic.AppWinStyle stil = Microsoft.VisualBasic.AppWinStyle.NormalFocus;
int i;
Microsoft.VisualBasic.Interaction.Shell(@"NotePad.exe", stil, false,-1);
for (i = 0; i <= textBox1.Text.Length - 1; i += 1) {
SendKeys.SendWait(textBox1.Text.Substring(i, 1));
if (i > textBox1.Text.Length) {
break;
}
}
// Bu kısımdada textboxta yazılan yazının altına
//aşağıdaki mesajı ekliyoruz. Notepade ekliyecek...
SendKeys.SendWait("{ENTER}");
SendKeys.SendWait("Şimdilik bu kadar...Bahadır ŞAHİN");
}
private void Form1_Load(object sender, EventArgs e)
{
this.Text = "SendKeys...";
this.MaximizeBox = false;
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır | Otomatik Key Olusturma
Bu örneğimizde otomatik olarak key numaraları oluşturacağız. Ayrıca oluşturacağımız key numaralarını text dosyasına kaydedip, daha sonra text dosyasındanda yükleyebilirsiniz. Bunun için formunuza 5 adet Textbox, 4 adet Button ve 1 adet RichTextBox ekleyin. Aşağıdaki şekil gibi formunuzu oluşturun...Bahadirsa
Forma yazılacak kodlar:
Public Class Form1
Dim i As Integer = 0, j As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Bahadirsa Otomatik Key Oluşturma"
Me.Width = 296
Me.Height = 327
Me.Left = 200
Me.Top = 130
Me.MaximizeBox = False
RichTextBox1.Width = 247
RichTextBox1.Height = 135
RichTextBox1.ReadOnly = True
TextBox1.MaxLength = 5
TextBox2.MaxLength = 5
TextBox3.MaxLength = 5
TextBox4.MaxLength = 5
TextBox5.MaxLength = 5
TextBox1.ReadOnly = True
TextBox2.ReadOnly = True
TextBox3.ReadOnly = True
TextBox4.ReadOnly = True
TextBox5.ReadOnly = True
Label1.Text = "Otomatik Key Oluşturma "
Label2.Text = "Oluşturduğunuz Key Sayısı:" + CStr(0)
Timer1.Enabled = True
Timer1.Interval = 10
Button1.Text = "Key Oluştur"
Button2.Text = "Text Olarak Kaydet"
Button3.Text = "Dosyadan Key Yükle"
Button4.Text = "İçeriği Temizle"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dizi() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "v", "w", "x", "y", "z", 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "?", "+"}
Dim sayı() As Double = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25}
sayı(0) = (i * 300) Mod 62
sayı(1) = ((i + 5) * 20) Mod 62
sayı(2) = ((i * 2323) + 44) Mod 62
sayı(3) = ((i * 15) - 23) Mod 62
sayı(4) = ((3 * i + 45) * 4) Mod 62
TextBox1.Text = CStr(dizi(sayı(0))) & CStr(dizi(sayı(1))) & CStr(dizi(sayı(2))) & CStr(dizi(sayı(3))) & CStr(dizi(sayı(4)))
sayı(5) = (i + 1234) Mod 62
sayı(6) = ((i + 44) * 20) Mod 62
sayı(7) = ((i * 23) + 34) Mod 62
sayı(8) = ((i * 55) - 23) Mod 62
sayı(9) = ((88 * i + 45) * 4) Mod 62
TextBox2.Text = CStr(dizi(sayı(5))) & CStr(dizi(sayı(6))) & CStr(dizi(sayı(7))) & CStr(dizi(sayı(8))) & CStr(dizi(sayı(9)))
sayı(10) = (i) Mod 62
sayı(11) = ((i * 12) + 40) Mod 62
sayı(12) = ((i * 999) + 1234) Mod 62
sayı(13) = ((i * 155) - 12) Mod 62
sayı(14) = ((i * 100 + 20) / 10) Mod 62
TextBox3.Text = CStr(dizi(sayı(10))) & CStr(dizi(sayı(11))) & CStr(dizi(sayı(12))) & CStr(dizi(sayı(13))) & CStr(dizi(sayı(14)))
sayı(15) = (i * 88) Mod 62
sayı(16) = ((i * 2 + 125) * 2) Mod 62
sayı(17) = (((i * 23) - 23) + 44) Mod 62
sayı(18) = ((i * i) + 38) Mod 62
sayı(19) = ((34 * i + 45 - i)) Mod 62
TextBox4.Text = CStr(dizi(sayı(15))) & CStr(dizi(sayı(16))) & CStr(dizi(sayı(17))) & CStr(dizi(sayı(18))) & CStr(dizi(sayı(19)))
sayı(20) = ((i * 23) + 4) Mod 62
sayı(21) = ((i * 150) - 34) Mod 62
sayı(22) = ((2 * i) + 44) Mod 62
sayı(23) = ((i * 12) - 12) Mod 62
sayı(24) = ((10 * i + 45) * 4) Mod 62
TextBox5.Text = CStr(dizi(sayı(20))) & CStr(dizi(sayı(21))) & CStr(dizi(sayı(22))) & CStr(dizi(sayı(23))) & CStr(dizi(sayı(24)))
RichTextBox1.AppendText((TextBox1.Text & "-" & TextBox2.Text & "-" + TextBox3.Text & "-" & TextBox4.Text & "-" & TextBox5.Text) & " ")
j = j + 1
Label2.Text = "Oluşturduğunuz Key Sayısı:" & CStr(j)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
‘TextBox1.MaxLength = 5
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
i = i + 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = "Dosya C:\bahadirsa.txt Adresine Kaydedildi..."
RichTextBox1.SaveFile("c:\bahadirsa.txt")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Text = "Dosya Yükleme İşlemi"
RichTextBox1.LoadFile("C:\bahadirsa.txt")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
RichTextBox1.Clear()
End Sub
End Class
‘ Bir sonraki makalemizde buluşmak üzere...Bahadirsa |
|