iya makasih pak, emang harus pakai form_timer
2012/12/31, Haer Talib <haertalib@gmail.com>:
> Yang bisa dipasangi timer cuma form.
> Form jangan ditutup, tapi di-hide saja.
>
> HAER
> *"Diam bisa jadi EMAS, tapi kalau ditanya orang jadi TIDAK SOPAN"*
>
>
> On Fri, Dec 28, 2012 at 4:57 PM, him mah <himmah.mlg@gmail.com> wrote:
>
>> assalamu'alaikum Wr. Wb.
>>
>> maaf, mau tanya tentang scroling text
>>
>> setelah googling akhirnya nemu code (seperti dibawah) untuk scroling
>> text, nah yang jadi pertanyaan. ketika formnya ditutup, pinginnya
>> untuk scrol text yang ada di status bar tetap berjalan, kira-kira
>> modifikasinya seperti apa (agar tidak mneggunakan form timer)
>>
>>
>> ini VBA nya
>>
>>
>> Option Compare Database
>> Option Explicit
>>
>> Public txtScrollStatus As String ' Needed for Status Bar
>>
>>
>> Private Sub Form_Load()
>> ' Text for Caption of Form
>> Me.Caption = DLookup("[ket]", "qryFormCaption")
>>
>> ' Text for Label on Form
>> Me.lblScrollingLabel.Caption = "Scrolling Text .........................
>> "
>>
>> ' Text for Status Bar
>> txtScrollStatus = "Scrolling Text ......................... "
>>
>> End Sub
>>
>> ' Special Note ...........
>> ' Set Form's Timer Interval to 100
>> Private Sub Form_Timer()
>>
>> ' Produce the Scrolling Text in Caption on the Form
>> Me.Caption = Mid(Me.Caption, 2, _
>> (Len(Me.Caption) - 1)) & Left(Me.Caption, 1)
>>
>> ' Produce the Scrolling Text in Label on the Form
>> Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
>> (Len(Me.lblScrollingLabel.Caption) - 1)) &
>> Left(Me.lblScrollingLabel.Caption, 1)
>>
>> ' Produce the Scrolling Text in Status Bar of Access
>> SysCmd acSysCmdSetStatus, txtScrollStatus
>> txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1))
>> & Left(txtScrollStatus, 1)
>>
>> End Sub
>>
>>
>> ------------------------------------
>>
>> SPAM IS PROHIBITEDYahoo! Groups Links
>>
>>
>>
>>
>
>
> --
>
>
> Haer Talib
>
> *RumahAccess Indonesia* <http://www.rumahaccess.com>
> *Tempatnya Belajar Microsoft Access*
> Artikel | Forum | Milis | Download | Training | Links | Blog | Event
>
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (4) |
No comments:
Post a Comment