PDA

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


love_75
23-05-2006, 13:21
من دوتا سوال دارم.لطفا اگه كسي مي تونه منو كمك كنه , ممنون ميشم.
چگونه مي توان در بانك اطلاعاتي اكسس توسط ويژوال بيسيك عكس اضافه نمود ؟
چگونه مي توان دکمه close فرم رو غير فعال کرد ؟
5656
24-05-2006, 10:24
براي غير فعال كردن دكمه بستن فرم :
يك روش اينكه با خاصيت نوع حاشيه(بوردر استايل) به حالت بدون حاشيه فرم بدون حاشيه داشته باشيد.
يك روش غير فعال كردن كنترلهاي بالاي فرم با فالس كردن خاصيت كنترل باكس
يك روش هم مي تونه كد نويسي روي آن لود شدن فرم باشه كه با كنترل مقدار يك متغير مي تونيد جلوي بسته شدن رو بگيريد.

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

اميد وارم كمكي كرده باشم
love_75
24-05-2006, 13:19
براي غير فعال كردن دكمه بستن فرم :
يك روش اينكه با خاصيت نوع حاشيه(بوردر استايل) به حالت بدون حاشيه فرم بدون حاشيه داشته باشيد.
يك روش غير فعال كردن كنترلهاي بالاي فرم با فالس كردن خاصيت كنترل باكس
يك روش هم مي تونه كد نويسي روي آن لود شدن فرم باشه كه با كنترل مقدار يك متغير مي تونيد جلوي بسته شدن رو بگيريد.

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

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


از كمكت ممنونم ، در مورد سوال دوم من می خوام که دکمه Close حالت Disable داشته باشه(وقتي كليك بكني عمل نكنه)
tomcat
24-05-2006, 14:58
خوب Enable دکمه رو False کن ...
love_75
24-05-2006, 18:35
خوب Enable دکمه رو False کن ...

منظور من دكمه Close یک فرم است نه يك Command Button كه خاصيت Enable اون رو False کنم.
Blue Rose
25-05-2006, 04:27
سلام

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

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
25-05-2006, 06:54
سلام

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

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
27-05-2006, 08:21
سلام
نمیدونم این همون چیزیه که میخوای یا نه

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
BioHazard
27-05-2006, 10:53
سلام
مرسی منکه کارم راه افتاد
love_75
27-05-2006, 12:36
سلام
نمیدونم این همون چیزیه که میخوای یا نه

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

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