buat form, dan set sizenya sesuai keinginan. pasang property pop up di yes.
buat fungsi tiruan di modul general agar bisa dipanggil di event setiap form yang diinginkan:
terakhir,coba pasang fungsi itu di sembarang event pada form. kali ini saya coba di got focus:
dan form ini selalu ada di kanan atas:
nah coba sekarang explore, supaya dia tetap ada di kanan atas teruuuuuus .... :)
aksan kurdin
On 1/3/2013 4:56 PM, him mah wrote:
kalau yang seperti ini cara pakainya gimana ya
diambil dari http://access.mvps.org/access/forms/frm0042.htm
1. To align the tops of two forms (at the position of the topmost form):
'********** Code Start ************
Public Sub AlignTops(ByRef frmA As Form, ByRef frmB As Form)
Dim fwA As New clFormWindow, fwB As New clFormWindow
fwA.hwnd = frmA.hwnd
fwB.hwnd = frmB.hwnd
If fwA.Top < fwB.Top Then
fwB.Top = fwA.Top
Else
fwA.Top = fwB.Top
End If
Set fwA = Nothing
Set fwB = Nothing
End Sub
'********** Code End ************
2. To move a form to the top right corner of the Access window:
'********** Code Start ************
Public Sub MoveToTopRight(ByVal strFormName As String)
Dim fwForm As New clFormWindow
Const SMALL_OFFSET = 5 'Used to position window slightly _
away from the Access MDI window border _
in order to avoid appearance of the Access _
window vertical scroll bar.
With fwForm
.hwnd = Forms(strFormName).hwnd
.Top = .Parent.Top
.Left = .Parent.Width - .Width - SMALL_OFFSET
End With
Set fwForm = Nothing
End Sub
'********** Code End ************
2013/1/3, Sofyan Efendi sofyanefendi@gmail.com>:
> Pop Up nya di set True mas
>
> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> Sofyan Efendi
> ----- Original Message -----
> From: "him mah" himmah.mlg@gmail.com>
> To: "belajar-access" belajar-access@yahoogroups.com>
> Sent: Thursday, January 03, 2013 4:21 PM
> Subject: [belajar-access] form on top
>
>
>> dear all
>>
>> mau tanya lagi
>>
>> misal kita buka beberapa form dan kita ingin FormA selalu tampil di depan
>> kalau pakai property sheet ="MODAL", maka form lain tidak bisa
>> diapa-apain
>>
>> yang diinginkan adalah formA tetap tampil didepan dan form lain bisa
>> kita apa-apa kan, kira kira setting atau VBA nya seperti apa?
>>
>> terima kasih
>>
>>
>> ------------------------------------
>>
>> SPAM IS PROHIBITEDYahoo! Groups Links
>>
>>
>>
>
>
Attachment(s) from aksan kurdin
1 of 1 File(s)
Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (5) |
No comments:
Post a Comment