Friday, June 17, 2011

Re: [belajar-access] Fontsize pada message box



Ada kreasi lain soal msgbox. Coba gunakan script ini:
 
Private Sub Command1_Click()
    With WizHook
        .Key = 51488399
        .WizMsgBox "Bold Line @ @ Not So Bold Line", _
        "The Caption", vbYesNo, 23, "Path To Some Help File"
    End With
End Sub
 
Atau ini:
 
Private Sub Command2_Click()
   
   FormattedMsgBox "Wrong button!@This button doesn't work.@Try Another.", _
           vbOKOnly + vbExclamation, "My Application"
End Sub
 
Dimana:
 
Option Explicit
Function FormattedMsgBox( _
 Prompt As String, _
 Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
 Optional Title As String = vbNullString, _
 Optional HelpFile As Variant, _
 Optional Context As Variant) _
 As VbMsgBoxResult
    If IsMissing(HelpFile) Or IsMissing(Context) Then
        FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
         """, " & Buttons & ", """ & Title & """)")
    Else
        FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
         """, " & Buttons & ", """ & Title & """, """ & _
         HelpFile & """, " & Context & ")")
    End If
End Function
 
Ini hanya copy paste... dari.. saya sudah lupa..
 
Semoga bisa membantu dan memberi semangat.
 
Hariyanto (Surabaya)


--- On Thu, 16/6/11, roland@alkitab.or.id <roland@alkitab.or.id> wrote:

From: roland@alkitab.or.id <roland@alkitab.or.id>
Subject: Re: [belajar-access] Fontsize pada message box
To: belajar-access@yahoogroups.com
Date: Thursday, 16 June, 2011, 12:58 PM

 
Setahu saya sih tidak bisa tapi bisa diakali dengan membuat msg box dari form saja, kmudian tinggal dicustom saja sesuai keinginan.

Salam,
Roland

Powered by Telkomsel BlackBerry

-----Original Message-----
From: Cecep W <cepwahyu@gmail.com>
Sender: belajar-access@yahoogroups.com
Date: Wed, 15 Jun 2011 20:58:17
To: <belajar-access@yahoogroups.com>
Reply-To: belajar-access@yahoogroups.com
Subject: [belajar-access] Fontsize pada message box

Hallo Pakar access semua,

Bisakah Font Size pada message box diperbesar? kalo bisa gimana caranya?

Regards
Cecep Wahyudin


------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links





__._,_.___


SPAM IS PROHIBITED



Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___
at

No comments:

Post a Comment