Printable View
با عرض سلام و خسته نباشید خدمت دوستان
یک سوال اونم در مورد اینه که چطور در ویژوال بیسیک میشه دکمه های گرافیکی ایجاد کرد مثلا همین ماشین حساب ویندوز اولش دکمه یه شکلی هست و وقتی روش کلیک میکنی دکمه یه شکل دیگه میشه و وقتی دکمه رو رها میکنی یه شکله دیگه میشه خوشحال میشم اگه راهنماییم کنید.
با اکتیو ایکس Active X میشه .
اینجا رو بگردی خودم یا تکنیک جان 3 ، 4 مدل مختلف گذاشته
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام خسته نباشيد
چند تا اكتيو ايكس از اينترنت دانلود كردم كه شامل يه نوار منو و دكمه هاي رنگيه ، تو كامپيوتر خودم خوب اجرا مي كنه ولي همين كه برنامه رو انتقال مي دم به يه كامپيوتر ديگه برنامه اجرا نميشه
لطفا منو راهنمايي كنين متشكرم
معرفت در گران است به هر كس ندهندش پر طاووس قشنگ است به كركس ندهندش
سلام دوست عزيز چه جوري اجرا نميشه اختار ميده يا...
اگه اخطار ميده اخطار رو بنويسيد
سلام
تكنيك جان فكر كنم ايشون از اكتيوكس هاي رجيستر نشده استفاده كرده اند
خب تو اين كار رو بايد با رويدادهاي ماوس انجام بدي. مثل Mouse Down و Mouse Up و Mouse Move و...نقل قول:
اولش دکمه یه شکلی هست و وقتی روش کلیک میکنی دکمه یه شکل دیگه میشه و وقتی دکمه رو رها میکنی یه شکله دیگه میشه
توي وي بي 6 چون رويدادهاي ماوس زيادي نداره يه خورده كار مي بره چون تو بايد چك كني كه هر وقت ماوس روي دكمه رفت يه شكلي بشه و هر وقت از روي دكمه خارج شد يه شكل ديگه كه توي وي بي 6 فقط با رويدادها نميشه اين كار رو كرد. بايد يه خورده هم فكرت رو به كار بندازي و كد نويسي كني. ولي خب اگه تو وي بي دات نت بخواي اين كار رو بكني كلي كارت راحت ميشه چون با رويدادهاي خود وي بي دات نت مي توني اين كار رو به راحتي انجام بدي ;)
براي اينكار جنابMehrdad_Desiner از كد زير استفاده كن خودت هم اسم شيئي ها رو عوض كننقل قول:
خب تو اين كار رو بايد با رويدادهاي ماوس انجام بدي. مثل Mouse Down و Mouse Up و Mouse Move و...
توي وي بي 6 چون رويدادهاي ماوس زيادي نداره يه خورده كار مي بره چون تو بايد چك كني كه هر وقت ماوس روي دكمه رفت يه شكلي بشه و هر وقت از روي دكمه خارج شد يه شكل ديگه كه توي وي بي 6 فقط با رويدادها نميشه اين كار رو كرد. بايد يه خورده هم فكرت رو به كار بندازي و كد نويسي كني. ولي خب اگه تو وي بي دات نت بخواي اين كار رو بكني كلي كارت راحت ميشه چون با رويدادهاي خود وي بي دات نت مي توني اين كار رو به راحتي انجام بدي
کد:Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Visible = True
Image1.Visible = False
End Sub
Private Sub Image3_Click()
If Text2.Text = "" Then
Timer1.Enabled = True
Timer2.Enabled = True
Picture1.Visible = True
ProgressBar1.Visible = True
Image7.Visible = True
End If
End Sub
از همتون ممنونم