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

واضح آرشیو وب فارسی:سایت ریسک: love_7523-05-2006, 01:21 PMمن دوتا سوال دارم.لطفا اگه كسي مي تونه منو كمك كنه , ممنون ميشم. چگونه مي توان در بانك اطلاعاتي اكسس توسط ويژوال بيسيك عكس اضافه نمود ؟ چگونه مي توان دکمه close فرم رو غير فعال کرد ؟ 565624-05-2006, 10:24 AMبراي غير فعال كردن دكمه بستن فرم : يك روش اينكه با خاصيت نوع حاشيه(بوردر استايل) به حالت بدون حاشيه فرم بدون حاشيه داشته باشيد. يك روش غير فعال كردن كنترلهاي بالاي فرم با فالس كردن خاصيت كنترل باكس يك روش هم مي تونه كد نويسي روي آن لود شدن فرم باشه كه با كنترل مقدار يك متغير مي تونيد جلوي بسته شدن رو بگيريد. در مورد ذخيره عكس اطلاعي ندارم ولي خودم عكس تو بانك اطلاعاتي نمي ريزم بلكه نام و مسيرو نگه ميدارم و هرجا لازم شد از مسير و نام عكس رو نشون ميدم اميد وارم كمكي كرده باشم love_7524-05-2006, 01:19 PMبراي غير فعال كردن دكمه بستن فرم : يك روش اينكه با خاصيت نوع حاشيه(بوردر استايل) به حالت بدون حاشيه فرم بدون حاشيه داشته باشيد. يك روش غير فعال كردن كنترلهاي بالاي فرم با فالس كردن خاصيت كنترل باكس يك روش هم مي تونه كد نويسي روي آن لود شدن فرم باشه كه با كنترل مقدار يك متغير مي تونيد جلوي بسته شدن رو بگيريد. در مورد ذخيره عكس اطلاعي ندارم ولي خودم عكس تو بانك اطلاعاتي نمي ريزم بلكه نام و مسيرو نگه ميدارم و هرجا لازم شد از مسير و نام عكس رو نشون ميدم اميد وارم كمكي كرده باشم از كمكت ممنونم ، در مورد سوال دوم من می خوام که دکمه Close حالت Disable داشته باشه(وقتي كليك بكني عمل نكنه) tomcat24-05-2006, 02:58 PMخوب Enable دکمه رو False کن ... love_7524-05-2006, 06:35 PMخوب Enable دکمه رو False کن ... منظور من دكمه Close یک فرم است نه يك Command Button كه خاصيت Enable اون رو False کنم. Blue Rose25-05-2006, 04:27 AMسلام ببین کار میکنه یا نه 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 Command 1_Click() End End Sub Private Sub Form_Load() DisableCloseWindowButton Me End Sub love_7525-05-2006, 06:54 AMسلام ببین کار میکنه یا نه 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 Command 1_Click() End End Sub Private Sub Form_Load() DisableCloseWindowButton Me End Sub ايول دمت گرم مي توني در مورد سوال اول هم كمكم كني ممنون ميشم. Blue Rose27-05-2006, 08:21 AMسلام نمیدونم این همون چیزیه که میخوای یا نه http://www.arashi2.persiangig.com/DB%20Piced.rar BioHazard27-05-2006, 10:53 AMسلام مرسی منکه کارم راه افتاد love_7527-05-2006, 12:36 PMسلام نمیدونم این همون چیزیه که میخوای یا نه http://www.arashi2.persiangig.com/DB%20Piced.rar مرسي عزيز خيلي بهم كمك كردي. سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 565]