Skip to main content

AccessTr.neT M.



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

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

#31
Son Düzenleme: 21/12/2010, 12:23, Düzenleyen: saglikci_salih.
"Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long,

lpDevMode As Any) As Boolean" burada hata veriyor hocam kullandığım sistem office Access 2003 ve 2010 ikisindede bu bölümde hata veriyor.modül sayfasında bu bölüm kırmızı ve formu acmaya kalktığımda hata uyarısı alıyorum

saglikci_salih, 28-07-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#32
Son Düzenleme: 21/12/2010, 12:28, Düzenleyen: Hayri16.
Yazımda hata var sayın salih. Sanırım " işaretleri yanlış kullanılmış. Onları ' yapın deneyin. Olmazsa ekran görüntüsünü ekleyin bakalım. Kolay gelsin.
Uzun satır olduğu için bölmede de hata olmuş olabilir. Siz en iyisi hata veren yeri vb kod bölümünü kullanarak buraya kopyalayın.

Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
...........
#33
Son Düzenleme: 21/12/2010, 14:32, Düzenleyen: saglikci_salih.

Visual Basic Code
Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long,

lpDevMode As Any) As Boolean

yanlış olmuş kusura bakmayın baştaki ve sondakini tırnak işaretini ben koydum yanlışlık olmasın diye yanlışlık oldu EnumDisplaySettingsA dakiler orjinal ben yapmadım kod inşallah doğru aktarmışımdır bu sefer tekrar kusura bakmayın.

saglikci_salih, 28-07-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#34
Salih Bey;
Programınızın hata yaptığı anda görünen kod sayfasının hata gösteren bölümünü printscreen yapıp, resim olarak ekleyebilir misiniz?

Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
...........
#35

Visual Basic Code
Private Sub Form_Open(Cancel As Integer)
Dim oGCC As RECT
Metin1.Value = GetSystemMetrics(0)  [color=#FFD700]BU ALAN SİYAHLAŞIYOR Bİ TÜRLÜ ÇÖZEMEDİM[/color]
Metin3.Value = GetSystemMetrics(1)
    Dim pir
    GetClipCursor oGCC
    With oGCC
    pir = .droit & " x " & .bas
    If pir <> "1280 x 800" Then
    Call ChangeTo1280_800
     End If
     End With
End Sub

Cevapla
#36
Son Düzenleme: 26/03/2011, 11:46, Düzenleyen: osman06.
yukardaki sorunu çözdüm
aşağıdaki konuda yardım

burda şöyle bişey olablirmi minimize ettiğimde eski yani bilgisarın orjinaline dönsün tekrar açtığımda ise programın çözünürliğüe dönsün böyle bişey olurmu ben bi buton ekleyerek yapmaya çalıştım ama olmadı yardım rica ediyorum tşk

Cevapla
...........

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

Yorum yapmak için üye olmanız gerekiyor

ya da