Teşekkürler

Merhabalar,

2008 konusunu canlandırmış gibi olacağım fakat sanırım 64bit sistemlere uygun düzenlenmemiş.

Düzenlemeyi yaptım. Herkese iyi çalışmalar dilerim. 

AŞAĞIDA Kİ RAR DAN 64BİT UYGUN MODÜLE ULAŞABİLİRSİNİZ.

Hani eski çözünürlüğüne geri dönecekti, maalesef geri eski çözünürlüğüne geri dönmüyor, nasıl bir ekleme yapmak lazım.
2. konu, 1024x765 olunca kenarlarda siyah boşluklar kalıyor, tam ekran olmuyor, onun hakkında ne yapılabilir.?

Sayın üyemiz Beytor eski 32bit kodlarını 64 bit olarak düzenlemiş. Çoktaan unuttuğum bu çalışmanın yeni halini denedim. Gayet güzel çalışıyor. Kapandığında da başlangıç çözünürlüğüne dönüyor. Sizde farklı mı çalışıyor? 2. sorununuz zaten sorun değil. Wide ekranlı bir monitörde 1024*768 çözünürlük demek kenarlarda boşluk olması demektir. Eski tip kare monitör veya ekranlarda kullanılabilir. Yeni nesil ekranlarda kenarlar boş kalacak zaten.

s.a. hocam çok teşekkür ederim kenarlarında ekrana göre genişlese çok güzel olacaktı, böyle sanki eksik prg gibi oluyor. ;)

S.a kodu kendi çalışmama eklemek istedim, ana sayfadaki metin1 ve metin3 ü iptal etmek modülenin içine değişkenle uygulamak istedim maalesef yapamadım,
lütfen bir bakabilirmisiniz?
kodu aşağıdaki gibi yaptim ve bir çok denemem oldu maalesef olmadı.

Sub cozunurluk()

Dim a As Single

Dim e As Single

a = GetSystemMetrics(0)

e = GetSystemMetrics(1)

Call ChangeScreenResolution(GetSystemMetrics(0), GetSystemMetrics(1))

'Call ChangeScreenResolution(Forms!Form1!Metin1.Value, Forms!Form1!Metin3.Value)



End Sub