چگونه مي توان در بانك اطلاعاتي اكسس توسط ويژوال بيسيك عكس اضافه نمود ؟

[love_75]

من دوتا سوال دارم.لطفا اگه كسي مي تونه منو كمك كنه , ممنون ميشم.
چگونه مي توان در بانك اطلاعاتي اكسس توسط ويژوال بيسيك عكس اضافه نمود ؟
چگونه مي توان دکمه close فرم رو غير فعال کرد ؟

[5656]

براي غير فعال كردن دكمه بستن فرم :
يك روش اينكه با خاصيت نوع حاشيه(بوردر استايل) به حالت بدون حاشيه فرم بدون حاشيه داشته باشيد.
يك روش غير فعال كردن كنترلهاي بالاي فرم با فالس كردن خاصيت كنترل باكس
يك روش هم مي تونه كد نويسي روي آن لود شدن فرم باشه كه با كنترل مقدار يك متغير مي تونيد جلوي بسته شدن رو بگيريد.

در مورد ذخيره عكس اطلاعي ندارم ولي خودم عكس تو بانك اطلاعاتي نمي ريزم بلكه نام و مسيرو نگه ميدارم
و هرجا لازم شد از مسير و نام عكس رو نشون ميدم

اميد وارم كمكي كرده باشم

[love_75]

براي غير فعال كردن دكمه بستن فرم :
يك روش اينكه با خاصيت نوع حاشيه(بوردر استايل) به حالت بدون حاشيه فرم بدون حاشيه داشته باشيد.
يك روش غير فعال كردن كنترلهاي بالاي فرم با فالس كردن خاصيت كنترل باكس
يك روش هم مي تونه كد نويسي روي آن لود شدن فرم باشه كه با كنترل مقدار يك متغير مي تونيد جلوي بسته شدن رو بگيريد.

در مورد ذخيره عكس اطلاعي ندارم ولي خودم عكس تو بانك اطلاعاتي نمي ريزم بلكه نام و مسيرو نگه ميدارم
و هرجا لازم شد از مسير و نام عكس رو نشون ميدم

اميد وارم كمكي كرده باشم

از كمكت ممنونم ، در مورد سوال دوم من می خوام که دکمه Close حالت Disable داشته باشه(وقتي كليك بكني عمل نكنه)

[tomcat]

خوب Enable دکمه رو False کن ...

[love_75]

خوب Enable دکمه رو False کن ...

منظور من دكمه Close یک فرم است نه يك Command Button كه خاصيت Enable اون رو False کنم.

[Blue Rose]

سلام

ببین کار میکنه یا نه

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Const MF_BYPOSITION = &H400&

Public Sub DisableCloseWindowButton(frm As Form)

Dim hSysMenu As Long
hSysMenu = GetSystemMenu(frm.hwnd, 0)
RemoveMenu hSysMenu, 6, MF_BYPOSITION
RemoveMenu hSysMenu, 5, MF_BYPOSITION

End Sub


Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
DisableCloseWindowButton Me
End Sub

[love_75]

سلام

ببین کار میکنه یا نه

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Const MF_BYPOSITION = &H400&

Public Sub DisableCloseWindowButton(frm As Form)

Dim hSysMenu As Long
hSysMenu = GetSystemMenu(frm.hwnd, 0)
RemoveMenu hSysMenu, 6, MF_BYPOSITION
RemoveMenu hSysMenu, 5, MF_BYPOSITION

End Sub


Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
DisableCloseWindowButton Me
End Sub

ايول دمت گرم
مي توني در مورد سوال اول هم كمكم كني ممنون ميشم.

[Blue Rose]

سلام
نمیدونم این همون چیزیه که میخوای یا نه

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[BioHazard]

سلام
مرسی منکه کارم راه افتاد

[love_75]

سلام
نمیدونم این همون چیزیه که میخوای یا نه

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

مرسي عزيز خيلي بهم كمك كردي.