من میخواهم که کاربر فونت Textbox رو خودش تغییر بده . همین لطفا جواب بدهید . با تشکر .
:19::20:
Printable View
من میخواهم که کاربر فونت Textbox رو خودش تغییر بده . همین لطفا جواب بدهید . با تشکر .
:19::20:
کاری نداره که
کافیه از یه common dilog استفاده کنی
با سلام
mcd1.ShowFont
If Text1.Text <> "" Then
Text1.Font = mcd1.FontName
End If
با تشكر
---------- Post added at 06:35 PM ---------- Previous post was at 06:34 PM ----------
با سلام
منظور از mcd1 همون microsoft common dialog ميباشد.
با تشكر
با تشکر فراوان از شما عزیزان .
اقای 8086 من از کد شما استفاده کردم ولی این ارور ظاهر شد :
باز هم تشکر . :46:
متن ارور اینه که شما فونتی نصب نکردید.:20:
با سلام
براي استفاده از اين كادر محاوره اي ابتدا بايد مقدار متغيير flags را تعيين نمود.
در بخش خصوصيات(properties) كنترل commondialog مقدار flags را تغيير دهيد.
اين متغيير سه مقدار ميپذيرد كه به شرح زير است:
1- مقدار "1" كه مجموعه قلم هاي صفحه نمايش است.
2- مقدار "2" كه مجموعه قلم هاي چاپگر ميباشد.
3- مقدار "3" كه مجموعه قلم هاي هر دو مجموعه ي قبلي است.
كه پيشنهاد ميكنم عدد 3 را انتخاب كنيد.
با تشكر
با تشکر فراوان از دوست خوبم آقای 8086 .
من اون کارو کردم بخش فونت رو هم آورد ولی فونت نوشته رو تغییر نمیده . مشکل از کجاست .
بازم ممنون .
با سلام
ببخشيد من دستور قبل رو اشتباه نوشته بودم.
از دستور زير استفاده كنيد:
براي تغيير فونت:
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
شرمنده كه كدهاي قبلي اشتباه بود.
با تشكر
این حرفا چیه ارادت . خیلی ازت ممنونم .
يه سوال ديگه دارم چه طور ميتونم كاري كنم كه برنامم توTaskbar نشون داده شود ؟ كه با بالا آمدن ويندوز نرم افزار
ظاهر شود؟ بازم ممنون:11::40::10:
شما باید برنامه خودتون رو تو starup ویندوز بزاریدنقل قول:
دقیق مراحلش
یادم
نیست
ولی اگر یه سرچ کنی حله مشکلت
فکر کنم تو خصوصیات فرم باشه.
show in taskbar
با سلام
شما بايد از دستور مسير جاري كه ويندوز نصب شده استفاده كني، و فرمتون رو رو در پوشه ي All User كپي كني تو پوشه ي Startup.
با تشكر
---------- Post added at 09:01 AM ---------- Previous post was at 08:59 AM ----------
مثلا به چنين آدرسي:
C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Project.exe
با تشكر
با سلام
اين دستور براي اكثر ويندوزهايي كه روي درايو C نصب شده حتما كار ميكنه.
مگر اينكه ويندوزشان بر روي درايو D يا ... نصب شده باشد.
FileCopy "D:\StartUp\StartUp.exe", "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\StartUp.exe
يادتان باشد حتما اسم و پسوند فايل Exe خود را ذكر كنيد.
اين دستور زماني كار ميكند كه فايل Exe را در سيستم داشته باشيد.
در غير اين صورت شما بايد يك package درست كنيد و مسير جاري نصب را به برنامه بدهيد و از آنجا خود را كپي كند.
با تشكر
با سلام
شما بايد از توابع 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 Settings\All Users\Start Menu\Programs\Startup\Startup.exe
در مورد دستور Bold شده مطمئن نيستم ولي راهكارش همينه.
با تشكر
با تشكر فراوان از شما . فقط يه سوال ديگه در مورد تغيير فونت من ميخواست بدونم چه طوري ميشه كه همنقل قول:
اندازه فونت و نوع فونت و ديگر يم جا ارائه شوند همانند تغيير فونت خود ويزوال بيسيك . :46::10:
با تشكر فراوان :40:
با سلامنقل قول:
اينجا شما هم ميتوني همه ي دستورات رو در Command بنويسي و با كليك كردن بر روي Command همه ي خصوصيات رو بتوني تغيير بدي.
مثلا:
()Private Sub Command1_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:نقل قول:
با تشکر فراوان
با سلام
با تشکر از اینکه وقتتون رو واسه من صرف میکنید و به سوالام جواب میدید . :40:
یه سوال دیگه :blush:
من میخواستم بدونم چه جوری میشه که کاربر با وارد کردن عددی مثل 4 به تعداد آن عدد کنترل Textbox یا
کنترل دیگر به فرم اضافه شود .
باز هم تشکر فراوان
سلام حتما کمکم کنید
من میخوام کاربر وقتی در فرم1 مثلا text1 رو تغییر میده و روی دکمه ok کلیک میکنه اگه دوباره وارد اون فرم بشه(بدون بستن کل فرمها) text1 همون چیزی باشه که او تغییر داده.
در ضمن این رشته text1 نیز در یک فرم دیگه استفاده میشه.
یعنی کاربر وقتی در فرم 1 text1 رو تغییر میده در فرم 2 نیز تغییر بکنه.
حالا باید در دکمه ok چه چیزی بنویسیم.
والسلام.
به نظر من بهتره از دیتابیس استفاده کنی چون دیتابیس مقادیر مربوطه رو تو خودش ذخیره می کنه
و با استفاده از چند عمل دیگر میتوان کاری که شما گفته اید رو انجام داد . اما اگر از متغیر استفاده کنید
با هر بار اجرای نرم افزار متغیر همون نوشته اول رو نشون میده دیگه نوشته بعدی رو نشون نمیده . این نظر من
بود . حالا نمیدونم هرکدوم رو خواستی بگو بگم . :11::10:
سلامنقل قول:
من از متغییر استفاده کردم شد. نمیخوام زیاد پیچیده بشه بنابراین همین متغییر بهتره.
سلام :
اول بايد كامپونت common Dialog را اضافه كنيد و نام آن را برابر با Mcd1 بگذاريد . دوم : خاصيت flag آن را برابر با عدد 2 بگذاريد.
كد زير را بنويسيد :
Private Sub Command1_Click() by Vb1471
mcd1.ShowFont
If mcd1.FontName <> "" Then
Text1.FontName = mcd1.FontName
End If
Text1.FontBold = mcd1.FontBold
Text1.FontItalic = mcd1.FontItalic
Text1.FontSize = mcd1.FontSize
End Sub
با سلام خدمت شما دوستان عزیز
آیا میشه یک عدد خیلی کوچک مثلا (00000001/0) رو به این همین صورتی که در پرانتز هس رو در تکس باکس نشان داد.
من هر چی سعی کردم این عدد رو به این صورت نشون می ده : 1E-07 :41:
لطفا جواب دهید خیلی فوریه
از همه شما هم تشکر می کنم.:11: