ايران ويج

نسخه‌ی کامل: تشخیص اینکه یه فرم show هستش در vb6
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
صفحه‌ها: 1 2
Ghoghnus جان شما پست شماره 9 رو بخون عزیزم

عجیبه،
اما تو سیستم من اینطور نیست،
فکر میکنم یا سیستم من مشکل داره یا vb من
چون وقتی از دستور End هم که استفاده میکنم، قانونا فقط باید از فرم ها خارج بشن و exit بشه
اما یکدفعه و یکجا هم فرم بسته میشه هم Microsoft Visual Studio بدون اینکه از من پیغام ذخیره رو بپرسه
همینجوری مثه گ*و همه چیز بسته میشه!!!!
پدرمو درآورده چیکارکنم؟
راما جان تا اونجا که من اطلاع دارم 2 نسخه از وی بی 6 هست. یکی portbale هست به نام MiniVB و نسخه دیگر هم که نسخه اصلی هست که همه مشابه هم هستند.

احتمالا مشکل باید از سیستم عامل شما باشه
(۰۱-دى-۱۳۹۰, ۰۱:۴۶:۱۸)RAMA2009 نوشته است: [ -> ]Payman62
دوست گرامی؛
مثه که کار با وی بی 6 رو بلد نیستید

سلام
پیما جان یکی از مدیران خوب ویژوال بیسیک هستن که دارای اطلاعات بسیار مفیدی در این زمینه هستند و به خیلی ها کمک کردن

به هر حال خوش امدید به ایران ویج

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

کد:
Private Sub Form_Load()
'Me.Show
Me.Hide
If Me.Visible = False Then
MsgBox "Form Visible = False"
Else
MsgBox "Form Visible = True"
End If
End Sub

بدرود
سلام.

(۰۱-دى-۱۳۹۰, ۰۱:۴۶:۱۸)RAMA2009 نوشته است: [ -> ]Payman62
دوست گرامی؛
مثه که کار با وی بی 6 رو بلد نیستید
دوتا فرم ایجاد کنید ، توی Form1 یه باتون بزارید
توی باتونی که گذاشتید، بنویسید:
msgbox Form2.visible
حالا برنامه رو اجرا کنید ونتیجه رو ببینید
در هر صورت، Form2 چه show باشه و چه Hide باشه، خاصیت visible اون True هستش.
ممنون از راهنماییهاتون.

مطلب اون قدر ساده و ابتدایی هست که ارزش بحث نداره.
به هر حال دوستان و خود شما هم در ادامه پاسخ صحبت مطرح شده رو دادید.

فقط همین الآن که اول راهی یاد بگیر که با ضعیف تر و بی سواد تر از خودت دوستانه تر برخورد کنی.
وای خدا
OMG
یعنی دیگه تا این حد؟
همون جواب اول دیگه باید بحث تموم میشد. رو یک Visible و بحث؟
این هم 2 تا کد که اگه باز هم نشد کل سورستو بذار و بگو میخوای چیکار کنی که یکی از بچه ها برات انجام بده.
کد:
Case True
' DASTOOR

Case False

'DASTOOR

End Select

2
کد:
If Form1.Visible = True Then

'DASTOOR

ElseIf Form1.Visible = False Then

'DASTOOR

End If

موفق باشی..
موضوع وقتی برای همه جالب میشه
که یه وقت احساس کنن تو اون مطلب بهشون توحین شده (اگرچه اصلا اینطور نبوده!!!)
و دیگه بحث و اظهار نظر تمومی نداره!!!
اگرچه 2بار تکرار کردم که >>>موضوع حل شد!<<<
اما کماکان نه تنها موضوع، بلکه خودم هم مورد نقد و بررسی قرار گرفتم!!!!!!
آقاجون خیلی مردید، پست با موضوع : "برنامه ضبط صفحه کلید ( جاسوسی ) رو جواب بدید!
سلام.
مساله پاسخ گویی به شخص خاصی نیست. مساله جلوگیری از انتشار مطالب غلط توسط افراد تازه کار و به اشتباه انداختن دیگران هست.

در کل بنده شخصا ترجیح میدم دیگه به سوال های این قبیل کاربران پاسخ ندم تا بحث غیر علمی پیش نیاد.
باز هم برداشتی غلط!
و
جوابی تحقیرآمیز، بی ربط!

اگرچه محترمانه مشکلمو گفتم، و جز دوست گرامی، دوست عزیز، خیلی ممنون از راهنماییهاتون... چیزی نگفتم!!!
اونوقت میشم از این قبیل کاربران!!!!

خداییش این پست رو از اول بخونید...
صفحه‌ها: 1 2