راهنمایی برای چند مورد در برنامه نویسی VB6

[Rain_Saeid]

با سلام و درود

اگه ممکن هست بنده رو در این موارد راهنمایی بفرمایید :

1- میخوام گزینه ای که داخل Combobox انتخاب میکنم ، اشاره کنه به مثلا Form2 و یا به Frame
منظور اینکه در داخل Combobox گزینه هایی داریم مثل : Page1 , Page2 , page3 که با زدن هر گزینه مثلا گزینه page2 اینگونه بشه : Form1 و یا Frame1 مخفی بشه و form2 و یا Frame2 نمایش داده بشه..

2- چطور میتونم فایلی بسازم که با ساختن یک برنامه ، و تنها با خود برنامه بشه فایل EXE برنامه رو فراخوانی کرد (یعنی اینکه به برنامه هایی که داخل آن فایل میخوام بریزم، کسی نتونه کپی برداریشون بکنه)

3- آموزش استفاده از Combobox رو بصورت کامل میخواستم

با تشکر
پیروز و موفق باشید

[apcog]

1-توی بخش سه میگم
2-نفهمیدم
3-
باید اول یه کومبو بزاری رو فرم.
بعد توی کد های برنامه گزینه ها رو بهش اضافه کنی
اینجوری:

کد:

combo1.additem "ali"
combo1.additem "reza"

اینجوری میتونی به کومبو گزینه ها رو اضافه کنی.
بعد کاربر باید یکیشو انتخاب کنه.
میتونی یک دکمه بزاری روی فرم و برای اون برنامه بنویسی که مثلا کاربر اگه علی رو انتخواب کرد بنویسه "سلام علی" و اگه رضا رو انتخوای کرد بنویسه "سلام رضا" اینجوری:

کد:

if combo1.text="ali" then msgbox "salam ali"
if combo1.text="reza" then msgbox "salam reza"

اینجوری با کلیک کردن روی دکمه ،شرط برسی میشه.
برای سوال اولت هم میتونی از همین روش استفاده کنی.مثل این:

کد:

if combo1.text ="form1" then form1.show
if combo1.text="form2" then form2.show

همین.البته شاید هم بخوای به محز عوض کردن انتخواب توسط کاربر شرط ها اجرا بشه و در واقع نیازی نباشه کاربر بعد از انتخاب گزینه ها دکمه رو بزنه.در این صورت باید این کد ها رو توی رویداد change از کومبو بنویسی.
موفق باشی

[Rain_Saeid]

با تشکر فراوان از شما استاد عزیز..

گزینه هارو فهمیدم چطوری اضافه کنم.. تشکر

باتوجه به این عکس میخوام سوالم رو بگم :



میخوام با انتخاب یکی از گزینه های Combobox اینطور بشه :

با انتخاب Frame1 از combobox دست راست تصویر که Frame1 هست Show بشه و Frame2 با همان انتخاب Hide بشه و برعکس که با زدن Frame2 از Combobox دست راست تصویر که Frame2 هست Show بشه و Frame1 با همان انتخاب Hide بشه..

ممنون میشم اگه راهنمایی بفرمایید

با تشکر

[apcog]

سلام.
ممنون عزیزم.
2 راه داری:
1.راه عادی:کومبو یک رویداد داره به اسم change که به محز تغیر کردن مقدار کومبو اون رویداد اتفاق میافته.میتونی از اون استفاده کنی.(که الان نمیدونم چرا توی ویژوال بیسیک من اجرا نمیشه. برای همین راه دوم رو برات میگم)
2. یه تایمر بزاری که مثلا هر 100 میلی ثانیه کومبو رو برسی کنه و اگه تغییر کرده بود کاری که باید رو انجام بده.
راه اول رو نمیتونم .شرمنده. گفتم که. نمیدونم چرا توی ویژوال بیسیک من کار نمیکنه.
اما برای راه دوم برات یه نمونه کد میزارم:

[Rain_Saeid]

با تشکر مجدد..

دوست عزیز هرکاری میکنم، هیچ عکس العملی انجام نمیده..

انگار نه انگار که به برنامه دستوری یا چیزی دادیم..

اگه ممکن هست، باز هم راهنمایی بفرمایید بنده حقیر رو..

با تشکر

---

با تشکر مجدد..

دوست عزیز با اندک تغییر کوچکی تونستم این کار رو عملی کنم.. خیلی ممنون

Private Sub Form_Load()
Combo1.AddItem "frame1"
Combo1.AddItem "frame2"
Combo1.AddItem "frame3"
Timer1.Interval = 100
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = False
End Sub

Private Sub Timer1_Timer()

If Combo1.Text = "frame1" Then
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
End If

If Combo1.Text = "frame2" Then
Frame1.Visible = False
Frame2.Visible = True
Frame3.Visible = False
End If

If Combo1.Text = "frame3" Then
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = True
End If

End Sub

با تشکر

---

[Rain_Saeid]

با تشکر از شما عزیزان..

1 سوال دیگه..

میخوام فایلی داشته باشم که فایلهای خودم رو داخلش انتقال بدم و اینکه در دسترس هرکسی نباشه و خودم فقط بتونم بازش کنم و برای عموم فقط بشه با اجرای دستورات VB6 (مثلا با زدن کلید Command) بشه بهش دسترسی پیدا کرد (مثلا با زدن کلید Command بشه به داخل اون فایل مخصوص رفت و مثلا فایل exe داخلش رو اجرا کرد)

ممنون میشم این رو هم راهنمایی بفرمایید

با تشکر

[vigraz]

با تشکر از شما عزیزان..

1 سوال دیگه..

میخوام فایلی داشته باشم که فایلهای خودم رو داخلش انتقال بدم و اینکه در دسترس هرکسی نباشه و خودم فقط بتونم بازش کنم و برای عموم فقط بشه با اجرای دستورات VB6 (مثلا با زدن کلید Command) بشه بهش دسترسی پیدا کرد (مثلا با زدن کلید Command بشه به داخل اون فایل مخصوص رفت و مثلا فایل exe داخلش رو اجرا کرد)

ممنون میشم این رو هم راهنمایی بفرمایید

با تشکر

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

myfolder.Attributes = myfolder.Attributes + 3
myfolder.Attributes = myfolder.Attributes + 3
این هم کد باز کردن ان
myfolder.Attributes = Normal
اگر فایلها رادراین بوشه بگذارید ودر برنامه از یک بسورد استفاده کنید
فقط خودتان میتوانیدبه ان دسترسی داشته باشید

[Di Di]

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

جسارتا عرض مي كنم

Como.Change
اين رويداد زماني رخ مي ده كه شما آيتم هاي يك كامبو رو با دكمه هاي اراكيو ( بالا و پائين صفحه كليد ) تغيير بديد.

Combo.Click
اين رويداد زماني رخ مي ده كه شما با استفاده از موس يكي از گزينه هاي كامبو باكس خودتون رو عوض كنيد و در اينجا بايد

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

[apcog]

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

جسارتا عرض مي كنم

Como.Change
اين رويداد زماني رخ مي ده كه شما آيتم هاي يك كامبو رو با دكمه هاي اراكيو ( بالا و پائين صفحه كليد ) تغيير بديد.

Combo.Click
اين رويداد زماني رخ مي ده كه شما با استفاده از موس يكي از گزينه هاي كامبو باكس خودتون رو عوض كنيد و در اينجا بايد

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

خیلی ممنون.
ولی برای من هیچ کدوم در هیچ شرایطی کار نمیکنه!

[Rain_Saeid]

با تشکر از شما اساتید..

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

میخوام داخل برنامه با انتخاب گزینه هایی که داخل Combobox هستش، Page ای که توش هستم عوض بشه..

یعنی اینکه بفرض مثال داخل Combobox گزینه هایی هست مثل Page1 . Page 2 . Page3 . و ... Page10 که با زدن هر گزینه صفحه بکل عوض بشه ..

بنظر شما اساتید بهترین دستور یا گزینه ای که میتونم به کارم اضافه کنم ، چی هستش..؟!

ممنون میشم با راهنمایی خوبتون بنده را راهنمایی بفرمایید.. با تشکر

[Di Di]

بهتره از TabControl استفاده كني. روي تول باكست راست كليك كن و بعد گزينه Add Componnet را انتخاب كن

حالا از ليست باز شده اين گزينه رو انتخاب و تائيد رو بزن. كار باهاش خيلي ساده است