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


kadirdursun

Kullanici Avatari
Özel Üye
K.... D....
1.228
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
01/12/2016,16:48
Çözüldü 
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!!!


http://www.isciler-iski.com
http://www.universiteliisciler.com

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


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çö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ı: 71)
.zip   Form_hep_aynı_yerde_Kur@l.zip (Dosya Boyutu: 254,79 KB / İndirme Sayısı: 91)
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
Dün,21:30
Çö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ü 
ç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
  Tek Formu Diğer formlarda kullanma raburabu 6 165 27/11/2016, 23:21 raburabu
Çözüldü Hizmet Formu Hata İbaresi Hakkında Serkan Çevik 7 230 01/11/2016, 21:52 Serkan Çevik
  Fiyat Teklifi Alma Formu mmert06 10 250 27/10/2016, 02:01 atoz112
  Kritere göre açılış formu belirleme Yunus Bozkurt 4 227 09/09/2016, 00:47 Yunus Bozkurt
  access Formu Tam ekran yapma yardım Onur Akgül 10 413 06/08/2016, 20:39 atoz112


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