ویژگی AppIcon یا AppTitle در اکسس

ویژگی AppIcon یک عبارت رشته ای که نام یک فایل Bitmap یا Icon است. البته شامل مسیر !!!

راحت ترین راه برای تنظیم این ویژگی استفاده از انتخاب Application Icon در جعبه دیالوگ Access Options است.همچنین می توان با استفاده از ماکرو یا ویژوال بیسیک نیز آنرا تنظیم نمود.

برای تنظیم ویژگی AppIcon با استفاده از ماکرو یا ویژوال بیسیک می بایست یا اول در آن پنجره یادشده یکبار تنظیم نمود یا این ویژگی را طبق راه ها( ی )زیر ایجاد کرد :

در یک پایگاه داده اکسس ، می توان آن را با استفاده از مِتُد CreateProperty و الحاق کردنش به مجموعه پراپرتیزهای شئ آبجکت اضافه نمود.

نوشتاری این متد با آرگومان ها که همه Optional هستند نه اجباری و لازم

expression .CreateProperty(Name, Type, Value, DDL)

Type :

dbBoolean

dbText

dbLong

dbByte

Ex:Name="AppIcon";Type=dbText;Value=PathOfIconOrBitmap

خطای ۳۲۷۰ بدین معنی است که ویژگی پیدا نشد.

• Error 3270 means that the property was not found.

بالا ساختن ویژگی بود و بعد استفاده از مِتُد زیر : 

اضافه کردن ویژگی جدید به مجموعه یا کالکشن پراپرتیزها

expression .Append(Object)

با استفاده از پیام ویندوزی هم که به پنجره فرم می شود ارسال نمود می توان آیکون را ضمیمه کرد.

تابع SendMessageA و ارسال پیام ویندوزی WM_SETICON

wParam :

ICON_BIG=1

ICON_SMALL=0

lParam:

Null

SetWindowTextA  hWndAccessApp,TitleText

CurrentDb.Properties

Name 

Connect 

Transactions 

Updatable

CollatingOrder

QueryTimeout

Version

RecordsAffected

ReplicaID

DesignMasterID

Connection

ANSIQuery Mode 

Themed Form Controls

AccessVersion

Build

ProjVer

StartUpForm

StartUpShowDBWindow

StartUpShowStatusBar

AllowShortcutMenus

AllowFullMenus

AllowBuiltInToolbars

AllowToolbarChanges

AllowSpecialKeys

UseAppIconForFrmRpt

Track Name AutoCorrect Info

Perform Name AutoCorrect 

AppTitle

AppIcon

تنظیم پراپرتی های موجود در دیتابیس با کد زیر که از سایت خارجی استخراج شده اگر درست کار کند.

FunctionName(Name,Type,Value) As Boolean


On Error Resume Next

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) =varPropValue
ChangeProperty = True


If err=3270 Then ' Not Found
Set prp=dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Else
ChangeProperty = False
Exit Function
End If
End Function

Application.RefreshTitleBar

2003 :

You can set the StartupShowDBWindow property to False to hide the Database window so the user can't see the tables, queries, macros, and modules within your database

Application.SetOption : 

Application.SetOption "Selection Behavior", 1

set-options-from-visual-basic

SendIcon : 

hWnd = Application.hWndAccessApp

    lcon = ExtractIcon(0, sIcon, 0)

    If lcon > 1 Then

        SendMessage(hWnd, WM_SETICON, True, Icon)

        SendMessage(hWnd, WM_SETICON, False, lIcon)

    End If