Printable View
سلام دوستان عزیز ...
من قرار شنبه یه امتحان مهم عملی داشته باشم ... میخوام تا جمعه شب شما من رو در مورد سوالایی که دارم راهنمایی کنید !
این اولین سوالات :
1 - چطور میتونم یه تکست باکس رو به عنوان دکمه ی رادیویی یا همون OptionButton دربیارم ؟ مثل این عکس :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
2 - چطور میتونم روی یک PictureBox با فشار دادن دکمه ی سمت چپ ماوس علامت * پشت سر هم چاپ کنم ؟
مرسی ...
سوالات جالبی هستند.
1-باید چک کنی ببینی اگه option روشن بود تکس باکس هم فعال بشه و برعکس.
2-باید از از رویداد مخصوص اون استفاده کنی و همراه با فرمان print
---------- Post added at 01:08 PM ---------- Previous post was at 01:06 PM ----------
کد:Private Sub Picture1_Click()
Picture1.Print "*"
End Sub
خیلی ممنون واسه جواب ...نقل قول:
سوال اول :
واسه سوال اول فکر میکردم با استفاده از پنجره ی خصوصیات میشه اینکارو کرد ولی مثل اینکه اینطور نیست و باید تکست باکس رو بکشی رو قسمت Coption . در کل جواب این سوال رو گرفتم !
سوال دو :
نمیدونستم PictureBox خصوصیت Print رو داره ... پس اینم بهم یاد دادید !
ولی مشکل اینجاست که من چطوری میتونیم رنگ و سایز و مکان چاپ رو بهش معرفی کنم ؟
اینم راهنمایی کنید خیلی ممنون میشم !
سلام
با استفاده از تابع Space() میتونی بگی چقدر جلوتر چاپ کنه.
مثلا
[HTML]Print Space(20) "*"[/HTML]
خیلی ممنون دوست عزیز واسه راهنمایی ...نقل قول:
ولی من میخوام دقیقا وقتی کلیک کردم تو همون مختصات ماوس چاپ بشه !
ولی بازم این Space تو جاهای دیگه بدردم میخوره ... ممنون !
باید تلفیقی از تابع print و خصوصیات CurrentY و CurrentX باشه.
ممنون واسه جواب ولی تا جایی که سوادم قد میده نمیشه همراه با Print مختصاتX , Y ماوس رو مشخص کرد !نقل قول:
راستی با خصوصیت Pset نمیشه بجای نقطه علامت "*" رو چاپ کرد ؟ اینجوری مشکل حل میشه !
باید از خصوصیات tab و space اون استفاده کنید.
اگه می خوایی با pset این کار رو بکنی باید یه تابع بسازی که با pset یه ستاره درست کنه
و اون وقت هر وقت رویداد رخ داد اون تابع رو صدا کنی.
نمیشه !:37:نقل قول:
آخه چطوری به Tab و Space بگم همون مختصات ماوس بشه ؟ با استفاده از CurrentX و CurrentY که نمیشه !
واسه دومی هم ... نمیدونم باید تابع رو چطوری بسازم که Pset ستاره درست کنه ... اصلا شدنیه ؟
...
راستی بازم ممنون واسه جواب !
به اندازه X باید از space استفاده کنی و به اندازه Y از Tab (اگه برعکس نگفته باشم.)
چرا نمی شه راحت هم هست.
خب من دقیقا همین رو امتحان کرده بودم ولی نشد ... اینم کد :نقل قول:
جاهای X و Y رو هم عوض کردم ولی باز نشد که نشد !کد:Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Print Tab(Y); Space(X); "*"
End If
End Sub
سلام
مورد 2
کد:'VB6
Private Sub PictureBox1_MouseDown(...
Me.Picture1.CurrentX = X
Me.Picture1.CurrentY = Y
Me.Picture1.Print "*"
End Sub
'VB9,VB10
Private Sub PictureBox1_MouseDown(...
Using graph = Me.PictureBox1.CreateGraphics
graph.DrawString("*", Me.Font, Brushes.Black, e.Location)
End Using
End Sub
وای ... مرســــــی ... شـــــد :11:نقل قول:
البته از اولین مورد استفاده کردم !
دومین مورد خطا میگرفت که .CreateGraphics وجود نداره !
راستی این Me چه کاربردی داره ؟
حالا چطوری کاری کنم که سایز و رنگ "*" عوض بشه ؟
مـــــمـــنـــون !
سلام
همانطور که نوشتم، کد دوم مربوط به VB2008/2010 است نه VB6-1998 !نقل قول:
دومین مورد خطا میگرفت که .CreateGraphics وجود نداره !
برابر this در زبان C است و حاوی اشاره گر شی جاری است.نقل قول:
راستی این Me چه کاربردی داره ؟
در واقع همه توابع و فیلدها باید عضو یک Class باشند مثل ForeColor که خصیصه عضو PictureBox است و نوشته میشود PictureBox.ForeColor
در Class که در حال کدنویسی آن هستید، همواره Me به همان کلاس اشاره میکند.
چون ما درون Class فرم جاری کدنویسی میکنیم Me.PictureBox1 یعنی PictureBox1 ای که عضو فرم جاری و فعلی است.
البته درج Me (و this در C) اختیاری است ولی در زبانهای شی گرایی مثل VB7/8/9/10 کلمات جدید و مشابه Me هم وجود دارد که مفاهیم بسیار مشابه ای با Me دارند ولی در سلسه مراتب وراثتی طور دیگری عمل میکنند مثل کلمات MyBase و MyClass ...
که در این شرایط نوشتن مرجع اشاره گر میتواند به شفافیت بیشتر کد کمک کند و در هر صورت هم بالاخره نصب مالک و مملوکی متد ها و فیلدها و... را واضح تر نشان خواهد داد.
بحرحال نوشتن Me اختیاری است.
کد VB2008/2010 که همان است ...نقل قول:
حالا چطوری کاری کنم که سایز و رنگ "*" عوض بشه ؟
پارامتر دوم فونت (شامل نام و سایز و حالت و..)
و پارامتر سوم هم قلم مو است که میتواند یک رنگ خالص یا یک گرادیان رنگی (حالت رنگین کمان) یا یک الگو یا یک تصویر و... باشد که با آن قلم مو متنString باید ترسیم شود.
و برای VB6 هم:
موفق باشید.کد:Private Sub PictureBox1_MouseDown(...
Me.Picture1.FontSize = 20
Me.Picture1.ForeColor = VBRUN.ColorConstants.vbBlue
Me.Picture1.CurrentX = X
Me.Picture1.CurrentY = Y
Me.Picture1.Print "*"
End Sub
واقــــــعـــــا مـــمــنـــونــم ... توضیحات بسیار کامل بود ... کد هم که استفاده کردم ! :11:نقل قول:
فقط یه سوال دیگه که امیدوارم تا قبل از ساعت 12 بهش جواب داده بشه ...
چطور با Dobule Click میتونم یک متن رو دقیقا در همون مختصات ماوس چاپ کنم ؟ آخه DblClick مختصات X و Y نداره !
بازم از هـــمه ممنون ...
سلام
برای به دست آوردن محل ماوس میتوانید از API ی GetCursorPos استفاده کنید و برای تبدیل مختصات به کنترلر جاری هم از ScreenToClient یا API کاملتر MapWindowPoints ...
البته متاسفانه مختصات کاری VB6 واحد من دراوردی Twips یوده!!! (که خوشبختانه مایکروسافت در اولین نسخه بعدی ان را اصلاح کرد)
شما اول باید برای هماهنگی با سیستم عامل ویندوز در نمایه طراحی روی PictureBox تان بروید و خصیصه ScaleType یا ScaleMode یا Scale را روی pixel قرار دهید و سپس ...
در Vb7,8,9,10 خصیصه داخلی MousePosition و تابع PointToClient استفاده کنید:کد:'VB6
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long
Private Sub PictureBox1_DoubleClick()
Dim pt As POINTAPI
Call GetCursorPos(pt)
Call ScreenToClient(Me.PictureBox1.hwnd, pt)
Me.PictureBox1.FontSize = 20
Me.PictureBox1.ForeColor = VBRUN.ColorConstants.vbBlue
Me.PictureBox1.CurrentX = pt.x
Me.PictureBox1.CurrentY = pt.y
Me.PictureBox1.Print "*"
End Sub
موفق باشید.کد:'VB9,10
Private Sub PictureBox1_DoubleClick(...
Using graph = Me.PictureBox1.CreateGraphics
graph.DrawString("*", Me.Font, Brushes.Black, Me.PictureBox1.PointToClient(Control.MousePosition))
End Using
End Sub
خیلی ممنون از همه ی دوستان بخصوص آقای _H2_ که واقعا کمک کردند !:11:
من رفتم واسه ی امتحان ...:45: