ekranda formu yerleştirmek
Tarih
22/04/2011 11:05
Konu Sahibi
accessman
Yorumlar
9
Okunma
2927
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ü 
Sponsor Reklam
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ü 
hayırlı cumalar arkadaşlar bir bilen yok mu acaba
@benbendedeilem
Cevapla

kadirdursun

Kullanici Avatari
Özel Üye
K.... D....
1.272
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
19/01/2017,18:17
Çözüldü 
Sponsor Reklam
http://www.accesstr.net/konu-ekran-cozun...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.030
05/11/2008
KONYA
Ofis 2010
Dün,20:07
Çözüldü 
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ı: 73)
.zip   Form_hep_aynı_yerde_Kur@l.zip (Dosya Boyutu: 254,79 KB / İndirme Sayısı: 93)
Cevapla

benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
Bugün,08:34
Çözüldü 
Sponsor Reklam
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ü 
ç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
  Formu kapatmadan bilginin güncellenmesi ertans 7 195 28/12/2016, 09:01 ertans
  formu ekranda hareket ettirme murat dikme 5 162 24/12/2016, 20:26 ozanakkaya
  Formu Yazdırma Hk. Serkan Çevik 7 223 12/12/2016, 00:03 Serkan Çevik
  Tek Formu Diğer formlarda kullanma raburabu 6 270 27/11/2016, 23:21 raburabu
Çözüldü Hizmet Formu Hata İbaresi Hakkında Serkan Çevik 7 323 01/11/2016, 21:52 Serkan Çevik


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