ekranda formu yerleştirmek
Tarih
22/04/2011 11:05
Konu Sahibi
accessman
Yorumlar
9
Okunma
3092
Konuyu Oyla:
  • Derecelendirme: 3/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 3/5 - 1 oy
accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
iyi günler
örnek eklemiyorum
çünkü içinde boş bir form olan boş bir program kalabalık etmesin
yapmak istediğim
form her zaman ekranın sağ üst köşesine dayalı olsun
ekran kaç inç olursa olsun
çözünürlük ne olursa olsun
form herzaman sağa dayalı olacak
form open olayına
form1.left=ekran eni - form1.width
olmalı
ekran eni olan kısma ne yazamlıyız
teşekkürler
@benbendedeilem
Cevapla

accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
Sponsor Reklam
hayırlı cumalar arkadaşlar bir bilen yok mu acaba
@benbendedeilem
Cevapla

kadirdursun

Kullanici Avatari
Aktif Üye (Özel)
K.... D....
1.278
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
14/05/2017,21:54
Çözüldü 
https://www.accesstr.net/konu-ekran-cozu...crl%c3%bck

konusundaki kodlar işinize yara sanıyorum

SQL Code
1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
Dim oGCC As RECT
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

SQL Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
[sql]Option Compare Database
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Declare Function GetClipCursor Lib "user32" (lprc As RECT) As Long
Type RECT
    gauche As Long
    haut As Long
    droit As Long
    bas As Long
End Type


Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long

Const CCDEVICENAME = 32
Const CCFORMNAME = 32
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000

Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Dim DevM As DEVMODE

Private Sub ChangeScreenResolution(iWidth As Single, iHeight As Single)
Dim a As Boolean
Dim i&
Dim b&
i = 0
Do
a = EnumDisplaySettings(0&, i&, DevM)
i = i + 1
Loop Until (a = False)
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = iWidth
DevM.dmPelsHeight = iHeight
b = ChangeDisplaySettings(DevM, 0)
End Sub

Sub ChangeTo1024_768()
Call ChangeScreenResolution(1024, 768)
End Sub
Sub cozunurluk()
Call ChangeScreenResolution(Forms!Form1!Metin1.Value, Forms!Form1!Metin3.Value)
End Sub


Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla

Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
Bugün,00:25
Çözüldü 
Sponsor Reklam
Sayın Accessman;
Ekteki örnekte ekran çözünürlüğü ne olursa olsun ekranın en sağında açılan form örneği vardır.
Sabahın bu saatine kadar uğraştırdı.
Güle Güle Kullanın.
Güzel ve Faydalı Bir Örnek Oldu.
Kolay Gelsin.


Ek Dosyalar
.7z   Form_hep_aynı_yerde_Kur@l.7z (Dosya Boyutu: 56,73 KB / İndirme Sayısı: 76)
.zip   Form_hep_aynı_yerde_Kur@l.zip (Dosya Boyutu: 254,79 KB / İndirme Sayısı: 95)
Cevapla

benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.433
17/05/2009
365
Ankara
Ofis 2010
Dün,18:55
Çözüldü 
Kural hocam eline sağlık gerçekten güzel bir çalışma olmuş.+rep

Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
Sponsor Reklam
çok teşekkürle ellerinize sağlık gerçekten çok güzel olmuş
@benbendedeilem
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Tabloda Kayıt Yoksa Formu Açma barcins 3 115 16/05/2017, 11:20 barcins
  Macro İle Mail Gönderirken Ekranda Mesaj Çıkıyor. Mail Göndermiyor. burhanb 15 249 24/04/2017, 08:30 burhanb
Çözüldü Hatırlatma Tarihi Yapıldı işaretlenene kadar Ekranda Kalsın suleymanteber 8 1.774 31/01/2017, 13:07 atoz112
  Formu kapatmadan bilginin güncellenmesi ertans 7 336 28/12/2016, 09:01 ertans
  formu ekranda hareket ettirme murat dikme 5 283 24/12/2016, 20:26 ozanakkaya


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status