Makale Serisi: Ofis Yardımcısını Kullanma

Vb.NET de yapılacak olan bu örneği Volkan AKTAŞ hocam Hazırladı.

Makalenin Orjinalini ve daha Fazlasını GCN.NET Adresinden Ulaşabilirsiniz..

_________________________

Örneğimizde programlarımızda msagent nesnesi ile ofis yardımcılarını kullanacağız. Bir Windows Application açıp ToolBox’ta sağ tıklayıp Choose Items seçeneğini tıklayalım. COM komponentlerinden Microsoft Agent Control komponentini ekleyelim.

1.Şekil: Microsoft Agent Control komponentinin eklenmesi

Biz örneğimizde genie isimli ofis yardımcısını kullandık bu ve daha fazla ofis yardımcısını http://www.microsoft.com/msagent/downloads/user.asp#character adresinden seçerek indirebilirsiniz.

Daha sonra form üzerine bir text kutusu bir tane de komut butonu ekleyelim.

2.Şekil: Tasarım formu

ToolBox’ımıza Microsoft Agent Control komponenti eklenecektir. Sürükleyip formumuzun üzerine bırakalım. Yukarıdaki şekilde görülen şapkalı adam resmi Agent kontrolümüzdür.

Daha sonra kodumuzu aşağıdaki gibi yazalım;

Public Class Form1

Dim Genie As AgentObjects.IAgentCtlCharacter

Const DATAPATH = “genie.acs”

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Genie.Show()

Genie.Speak(TextBox1.Text)

Genie.Hide()

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

AxAgent1.Characters.Load(“Genie”, DATAPATH)

Genie = AxAgent1.Characters(“Genie”)

Genie.LanguageID = &H409

TextBox1.Text = “Hello World!”

End Sub

End Class

Bu ve diğer karakterlerle ilgili kullanabileceğiniz diğer animasyon ve işlemler için

http://download.microsoft.com/download/2/1/8/2183fc41-9313-4624-9e9e-25d26d0f7e19/docs.zip linkindeki yardım dosyasını kullanabilirsiniz.

Kaynak:MSDN

Bu Yazıyı Paylaşın

Makale Serisi: Excel Hücresine Değer Yazdırma

Vb.NET de yapılacak olan bu örneği Volkan AKTAŞ hocam Hazırladı.

Makalenin Orjinalini ve daha Fazlasını GCN.NET Adresinden Ulaşabilirsiniz..

____________________________

Form üzerine bir adet komut butonu ekleyelim. Kod olarak da şunları yazalım:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim xl

xl = CreateObject(“Excel.Application”) ‘Excel nesnesi oluşturuyoruz

xl.Workbooks.add() ‘Yeni bir çalışma kitabı ekliyoruz

xl.application.visible = True ‘Excel sayfasını görüntülüyoruz

xl.worksheets(1).Activate() ‘1 nolu çalışma sayfasını aktif ediyoruz

xl.cells(1, 1).value = “Deneme” ‘A1 hücresine değerimizi yazıyoruz

End Sub

End Class

Programımızı çalıştırdığımızda A1 hücresine Deneme yazıldığını görürüz.

xl.cells(1, 1) ifadesinde ilk değer satırı, ikinci değer ise sütunu belirtmektedir.

Bu Yazıyı Paylaşın

Makale Serisi: Excel Hücresine Değer Aktarma ve Biçimlendirme

Vb.NET de yapılacak olan bu örneği Volkan AKTAŞ hocam Hazırladı.

Makalenin Orjinalini ve daha Fazlasını GCN.NET Adresinden Ulaşabilirsiniz..

_______________________

Form üzerine bir adet komut butonu ekliyoruz ve kod olarak da şu satırları ekliyoruz:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim xl

‘Excell nesnesi oluşturuyoruz

xl = CreateObject(“Excel.Application”)

‘Yeni bir çalışma kitabı ekliyoruz

xl.Workbooks.add()

‘Excel sayfasını görüntülüyoruz

xl.application.visible = True

‘1 nolu çalışma sayfasını aktif ediyoruz

xl.worksheets(1).Activate()

‘A1 hücresine değerimizi yazıyoruz

xl.cells(1, 1).value = “Deneme1″

‘A1 hücresindeki yazının yazı tipini Verdana olarak değiştirdik

xl.cells(1, 1).Font.Name = “Verdana”

‘A1 hücresindeki yazının yazı boyutunu 8 olarak değiştiiyoruz

xl.cells(1, 1).Font.Size = 8

‘A1 hücresindeki yazının yazı rengini yeşil olarak değiştiriyoruz

xl.cells(1, 1).Font.color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Green)

‘B1 hücresine değerimizi yazıyoruz

xl.cells(1, 2).value = “Deneme2″

‘C1 hücresine değerimizi yazıyoruz

xl.cells(1, 3).value = “Deneme3″

‘B1 hücresindeki yazıyı kalın yaptık

xl.cells(1, 2).font.bold = True

‘B1 hücresinin zemin rengini kırmızı yaptık

xl.cells(1, 2).Interior.ColorIndex = 3

‘C1 hücresinin zemin rengini mavi yaptık

xl.cells(1, 3).Interior.Color = RGB(0, 0, 255)

End Sub

End Class

Örneğimizde xl.cells(1, 1).Font.color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Green)

Satırı ile hücre içerisine yazılan yazının rengini değiştirebiliriz.

xl.cells(1, 2).Interior.ColorIndex = 3 satırında geçen Interior.ColorIndex ifadesi ile ise hücrenin zemin rengini değiştiriyoruz. Bunu ister o renge karşılık gelen rakam ile istersek RGB değerleri ile yapabiliriz.

Rakam ile xl.cells(1, 2).Interior.ColorIndex = 3 şeklinde yaparken RGB değerleri ile xl.cells(1, 3).Interior.Color = RGB(0, 0, 255) şeklinde yapabiliriz.

Bu Yazıyı Paylaşın

S.a arkadaşlar Yeni bir oluşum yeni bir proje ile bulunduğumuz noktadan bir adım daha ileri gittiğimizi düşünüyoruz.

Yeni oluşumda .NET ve Java, C++, Python, Ajax, JavaScript gibi dillerle ilgili Makaleler Bulabileceksiniz. Çok yeni bir oluşum şimdilik pek fazla bişe diyemiyorum ALLAH utandırmasın. .NET ile Gelecek Çok NET

Selametle..

Bu Yazıyı Paylaşın

Teşekkürler CW

Aşağıdaki tabloda VS 2005 ve VS 2008 arasındaki performans karşılaştırması görülmekte :

Bu uygulama içinde database projesi, web uygulaması, DLL, EXE vs. dahil 33 proje ve yaklaşık 1600 adet test bulunmaktadır.

Test Sitesi Linki

Bu Yazıyı Paylaşın