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

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

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

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

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

نقل قول:

---

نوشته شده توسط 5656

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

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

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

---

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

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

نقل قول:

---

نوشته شده توسط tomcat

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

---

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

سلام

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

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

سلام

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

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

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

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

---

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