/* */

Friday, January 4, 2013

Re: [belajar-access] form on top

 

maaf sudah bisa ternyata, eventnya yang salah ternyata (kalau pakai
qot focus ngga jalan)

2013/1/4, him mah himmah.mlg@gmail.com>:
> 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
>>> >>
>>> >>
>>> >>
>>> >
>>> >
>>>
>>>
>>
>>
>

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (8)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

No comments:

Post a Comment