(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.