+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Ekran Çözünürlüğü Ayarlama (/konu-ekran-cozunurlugu-ayarlama.html)
RE: Ekran Çözünürlüğü Ayarlama - accessman - 12/04/2020
Teşekkürler
RE: Ekran Çözünürlüğü Ayarlama - Beytor - 17/05/2023
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.
RE: Ekran Çözünürlüğü Ayarlama - ates2014 - 18/05/2023
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.?
Re: Ekran Çözünürlüğü Ayarlama - mehmetdemiral - 19/05/2023
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.
RE: Ekran Çözünürlüğü Ayarlama - ates2014 - 22/05/2023
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. ;)
RE: Ekran Çözünürlüğü Ayarlama - ates2014 - 24/05/2023
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