MS ACCESS MAILING LIST: Re: [belajar-access] form on top

sudah saya coba pak, tapi koq masih gagal ya

VERSION 1.0 CLASS (yang ini koq warna merah)
BEGIN
MultiUse = -1 'True
End

2013/1/3, aksan kurdin aksan.kurdin@gmail.com>:
> download class dari link form itu, (terlampir), lalu masukkan ke vbe.
> ingat di class module, bukan general module. namanya pun harus sama:
> clFormWindow.
>
>
>
>
>
> 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
>> >>
>> >>
>> >>
>> >
>> >
>>
>>
>
>