(19/11/2018, 12:28)ozanakkaya yazdı: [ -> ] (19/11/2018, 11:56)alimadam yazdı: [ -> ]Şuan için işyeri dışında olduğumdan deneme şansım yok.Merak ettğim ve deneyeceğim ilk şey,konudaki uygulamanın içindeki modulde bulunan 1024x768 yazan yerleri 800x600 yaptığımda, 800x600 çözünürlüğünw sahip pc.de çalışacak mı? Yoksa bunun için moduldeki koda ekleme mi yapmak lazım?
Formun açıldığı bilgisayarın çözünürlüğü 800x600 ise çözünürlük 1024X768'e çevrilir.
Kodun amacı 1024X768 olmayanları 1024X768'e çevirmek
If pir <> "1024 x 768" Then
Call ChangeTo1024_768
End If
Peki kullanmayı düşündüğümüz bilgisayarın desteklediği maximum çözünürlük 800x600 ise
bu durumda,1930x1080 ile yapılan uygulama 800x600 için düzgün çalışması için kodda ne yapmak lazım?
Modüldeki
Sub ChangeTo1024_768()
Call ChangeScreenResolution(1024, 768)
End Sub
kodunun altına
Sub ChangeTo800_600()
Call ChangeScreenResolution(800, 600)
End Sub
kodu ekle. modülü kaydet.
formun açıldığında olayındaki kodu da
Dim oGCC As RECT
Metin1.Value = GetSystemMetrics(0)
Metin3.Value = GetSystemMetrics(1)
Dim pir
GetClipCursor oGCC
With oGCC
pir = .droit & " x " & .bas
If pir <> "800 x 600" Then
Call ChangeTo800_600
End If
End With
kodu ile değiştir. Uygulamayı 800 X 600 ile açarsan hiçbirşey göremezsin.
(19/11/2018, 13:32)ozanakkaya yazdı: [ -> ]kodu ile değiştir. Uygulamayı 800 X 600 ile açarsan hiçbirşey göremezsin.
1930X1080 Çözünürlükte hazırlanmış uygulama için dediklerinizi yapınca, "Uygulamayı 800 X 600 ile açarsan hiçbirşey göremezsin" demişsiniz,yani program çalışmayacaksa-bir şey gözük-me-yecekse bundan şunu mu anlamak lazım?Yüksek çözünürlükte hazırlanan program düşük çözünürlükte çalışmaz,doğu mudur?
Ya da uygulamayı 800 X 600 ile açarsan hiçbirşey göremezsin demekle neyi ifade ettiniz?
Kısaca şöyle izah edeyim, formun Ekrana Sığdır özelliğini Evet olarak değiştirerek denemeniz lazım. bu şekilde de form ekranın dışına taşıyor ise yapacak birşey yok. Genişliği 30cm olarak belirlenen formun 800X600 çözünürlükte tamamının görünmesini beklemeyin.
Bilgiler için teşekkür ediyorum,işyerine geçer geçmez deneyip,sonucu burada paylaşırım.