آژانس هواپیماییexchanging

سه تا سوال پیش پا افتاده

شروع موضوع توسط james007 ‏2 مارس 2006 در انجمن Visual Basic 6

  1. james007

    james007 کاربر تازه وارد

    تاریخ عضویت:
    ‏27 ژانویه 2006
    نوشته ها:
    37
    تشکر شده:
    2
    محل سکونت:
    جزیره خضرا
    سلام
    لطفا جواب بدید
    ------------------------------------------------------------------------------------------------------------------------
    1) چطور میشه اطلاعاتی رو از یک فرم به فرم دیگه فرستاد:
    مثلا میخواهیم هر وقت در فرم شماره دو Command Button کلیک شد حرف "A" به TextBox موجود در فرم یک انتقال یابد.
    ------------------------------------------------------------------------------------------------------------------------
    2) چطور میشه داده های موجود در InputBox رو به تکست باکس فرستاد.
    ------------------------------------------------------------------------------------------------------------------------
    3) این Select Case رو یکی توضیح بده. چطور میشه به جای If از Select Case استفاده کرد. اگه میشه یه برنامه سه چهار خطی درباره Select Case بفرمایید
    ------------------------------------------------------------------------------------------------------------------------
    میدونم خیلی پررو و دریده هستم!!!! ;)
    ببخشید
     
  2. saeedsmk

    saeedsmk مدیر بازنشسته

    تاریخ عضویت:
    ‏6 سپتامبر 2003
    نوشته ها:
    1,519
    تشکر شده:
    4
    1-
    فرض کن فرم یکت هست form1 و فرم دومیت هم form2
    توی کد کلیک دکمه توی فرم دو مینویسی
    کد:
    Private Sub Command1_Click()
        Form1.text1.Text = Form1.text1.Text + "a"
    End Sub
    2-
    کد:
      Text1.Text = InputBox("saeed", "saeed")
    3- فرض کن مثلا یک متغییر داری که 4 حالت بیشتر نداره یعنی فرض کن 1 و2و3و4 حالا برای اینکه بتونی بفهمی که چه حالتیه مییتونی هر حالت رو جدا گانه چک کنی
    یا برای این کار از select case استفاده کنی
    کد:
      Select Case a
    Case 1
    MsgBox "1"
    Case 2
    MsgBox "2"
    Case 3
    MsgBox "3"
    Case 4
    MsgBox "4"
    End Select
     
  3. james007

    james007 کاربر تازه وارد

    تاریخ عضویت:
    ‏27 ژانویه 2006
    نوشته ها:
    37
    تشکر شده:
    2
    محل سکونت:
    جزیره خضرا
    خیلی ممنون. گل کاشتی