Skip to main content

AccessTr.neT


Ekran Çözünürlüğü Ayarlama

Ekran Çözünürlüğü Ayarlama

#37
Teşekkürler
@benbendedeilem
Cevapla
#38
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.
.rar ekran_cozunurlugu_x64.rar (Dosya Boyutu: 42,5 KB | İndirme Sayısı: 13)
Cevapla
#39
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.?
Cevapla
#40
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.
İnadına, ille de Accesstr.net...
Cevapla
#41
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. ;)
Son Düzenleme: 22/05/2023, 09:26, Düzenleyen: ates2014. (Sebep: yanlış deneme)
Cevapla
#42
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task