| Article |
|---|
GridView da Sorgulamaya Göre Satir Arka Plan ve Yazi Rengini Degistirmek
Merhaba arkadaslar bu makalemizde GridView nesnesinin OnRowDataBound özelligine yazilan kodla; Fiyat sütunumuzunda ki fiyat deger araligina göre sorgulama yapacagiz. Sonrasinda sorgulama kriterine göre Yazar sütunundaki satirlarin arka plan rengini ve yazi rengini degistirecegiz. |
DataGridView Nesnesini Yazdırma
Merhaba arkadaşlar. Bu makalede DataGridView nesnesindeki bilgileri yazdıracağız.
|
CheckBoxList Listesindeki Seçili Olanları Ekrana Yazdırmak
Merhaba arkadaşlar. Bu makalemizde CheckBoxList listesindeki bilgilerin dropdown şeklinde göstermini sağlayacağız. Aşağı doğru açılır popup pencerede seçili checkbox taki personel isimlerini yazdıracağız. |
PictureBoxtaki Resim Siyah Beyaz Yapmak
Merhaba arkadaşlar bu makalemizde PictureBox taki resimin RGB renklerini değiştirerek soldurup siyah beyaz yapacağız. |
Konsolda Renkli Yazdırma
Merhaba arkadaşlar. Bu makalemizde konsoldaki yazıları farklı renklerde yazdıracağız. Projectinize using System.Runtime.InteropServices; class ını ekleyin. |
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. |
Resim Üzerine Yazı Yazmak
Bu makalemizde FileUpload ile resimler klasörüne yükleyeceğimiz resimin üzerine dikey olarak yazı yazacağız... |
Session Okuma ve Yazma İşlemleri
Merhaba arkadaşlar. Yeni bir makalede yine birlikteyiz. Bu makalemizde Session konusunu inceleyeceğiz. Session a ilk önce yazıp, yine daha sonra session nesnesinden okuyacağız. |
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. |
TreeView daki Node ları Text Dosyaya Yazdırma
TreeView nesnesinde oluşturduğumuz Node ları, child nodes ları metin dosyasına kaydedeceğiz. Formunuza 1adet TreeView ve Button ekleyin.
Imports System.IO
Public Class Form1
Dim baslik As New Windows.Forms.TreeNode("Bahadır ŞAHİN", 0, 0) |
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
|
Sayıları Yazıya Çevirmek
Bu makalede TextBox a girilen sayıları yazı ya çevireceğiz. Formunuza 1 adet TextBox ve Button ekleyin.
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 WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
string[,] ifade = new string[2,9];
ifade[0, 0] = "bir";
ifade[0, 1] = "iki";
ifade[0, 2] = "üç";
ifade[0, 3] = "dört";
ifade[0, 4] = "beş";
ifade[0, 5] = "altı";
ifade[0, 6] = "yedi";
ifade[0, 7] = "sekiz";
ifade[0, 8] = "dokuz";
ifade[1, 0] = "on";
ifade[1, 1] = "yirmi";
ifade[1, 2] = "otuz";
ifade[1, 3] = "kırk";
ifade[1, 4] = "elli";
ifade[1, 5] = "altmış";
ifade[1, 6] = "yetmiş";
ifade[1, 7] = "seksen";
ifade[1, 8] = "doksan";
string s = textBox1.Text;
string yazıyla="";
for (int i = 0; i < s.Length; i++)
{
if (i==s.Length-2 || i==s.Length-5 || i==s.Length-8 )
{
int deger =Convert.ToInt32(s[i].ToString());
yazıyla+=ifade[1,deger-1];
continue;
}
if (((i==s.Length-3) &&(s[i]==’1’)) ||((i==s.Length-6) &&(s[i]==’1’)) ||((i==s.Length-9) &&(s[i]==’1’)))
{
yazıyla+="yüz";
continue;
}
if ((i == s.Length - 4) && (s[i] == ’1’))
{
yazıyla+="bin";
continue;
}
if ((i==s.Length-1)&& (s[i]==’0’))
{
if (s.Length == 1)
{
yazıyla = "sıfır";
}
else continue;
}
byte d = Convert.ToByte(s[i].ToString());
yazıyla += ifade[0, d - 1];
if (i == s.Length - 3 || i == s.Length - 6 ||i ==s.Length - 9)
{
yazıyla += "yüz";
}
if (i == s.Length - 4)
{yazıyla += "bin";}
if (i == s.Length - 7)
{yazıyla += "milyon";}
}
MessageBox.Show(yazıyla);
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
|
Label de Kayan Yazı
Bu örneğimizde Label de kayan yazıya bakacağız. Formunuza 1 adet Label ve Timer
nesnesi 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)
{
timer1.Start();
label1.Text = "Bahadır ŞAHİN ";
}
private void timer1_Tick(object sender, EventArgs e)
{
label1.Text = label1.Text.Substring(1) + label1.Text[0].ToString();
}
}
}
//Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN |
Label de Yazı Kaydırma
Labelin içerisinde yazdığımız stringi kaydıracağız. Formunuza 1 adet Label ve Timer 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)
{
timer1.Start();
label1.Text = "Bahadır ŞAHİN";
}
private void timer1_Tick(object sender, EventArgs e)
{
label1.Text = label1.Text.Substring(1) + label1.Text[0].ToString();
}
}
}
//Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
|
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 |
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];
}
}
}
|
Döküman Yazdırma
Bu örneğimizde richTextBox ımızdaki stringi yazdıracağız. Formunuza 1 adet printDocument,r,chTextBox 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 printDocument1_PrintPage(object sender, System.Drawing.Printing.PrintPageEventArgs e)
{
e.Graphics.DrawString(richTextBox1.Text, new Font("Times New Roman", 12, FontStyle.Regular), Brushes.Black, 100, 100);
}
private void Form1_Load(object sender, EventArgs e)
{
this.Text = "Döküman Yazdırma";
this.MaximizeBox = false;
}
private void button1_Click(object sender, EventArgs e)
{
printDocument1.Print();
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır |
WebBrowser da Kayan Yazı
Bu örnekte webbrowser nesnesinde Navigate girilen yazıyı kaydıracağız.
Aşağıdaki şekilleri inceleyin.
Public Class Form1
Private Sub btnBaslat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaslat.Click
baslat()
End Sub
Sub baslat()
WebBrowser1.Navigate("about:< body scroll=’no’ >< body bgcolor=white >< marquee scrolldelay=’120’ direction=’Left’style=’font-size: 20pt; font-family: Verdana; color:orangered; font-weight: bold() ’> Merhaba Dünya. Bahadır ŞAHİN< / marquee >")
End Sub
Private Sub btnDurdur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDurdur.Click
WebBrowser1.Navigate("about:")
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 |
Memory Stream ile Yazma ve Okuma
Bu örnekte memory stream metodu ile yazmayı ve yazdığımızı okutmayı göreceğiz.
İlk önce File New Projec Console Application açın.
Aşağıdaki şekli inceleyin.
Imports System
Imports System.IO
Imports System.Text
Module Module1
Sub Main()
Dim mstream As New MemoryStream()
Dim binaryyaz As New BinaryWriter(mstream)
binaryyaz.Write("www.bahadirsam.somee.com")
Dim binaryoku As New BinaryReader(mstream)
mstream.Seek(0, SeekOrigin.Begin)
Console.WriteLine(binaryoku.ReadString())
binaryoku.Close()
End Sub
End Module
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
|
Ascii Kodlarını Yazdırmak
Ascii kodlarını textbox a yazdıracağız. Formunuza 1 adet textbox ekleyin. Aşağıdaki şekli inceleyin.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim x, y As String
Dim i As Integer
TextBox1.Clear()
TextBox1.Font = New System.Drawing.Font("Courier New", 12, FontStyle.Regular)
For i = 32 To 255
x = i.ToString
y = Chr(i)
TextBox1.Text = TextBox1.Text & "chr(" & x & ")=" & y & Space(5)
If (i - 31) Mod 7 = 0 Then
i = i + 1
End If
Next i
End Sub
End Class
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN |
Label de Kayan Yazı
Imports vb = Microsoft.VisualBasic i formunuza ekleyin. Bu örnekte Labeldeki yazıyı kaydıracağız. Formunuza Timer nesnesi ekleyin.
Imports vb = Microsoft.VisualBasic
Public Class Form1
Dim ilkharf, yazi
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 250
Label1.Text = " Bahadır ŞAHİN "
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ilkharf = vb.Left(Label1.Text, 1)
yazi = vb.Right(Label1.Text, Len(Label1.Text) - 1)
Label1.Text = yazi + ilkharf
End Sub
End Class
‘Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN |
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 |
Form Başlığında Kayan Yazı
Bu örneğimizde formumuzun başlığı kaydıracağız.
İlk önce yapmamız< gereken formumujza 1 adet Timer eklemek. Timer ın interval değerini 100 yapın.
Timer_Tick olayına aşağıdaki kodları yazın.
Forma yazılacak kodlar:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Kayan Yazı Örnek...Bahadirsa "
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
Dim str As String
Dim i As Integer
str = ""
For i = 1 To Me.Text.Length - 1
str = str + Me.Text(i)
Next
Me.Text = str + Me.Text(0)
End Sub
End Class
‘Bir sonraki makalede görüşmek üzere...Bahadirsa
|