[ textbox ] /
Makaleler-Article(s)
textbox ile ilgili toplam 38 makale bulundu ! (A total of 38 article(s) about textbox was(were) found in all of articles!)
| Article |
|---|
TextBox a Girilen Bilgileri GridView da Göstermek
Merhaba arkadaşlar bu makalemizde TextBox a girilen verilerin datatable kullanarak GridView nesnesinde gosterimini sagliyacagiz. | Çalışma Anında GridView a TextBox Satır Ekleme, Güncelleme, Kaydetme Ve Silme İşlemleri
Merhaba arkadaşlar bu makalemizde GridView nesnesine çalışma esnasında textbox satır ekliyoruz. Eklediğimiz satırdaki textbox a girilen metini kaydediyoruz.Ayrıca GridView satırlarında güncelleme işlemini gerçekleştiriyoruz.
Tablomuzu Sql Managament Server kısmında... | C++ da My Sql Veritabanındaki Verileri ComboBox ta Göstermek ve Secili Indeksteki Veriyi TextBoxta Gösterimini Sağlamak
Merhaba arkadaşlar bu makalemizde C++ da My Sql veritabanındaki tablomuzdaki verileri Combobox ta göstereceğiz. Sonrasında Comboboxta seçili indeksine bağlı verileri TextBox içerisinde gösterimini sağlayacağız. | GridView Nesnesine Çalışma Anında Satır Eklemek
Merhaba arkadaşlar bu makalemizde javascript kullanarak çalışma anında GridView nesnesine satır ekleyeceğiz. | TextBox ta Otomatik Tamamlama
Merhaba arkadaşlar bu makalemizde TextBox a girilen metinin nasıl otomatik tamamlanacağını göreceğiz. Bunun için oluşturacağımız country list koleksiyonunu TextBox ın AutoCompleteCustomSource kısmına ilişkilendireceğiz. | Metinden Sesli Harfleri Çıkarmak
Merhaba arkadaşlar bu örnekte TextBox a girilen string içerisinden sesli harfleri çıkaracağız. Sadece TextBox ta sessiz harf karakterleri kalacak. | TextBox a Girilen Metini GridView da Aramak
Merhaba arkadaşlar bu makalemizde TextBox a girilen metini GridView kayıtlarında arayacağız. Textbox a metni girdikten sonra Enter tuşuna basarak arama işlemini yapabiliriz. | DataGridView da Kayıt Arama ve TextBox a Aktarma
Merhaba arkadaşlar bu makalemizde dataGridView nesnesinde Id numarasına göre arama yapacağız. Bir önceki, bir sonraki, ilk kayıt veya son kayıta gitmek için formumuza buttonlar ekleyeceğiz. Ayrıca kayıtlar arasında gezerken dataGridView da seçili satırdaki dataları textbox ta göstereceğiz.
| TextBox ta Otomatik Tamamlama İşlemi
Merhaba arkadaşlar bu makalemizde javascript kodlarını kullanarak TextBox’ta otomatik tamamlama işlemini gerçekleştireceğiz. Genelde arama motorlarında da benzeri şekilde sıkça kullanılan ve kullanışlı bir kod parçacığıdır. | GridView Nesnesinde Seçili Satır Bilgilerini TextBox ta Göstermek
Merhaba arkadaşlar bu makalemizde GridView nesnesinde seçili satıra ait bilgileri TextBox a aktaracağız. Gridview nesnesinin AutoGenerateColumns özelliğini False ve AutoGenerateSelectButton özelliğini de True yapın. | GridView’daki Verileri Text Dosya’ya Aktarmak
Merhaba arkadaşlar. Bu makalemizde GridView sütunlardaki verileri text dosya ya aktaracağız. GridView nesnemizin AutoGenerateColumns özelliğini
AutoGenerateColumns="False" yapın.
| DataGridView da Seçili Satır Bilgilerini TextBox ta Göstermek
Merhaba arkadaşlar. Bu makalemizde Customers tablosundaki bilgileri, DataGridView da göstereceğiz. DataGridView da seçili satır bilgilerini Textbox ta göstereceğiz. | GridView da TextBox Kullanımı
Merhaba arkadaşlar. Bu makalemizde GridView nesnesinde TextBox alanın nasıl kullanıldığını göreceğiz. | TextBoxta Arama Yapmak
Merhaba arkadaşlar. Bu makalemizde TextBox nesnesinde arama yapacağız. Formumuza 2 tane Textbox ve 1 tane buton ekliyoruz. | TextBox Metodlar
Arkadaşlar bu makalemizde TextBox nesnesinde kullandığımız metodlardan, Focus(), Select(), Replace() ve Insert () metodlarını inceleyeceğiz. | RichTextBox Zoomlama
RichTextBox nesnesinde zoom in, zoom out nasıl oluyor? ile ilgili bir örneğe bakacağız. Formunuza 3 adet Button ekleyin. Yine Formunuzun Classına using System.Diagnostics; i ekleyin. | TextBoxları Birleştirme
Merhaba arkadaşlar, Concat metodunu kullanarak TextBox taki stringleri birleştireceğiz. Formunuza 3 adet TextBox, 1 adet Label ve Button ekleyin. (Şekil 1) | Birden Fazla TextBox a Aynı Anda Çoklu Yazdırmak
Merhaba Arkadaşlar bu makalemizde dinamik olarak oluşturduğumuz 10 adet TextBox a aynı anda yazdıracağız. | ListView da Seçili Satırı TextBoxlarda Göstermek
Merhaba Arkadaşlar önceki makalede ListView nesnesinde Ürün adına göre arama yapmıştık. Şimdi de ListView nesnesinde seçmiş olduğumuz satırdaki verileri TextBox ta göstereceğiz. Formunuzu Şekil 1 deki gibi oluşturun. | TextBox ta Satır Numarasını Bulmak
Bu makalemizde Textbox nesnesinde imlecin bulunduğu satırın indeksini alacağız. Bununiçin MouseClick yordamına aşağıdaki kodları yazacağız. Şekil 1 i inceleyin.
Not: Satır numarası 0 dan başlayarak gidiyor... | TextBox a Sadece Rakam Girmek
Çalışma anında oluşturmuş olduğumuz textbox a sadece sayı girişi yapacağız. Bunun için onkeypress özelliğine aşağıdaki kodları yazıyoruz.
Şekil 1 i 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
{
private sayisaltxt textBox1;
public Form1()
{
InitializeComponent();
this.textBox1 = new sayisaltxt();
this.SuspendLayout();
this.textBox1.Location = new System.Drawing.Point(20, 20);
this.Controls.Add(this.textBox1);
}
public class sayisaltxt : TextBox
{
protected override void OnKeyPress(KeyPressEventArgs e)
{
if (!char.IsControl(e.KeyChar) && !char.IsDigit(e.KeyChar))
{
e.Handled = true;
MessageBox.Show("Sadece rakam girebilirsiniz...", "Uyarı");
}
base.OnKeyPress(e);
}
}
}
}
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
| TextBox taki Türkçe Karakterleri Değiştirmek
Bu örneğimizde TextBoxtaki Türkçe karakterleri İngilizce karakterler ile değiştireceğiz. Ör: Ş-S, Ğ-G, ı-i vb.
Formunuza 1 adet TextBox, 12 adet CheckBox 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 Form1_Load(object sender, EventArgs e)
{
}
private void karakter()
{
if (checkBox1.Checked == true)
textBox1.Text = textBox1.Text.Replace(‘Ş‘, ‘S‘);
if (checkBox2.Checked == true)
textBox1.Text = textBox1.Text.Replace(‘ş‘, ‘s‘);
if (checkBox3.Checked == true)
textBox1.Text = textBox1.Text.Replace(‘İ‘, ‘I‘);
if (checkBox4.Checked == true)
textBox1.Text = textBox1.Text.Replace(‘ı‘, ‘i‘);
if (checkBox5.Checked == true)
textBox1.Text = textBox1.Text.Replace(‘Ğ‘, ‘G‘);
if (checkBox6.Checked == true)
textBox1.Text = textBox1.Text.Replace(‘ğ‘, ‘g‘);
if (checkBox7.Checked == true)
textBox1.Text = textBox1.Text.Replace(‘Ç‘, ‘C‘);
if (checkBox8.Checked == true)
textBox1.Text = textBox1.Text.Replace(‘ç‘, ‘c‘);
if (checkBox9.Checked == true)
textBox1.Text = textBox1.Text.Replace(‘Ü‘, ‘U‘);
if (checkBox10.Checked == true)
textBox1.Text = textBox1.Text.Replace(‘ü‘, ‘u‘);
if (checkBox11.Checked == true)
textBox1.Text = textBox1.Text.Replace(‘Ö‘, ‘O‘);
if (checkBox12.Checked == true)
textBox1.Text = textBox1.Text.Replace(‘ö‘, ‘o‘);
}
private void checkBox1_CheckedChanged(object sender, EventArgs e)
{
karakter();
}
private void checkBox2_CheckedChanged(object sender, EventArgs e)
{
karakter();
}
private void checkBox3_CheckedChanged(object sender, EventArgs e)
{
karakter();
}
private void checkBox4_CheckedChanged(object sender, EventArgs e)
{
karakter();
}
private void checkBox5_CheckedChanged(object sender, EventArgs e)
{
karakter();
}
private void checkBox6_CheckedChanged(object sender, EventArgs e)
{
karakter();
}
private void checkBox7_CheckedChanged(object sender, EventArgs e)
{
karakter();
}
private void checkBox8_CheckedChanged(object sender, EventArgs e)
{
karakter();
}
private void checkBox9_CheckedChanged(object sender, EventArgs e)
{
karakter();
}
private void checkBox10_CheckedChanged(object sender, EventArgs e)
{
karakter();
}
private void checkBox11_CheckedChanged(object sender, EventArgs e)
{
karakter();
}
private void checkBox12_CheckedChanged(object sender, EventArgs e)
{
karakter();
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır
| TextBox a Yazılan Yazıyı Hizalama
Bu örnekte TextBox a yazılan yazıyı hizalayacağız. Aşağıdaki şekilleri inceleyin.
private void Form1_Load(object sender, EventArgs e)
{
textBox1.Text = "Merhaba Dünya...Bahadır";
rb1.Checked = true;
}
private void rb1_CheckedChanged(object sender, EventArgs e)
{
textBox1.TextAlign = HorizontalAlignment.Left;
}
private void rb2_CheckedChanged(object sender, EventArgs e)
{
textBox1.TextAlign = HorizontalAlignment.Center;
}
private void rb3_CheckedChanged(object sender, EventArgs e)
{
textBox1.TextAlign = HorizontalAlignment.Right;
}
//Bir sonraki makalede görüşmek ü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 | TextBox a Sadece Sayı Girebilme
Bu örnekte textBox nesnesine sadece sayı girişi yapılacak. String girilemiyecek. String girilmeye çalışıldığında bizi uyaracak. textBox ın KeyPress olayına aşağıdaki kodları yazacağız. Public Form1()
kısmına textBox1.KeyPress += new System.Windows.Forms.KeyPressEventHandler(textBox1_KeyPress);
i eklemeyi unutmayı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();
textBox1.KeyPress += new System.Windows.Forms.KeyPressEventHandler(textBox1_KeyPress);
}
private void textBox1_KeyPress(object sender, System.Windows.Forms.KeyPressEventArgs e)
{
if ((e.KeyChar) == 8)
{
e.Handled = false;
return;
}
if ((e.KeyChar) < 48 | (e.KeyChar) > 57)
{
e.Handled = true;
MessageBox.Show("Sadece Sayı Girebilirsiniz", "Dikkat!!", MessageBoxButtons.OK);
return;
}
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır | TextBox GotFocus Yordamı
Textbox ın gotfocus özelliğinden yararlanarak renk değişimini sağlayacağız. Textbox a tıklanıldığında backcolor rengi sarı olacak. string girildiğinde rengi beyaz olacak. Tab tuşu ile bir sonraki textbox a gidildiğinde yeni textbox ın backcolor rengi sarı olacak. İlk önce InitializeComponent(); kısmına
this.textBox1.GotFocus += new System.EventHandler(textBox1_GotFocus);
this.textBox1.TextChanged += new System.EventHandler(textBox1_TextChanged);
ekleyin.
Aşağıdaki şekilleri 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();
this.textBox1.GotFocus += new System.EventHandler(textBox1_GotFocus);
this.textBox2.GotFocus += new System.EventHandler(textBox2_GotFocus);
this.textBox3.GotFocus += new System.EventHandler(textBox3_GotFocus);
this.textBox1.TextChanged += new System.EventHandler(textBox1_TextChanged);
this.textBox2.TextChanged += new System.EventHandler(textBox2_TextChanged);
this.textBox3.TextChanged += new System.EventHandler(textBox3_TextChanged);
}
private void textBox1_GotFocus(object sender, EventArgs e)
{
textBox1.BackColor = Color.Yellow;
}
private void textBox1_TextChanged(object sender, EventArgs e)
{
textBox1.BackColor = Color.White;
}
private void textBox2_GotFocus(object sender, EventArgs e)
{
textBox2.BackColor = Color.Yellow;
}
private void textBox2_TextChanged(object sender, EventArgs e)
{
textBox2.BackColor = Color.White;
}
private void textBox3_GotFocus(object sender, EventArgs e)
{
textBox3.BackColor = Color.Yellow;
}
private void textBox3_TextChanged(object sender, EventArgs e)
{
textBox3.BackColor = Color.White;
}
private void Form1_Load(object sender, EventArgs e)
{
}
}
}
//Bir sonraki makalede buluşmak üzere. Bahadır
| TreeView Node daki Bilgileri TextBox a Aktarma
Bu makale treeView nesnesine node lar oluşturulacak ve bu nodlardaki veriler textboxlara aktarılacak. Formumuzda;
public class DataTreeNode : TreeNode ve
public class Site class ları oluşturacağız. Forma 1 adet treeView, 4 adet textBox eklenecek. Aşağıdaki şekildeki gibi formunuzu oluşturun.
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();
}
public class DataTreeNode : TreeNode
{
private object data;
public DataTreeNode(object data)
: base(data.ToString())
{
this.data = data;
}
public object Data
{
get { return data; }
}
}
public class Site
{
private string kategori;
private string adres;
private string kurucuad;
private string aciklama;
public Site(string kategori, string adres, string kurucuad, string aciklama)
{
this.kategori = kategori;
this.adres = adres;
this.kurucuad = kurucuad;
this.aciklama = aciklama;
}
public string Kategori
{
get { return kategori; }
set { kategori = value; }
}
public string Adres
{
get { return adres; }
set { adres = value; }
}
public string Kurucuad
{
get { return kurucuad; }
set { kurucuad = value; }
}
public string Aciklama
{
get { return aciklama; }
set { aciklama = value; }
}
public override string ToString() // <------ DataTreeNode sınıfında temel constructora gönderilecek ToString() işte burası.
{
return kategori + " " + adres;
}
}
private void Form1_Load(object sender, EventArgs e)
{
Site sitebilgi = new Site("Site", " ", " ", "");
DataTreeNode node1 = new DataTreeNode(sitebilgi);
treeView1.Nodes.Add(node1);
sitebilgi = new Site("Programlama", "http://bahadirsam.somee.com", "Bahadır ŞAHİN", "vc#.net,visualbasic.net,asp.net,ado.net ");
DataTreeNode node2 = new DataTreeNode(sitebilgi);
node1.Nodes.Add(node2);
sitebilgi = new Site("Diğer", "http://ysa.somee.com", "Bahadır ŞAHİN", "Yapay Zeka, Ysa, Backpropagation");
DataTreeNode node3 = new DataTreeNode(sitebilgi);
node1.Nodes.Add(node3);
}
private void treeView1_AfterSelect(object sender, TreeViewEventArgs e)
{
DataTreeNode node = (DataTreeNode)e.Node; // <--- Node DataTreeNode tipinde
textBox1.DataBindings.Clear();
textBox2.DataBindings.Clear();
textBox3.DataBindings.Clear();
textBox4.DataBindings.Clear();
textBox1.DataBindings.Add("Text", node.Data, "Kategori");
textBox2.DataBindings.Add("Text", node.Data, "Adres");
textBox3.DataBindings.Add("Text", node.Data, "Kurucuad");
textBox4.DataBindings.Add("Text", node.Data, "Aciklama");
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır | TextBox ta Replace Olayı
Replace metodunu kullanaak textBox ınızda yazılı metinlerinizi değiştirebilirsiniz. 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 Form1_Load(object sender, EventArgs e)
{
this.Text = "Kelime Değiştirme";
this.MaximizeBox = false;
textBox1.Text = "Merhaba Bahadirsa. Hello World.";
}
private void button1_Click(object sender, EventArgs e)
{
textBox1.Text = textBox1.Text.Replace("Hello World", "Merhaba Dünya");
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır | RichTextBox ta Arama
Bu makalemizde richTextBox nesnemiz içinde yazılı olan string te arama yaptıracağız. Aşağıdaki şekilleri inceleyin. Formunuza 1 adet textBox, button ve richTextBox ekleyin...Bahadirsa
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)
{
btnAra.Font = new Font("Verdana", 10, FontStyle.Regular);
richTextBox1.Font = new Font("Verdana", 10, FontStyle.Regular);
txtAra.Font = new Font("Verdana", 10, FontStyle.Regular);
richTextBox1.Text = "Merhaba Bahadirsa. Bu örneğimizde kelime aramaya örnek vereceğiz. Öncelikle aranacak kelimeyi yukarıdaki textbox a giriniz." ;
txtAra.Text = "Aranacak kelimeyi buraya gir...";
this.Text = "Arama Uygulaması...Bahadirsa";
this.MaximizeBox = false;
}
private void btnAra_Click(object sender, EventArgs e)
{
int r;
r = richTextBox1.Text.IndexOf(txtAra.Text);
if (r > 0)
{
richTextBox1.Select(r, txtAra.Text.Length);
richTextBox1.SelectionBackColor = Color.Black;
richTextBox1.SelectionFont = new Font("Verdana", 12, FontStyle.Bold);
richTextBox1.SelectionColor = Color.Yellow;
MessageBox.Show("Aranılan kelime, " + (r+1) + " . karakterde bulundu.");
}
else
{
MessageBox.Show("Üzgünüz. Aranılan kelime bulunamadı");
}
}
private void txtAra_TextClick(object sender, EventArgs e)
{
richTextBox1.SelectionBackColor = Color.White;
richTextBox1.SelectionColor = Color.Black;
richTextBox1.SelectionFont = new Font("Verdana", 10, FontStyle.Regular);
}
}
}
//Bir sonraki makalede görüşmek üzere...Bahadirsa | TextBox a Pi Sayısı Ekleme
Bu örneğimizde textbox ımıza pi sayısı ekliyeceğiz. Bunun için Math metodundan yararlanacağız. Aşağıdaki şekli inceleyiniz...Bahadirsa
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
namespace WindowsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
this.Text = "Pi sayısı ekleme";
this.MaximizeBox = false;
button1.Text = "Ekle";
}
private void button1_Click(object sender, EventArgs e)
{
double pi;
pi = 4 * Math.Atan(1);
textBox1.Text = Convert.ToString(pi);
}
}
}
//Bir sonraki makalede görüşmek üzere...Bahadirsa
| RichTextBox a Resim Ekleme
Bu örnekte RichTextBox ın içine resim ekleyeceğiz.Clipboard metodundan yararlanacağız.
Aşağıdaki şekilleri inceleyin.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim img As Image = Image.FromFile("C:\resim.jpg")
Clipboard.SetImage(img)
Me.RichTextBox1.Paste()
End Sub
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN | TextBox ta Arama Yaptırmak
Formunuza 2 adet TextBox ve 1 adet Button ekleyin. Textbox2 ye yazdığımız kelimeyi TextBox1 de aratacağız. Aşağıdaki şekilleri inceleyin.
Public Class Form1
Dim ArananKelime As String
Dim KelimeninYeri, AramayaBasla As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error GoTo hata
ArananKelime = TextBox2.Text ‘textbox2 içindeki kelimeyi arayacağız
AramayaBasla = TextBox1.SelectionStart + TextBox1.SelectionLength
If AramayaBasla = 0 Or AramayaBasla = Len(TextBox1.Text) Then
AramayaBasla = 1 ‘aranan kelime bulunmazsa başa döneceğiz
KelimeninYeri = InStr(AramayaBasla, TextBox1.Text, ArananKelime, vbTextCompare)
TextBox1.Focus() ‘kelime bulunduğunda işaretliyoruz
TextBox1.SelectionStart = KelimeninYeri - 1
TextBox1.SelectionLength = Len(ArananKelime)
Exit Sub
End If
hata:
TextBox1.SelectionStart = 1
End Sub
End Class
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN | CapsLock, NumLock Açık Kapalı Kontrol
Arkadaşlar bu örneğimizde CapsLock, NumLock, ScrollLock açık mı kapalı mı olduğunu kontrol edeceğiz. Formunuzu 1 adet Timer, 3 adet Label ve TextBox ekleyin. Aşağıdaki şekilleri inceleyin. Şekil 2 de de çalışma anında yapılan değişikliği görebilirsiniz. Bir sonraki makalede CapsLock, Numlock tuşuna basıldığı zaman uyarı mesajı verecek olan küçük örneğimizi göreceğiz.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If (My.Computer.Keyboard.NumLock) Then
TextBox1.Text = "AÇIK"
Else
TextBox1.Text = "KAPALI"
End If
If (My.Computer.Keyboard.CapsLock) Then
TextBox2.Text = "AÇIK"
Else
TextBox2.Text = "KAPALI"
End If
If (My.Computer.Keyboard.ScrollLock) Then
TextBox3.Text = "AÇIK"
Else
TextBox3.Text = "KAPALI"
End If
End Sub
Bir sonraki makalede görüşmek üzere. Bahadır | TextBox a Girilen Yazıyı Tersten Yazdırma
Formunuza 1 adet Label, Textbox ve Button ekleyin. Textbox a girilecek text i tersten yazdıracağız. Aşağıdaki şekili inceleyiniz.
Public Class Form1
Dim degistir As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim TerstenYazdirma As String
Dim Say As Integer
baslangic:
degistir = degistir + 1
If Len(TextBox1.Text) = 0 Then
MsgBox("Lütfen Yazı Giriniz...")
degistir = 0
Exit Sub
End If
Select Case degistir
Case 1
For Say = 0 To Len(TextBox1.Text) - 1
TerstenYazdirma = TerstenYazdirma + Mid(TextBox1.Text, Len(TextBox1.Text) - Say, 1)
Next
Label1.Text = TerstenYazdirma
Button1.Text = "Normal Yazdır"
Case 2
Label1.Text = TextBox1.Text
Button1.Text = "Tersten Yazdır"
Case Is > 2
degistir = 0
GoTo baslangic
End Select
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Ters-Düz Yazdırma"
Me.MaximizeBox = False
Me.Width = 180
Me.Height = 144
Me.Left = 300
Me.Top = 180
Label1.Text = "Girilen Yazıyı Tersten Yazdırma"
Button1.Text = "Tersten Yazdır"
Button1.Size = New System.Drawing.Size(150, 30)
TextBox1.Size = New System.Drawing.Size(150, 30)
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır | TextBox a Girilen Rakamı Yazıya Çevirme
Bu örneğimizde TextBox a girilecek olan rakamaların, yazı olarak karşılığını yazdıracağız. Aşağıdaki şekli inceleyin.
Forma yazılacak kodlar:
Imports VB = Microsoft.VisualBasic
Public Class Form1
Private Sub btnCevir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCevir.Click
RichTextBox1.Text = GetSayilar((txtsayi.Text))
End Sub
Private Sub txtsayi_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtsayi.KeyPress
Dim KeyAscii As Short = Asc(e.KeyChar)
KeyAscii = IIf(IsNumeric(Chr(KeyAscii)) Or (InStr(txtsayi.Text, ".") = 0 And KeyAscii = 46) Or KeyAscii = 8, KeyAscii, 0)
If KeyAscii = 0 Then
e.Handled = True
End If
End Sub
Function GetSayilar(ByRef x As String) As String
Dim bir(10) As String
Dim iki(10) As String
Dim Uc(10) As String
Dim Yüz As String
Dim Bin As String
Dim yüzbin As String
Dim Onmilyon As String
Dim Milyar As String
Dim Milyon As String
Dim Trilyon As String
bir(0) = "Sıfır" : bir(1) = "Bir" : bir(2) = "İki" : bir(3) = "Üç" : bir(4) = "Dört" : bir(5) = "Beş" : bir(6) = "Altı" : bir(7) = "Yedi" : bir(8) = "Sekiz" : bir(9) = "Dokuz"
iki(0) = "On" : iki(1) = "Onbir" : iki(2) = "Oniki" : iki(3) = "Onüç" : iki(4) = "Ondört" : iki(5) = "Onbeş" : iki(6) = "Onaltı" : iki(7) = "Onyedi" : iki(8) = "Onsekiz" : iki(9) = "Ondokuz"
Uc(2) = "Yirmi" : Uc(3) = "Otuz" : Uc(4) = "Kırk" : Uc(5) = "Elli" : Uc(6) = "Altmış" : Uc(7) = "Yetmiş" : Uc(8) = "Seksen" : Uc(9) = "Doksan"
Yüz = "Yüz" : Bin = "Bin" : yüzbin = "Yüz Bin" : Onmilyon = "On Milyon" : Milyar = "Milyar"
Milyon = "Milyon" : Trilyon = "Trilyon"
Dim inp, RetVal As String
inp = CStr(Val(x))
Select Case Len(inp)
Case 1
RetVal = bir(CInt(x))
Case 2
If Int(CDbl(VB.Right(inp, 1))) > 0 And CDbl(VB.Left(inp, 1)) > 1 Then RetVal = GetSayilar(CStr(Int(CDbl(VB.Right(inp, 1))))) ‘ 20 den 90 adım 10
If CDbl(VB.Left(inp, 1)) > 1 Then RetVal = Uc(CInt(VB.Left(inp, 1))) & RetVal ‘ 20-99
If CDbl(VB.Left(inp, 1)) = 1 Then RetVal = iki(CInt(VB.Right(inp, 1))) ‘11-19
Case 3
If Int(CDbl(VB.Right(inp, 2))) > 0 Then RetVal = GetSayilar(CStr(Int(CDbl(VB.Right(inp, 2)))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 1)))) & Yüz & RetVal
Case 4
If Int(CDbl(VB.Right(inp, 3))) > 0 Then RetVal = GetSayilar(CStr(Int(CDbl(VB.Right(inp, 3)))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 1)))) & Bin & RetVal
Case 5
If Int(CDbl(VB.Right(inp, 3))) > 0 Then RetVal = GetSayilar(CStr(Int(CDbl(VB.Right(inp, 3)))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 2)))) & Bin & RetVal
Case 6
If CInt(VB.Right(inp, 5)) > 0 Then RetVal = GetSayilar(CStr(CInt(VB.Right(inp, 5))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 1)))) & yüzbin & RetVal
Case 7
If CInt(VB.Right(inp, 5)) > 0 Then RetVal = GetSayilar(CStr(CInt(VB.Right(inp, 5))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 2)))) & yüzbin & RetVal
Case 8
If CInt(VB.Right(inp, 7)) > 0 Then RetVal = GetSayilar(CStr(CInt(VB.Right(inp, 7))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 1)))) & Onmilyon & RetVal
Case 9
If CInt(VB.Right(inp, 7)) > 0 Then RetVal = GetSayilar(CStr(CInt(VB.Right(inp, 7))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 2)))) & Onmilyon & RetVal
Case 10
If CInt(VB.Right(inp, 9)) > 0 Then RetVal = GetSayilar(CStr(CInt(VB.Right(inp, 9))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 1)))) & Milyar & RetVal
Case 11
If CInt(VB.Right(inp, 9)) > 0 Then RetVal = GetSayilar(CStr(CInt(VB.Right(inp, 9))))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 2)))) & Milyar & RetVal
Case 12
If Val(VB.Right(inp, 11)) > 0 Then RetVal = GetSayilar(VB.Right(inp, 11))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 1)))) & Milyon & RetVal
Case 13
If Val(VB.Right(inp, 11)) > 0 Then RetVal = GetSayilar(VB.Right(inp, 11))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 2)))) & Milyon & RetVal
Case 14
If Val(VB.Right(inp, 13)) > 0 Then RetVal = GetSayilar(VB.Right(inp, 13))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 1)))) & Trilyon & RetVal
Case 15
If Val(VB.Right(inp, 13)) > 0 Then RetVal = GetSayilar(VB.Right(inp, 13))
RetVal = GetSayilar(Int(CDbl(VB.Left(inp, 2)))) & Trilyon & RetVal
End Select
GetSayilar = " " & RetVal & " "
GetSayilar = Replace(GetSayilar, " ", " ")
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me
.Text = "Rakam ı Yazıya Çeviren Program"
.MaximizeBox = False
End With
RichTextBox1.ReadOnly = True
End Sub
End Class
‘Faydalı olması dileğiyle. Bir sonraki makalede görüşmek üzere...Bahadirsa | TextBox a Sadece Rakam ve Virgül Girme
TextBox ın KeyPress yordamına aşağıdaki kodları yazacağız. Bu şekilde Textbox a sadece
rakam ve virgül girişini sağlıyacağız. Klavyeden harf girildiği zaman herhangi bir işlem yapmayıp, bizi uyaracak.
Forma yazılacak kodlar:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me
.Text = "Formunuza Sadece Sayı ve Bir Virgül Girme...Bahadirsa"
.MaximizeBox = False
.Size = New System.Drawing.Size(248, 99)
.Location = New Point(250, 190)
End With
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim i As Integer
Dim k As String
Dim j As Char
Dim dizi As String
dizi = "1234567890,"
j = Chr(Asc(e.KeyChar))
k = TextBox1.Text & j
i = InStr(1, k, ",")
If InStr(i + 1, k, ",") > 0 Then
MsgBox("Sadece Bir Virgül İçerebilir")
e.KeyChar = ChrW(0)
TextBox1.Focus()
Exit Sub
End If
If (Val(e.KeyChar) <> 8) Then
If (InStr(dizi, CStr(j)) = 0) Then
e.KeyChar = ChrW(0)
MsgBox("Sadece Rakam ve Bir Virgül Girilebilir...")
Exit Sub
End If
End If
End Sub
End Class
‘ Bir sonraki makalede buluşmak üzere...Bahadirsa | TextBox ta Replace Olayı
Bu örneğimizde TextBox a girilen text te, değiştirilmek istenilen kelimeleri Replace metodu ile değiştirebiliriz. Daha iyi anlamak için asağıdaki Şekil 1 ve Şekil 2 örnek resimlere bakınız ..Bahadirsa
Forma yazılacak kodlar:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me
.Text = "Kelime Değiştirme"
.MaximizeBox = False
End With
TextBox1.Text = "Merhaba Bahadirsa. Hello World."
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text.Replace("Hello World", "Merhaba Dünya")
End Sub
End Class
‘Bir sonraki makalede buluşmak üzere...
Bahadirsa | DataReader ile TextBox a Veri Çekme
Evet arkadaşlar Datareader kullanarak Serverımızdaki sql veritabanımızdan Textbox ımıza veri çekeceğiz. Unutmadan TextBox ımızın MultiLine özelliğini True yapın...Bahadirsa
Aşağıdaki şekildeki gibi formunuzu tasarlayın. Formunuza 1 adet TextBox ve Button ekleyin. |
|