طرح کردن مشکلات و سوالات VB

Printable View

09-04-2010, 10:35
Mohsen.Sh_PC

طرح کردن مشکلات و سوالات VB

سلام
من یک مشکل دارم
من برای یک دکمه کدی نوشتم که اون رو میتونید توی فرم جاشو تغییر بدی ولی یک مشکل هست
مشکل اینه که توی رویداد کلیک این دکمه فرم جدید باز میشه و هر وقت میخوای جاشو تغییر بدی فرم جدید باز میشه و نمیزاره جای دکمه رو تغییر بدی.
میخوام یک چک باکس بزارم که وقتی فعال باشه رویداد کلیک اون دکمه غیر فعال بشه و بتونم جای دکمه رو تغییر بدم اما نمیدونم چه جوری.
البته این یک حرف بود اگه راه حل دیگه ای داره حتما بگید.

راستی یک پست بزارید تا سوالها اون جا مطرح بشه اینجوری هر کی نمیاد یک پست برای خودش بزنه.
همین پست هم خوبه به نظر من.
بسم الله
09-04-2010, 14:47
MrGee

من منظور شما رو متوجه نشدم
شما کد رو بزار این جا تا رفع اشکال بشه.

نقل قول:

راستی یک پست بزارید تا سوالها اون جا مطرح بشه اینجوری هر کی نمیاد یک پست برای خودش بزنه.

نگران نباش اینجا صاحب نداره:21::31::27:
10-04-2010, 09:03
Mohsen.Sh_PC

بزارید دوباره بگم. من توی رویداد کلیک یک دکمه این رو نوشتم.

form2.show

خوب حالا توی رویداد MouseDown این دکمه کدی نوشتم که بشه اون رو در حالت اجرا درگ کرد.
(همه کد درگ رو ننوشتم فقط میخواستم بگم.)

Command1.Drag
intOldx = X
intOldy = Y
Command1.MousePointer = vbSizeAll

حالا مشکل اینه که وقتی میخوام در حالت اجرا جای دکمه رو توی فرم تغییر بدم اول فرم 2 نمایش داده میشه بعدش میتونی جای دکمه رو تغییر بدی.
حالا میخوام کاری کنم که وقتی میخوای جای دکمه رو تغییر بدی فرم 2 باز نشه.

یک سوال دیگه
من میخوام برنامه نوشته هایی رو که در لیبل و و تکس باکس برنامه است رو توی Word Pad کپی کنه.
چه جوری میتونم این کارو بکنم.

اول نشناختمت Mr Cracker آواترت عوض شده.
10-04-2010, 12:40
M i L @ D

1- برای اینکار شما باید یک متغیر سراسری برای دو فرم از نوع Boolean تعریف کنید :

کد:

Public Sub ShowForm() Dim a As Boolean End Sub

* کد را باید در بخش General فرم اول بنویسید !

2- باید شما در فرم دوم در رویداد Formload کد زیر را بنویسید :

کد:

Private Sub Form_Load() Call Form1.ShowForm a = True End Sub

3- در رویداد کلیک Command1 که در فرم اول گذاشتید کد زیر را بنویسید :

کد:

Private Sub Command1_Click() If a = True Then Else Form2.Show End If End Sub
10-04-2010, 13:26
AQOUA

نقل قول:

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

1- برای اینکار شما باید یک متغیر سراسری برای دو فرم از نوع Boolean تعریف کنید :

کد:

Public Sub ShowForm() Dim a As Boolean End Sub

* کد را باید در بخش General فرم اول بنویسید !

[/CODE]

البته متغيير از نوع public بهتره در قسمت General مربوط به module تعريف شود.
Thanks
10-04-2010, 20:00
Mohsen.Sh_PC

دستت درد نکنه
فقط یک سوال دیگه مونده.
من میخوام برنامه نوشته هایی رو که در لیبل و و تکس باکس برنامه است رو توی Word Pad کپی کنه.
البته جوری که من میخوام در ضمن من از دیتا بیس هم استفاده نمیکنم.
چه جوری میتونم این کارو بکنم.
10-04-2010, 20:39
M i L @ D

نقل قول:

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

البته متغيير از نوع public بهتره در قسمت General مربوط به module تعريف شود.
Thanks

بله ... اینم یه راهشه !

ولی نخواستم زیاد پیچیده بشه !

نقل قول:

نوشته شده توسط Mohsen.Sh_PC [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دستت درد نکنه
فقط یک سوال دیگه مونده.
من میخوام برنامه نوشته هایی رو که در لیبل و و تکس باکس برنامه است رو توی Word Pad کپی کنه.
البته جوری که من میخوام در ضمن من از دیتا بیس هم استفاده نمیکنم.
چه جوری میتونم این کارو بکنم.

یعنی شما میخواید نوشته هایی که تو Label و Text Box فرمتون هست رو تو یه فایل .txt ذخیره کنید ؟

یا میخواید نوشته ها رو به حافظه ی Clipboard منتقل کنید و بتونید تو یه فایل با فرمت .txt پیست کنید ؟
10-04-2010, 21:05
MrGee

فکر کنم منظور ایشون اینه که مثل برنامه های فارسی نویس
متن رو داخل ورد کنن
و احتملا برا این کار باید از ole استفاده کرد و
اگه نشد از api.
11-04-2010, 11:42
Mohsen.Sh_PC

نقل قول:

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

یعنی شما میخواید نوشته هایی که تو Label و Text Box فرمتون هست رو تو یه فایل .txt ذخیره کنید ؟
یا میخواید نوشته ها رو به حافظه ی Clipboard منتقل کنید و بتونید تو یه فایل با فرمت .txt پیست کنید ؟

البته اولیش بهتره اگه نشد دومی
متشکرم.
11-04-2010, 12:08
M i L @ D

نقل قول:

نوشته شده توسط Mohsen.Sh_PC [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

البته اولیش بهتره اگه نشد دومی
متشکرم.

پس ...

روش اول :

کد:

Private Sub Save_Click() Dim a As Integer a = FreeFile Open "D:/tamrin.txt" For Append As #a Write #a, Label1.Caption Write #a, Text1.Text Close End Sub

* یه فایل با نام Tamrin در درایو D بوجود میاد که نوشته های Label1 و Text1 در اون قرار دارند !
* مسیر و اسم فایلی که من تو "" گذاشتم رو میتونید تغییر بدید !

روش دوم :

کد:

Private Sub Copy_Click() Clipboard.SetText (Label1.Caption) Clipboard.SetText (Text1.Text) End Sub

* نوشته ی Label1 و Text1 به حافظه منتقل میشن !
11-04-2010, 18:16
Mohsen.Sh_PC

نقل قول:

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

روش اول :

کد:

Private Sub Save_Click() Dim a As Integer a = FreeFile Open "D:/tamrin.txt" For Append As #a Write #a, Label1.Caption Write #a, Text1.Text Close End Sub

دستت درد نکنه
16-04-2010, 19:02
شـیـفــو

1- (ويرايش شد : حذف ! )
2- مي خوام سر ساعت 12:01:30 رو فرمم A پرينت كنم ، كدي كه ميزارم نميدونم كجاش ايراد داره ، راهنمايي كنيد :

نقل قول:

Private Sub Timer_Timer()
If Time = #12:01:30 PM# Then
Print "A"
End If
End Sub

لطفا به سايت هاي ديگه پاس نديد ، اگه مي دونيد همينجا راهنمايي كنيد
16-04-2010, 19:59
M i L @ D

نقل قول:

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

1- چطوري ميتونم برنامم رو تنظيم كنم كه تو يه ساعت و تاريخ خاص اجرا بشه يهني وارد Scheduled Tasks با تنظيمات لازم بكنمش ؟؟؟
2- مي خوام سر ساعت 12:01:30 رو فرمم A پرينت كنم ، كدي كه ميزارم نميدونم كجاش ايراد داره ، راهنمايي كنيد :

لطفا به سايت هاي ديگه پاس نديد ، اگه مي دونيد همينجا راهنمايي كنيد

1- تو تاپیک دیگه جواب دادن !

2- Timer.Interval = 1000 به اول کدتون اضافه کنید !
16-04-2010, 22:19
شـیـفــو

نقل قول:

2- Timer.Interval = 1000 به اول کدتون اضافه کنید !

خوب اينكه هر 1 ثانيه "A" رو پرينت ميگره !!

نقل قول:

1- تو تاپیک دیگه جواب دادن !

قبل از اينكه به اونجا سر بزنم متن رو تايپ كردم ، بعد از ديدن يادم رفت اين قسمت رو جذف كنم و ارسال رو زدم ( ويرايش شد )
اشتباهي نوشتمش !!!
16-04-2010, 22:38
M i L @ D

نقل قول:

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

خوب اينكه هر 1 ثانيه "A" رو پرينت ميگره !!

قبل از اينكه به اونجا سر بزنم متن رو تايپ كردم ، بعد از ديدن يادم رفت اين قسمت رو جذف كنم و ارسال رو زدم ( ويرايش شد )
اشتباهي نوشتمش !!!

نه ، من گفتم به اول کدتون اضافه کنید ... یعنی اون رو در FormLoad بنویسید + کد خودتون :

کد:

Private Sub Form_Load() Timer.Interval = 1000 End Sub

کد:

Private Sub Timer_Timer() If Time = #12:01:30 PM# Then Print "A" End If End Sub

* این کد باعث میشه هر ثانیه تایم سیستمتون رو چک کنه و وقتی به 12:01:30 رسید حرف A رو چاپ کنه !

* راستی PM و AM با هم فرق میکنند ... به این نکته هم توجه کنید !

AM = قبل از ظهر
PM = بعد از ظهر
17-04-2010, 19:09
شـیـفــو

نقل قول:

* این کد باعث میشه هر ثانیه تایم سیستمتون رو چک کنه و وقتی به 12:01:30 رسید حرف A رو چاپ کنه !

* راستی PM و AM با هم فرق میکنند ... به این نکته هم توجه کنید !

AM = قبل از ظهر
PM = بعد از ظهر

مرسي ممنون !
2تا سئوال فني ديگه :
الف) من دوتا تكس باكس دارم كه توي اولي اسم و توي دومي نام خانوادگي رو تايپ ميكنيم تو درايو C با اسم 1.TXT ذخيره ميكنه ، تكس1 = نام ، تكس2= نام خانوادگي و وقتي اونو سيو ميكنه نام خط اوله و فاميلي خط دوم . ( تا اينجاشـو بلدم :))
حالا ميخوام يه دكمه بذارم كه وقتي طرف رو اون كليك كرد اون فايل رو بخونه و خط اول رو تو برچسب1 نشون بده و خط دوم رو تو برچسب2 .
چيكار كنم ؟
ب) حالا همين متن كلش تو يه برچسب نمايش داده بشه ؟
17-04-2010, 21:46
M i L @ D

نقل قول:

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

مرسي ممنون !
2تا سئوال فني ديگه :
الف) من دوتا تكس باكس دارم كه توي اولي اسم و توي دومي نام خانوادگي رو تايپ ميكنيم تو درايو C با اسم 1.TXT ذخيره ميكنه ، تكس1 = نام ، تكس2= نام خانوادگي و وقتي اونو سيو ميكنه نام خط اوله و فاميلي خط دوم . ( تا اينجاشـو بلدم :))
حالا ميخوام يه دكمه بذارم كه وقتي طرف رو اون كليك كرد اون فايل رو بخونه و خط اول رو تو برچسب1 نشون بده و خط دوم رو تو برچسب2 .
چيكار كنم ؟
ب) حالا همين متن كلش تو يه برچسب نمايش داده بشه ؟

خواهش میکنم ! ( ولی مشکلتون حل شد ؟ )

----

خب شما متن رو بصورت ترتیبی سیو کردید یا تصادفی ؟
17-04-2010, 22:54
شـیـفــو

نقل قول:

خواهش میکنم ! ( ولی مشکلتون حل شد ؟ )

بله ، يه پروژه تقويم داشتم ، ميخواستم پيغام "صبح به خير" و "شب خوش" و از اينجور پيام ها بده .

نقل قول:

خب شما متن رو بصورت ترتیبی سیو کردید یا تصادفی ؟

راستش نميدونم ، كدي كه ازش استفاده ميكنم اينه :
[HTML]Private Sub Save_Click()
Open ("c:1.txt") For Output As #1
Print #1, "Name= " + Text.Text
Print #1, "Family = " + Text1.Text
Close #1
End Sub
[/HTML]
18-04-2010, 08:21
M i L @ D

نقل قول:

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

بله ، يه پروژه تقويم داشتم ، ميخواستم پيغام "صبح به خير" و "شب خوش" و از اينجور پيام ها بده .

راستش نميدونم ، كدي كه ازش استفاده ميكنم اينه :
[HTML]Private Sub Save_Click()
Open ("c:1.txt") For Output As #1
Print #1, "Name= " + Text.Text
Print #1, "Family = " + Text1.Text
Close #1
End Sub
[/HTML]

ترتیبیه !

====

برای سوال اولتون :

کد:

Open "c:/1.txt" For Input As #1 Input #1, a(0) Input #1, a(1) Close Label1.Caption = a(0) Label2.Caption = a(1)

و برای سوال دومتون :

کد:

Open "c:/1.txt" For Input As #1 Input #1, a(0) Input #1, a(1) Close Label1.Caption = a(0) + a(1)

* a(1) را در بخش جنرال تعریف کنید و کد بالا را بنویسید !
18-04-2010, 16:10
Mohsen.Sh_PC

سوال

سلام
من میخوام برای Command1 که در رویداد کلیک آن form2 نمایش داده میشه یک میانبر از صفحه کلید بزارم مثلا Shift+A
لطفا کمکم کنید.
یک سوال دیگه:
این Option Explicit چی کار میکنه که در جنرال وارد میکنند.
----------------------------------------
19-04-2010, 15:30
Mohsen.Sh_PC

سلام لطفا به سوال بالا و این سوال جواب بدین
خیلی خوشحال میشم.
متشکرم
من میخوام یک فایل با فرمت DOC رو از طریق برنامه اجرا کنم.
یعنی همراه برنامه این فایل هست فقط یک دکمه میخواد که با زدن اون این فایل اجرا بشه.
19-04-2010, 23:17
شـیـفــو

نقل قول:

من میخوام یک فایل با فرمت DOC رو از طریق برنامه اجرا کنم.

منظورت رو درست نفهميدم ، اگه ميخواي برنامت اونو بخونـه نميدونم ولي اگه ميخواي با زدن يك دكمه اون فايل اجرا بشه به شرطي كه برنامه و فايل كنار هم باشن دستورش اينه :

[HTML]
dim a as string
a= app.pach + "\" + " اسم فايل به همراه پسوند"
shell(a)
[/HTML]
20-04-2010, 10:28
M i L @ D

نقل قول:

نوشته شده توسط Mohsen.Sh_PC [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
من میخوام برای Command1 که در رویداد کلیک آن form2 نمایش داده میشه یک میانبر از صفحه کلید بزارم مثلا Shift+A
لطفا کمکم کنید.
یک سوال دیگه:
این Option Explicit چی کار میکنه که در جنرال وارد میکنند.
----------------------------------------

برای نمایش دادن Form2 در رویداد کلیک کافیه کد زیر را بنویسید :

کد:

Form2.show

و برای کلید میانبر ، تا جایی که میدونم در VB6 فقط از طریق Menu Editor میشه کلید میانبر تعریف کرد !

و جواب سوال دیگه :

هر وقت Option Explicit رو در بخش جنرال بنویسید حتما باید تمام متغیرها و آرایه ها رو تعریف کنید !

یعنی نمیتونید همینجوری بنویسید a=0 . حتما باید a را تعریف کنید !
20-04-2010, 13:25
Dark.Lord

نقل قول:

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

کد:

Form2.show

و برای کلید میانبر ، تا جایی که میدونم در VB6 فقط از طریق Menu Editor میشه کلید میانبر تعریف کرد !

با خاصیت Keydown نمی شه اینکار رو انجام داد؟
مشکل کجاست؟!
20-04-2010, 15:03
M i L @ D

نقل قول:

با خاصیت Keydown نمی شه اینکار رو انجام داد؟
مشکل کجاست؟!

بله ، درست میگید با Keydown هم میشه اینکار رو انجام داد !

ولی باید Focus روی Command که میخوای Form2 رو نشون بده باشه و برای اینکار کافیه کد زیر را بنویسید :

کد:

command1.setfocus

بعد کد زیر رو در روال keydown همان Command بنویسید :

کد:

If KeyCode = 65 And Shift = 1 Then Call Command1_Click End If

* قبل از نوشتن این کد باید در روال Click همان Command کد Form2.show را نوشته باشید !

* خیلی ممنون از Dark.Lord بخاطر تذکر !
21-04-2010, 13:44
شـیـفــو

دوستان چطوري ميتونم بك گراند فرمم موزيك بذارم ؟
21-04-2010, 13:48
Dark.Lord

نقل قول:

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

دوستان چطوري ميتونم بك گراند فرمم موزيك بذارم ؟

یک کامپونت پخش موزیک به فرم اضافه کن (مثل ویندوز مدیا پلیر)،
خاصیت Visable مدیا پلیر رو برابر با False قرار بده،
آدرس فایلت رو به مدیا پلیر بده و حالش رو ببر!
21-04-2010, 14:23
شـیـفــو

اسم كاميونت رو ميشه بگين ؟
تا حالا اينكار رو نكردم كدش رو هم بذاريد لطفا !
ممنون .

ب) چطوري ميتونم برنامم رو وارد سيستري كنم ؟ ( كنار ساعت ويندوز )
اگه برنامه ام رو به اونجا ببرم همواره سلكت هست ؟ يعني مثلا در فرم لود مشخص ميكنم اگه دكمه N وارد شد يه پيغام بياد كه بگه "سلام" ، حالا اگه برنامم در سيستري باشه اين خاصيت رو داره ؟
21-04-2010, 14:27
M i L @ D

نقل قول:

اسم كاميونت رو ميشه بگين ؟

Microsaft Multimedia Control 6.0
21-04-2010, 14:29
Dark.Lord

اسم کامپونت
Windows Media Player
هست،
در واقه اگر بخواهی حساب کنی هیچ کدی نداره!
فقط 4 تا تنظیمات هست.
موفق باشی.
23-04-2010, 20:08
شـیـفــو

الف) چطوري ميتونم برنامم رو وارد سيستري كنم ؟ ( كنار ساعت ويندوز )
اگه برنامه ام رو به اونجا ببرم همواره سلكت هست ؟ يعني مثلا در فرم لود مشخص ميكنم اگه دكمه N وارد شد يه پيغام بياد كه بگه "سلام" ، حالا اگه برنامم در سيستري باشه اين خاصيت رو داره ؟

ب) چطوري مي تونم در فرم لود مشخص كنم كه اگه دكمه N وارد شد يه پيغام بياد بگه "سلام" ؟
24-04-2010, 12:33
شـیـفــو

دوستان لطفا راهنمايي كنيد !
24-04-2010, 13:20
M i L @ D

نقل قول:

ب) چطوري مي تونم در فرم لود مشخص كنم كه اگه دكمه N وارد شد يه پيغام بياد بگه "سلام" ؟

تو فرم لود که نمیشه ! ولی در رویداد KeyDown فرم مورد نظر کد زیر رو بنویسید :

کد:

If KeyCode = 78 Then MsgBox ("salam")
24-04-2010, 19:49
Mohsen.Sh_PC

سلام
من یک سوال برام پیش اومده
چه فرقی بین Visual Basic 6 و VB.NET وجود داره.
و وقتی مایکروسافت نسخه های جدیدی از VB میفرسته بازار آیا برنامه نویسی در نسخه های مختلف فرق میکنه؟
25-04-2010, 15:01
Rishter

تفاوت

نقل قول:

نوشته شده توسط Mohsen.Sh_PC [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
من یک سوال برام پیش اومده
چه فرقی بین Visual Basic 6 و VB.NET وجود داره.
و وقتی مایکروسافت نسخه های جدیدی از VB میفرسته بازار آیا برنامه نویسی در نسخه های مختلف فرق میکنه؟

با عرض سلام

تفاوت خاصي با هم ندارن به نظرم پروژهاي VB.Net رو ميشه رو وب انتشار داد ولي ماله VB 6.0 رو نميشه . و

همچنين تو نسخه هاي جديد ايرادهاي نسخه قديمي رفع ميشه مثلا اگه شما بخواهيد تو VB 6.0 منوهاتون رو

مثل منوهاي آفيس كنيد بايد Ocx اون كنترل رو داشته باشيد ولي تو نسخه 2008 خودم ديدم كه نيازي به اون

كنترل نيست و تو خود برنامه هست . راستي اين و هم بگم همه ورژن هاي ويژوال بيسيك بعد از VB 6.0

همشون Net. هستند .

با تشكر اگه مورد ديگري هم بود بگيد تا ما هم بفهيم . :40::11:
25-04-2010, 15:10
Rishter

پاسخ به آقا/ خانم gtaexcess بخش الف

نقل قول:

الف) چطوري ميتونم برنامم رو وارد سيستري كنم ؟ ( كنار ساعت ويندوز )
اگه برنامه ام رو به اونجا ببرم همواره سلكت هست ؟ يعني مثلا در فرم لود مشخص ميكنم اگه دكمه N وارد شد يه پيغام بياد كه بگه "سلام" ، حالا اگه برنامم در سيستري باشه اين خاصيت رو داره ؟

با عرض سلام بايد به شما هم بگم اون چيزي كه شما ميگيد تو اين پروژه هست يه نگاهي بندازيد شايد متوجه

شديد :

نقل قول:

کد:

http://www.persiangig.com/pages/download/?dl=http://mediavb.persiangig.com/SourceCode/Ghraphic/Sys_Tray.zip

با تشكر :40::11:
25-04-2010, 16:47
Mah_jon

سلام
دوستان كسي مي تونه من بي نوا را در اين سوال همراهي كنه بيچاره مي شم رسماااااااااا

برنامه اي بنويسيد كه با دريافت نوع كنترل و رنگ از كاربر در هنگام اجراي يك فرم رنگ قلم همه كنترلهاي از آن نوع را برابر رنگ دريافتي نمايد.
26-04-2010, 15:23
Rishter

اينكه خيلي راحته

نقل قول:

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

سلام
دوستان كسي مي تونه من بي نوا را در اين سوال همراهي كنه بيچاره مي شم رسماااااااااا

برنامه اي بنويسيد كه با دريافت نوع كنترل و رنگ از كاربر در هنگام اجراي يك فرم رنگ قلم همه كنترلهاي از آن نوع را برابر رنگ دريافتي نمايد.

با عرض سلام

سوالي كه شما پرسيديد خيلي راحته اينم جواب :

براي اين كار ابتدا كنترل Common Dialog به كنترل باكس اضافه كنيد ( اگه بلد نيستيد مراحل زير رو دنبال كنيد :

بر روي كنترل باكس راست كليك كنيد و از منوي كشويي بر روي Components كليك كنيد ؛ از ليست آمده تيك

گزينه Microsoft Common Dialg Control 6.0 را بزنيد سپس بر روي OK كليك كنيد . )

خب بعد از آوردن كنترل Common Dialog بر روي كنترل باكس بر روي آيكن آن كليك كنيد و بروي فرم بگذاريد .

خاصيت Name = cmd

خاصيت Flags = 1

در فرم Load برنامتون اين كدهارو بنويسيد :

cmd.showFont
text1.font = cmd.fontname

حالا هرچندتا كنترل رو فرمتون هست به همين ترتيب تو رويداد فرم Load تون به جاي Text1 نام كنترل

موردنظرتون رو بنويسيد .

براي تغيير اندازه هم تو همون بخش ( Form_Load ) اين كد رو بنويسيد :

text1.fontsize = cmd.fontsize

اين كدهارو هم واسه ساير كنترلها بنويسيد .

اگه ميخواهيد كه نوشته Bold , Italic , UnderLine شود از اين كدها استفاده كنيد :

text1.FontBold = cmd..fontbold
text1.fontItalic = cmd.fontItalic
text1.fontunderLine = cmd.fontunderLine
بازم اين كدها رو واسه ساير كنترلها هم بنويسيد .

با تشكر . اگه بازم مشكلي بود بفرماييد . :11::40:
27-04-2010, 01:31
شـیـفــو

2stan
Beyn Roydad Keydown Va Keypress che farqi Hast ?

------

Felan Far30 Nadaram :)
27-04-2010, 02:41
Dark.Lord

نقل قول:

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

2stan
Beyn Roydad Keydown Va Keypress che farqi Hast ?

------

Felan Far30 Nadaram :)

Keydown زودتر از Keypress اتفاق می افتد و همچنین همه دکمه ها در Keypress کار نمی کند،
فرق مشهود این 2 رویداد رو می تونید در بازی GTA IV تجربه کنید،
وقتی در کنار یک تاکسی قرار دارید، اگر Keydown کلید F فعال شود راننده را کتک زده و سوار ماشینش می شوید!
اما اگر Keypress کلید F فعال شود شما به عنوان مسافر سوار تاکسی می شوید!
در کل توصیفش سخته! باید خودتون تجربه کنید! :27:

واحد زمان برحسب GMT +3.5. ساعت هم اکنون 19:20.

User Alert System provided by Advanced User Tagging v3.2.2 Patch Level 1 (Pro) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
کليه حق و حقوق متعلق است به P30world
استفاده از مطالب اين سايت به هر نحو ، منوط به کسب اجازه کتبي از مديريت ميباشد
اين سايت در زمينه موضوعات کامپیوتری و مطابق با قوانين کشور ايران فعاليت ميكند. (قوانین انجمن )