Makale COM Erişimine Açık Olan MS Framework Sınıflarının Kullanım Örnekleri

Katılım
7 Haz 2018
Mesajlar
35
En İyi Yanıtlar
8
Beğeniler
36
Puanları
18
Konum
Sakarya-Hendek
#1
Ekli örnek dosyada Framework sınıflarının Excel' de kullanımıyla ilgili örnekleri bulabilirsiniz.

Vb.NET' deki bazı veri tiplerinin VBA' deki karşılığı aşağıdaki gibidir:
Object => Variant,
Integer => Long,
Long => LongLong

VBA' de aynı isimde iki metot yazılamazken, Vb.NET' te parametresi veya dönüş veri tipi farklı olması şartıyla bir metot aynı isimde birden fazla bulunabilir. Buna Overload denmektedir. Bu nedenle, bazı metotlar index numarası ile kullanılır. Örneğin, object.Write_5("metin") gibi.

Ekli dosyanın içeriği ise;

- System.Collections
--- ArrayList
--- Hashtable
--- Queue
--- SortedList
--- Stack

- System.Globalization
--- DateTimeFormatInfo
--- GregorianCalendar
--- HijriCalendar

- System.IO
--- MemoryStream
--- StringWriter

- System
--- Random

- System.Runtime.Serialization
--- FormatterConverter

- System.Security.Cryptography
--- FromBase64Transform
--- MD5CryptoServiceProvider
--- SHA1Managed
--- SHA256Managed
--- SHA384Managed
--- SHA512Managed
--- ToBase64Transform

- System.Text
--- ASCIIEncoding
--- StringBuilder
--- UnicodeEncoding
--- UTF7Encoding
--- UTF8Encoding

system-framework-min.png
 

Ekli dosyalar

Moderatör tarafında düzenlendi:

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,002
En İyi Yanıtlar
72
Beğeniler
774
Puanları
113
Konum
İstanbul
#2
Ellerinize, zihninize sağlık Zeki Bey, çok kıymetli bilgiler. (y)
Uygun bir zamanda System.Collections nesneleri ile ilgili bir makale yayınlamayı düşünüyordum siz buna gerek bırakmamışsınız, kodlarda açıklamalarını da paylaşmışsınız. Bazı nesnelerdeki eksik olan veya daha net anlaşılmasını sağlayan örnekleri arşivimden buraya ekleyeceğim.
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,002
En İyi Yanıtlar
72
Beğeniler
774
Puanları
113
Konum
İstanbul
#3
Stack sınıfının Push metodunu kullanarak, içerisine aldığı her bir elemanı hücrelere aktarırken ters çevirerek, yani; 1-2-3-4-5 sayılarını hücreye 5-4-3-2-1 şeklinde dökebilirsiniz. İçerisine aldığı elemanları ters sıralama yaparak son eklenen veriyi en başta gösterir.
Bu örnekte A1:A5 hücre aralığına 1'de 5 'e kadar bir sıra numarası verin ve kodu çalıştırın, göreceğiniz üzere 5-4-3-2-1 şeklinde B1'den itibaren listelenecektir.
VBA:
Sub Ornek1()
    Dim Stack As Object, i&
    Set Stack = CreateObject("System.Collections.Stack")
    For i = 1 To Range("A65536").End(3).Row
        Stack.Push Cells(i, 1).Value
    Next i
    Range("B1").Resize(Stack.Count, 1).Value = Application.Transpose(Stack.Toarray)
    Stack.Clear
    Set Stack = Nothing: i = Empty
End Sub
Aynı şekilde bir metnin her bir karakterini de alıp metni ters çevirerek hücrelere aktarabilirsiniz.
O işlemi bu kodlarla yapabilirsiniz..
VBA:
Sub Ornek2()
    Dim Stack As Object, i&
    Set Stack = CreateObject("System.Collections.Stack")
    For i = 1 To Len([D1])
        Stack.Push Mid([D1], i, 1)
    Next i
    Range("F1").Resize(, Stack.Count).Value = Stack.Toarray
    Stack.Clear
    Set Stack = Nothing: i = Empty
End Sub
Örnek dosyayı da ekliyorum..
 

Ekli dosyalar

Üst Alt