PDA

نسخه کامل مشاهده نسخه کامل : 2 تا سوال (دیتابیس - اکتیوایکس)


Blue Rose
23-05-2006, 04:17
سلام
ممنون ميشم اگه به اين 2 تا سوال جواب بديد؟
1-) چطوري ميتونم محتويات يک فيلد ديتا بيس رو در کومبوباکس قرار بدم
2-) تو یه پروژه اکتیوایکس (زیاد هم مهم نیست که اکتیوایکس باشه) 3تا عکس با سایز 67*67 داریم روی هر کدوم که میریم سایزش به 100*100 تغییر پیدا میکنه تصاویر در هر حالتی باید وسط صفحه باشند(به این نگاه کنید)
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
tomcat
23-05-2006, 05:36
در مورد سوال اول باید بگم که شما باید از dbcombo استفاده کنید کارتون راحت تر میشه .
سوال دوم هم چیزی ازش نفهمیدیم میشه بیشتر توضیح بدین .
Blue Rose
23-05-2006, 05:46
در مورد سوال اول باید بگم که شما باید از dbcombo استفاده کنید کارتون راحت تر میشه .
سوال دوم هم چیزی ازش نفهمیدیم میشه بیشتر توضیح بدین .

سلام
اگه میشه در مورد DBCOMBO یه توضیحی بدین
تا حالا اسمش به گوشم نخورده

در مورد سوال دوم هم

3 تا عکس پیش هم وسط فرم داریم
روی هر عکس که میری اندازه طول و ارتفاعش 2 برابر میشه
موس رو که از روش بر میداری هم بر میگرده به حالت اولش
تو سورسی که گذاشتم هر چهار تا حالت رو توضیح دادم
حالتی که موس رو هیچ کدوم نیست
بعدش رو اولیه تا آخر

با تشکر
amin.pz
23-05-2006, 21:53
برای این کار من پیشنهاد میکنم که اطلاعات فیلد را تک تک بخوانید و در combo box اضافه كنيد براي اين كاراز متد
index در رويداد record setاستفاده كنيد
tomcat
24-05-2006, 05:29
دوست عزیز یه کامپوننت به نام Microsoft Datalist 6 وجود داره که باید اضافه کنید . اگر در حالت Enterprise هستید احتیاجی به اضافه کردن ندارید چون به صورت پیش فرض اضافه شده ولی اگر در حالت Standard هستید باید اضافه بشه . در ضمن شما از چه پایگاه داد ای استفاده می کنید ؟ و از چه رابطی ؟
Blue Rose
25-05-2006, 04:17
سلام
خیلی ممنون بخاطر جوابها
اما من تونستم مشکل اول رو اينطوري حل کنم
Dim I As Integer
Dim Cap As String
Dim nGro As Integer
rs.Open "[BlueRose]", db, adOpenStatic, adLockReadOnly
For I = 0 To rs.RecordCount
If rs.EOF Then Exit For
If Not IsNull(rs![Name]) Then Cap = rs![Name]
If Not rs.EOF Then rs.MoveNext
If Not rs.RecordCount = 0 Then
CmbName.AddItem Cap, nGro
nGro = nGro + 1
End If
Next
rs.Close
CmbName.ListIndex = 0
البته من قبلا بوسيله کنترل Data کار ميکردم واسه همين اين تغيير روش دو تا مشکل ديگه واسم پيش اورد

وقتي از کومبو باکس يه آيتمي (Name) رو انتخاب ميکنم ميخوام فيلد (Age) همون ID رو تو تکست باکس ببينم يا فيلد (Country) همون ID رو تو ليست باکس ببينم

يه چيز ديگه
ميخوام با زدن يگ دگمه فقط آيتمهايي (Name) در کومبو ديده بشه که مثلا (Country) اونها Iran باشه

ممنون ميشم اگه کمکم کنيد
در ضمن مشکل اون اکتيوايکس هم حل شد
حالا گير کردم تو اينکه چطوري انتخابيش کنم
مثلا کاربر بتونه رنگ پيش زمينه واسش انتخاب کنه
يه مقاله انگليسي گير اوردم دارم باش ور ميرم
اينم ادرسش اگه خواستيد سورس و اکتيوايکس هاي جالبي داره
قسمت اول در 14 صفحه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
قسمت اول در 7 صفحه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
Blue Rose
30-05-2006, 08:44
سلام
خیلی ممنون بخاطر جوابها
اما من تونستم مشکل اول رو اينطوري حل کنم
Dim I As Integer
Dim Cap As String
Dim nGro As Integer
rs.Open "[BlueRose]", db, adOpenStatic, adLockReadOnly
For I = 0 To rs.RecordCount
If rs.EOF Then Exit For
If Not IsNull(rs![Name]) Then Cap = rs![Name]
If Not rs.EOF Then rs.MoveNext
If Not rs.RecordCount = 0 Then
CmbName.AddItem Cap, nGro
nGro = nGro + 1
End If
Next
rs.Close
CmbName.ListIndex = 0
البته من قبلا بوسيله کنترل Data کار ميکردم واسه همين اين تغيير روش دو تا مشکل ديگه واسم پيش اورد

وقتي از کومبو باکس يه آيتمي (Name) رو انتخاب ميکنم ميخوام فيلد (Age) همون ID رو تو تکست باکس ببينم يا فيلد (Country) همون ID رو تو ليست باکس ببينم

يه چيز ديگه
ميخوام با زدن يگ دگمه فقط آيتمهايي (Name) در کومبو ديده بشه که مثلا (Country) اونها Iran باشه

ممنون ميشم اگه کمکم کنيد
در ضمن مشکل اون اکتيوايکس هم حل شد
حالا گير کردم تو اينکه چطوري انتخابيش کنم
مثلا کاربر بتونه رنگ پيش زمينه واسش انتخاب کنه
يه مقاله انگليسي گير اوردم دارم باش ور ميرم
اينم ادرسش اگه خواستيد سورس و اکتيوايکس هاي جالبي داره
قسمت اول در 14 صفحه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
قسمت اول در 7 صفحه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


سلام

یعنی اینقدر سوالم سخته که هنوز دارید بهش فکر میکنید
لطفا اگه چیزی میدونید که شاید بدردم بخوره من رو بی نصیب نذاره
با تشکر