تور لحظه آخری
امروز : شنبه ، 3 آذر 1403    احادیث و روایات:  امام صادق (ع):نصيحت و خيرخواهى از حسود محال است.
سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون شرکت ها

تبلیغات

تبلیغات متنی

صرافی ارکی چنج

صرافی rkchange

سایبان ماشین

دزدگیر منزل

تشریفات روناک

اجاره سند در شیراز

قیمت فنس

armanekasbokar

armanetejarat

صندوق تضمین

Future Innovate Tech

پی جو مشاغل برتر شیراز

لوله بازکنی تهران

آراد برندینگ

خرید یخچال خارجی

موسسه خیریه

واردات از چین

حمية السكري النوع الثاني

ناب مووی

دانلود فیلم

بانک کتاب

دریافت دیه موتورسیکلت از بیمه

طراحی سایت تهران سایت

irspeedy

درج اگهی ویژه

تعمیرات مک بوک

دانلود فیلم هندی

قیمت فرش

درب فریم لس

زانوبند زاپیامکس

روغن بهران بردبار ۳۲۰

قیمت سرور اچ پی

خرید بلیط هواپیما

بلیط اتوبوس پایانه

قیمت سرور dl380 g10

تعمیرات پکیج کرج

لیست قیمت گوشی شیائومی

خرید فالوور

بهترین وکیل کرج

بهترین وکیل تهران

خرید اکانت تریدینگ ویو

خرید از چین

خرید از چین

تجهیزات کافی شاپ

نگهداری از سالمند شبانه روزی در منزل

بی متال زیمنس

ساختمان پزشکان

ویزای چک

محصولات فوراور

خرید سرور اچ پی ماهان شبکه

دوربین سیمکارتی چرخشی

همکاری آی نو و گزینه دو

کاشت ابرو طبیعی و‌ سریع

الک آزمایشگاهی

الک آزمایشگاهی

خرید سرور مجازی

قیمت بالابر هیدرولیکی

قیمت بالابر هیدرولیکی

قیمت بالابر هیدرولیکی

لوله و اتصالات آذین

قرص گلوریا

نمایندگی دوو در کرج

خرید نهال سیب

وکیل ایرانی در استانبول

وکیل ایرانی در استانبول

وکیل ایرانی در استانبول

 






آمار وبسایت

 تعداد کل بازدیدها : 1832747622




هواشناسی

نرخ طلا سکه و  ارز

قیمت خودرو

فال حافظ

تعبیر خواب

فال انبیاء

متن قرآن



اضافه به علاقمنديها ارسال اين مطلب به دوستان آرشيو تمام مطالب
archive  refresh

یک سوال خواهشا جواب بدهید


واضح آرشیو وب فارسی:سایت ریسک: Rishter12-02-2010, 03:22 PMمن میخواهم که کاربر فونت Textbox رو خودش تغییر بده . همین لطفا جواب بدهید . با تشکر . :19::20: MR Cracker12-02-2010, 03:51 PMکاری نداره که کافیه از یه common dilog استفاده کنی 808612-02-2010, 06:35 PMبا سلام mcd 1.ShowFont If Text1.Text <> "" Then Text1.Font = mcd 1.FontName End If با تشكر ---------- Post added at 06:35 PM ---------- Previous post was at 06:34 PM ---------- با سلام منظور از mcd 1 همون microsoft common dialog ميباشد. با تشكر Rishter12-02-2010, 08:09 PMبا تشکر فراوان از شما عزیزان . اقای 8086 من از کد شما استفاده کردم ولی این ارور ظاهر شد : http://up.iranblog.com/37261/1266041192.jpg باز هم تشکر . :46: MR Cracker12-02-2010, 08:18 PMمتن ارور اینه که شما فونتی نصب نکردید.:20: 808612-02-2010, 09:49 PMبا سلام براي استفاده از اين كادر محاوره اي ابتدا بايد مقدار متغيير flags را تعيين نمود. در بخش خصوصيات(properties) كنترل commondialog مقدار flags را تغيير دهيد. اين متغيير سه مقدار ميپذيرد كه به شرح زير است: 1- مقدار "1" كه مجموعه قلم هاي صفحه نمايش است. 2- مقدار "2" كه مجموعه قلم هاي چاپگر ميباشد. 3- مقدار "3" كه مجموعه قلم هاي هر دو مجموعه ي قبلي است. كه پيشنهاد ميكنم عدد 3 را انتخاب كنيد. با تشكر Rishter12-02-2010, 10:31 PMبا تشکر فراوان از دوست خوبم آقای 8086 . من اون کارو کردم بخش فونت رو هم آورد ولی فونت نوشته رو تغییر نمیده . مشکل از کجاست . بازم ممنون . 808613-02-2010, 10:02 AMبا سلام ببخشيد من دستور قبل رو اشتباه نوشته بودم. از دستور زير استفاده كنيد: براي تغيير فونت: CommonDialog1.ShowFont Text1.Font = CommonDialog1.FontName براي تغيير ضخامت: CommonDialog1.ShowFont Text1.FontBold = CommonDialog1.FontBold براي تغيير سايز: CommonDialog1.ShowFont Text1.FontSize = CommonDialog1.FontSize براي Italic كردن: CommonDialog1.ShowFont Text1.FontItalic = CommonDialog1.FontItalic براي كشيدن خط در وسط فونت: CommonDialog1.ShowFont Text1.FontStrikethru = CommonDialog1.FontStrikethru براي كشيدن خط زير: CommonDialog1.ShowFont Text1.FontUnderline = CommonDialog1.FontUnderline شرمنده كه كدهاي قبلي اشتباه بود. با تشكر Rishter13-02-2010, 01:25 PMاین حرفا چیه ارادت . خیلی ازت ممنونم . Rishter13-02-2010, 09:49 PMيه سوال ديگه دارم چه طور ميتونم كاري كنم كه برنامم توTaskbar نشون داده شود ؟ كه با بالا آمدن ويندوز نرم افزار ظاهر شود؟ بازم ممنون:11::40::10: سونامی13-02-2010, 10:37 PMيه سوال ديگه دارم چه طور ميتونم كاري كنم كه برنامم توTaskbar نشون داده شود ؟ كه با بالا آمدن ويندوز نرم افزار ظاهر شود؟ بازم ممنون:11::40::10: شما باید برنامه خودتون رو تو starup ویندوز بزارید دقیق مراحلش یادم نیست ولی اگر یه سرچ کنی حله مشکلت MR Cracker13-02-2010, 11:21 PMفکر کنم تو خصوصیات فرم باشه. show in taskbar 808614-02-2010, 09:01 AMبا سلام شما بايد از دستور مسير جاري كه ويندوز نصب شده استفاده كني، و فرمتون رو رو در پوشه ي All User كپي كني تو پوشه ي Startup. با تشكر ---------- Post added at 09:01 AM ---------- Previous post was at 08:59 AM ---------- مثلا به چنين آدرسي: C:Documents and SettingsAll UsersStart MenuProgramsStartupProject.exe با تشكر 808614-02-2010, 09:19 AMبا سلام اين دستور براي اكثر ويندوزهايي كه روي درايو C نصب شده حتما كار ميكنه. مگر اينكه ويندوزشان بر روي درايو D يا ... نصب شده باشد. FileCopy "D:StartUpStartUp.exe", "C:Documents and SettingsAll UsersStart MenuProgramsStartupStartUp.exe يادتان باشد حتما اسم و پسوند فايل Exe خود را ذكر كنيد. اين دستور زماني كار ميكند كه فايل Exe را در سيستم داشته باشيد. در غير اين صورت شما بايد يك package درست كنيد و مسير جاري نصب را به برنامه بدهيد و از آنجا خود را كپي كند. با تشكر 808614-02-2010, 04:52 PMبا سلام شما بايد از توابع API استفاده كنيد. از تابع GetCurrentDirectory استفاده كنيد. بعد از دستور App.Path استفاده كني و مقدار برگشتي اين دستور رو كه آدرس محل نصب برنامه است رو برميگرداند در يك متغيير بريزي. بعد از دستور FileCopy استفاده كنيد. مثال: Private Declare Function GetCurrentDirectory Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long a=app.path filecopy a + "" + startUp.exe , "C:Documents and SettingsAll UsersStart MenuProgramsStartupStartup.exe در مورد دستور Bold شده مطمئن نيستم ولي راهكارش همينه. با تشكر Rishter17-02-2010, 08:39 PMبا سلام شما بايد از توابع API استفاده كنيد. از تابع GetCurrentDirectory استفاده كنيد. بعد از دستور App.Path استفاده كني و مقدار برگشتي اين دستور رو كه آدرس محل نصب برنامه است رو برميگرداند در يك متغيير بريزي. بعد از دستور FileCopy استفاده كنيد. مثال: Private Declare Function GetCurrentDirectory Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long a=app.path filecopy a + "" + startUp.exe , "C:Documents and SettingsAll UsersStart MenuProgramsStartupStartup.exe در مورد دستور Bold شده مطمئن نيستم ولي راهكارش همينه. با تشكر با تشكر فراوان از شما . فقط يه سوال ديگه در مورد تغيير فونت من ميخواست بدونم چه طوري ميشه كه هم اندازه فونت و نوع فونت و ديگر يم جا ارائه شوند همانند تغيير فونت خود ويزوال بيسيك . :46::10: با تشكر فراوان :40: 808617-02-2010, 09:07 PMبا تشكر فراوان از شما . فقط يه سوال ديگه در مورد تغيير فونت من ميخواست بدونم چه طوري ميشه كه هم اندازه فونت و نوع فونت و ديگر يم جا ارائه شوند همانند تغيير فونت خود ويزوال بيسيك . :46::10: با تشكر فراوان :40: با سلام اينجا شما هم ميتوني همه ي دستورات رو در Command بنويسي و با كليك كردن بر روي Command همه ي خصوصيات رو بتوني تغيير بدي. مثلا: ()Private Sub Command 1_Click CommonDialog1.Flags = 2 CommonDialog1.ShowFont Text1.Font = CommonDialog1.FontName Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontSize = CommonDialog1.FontSize End Sub با تشكر Rishter18-02-2010, 03:02 PMبا سلام اينجا شما هم ميتوني همه ي دستورات رو در Command بنويسي و با كليك كردن بر روي Command همه ي خصوصيات رو بتوني تغيير بدي. مثلا: ()Private Sub Command 1_Click CommonDialog1.Flags = 2 CommonDialog1.ShowFont Text1.Font = CommonDialog1.FontName Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontSize = CommonDialog1.FontSize End Sub با تشكر خیلی ممنون :11::10: با تشکر فراوان Rishter19-02-2010, 02:52 PMبا سلام با تشکر از اینکه وقتتون رو واسه من صرف میکنید و به سوالام جواب میدید . :40: یه سوال دیگه :blush: من میخواستم بدونم چه جوری میشه که کاربر با وارد کردن عددی مثل 4 به تعداد آن عدد کنترل Textbox یا کنترل دیگر به فرم اضافه شود . باز هم تشکر فراوان Mohsen.Sh_PC19-02-2010, 06:11 PMسلام حتما کمکم کنید من میخوام کاربر وقتی در فرم1 مثلا text1 رو تغییر میده و روی دکمه ok کلیک میکنه اگه دوباره وارد اون فرم بشه(بدون بستن کل فرمها) text1 همون چیزی باشه که او تغییر داده. در ضمن این رشته text1 نیز در یک فرم دیگه استفاده میشه. یعنی کاربر وقتی در فرم 1 text1 رو تغییر میده در فرم 2 نیز تغییر بکنه. حالا باید در دکمه ok چه چیزی بنویسیم. والسلام. Rishter20-02-2010, 11:22 AMبه نظر من بهتره از دیتابیس استفاده کنی چون دیتابیس مقادیر مربوطه رو تو خودش ذخیره می کنه و با استفاده از چند عمل دیگر میتوان کاری که شما گفته اید رو انجام داد . اما اگر از متغیر استفاده کنید با هر بار اجرای نرم افزار متغیر همون نوشته اول رو نشون میده دیگه نوشته بعدی رو نشون نمیده . این نظر من بود . حالا نمیدونم هرکدوم رو خواستی بگو بگم . :11::10: Mohsen.Sh_PC20-02-2010, 11:29 AMبه نظر من بهتره از دیتابیس استفاده کنی چون دیتابیس مقادیر مربوطه رو تو خودش ذخیره می کنه و با استفاده از چند عمل دیگر میتوان کاری که شما گفته اید رو انجام داد . اما اگر از متغیر استفاده کنید با هر بار اجرای نرم افزار متغیر همون نوشته اول رو نشون میده دیگه نوشته بعدی رو نشون نمیده . این نظر من بود . حالا نمیدونم هرکدوم رو خواستی بگو بگم . :11::10: سلام من از متغییر استفاده کردم شد. نمیخوام زیاد پیچیده بشه بنابراین همین متغییر بهتره. Vb 147102-05-2010, 12:30 AMسلام : اول بايد كامپونت common Dialog را اضافه كنيد و نام آن را برابر با Mcd 1 بگذاريد . دوم : خاصيت flag آن را برابر با عدد 2 بگذاريد. كد زير را بنويسيد : Private Sub Command 1_Click() by Vb 1471 mcd 1.ShowFont If mcd 1.FontName <> "" Then Text1.FontName = mcd 1.FontName End If Text1.FontBold = mcd 1.FontBold Text1.FontItalic = mcd 1.FontItalic Text1.FontSize = mcd 1.FontSize End Sub mos1362pos20-05-2010, 08:15 PMبا سلام خدمت شما دوستان عزیز آیا میشه یک عدد خیلی کوچک مثلا (00000001/0) رو به این همین صورتی که در پرانتز هس رو در تکس باکس نشان داد. من هر چی سعی کردم این عدد رو به این صورت نشون می ده : 1E-07 :41: لطفا جواب دهید خیلی فوریه از همه شما هم تشکر می کنم.:11: سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود




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

[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 726]

bt

اضافه شدن مطلب/حذف مطلب




-


گوناگون

پربازدیدترینها
طراحی وب>


صفحه اول | تمام مطالب | RSS | ارتباط با ما
1390© تمامی حقوق این سایت متعلق به سایت واضح می باشد.
این سایت در ستاد ساماندهی وزارت فرهنگ و ارشاد اسلامی ثبت شده است و پیرو قوانین جمهوری اسلامی ایران می باشد. لطفا در صورت برخورد با مطالب و صفحات خلاف قوانین در سایت آن را به ما اطلاع دهید
پایگاه خبری واضح کاری از شرکت طراحی سایت اینتن