AccessTr.neT

Güzel ama birde ekran tazeleme hızını eski haline çevirebilse daha güzel olacak.Eski haline döndüğünde 60 Hertz oluyor.Oysa 75 Hertz LCD ler için daha ideal

(24/11/2009, 15:41)youngman34 yazdı: [ -> ]Bu uygulama ile ilgili biraz bilgi verebilirmisiniz acaba.Burada verilen örnek bizim uygulamamıza mı adapte edilecek yoksa uygulamamızdan ayrıca mı çalıştırılacak.Benim evde laptopda hazıladığım form 15 inç monitörde hazırlanmış bir örnek fakat ben bunu başka bi pc de 17 inç bir ekranda açmaya çalıştığımda dediğiniz gibi formumdaki bazı öğeler sağa sola kayıyor yada görsellik bi şekilde bozuluyor.Benim bu uygulamadan faydalanmam için ne yapmam gerekir.İyi çalışmalar.Yardımlarınız rica edeceğim.

Uygulamadaki Form1'de bulunan kodları kendi çalışmanızın ilk açılan formuna ekleyeceksiniz. Yine Form1'deki kapat butonundaki kodu uygulamanızın çıkış formuna ekleyeceksiniz.
15" te yaptığınız uygulamayı 17" te açtığınızda sorun olmaması gerekli. Önce uygulamanızdaki formların Otomatik Ortala özelliğini Evet olarak değiştirip deneyin.

(24/11/2009, 23:18)makcavus yazdı: [ -> ]Güzel ama birde ekran tazeleme hızını eski haline çevirebilse daha güzel olacak.Eski haline döndüğünde 60 Hertz oluyor.Oysa 75 Hertz LCD ler için daha ideal

1. mesajda belirttiğim gibi uygulama excel'de farklı bir amaç için yapılmış, ben kodları olduğu gibi alıp accesse uyarladım. Eski haline döndüğünde değişiklik yapıyor olabilir.

inç ile olan alakası ile, çözünürlük ile olan alakası da göz önüne alınmalı. 1024 çözünürlük baz alınarak yazılmalı.

Teşekkürler Sn.sledgeab ve diğer arkadaşlar öncelikle formlarımda otomatik ortala özelliğini kontrol ederek deneyeceğim.İyi çalışmalar herkeze.

Olayı kendimce çözdüm .Ekran Tazeleme Hızı artık eski çözünürlülüğüne dönünce 60 Hertz de kalmıyor,75 Hertz e geri dönüyor.

Sn.sledgeab
Hocam aşağıdaki satırda hata alıyorum yardımcı olabilirmisiniz bu konuda?

Private Sub Form_Open(Cancel As Integer)

Dim oGCC As RECT (BU SATIRDA HATA ALIYORUM FORM AÇILIRKEN)

Metin1.Value = GetSystemMetrics(0)

Metin3.Value = GetSystemMetrics(1)

    Dim pir

    GetClipCursor oGCC

    With oGCC

    pir = .droit & " x " & .bas

    If pir <> "1024 x 768" Then

    Call ChangeTo1024_768

     End If

     End With

End Sub

Ayrıca formu hazırladığım ekran çözünürlüğü 1280X800 bununla alakası olabilir mi?